AdP_a-p-0589

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

Artobo=;
Show[Artobo,ImageSize->400]

n3=0;
(*z2=z5;z4=z3;*)

Relaciones={z2->z5,z4->z3};

DatosN={z5->20,z3->19};

1.- Tren Planetario  1-2-3-4-5

Wentrada=;

Wbrazo = ;

Wsalida = ;

Tbrazo=(-(z/z))*(1)*(-(z/z))

Willis=Tbrazo==((Wsalida-Wbrazo)/(Wentrada-Wbrazo))

WsalidaS=Simplify[Wsalida/.Solve[Willis,Wsalida][[1]]]

* Solucion *

n5==WsalidaS

sentido?

n5==WsalidaS/.Relaciones/.DatosN

->> 5 y 1 giran en mismo sentido

Factor de Transmision - T15

T15=(n5/n1)/.{n5->WsalidaS}/.Relaciones/.DatosN