##[y1 time1]=umpasso("fpend",[-pi+1;0],0,0.2,600);
##plot(time1,y1(1,:),"ob","linewidth",2)
##hold on
[y2 time2]=pendulo([-pi+1;0],0,1.35,300);
plot(time2,y2(1,:),"-r","linewidth",2)
hold off