AdP_a-p-0594

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n3=0;

Relaciones={z4->z3+2*z2};

DatosN={};

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

Wentrada=;

Wbrazo = ;

Wsalida = ;

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

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

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

* Solucion *

n4==WsalidaS

sentido?

n4==WsalidaS/.Relaciones

cantidad positiva ->> 4 y 1 giran en mismo sentido