velProf.m

L2 = 4;
L3 = 8;
L1 = 6.44;
t2 = [0:1:100];

tanT4 = (L2*sind(t2) + L3*cosd(t2) ) ./ (L2*cosd(t2) - L3*sind(t2) + L1 ) ;
tanT42 = (tanT4 - tand(t2) ) ./ (1 + tanT4 .* tand(t2) ) ;

xdot = -L2*(sind(t2) + cosd(t2) .*tanT42);
figure (3)
plot(t2, xdot)
ylabel('Velocity Multiplication Factor')
xlabel('Theta 2')
title('Velocity Multiplication Factor vs. Theta 2')