牛头刨床导杆机构的设计及运动分析

目录一、计任务及要求二、数学模型的建立三、程序框四、程序中符号说明五、程序清单及运行结果六、课程设计总结七、参考文献牛头刨床导杆机构运动分析一、设计任务及要求:已知：牛头刨床的导杆机构的曲柄每分钟转速n2，各构件尺寸及重心位置，且报头导路x-x位于导杆端点B所作圆弧的平分线上。数据如下表所示：设计内容导杆机构运动分析单位r/minmm符号n1LO2O4LO2ALO4BLBELO4S4数据7040095800要求：1、用c语言编写计算程序,对机构进行动态分析和动态显示。2、上机调试程序并打印结果。3、画出导杆4的角位移，角速度，角加速度的曲线。4、编写设计计算说明书。二、数学模型的建立：ABCXabdZ2Z1Z3Y该牛头刨床导杆机构为六杆机构，拆分成两个四杆机构：1）摆动导杆机构；2）曲柄滑块机构。求导杆4的角位移，角速度，角加速度，分析摆动导杆机构。如图所示建立坐标。三个向量构成封闭图形，所以可得：（1）OZZZ342按复数形式可以写成：上式可以简化为,900)sin(co)sin(co)sin(co333dba，求解得）式对时间求二阶导数将（得）对时间求一阶导数，将（联立解得）（）（相等得）式中实部、虚部分别根据（）（。2)8(sin7co.2)6(sin5coi)4(,340sinico22)i()i()i(s2433abvadbrtgdbaA)9(2)sin()co(14224Ava。即为导杆的角加速度，即导杆的角速度，4因为曲柄可看作匀角速转动，则=0。2三、刨头刨床导杆机构运动分析设计程序框图：输入a,d,n2求解1，1作循环，For(i=0;i#include#include#include#definePI3.1415926#defineMPI/180#defineC2*PI*70/60#definel195#definel2400#definel4800#definel5(0.32*l4)#defineYs622.88996918#definel7l4-Ys6voiddtmn();voidpist(floatx0,floaty0,floatl,floath,floattheta);voidslide(floatx0,floaty0,floatx1,floath);voidpirot(floatx0,floaty0,floatl);voidsgd();voidcur();/*主函数*/main()intQ2,i=0,j=0,Q_272;floatQ4,Q41,Q411,w3,a3,Q5,Q51;floatQ511,sA,sA1,sA11,Se,w4,Ve,Se1,a4,Se11;floatS_e72,S_e172,S_e1172,Q_51172;FILE*fl;if(fl=fopen(mydata.txt,w)=NULL)printf(mydata.txtcannotopen!n);exit(0);/*intgd=DETECT,gm;initgraph(cleardevice();*/clrscr();printf(角位移位移速度角加速度加速度n);for(Q2=0;Q2=0&Q2270&Q290&Q2=180&Q2=0&(l7-l4*sin(Q4*M)/l5)=-1&(l7-l4*sin(Q4*M)/l5)=0&Q2PI*1.5&Q2PI/2&Q2=0&(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;Se1=-w3*l4*sin(Q4-Q5)/cos(Q5);/*Q511=(Q41*Q41*l4*sin(Q4)+Q51*Q51*l5*sin(Q5)-Q411*Q411*l4*cos(Q4)/(l5*cos(Q5);*/Se11=-(a3*l4*sin(Q4-Q5)+w3*w3*l4*cos(Q4-Q5)-w4*w4*l5)/cos(Q5);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+Q2*180/PI,200-Se/5,1);/*绘制位移曲线*/putpixel(100+Q2*180/PI,200-Se1/100,2);/*绘制速度曲线*/putpixel(100+Q2*180/PI,200-Se11/100,4);/*绘制加速度曲线*/setcolor(10);settextjustify(CENTER_TEXT,0);outtextxy(300,300,RED_JIASUDU);outtextxy(300,330,GREEN_SUDU);outtextxy(300,360,BLUE_WEIYI);/*outtextxy(300,50,SUDUJIASUDUWEIYIGUANXIQUXIANTU);*/outtextxy(300,50,SUDUJIASUDUWEIYIGUANXIQUXIANTU);getch();closegraph();数据角位移位移速度角加速度加速度0-71.142304.6478.723-9953.6995-75.351401.2487.939-9740.87010-80.667490.5787.002-9468.88615-87.004572.9115.950-9140.81620-94.281648.5344.820-8759.89925-102.420717.7303.645-8329.56630-111.345780.7662.453-7853.44035-120.986837.8961.272-7335.32440-131.273889.3450.125-6779.14145-142.139935.321-0.968-6188.92150-153.521976.003-1.990-5568.73255-165.3571011.550-20924-4922.64860-177.5861042.098-3.759-4254.69565-190.1491067.764-4.482-3568.84070-202.9901088.634-5.086-2868.89375-216.0501104.795-5.563-2158.58680-229.2761116.298-5.907-1441.44885-242.6111123.185-6.115-720.85290-256.0001125.473-6.1850.00495-269.3891123.182-6.115718.097100-282.7241116.297-5.9071430.578105-295.9501104.794-5.5632134.752110-309.0101088.633-5.0862828.065115-321.8511067.761-4.4823508.075120-334.4141042.097-3.7594172.396125-346.6431011.550-2.9244818.689130-358.479976.002-1.9905444.576135-369.861935.319-0.9686047.605140-380.727889.3440.1256625.189145-391.014837.8941.2727174.511150-400.655780.7662.4537692.463155-409.580717.7293.6458175.566160-417.719648.5344.8208619.898165-424.996572.9115.9509021.038170-431.333490.5787.0029374.011175-436.649401.2487.9399673.283180-440.858304.6478.7239912.797185-443.872200.5309.31310086.062190-445.60288.7119.66710186.335195-445.954-30.8999.74110206.849200-444.835-158.2419.49510141.209205-442.156-293.0488.8939983.816210-437.831-434.7687.9099730.355215-431.781-582.4796.5269378.272220-423.944-734.7994.7488927.134225-414.275-889.7982.6018378.840230-402.757-1044.9280.1367737.403235-389.408-1196.994-2.5627008.511240-374.285-1342.188-5.3816198.696245-357.495-1476.201-8.1785314.545250-339.200-1594.439-10.7914362.119255-319.613-1692.325-13.0533347.051260-299.004-1765.690-14.8032275.500265-277.684-1811.176-15.9121155.762270-256.000-1125.473-6.1850.005275-234.316-1811.174-15.912-1174.578280-212.996-1765.694-14.803-2346.066285-192.387-1692.326-13.053-3489.404290-172.800-1594.441-10.791-4579.275240-374.285-1342.188-5.3816198.696245-357.495-1476.201-8.1785314.545250-339.200-1594.439-10.7914362.119255-319.613-1692.325-13.0533347.051260-299.004-1765.690-14.8032275.500265-277.684-1811.176-15.9121155.762270-256.000-1125.473-6.1850.005275-234.316-1811.174-15.912-1174.578280-212.996-1765.694-14.803-2346.066285-192.387-1692.326-13.053-3489.404290-172.800-1594.441-10.791-4579.275295-154.505-1476.203-8.178-5593.049300-137.715-1342.190-5.381-6513.247305-122.592-1196.996-2.562-7328.699310-109.243-1044.9290.136-8034.470315-97.725-889.7992.601-8630.820320-88.056-734.8004.748-9121.607325-80.219-582.4806.526-9512.740330-74.169-434.7687.909-9810.804335-69.844-293.0488.893-10022.228340-67.165-158.2419.495-10152.754345-66.046-30.8999.741-10207.297350-66.39888.7109.667-10189.9902、动画模拟程序/*运动模拟图函数*/voiddtmn()intgd=DETECT,gmode,n;initgraph(cleardevice();dosetbkcolor(0);sgd();while(!kbhit();getch();/*导轨函数*/voidslide(floatx0,floaty0,floatx1,floath)floatxr;inti,n;xr=x0+x1;line(x0,y0,xr,y0);n=x1/h;for(i=0;i=n;i+)moveto(x0+i*h,y0+h);lineto(x0+(i+1)*h,y0);/*摇块函数*/voidpist(floatx0,floaty0,floatl,floath,floattheta)floatx,y;x=x0-cos(theta)*l/2+h/2*sin(theta);y=y0+l/2*sin(theta)+h/2*cos(theta);moveto(x,y);linerel(l*cos(theta),-l*sin(theta);/*绘制轮廓线*/linerel(-h*sin(theta),-h*cos(theta);linerel(-l*cos(theta),l*sin(theta);lineto(x,y);/*支点函数*/voidpirot(floatx0,floaty0,floatl)/*floatPI=3.1415926;*/floatx,y;inti,n;inth=4;setcolor(4);circle(x0,y0,3);setcolor(9);x=x0-l/2;y=y0+sin(PI/3)*l;moveto(x0,y0);lineto(x,y);linerel(18,0);lineto(x0,y0);n=l/4;for(i=0;i=n;i+)moveto(x+i*h,y+h);lineto(x+(i+1)*h,y);/*连杆,摇块,导轨函数*/voidsgd()inti;intx04,y04,x02,y02;intl02a=l1/2;intl04b=l4/2;floatxa,ya,xb,yb,xc,yc,l;floatlbc=l5/2;floatss,theta;for(i=0;i64;i+)/*动态模拟*/ss=i*0.1;/*坐标计算*/x04=400;x02=400;y04=400;y02=225;xa=x02+l02a*cos(ss);ya=y02+l02a*sin(ss);l=sqrt(xa-x04)*(xa-x04)+(ya-y04)*(ya-y04);xb=x04+(xa-x04)*l04b/l;yb=y04+(ya-y04)*l04b/l;yc=135;xc=xb-sqrt(lbc*lbc-(yb-yc)*(yb-yc);theta=-atan(ya-y04)/(xa-x04);setcolor(4);cleardevice();circle(xb,yb,3);circle(xa,ya,3);circle(xc,yc,3);setcolor(8);line(50,135,500,135);rectangle(xc+7,yc+6,xc-7,yc-6);/*绘制滑块C*/line(x02,y02,xa,ya);line(xc,yc,xb,yb);