word版可編輯-機械原理課程設(shè)計說明書精心整理doc(參考版)
2025-07-18 12:11本頁面
【正文】 主動件平衡力偶The Kinetostatic Analysis of Eightbar Linkase No. THETA1 Fr4 Bt4 Fr7 Bt7 Fr1 Bt1 Tb Tb4 deg N deg N deg N deg deg deg 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 四 主要收獲與建議：收獲:熟悉了程序輔助分析機構(gòu).在疑難時得老師指點. 特別感謝老師的幫助.。 } } (13) 線圖 主動件1的平衡力偶線圖 。 if(vp[nexf][1]0){ fe[nexf][2]=。 int nexf。 draw3(del,sita4,fr4draw,sita7,fr7draw,sita1,fr1draw,ic)。 getch() 。 /*固定鉸鏈反力失端圖*/ if((i%4)==0){getch()。 fr7draw[i]=fr7。 sita1[i]=bt1。 /*對比曲線校驗*/sita4[i]=bt4。tbdraw[i]=tb。 printf(\n%3d%%%%%%%%,i+1,fr4,bt4/dr,fr7,bt7/dr,fr1,bt1/dr,tb,tb4)。 we10=(ap[10][1]*vp[10][1]+(ap[10][2]+)*vp[10][2])*sm[5]。we8 =(ap[8][1]*vp[8][1]+(ap[8][2]+)*vp[8][2])*sm[3] 。 bt1=atan2(fr[1][2],fr[1][1])。 bt7=atan2(fr[7][2],fr[7][1])。 bt4=atan2(fr[4][2],fr[4][1])。tb)。 rrrf(4,2,3,8,2,5,0,0,3,2,p,vp,ap,t,w,e,fr)。 bark(7,0,10,5,r710,gam11,t,w,e,p,vp,ap)。 bark(5,0,9,4,r59,gam10,t,w,e,p,vp,ap)。 bark(4,0,8,3,r48,gam9,t,w,e,p,vp,ap)。 rrrk(1,4,2,3,3,2,r34,r23,t,w,e,p,vp,ap)。i++){ t[1]=(double)(i)*del*dr。 for(i=0。 fprintf(fp, deg N deg N deg N deg deg deg \n)。 } fprintf(fp,\n The Kinetostatic Analysis of Eightbar Linkase \n)。t open this file.\n)。 printf( deg N deg N deg N deg deg deg\n)。 /*打印標(biāo)題*/ printf(\n The Kinetostatic Analysis of Eightbar Linkase \n)。 gam10=*dr。 gam5=176.*dr。 r710=。 r48= 。 r12= 。 r34= 。 r56= 。 sm[5]= 。 /*主動件角速度*/sm[3]=。 t[1]=。p[1][1]=。 /*點位置*/p[7][1]= 。p[4][1]=。 pi=*atan()。 FILE *fp。 double fr4,fr7,fr1,bt4,bt7,bt1,we8,we9,we10,tb,tb4 。 double r45,r56,r67,r34,r511,r12,r23,r48,r59,r710。 /*定義變量*/ static int ic 。 static double tbdraw[370],tb1draw[370],fr[20][2],fe[20][2]。 tb(12) 程序 – 加入對質(zhì)心的運動分析，對固定鉸鏈的靜態(tài)動力分析，主動件反力偶 include include include include main(){/*定義靜態(tài)數(shù)組*/static double p[20][2],vp[20][2],ap[20][2] 。 draw1(del,pdraw,vpdraw,apdraw,ic)。} } fclose(fp)。 apdraw[i]=ap[11][1] 。 pdraw[i]= p[11][1] 。 printf(\n%2d%%%%%,i+1,t[1]/dr,p[11][2],p[11][1],vp[11][1],ap[11][1])。 rrrk(1,5,7,6,4,5,r56,r67,t,w,e,p,vp,ap) 。 rrrk(1,4,2,3,3,2,r34,r23,t,w,e,p,vp,ap) 。i++){ t[1]=(i)*del*dr。 for(i=0。 fprintf(fp, deg m m m/s m/s/s\n)。 } fprintf(fp,\n
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1