AdP_a-p-0587

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

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

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

Wentrada=;

Wbrazo = ;

Wsalida = ;

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

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

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

* Solucion *

n4==WbrazoS

sentido?

eq1=z1+z3==z2+z5;

z1s=z1/.Solve[eq1,z1][[1]]

Simplify[WbrazoS/.{z1->z1s}]

cantidad negativa por ser z3 < z5 ->> 1 y 4 giran en sentidos contrarios