Analysis of the position, speed and acceleration of the link coupler.

clear, clc

theta2=0:0.1:2*pi;
theta4=5/180*pi:0.1:27.3/180*pi;
L2=sin(22.3/2);
L3=2+2*sin(22.3/2);
L4=1;
Ax=L2.*cos(theta2); 
Ay=L2.*sin(theta2);


subplot(3,1,1)
plot(theta2,Ax,'b')
hold on
plot(theta2,Ay,'r')
title('')
xlabel('theta2 (radian)')
ylabel('position by angle  (m)')
legend('x','y')

The above is my code.

The position and velocity acceleration of the coupler's center point are analyzed using the loop closing method.

I don't know how to set theta3 variable.

I want to know how to analyze the position velocity acceleration of point B when the crank turns once when the center point of the coupler is B.

[darova]

Can you please explain more? Can you attach your model/picture? Where is ?