Relation between Press Intensity and Angular Velocity at a RPPP Mechanism

Algorithm 1

 clear all, close all, clc

 axis([-5 110 -5 300])

 hold on

 L=100

 a=square((L-L*cosd(50))̂‌2+((L*cosd(50)-tand(50)))̂‌2)

 for t=0:5:65

 for u=50:5:65

 t

 R=[cosd(t) -sind(t) L-L*cosd(t)

 sind(t) cosd(t) L*(tand(t)-sind(t))

 0 0 1]

 A=[L;0;1]

 M=R*A

 line([0, M(1)], [0, M(2)], 'Marker', '.', 'LineStyle', '-')

 plot(L*cosd(t), L*sind(t), 'Marker', '.', 'LineStyle', '-')

 pause(0.1)

 cla

 end

 line([0, M(1)], [0, M(2)], 'Marker', '.', 'LineStyle', '-')

 plot(L*cosd(t), L*sind(t), 'Marker', '.', 'LineStyle', '-')

 end