%P5_1   Plots of Problem 5.1.

% B. Siciliano & L. Villani
% DIS, Univ. of Naples, Italy, 7-23-95

hold off
clg

% position
%  subplot(4,2,1)
  subplot(2,2,1)
  plot(time,q);
  axis([t(1) t(2) 0.5 4.5]);
%  set(gca,'fontname','Times','fontsize',12,'fontweight','normal');
  title('pos');
  xlabel('[s]');
  ylabel('[rad]');

% velocity
%  subplot(4,2,2)
  subplot(2,2,2)
  plot(time,dq);
%  set(gca,'fontname','Times','fontsize',12,'fontweight','normal');
  axis([t(1) t(2) -0.5 3]);
  title('vel');
  xlabel('[s]')
  ylabel('[rad/s]')

% acceleration
%  subplot(4,2,3)
  subplot(2,2,3)
  plot(time,ddq);
%  set(gca,'fontname','Times','fontsize',12,'fontweight','normal');
  axis([t(1) t(2) -5 5]);
  title('acc');
  xlabel('[s]')
  ylabel('[rad/s^2]')

%set(1,'papertype','a4');
%set(1,'paperPosition',[0.25 0 16 12]);
%h = get(1,'Child');
%p = [0.065 0.2925 0.16 0.17];
%set(h(1),'pos',p);
%p(2) = 0.53;
%set(h(2),'pos',p);
%p(2) = 0.7675;
%set(h(3),'pos',p);
