机械原理课程设计-插床导杆机构的设计及运动分析

t*i;Рweit=atan((a*sin(alf)-d)/(a*cos(alf)));Рif(weit<0)Рweit=weit+2*pi;РelseРif(0<weit<pi)Рweit=weit+pi;Рtheta1=weit-pi;Рb=sqrt(a*a+d*d-2*a*d*sin(alf));Рw3=a*w1*cos(alf-weit)/b;Рva=-a*w1*sin(alf-weit);Рekq3=(-a*w1*w1*sin(alf-weit)-2*va*w3)/b;Рtheta2=asin((f*sin(theta1)-e)/g);Рq=-2*f*cos(theta1);Рj=f*f+e*e-g*g-2*f*e*sin(theta1);Рu=q*q-4*j;Рs=(-q+sqrt(u))/2;Рw4=f*w3*cos(theta1)/(g*cos(theta2));Рvc=f*w3*sin(theta1-theta2)/cos(theta2);Рekq4=f*(ekq3*cos(theta1)-w3*w3*sin(theta1)+w4*w4*sin(theta2))/(g*cos(theta2));Рac=g*ekq4*sin(theta2)+g*w4*w4*cos(theta2)-f*ekq3*sin(theta1)-f*w3*w3*cos(theta1);Рline(100,200,500,200);Рsetcolor(5);Рline(492,201,500,200);Рline(492,199,500,200);Рline(100,10,100,350);Рsetcolor(5);Рline(99,18,100,10);Рline(101,18,100,10);Рputpixel(100+alf*180/pi,200-s/5,1);/*绘制位移曲线*/