%
%  this routine compares the predicted response with the real response
%
figure;
scale = 1; 
%scale = 180/pi; 
hold on
plot(time,x1*scale,'-','Linewidth',1);
plot(m_time,m_y*scale,':','Linewidth',4);
grid; 
legend('Measured','Predicted');
axis([0 min(max(m_time),max(time)) min(min(x1*scale),min(m_y*scale)) max(max(x1*scale),max(m_y*scale))]);
xlabel('Time (sec)');
ylabel('Displacement (cm)');
%ylabel('Displacement (deg)');
hold off