AdP_a-p-0588

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

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

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

Wentrada=;

Wbrazo = ;

Wsalida = ;

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

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

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

* Solucion *

n5==WsalidaS

sentido?

eq1=z2+z3==z4+z5;

z3s=z3/.Solve[eq1,z3][[1]]

Simplify[WsalidaS/.{z3->z3s}]

cantidad positiva por ser z2 > z4 ->> 5 y 1 giran en mismo sentido