AdP_a-p-0598

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n3=0;

Relaciones={};

DatosN={};

1.- Tren Planetario  1-2-3

Wentrada=;

Wbrazo =;

Wsalida =;

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

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

WbrazoS=Wbrazo/.Solve[Willis,Wbrazo][[1]]

n6=WbrazoS

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

Wentrada=;

Wbrazo = ;

Clear[Wsalida];

Wsalida =;

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

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

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

n5=Simplify[WsalidaS]

sentido?

si z2*z5 > z3*z4 -->> 5 y 1 giran en sentidos contrarios