AdP_a-p-0595

Transmission Factor

0.- Inicio - Descripion de Artobolevsky - Datos Iniciales

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

n3=0;

Relaciones={z2->z1, z3->3*z1,n4->n5};

DatosN={};

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

Wentrada=;

Wbrazo = ;

Wsalida = ;

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

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

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

* Solucion *

n4==WbrazoS

sentido?

n4==WbrazoS/.Relaciones

cantidad positiva ->> 5 y 1 giran en mismo sentido