% Main script para a deduçao das equaçoes de um pendulo composto com N
% graus de liberdade.
% Os parametros de entrada sao configurados no script 'pendulo_data'.

close all
clear all

% Leitura dos parametros de entrada
pendulo_data;

% Inicializacao das variaveis simbolicas
fprintf('Inicializando variaveis simbolicas... ');
pendulo_init;
fprintf('FEITO!\n');

% Calculo da equaçao da energia conservativa EL
fprintf('Calculando a Energia Conservativa...  ');
pendulo_energy;
fprintf('FEITO!\n');

% Aplicaçao do formalismo de Lagrange para calculo dos binarios
fprintf('Aplicando o formalismo de Lagrange... ');
pendulo_lagrange;
fprintf('FEITO!\n');

% Substituiçao das variaveis para valores
% fprintf('Substituindo variaveis...             ');
% T_num=subs(subs(subs(subs(subs(subs(T,m,m_val),r,r_val),L,L_val),atr(:,1),atr_val(:,1)),atr(:,2),atr_val(:,2)),g,g_val);
% fprintf('FEITO!\n');

% === APRESENTAÇAO DE RESULTADOS ==========================================
fprintf('\n*** APRESENTACAO DE RESULTADOS SIMBOLICOS **************************************\n');

for i=1:N
    fprintf('T%d = ...',i);
    pretty(T(i,1))
    fprintf('--------------------------------------------------------------------------------\n');
    pause
end

% fprintf('\n*** APRESENTACAO DE RESULTADOS NUMERICOS ***************************************\n');
% 
% for i=1:N
%     fprintf('T%d = ...',i);
%     pretty(T_num(i,1))
%     fprintf('--------------------------------------------------------------------------------\n');
%     pause
% end