AdP_a-p-0586

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n5=0;
(*z5=z1+z2+z3;*)

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 *

n1==WsalidaS

mismo sentido - ok