机械原理课程设计-牛头刨床的设计及运动分析

int gd=DETECT, gmode,i;Р initgraph(&gd,&gmode,"c:\\turboc2");Р clrscr();Р for(Q2=0;Q2<=2*PI;Q2+=1.0*PI/1000)Р {if(Q2>=0&&Q2<PI/2||Q2>PI*1.5&&Q2<=2*PI)Р Q4=atan((l2+l1*sin(Q2))/(l1*cos(Q2)));Р else if(Q2==PI/2.0||Q2==1.5*PI)Р Q4=PI/2;Р else if(Q2>PI/2&&Q2<PI)Р Q4=PI-atan((l2+l1*sin(Q2))/(-l1*cos(Q2)));Р elseР Q4=PI-atan((l2+l1*sin(Q2))/(-l1*cos(Q2)));Р if(Q2!=PI/2&&Q2!=1.5*PI)Р sA=l1*cos(Q2)/cos(Q4);Р else if(Q2==PI/2)Р sA=l1+l2;Р elseР sA=l2-l1;Р /* sA1=-l1*w1*sin(Q2-Q4); */Р w3=l1*C*cos(Q2-Q4)/sA;Р Q411=(C*C*l1*sin(Q4-Q2)-2*w3*sA)/sA;Р a3=Q411;Р if(((l7-l4*sin(Q4))/l5)>=0&&((l7-l4*sin(Q4))/l5)<=1)Р Q5=PI-asin((l7-l4*sin(Q4))/l5);Р else if(((l7-l4*sin(Q4))/l5)>=-1&&((l7-l4*sin(Q4))/l5)<0)Р Q5=PI+asin((l7-l4*sin(Q4))/l5);Р Se=l4*cos(Q4)+l5*cos(Q5);Р Q51=-w3*l4*cos(Q4)/(l5*cos(Q5));Р w4=Q51;