AdP_a-p-0601

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n6=n7;
n4=0;
n8=n4;

Relaciones={};

DatosN={};

1.- Tren Planetario  1-2-4-6

Wentrada=;

Wbrazo =;

Wsalida = ;

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

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

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

n6==WbrazoS

ok - mal en descripcion - hay un segundo =

n7=WbrazoS;

2.- Tren Planetario  8-7-3-5

Clear[Wsalida, Wentrada, Wbrazo];

Wentrada=;

Wbrazo =;

Wsalida =;

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

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

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

n5==WsalidaS

ok