clear all

[dimensoes,manipulador,Juntas,mi,cmassa,PeApoiado,Origem,n_V,PassoTipo,max_M]=Inicializacao;
mov = avifile('testes.avi');                    % cria um video para gravar a animacao



[Juntas,mov,manipulador,n_V,Pfinal,max_M]=PassoInicial(manipulador,Juntas,cmassa,mi,mov,PeApoiado,Origem,n_V,PassoTipo,max_M);

[Juntas,mov,manipulador,n_V,Pfinal,PeApoiado,Origem,max_M]=PassoSeguinte(manipulador,Juntas,cmassa,mi,mov,PeApoiado,Origem,n_V,Pfinal,PassoTipo,max_M);
[Juntas,mov,manipulador,n_V,Pfinal,PeApoiado,Origem,max_M]=PassoSeguinte(manipulador,Juntas,cmassa,mi,mov,PeApoiado,Origem,n_V,Pfinal,PassoTipo,max_M);

[Juntas,mov,manipulador,n_V,Pfinal,PeApoiado,Origem,max_M]=PassoFinal(manipulador,Juntas,cmassa,mi,mov,PeApoiado,Origem,n_V,Pfinal,PassoTipo,max_M);
mov = close(mov);                               % fecha o video

