Väntmehhanismi kinemaatiline analüüs
yA(i)=OA*sin(Fi(i)); % koordinaat yA funktsioonina pöördenurgast FI
xB(i)=OA*cos(Fi(i))+AB*cos(alfa(i)); % liuguri xB funktsioonina pöördenurgast FI
xC(i)=OA*cos(Fi(i))+AC*cos(alfa(i)); % koordinaat xC funktsioonina pöördenurgast FI
yC(i)=(AB-AC)*sin(alfa(i)); %koordinaat yC funktsioonina pöördenurgast FI
VA=OMEGA*OA/100 ; % punkti A kiirus [m/s]
VB(i)=-(VA/100)*(sin(alfa(i)+Fi(i)))/cos(alfa(i)); %punkti B kiirus
funktsiooninapöördenurgast FI
VBT1(i)=-(OA/100)*OMEGA*sin(Fi(i));
VBT2(i)=-(AB/100)*(sin(alfa(i)))*(((OA/AB)*OMEGA*cos(Fi(i))/(sqrt(1-
((OA/AB)*sin(Fi(i)))^2))));
VBT(i)=VBT1(i)+VBT2(i);
%punkti B kiirus funktsioonina pöördenurgast FI tuletise abil
end
figure(1)
plot(xA,yA,'b-');%fig.1
title('Punkti A liikumise graafik','FontSize',12)
xlabel('Koordinaadid xA [cm]','FontAngle','Normal','FontWeight','bold')
ylabel('Koordinaadid yA [cm]','FontAngle','Normal','FontWeight','bold')
grid on
figure(2)
plot(grad,xB,'b-');%fig.2