% Programa de simulaçao de um pendulo simples
% Atençao: caso a simulaçao seja muito lenta, aumente o passo temporal
% (step_time) no script pendulum_data.m
% As caracteristicas do sistema estao definidas no script pendulum_data!

close all                   % Fechar todas as janelas
clear all                   % Apagar todas as variaveis

% === PARAMETROS DE ENTRADA ===============================================
pendulum_data
% =========================================================================

% === DINAMICA DIRECTA ====================================================
% t: gama temporal
% theta: coluna 1 - theta; coluna 2 - Dtheta (w)
[t,theta]=ode45('theta_odefun',[0:step_time:max_time],[theta0 Dtheta0]);
% =========================================================================

% Animaçao
pendulum_anim(theta,t,L);