AdP_a-p-0634

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

z1=z2=z3;
z4=z5=z6;

n7=n2;

Relaciones={};

DatosN={};

1.- Tren Planetario 4-5-6-7

Clear[Wentrada, Wsalida, Wbrazo];

1.- Tren Simple 1-2

T12=(n/n)==-(z/z);

n2s=n2/.Solve[T12,n2][[1]]

Wbrazo=n7/.{n2->n2s}

2.- Tren Simple 1-3-4

T14=(n/n)==(z/z)*(1);

n4s=n4/.Solve[T14,n4][[1]]

Wentrada=n4/.{n4->n4s}

Tren Planetario

Wsalida =;

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

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

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

** Solucion **

n6==WsalidaS