CAMPG.M
% ...... CAMPG.M -MATLAB MODEL INPUT FILE ......
% ......System Physical Parameters........
i2 = .02; r3 = 0.03; c4 = 1/1.96;
% ...... Initial conditions vector ........
% ...... Simulation Time Control
% ...... Solution of system equations 2-3 order R-T
[t,p_q] = ode23('bgequa',t0,tf,initial);
subplot (211),plot(t,p_q(:,1),'b'),grid
title('Simulation (Mass velocity p2/i2) Initial conditions q4in=0.04')
subplot (212),plot(t,p_q(:,2),'m'),grid
title('Simulation (Mass position q4) Initial conditions q4in=0.04')