clear all
close all
clc

% compound planetary train
% Np2*Ns*As+Np1*Nr*Ar=(Np1*Nr+Np2*Ns)*Ac;

% AsAc=(Np1*Nr+Np2*Ns)/Np2*Ns;
% ArAc=(Np1*Nr+Np2*Ns)/Np1*Nr;
% AsAr=-Np1*Nr/Np2*Ns;
%============================================
% compound planetary train 2
% Np2*Ns1*As1-Np1*Ns2*As2=(Np2*Ns1-Np1*Ns2)*Ac;
Np1=40;
Np2=50;
Ns1=30;
Ns2=20;
As1Ac=(Np2*Ns1-Np1*Ns2)/Np2*Ns1;
As2Ac=-(Np2*Ns1-Np1*Ns2)/Np1*Ns2;
As1As2=Np1*Ns2/Np2*Ns1;
soma=(Np1+Ns1)-(Np2+Ns2);
fprintf('As1Ac  = %8.2f\nAs2Ac  = %8.2f\nAs1As2 = %8.2f\nsoma   = %8.2f\n',...
    As1Ac,As2Ac,As1As2,soma)



