AdP_a-p-0585

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n2=0;

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

Wentrada=;

Wbrazo=;

Wsalida =

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

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

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

* Solucion *

n4==WsalidaS

ok