【文章內(nèi)容簡介】 p ap t w e fr fk pk p vp ap t w e fr fk pk rprf函數(shù)求點 2的反作用力 東北大學機械原理課程設(shè)計 牛頭刨床機構(gòu)方案分析 7 形式參數(shù) n1 n2 ns1 ns2 nn1 nn2 nexf k1 k2 實值 2 3 5 0 4 0 0 3 2 p vp ap t w e fr fk pk p vp ap t w e fr fk pk barf函數(shù)求點 1的反作用力 形式參數(shù) n1 ns1 nn1 k1 p ap e fr tb 實值 1 0 3 1 p ap e fr amp。tb 源程序 include include include include static double sm[10],sj[10]。 main() { static double p[20][2],vp[20][2],ap[20][2],del。 static double t[10],w[10],e[10],tbdraw[370],tb1draw[370]。 static double sita1[370],fr1draw[370],sita2[370],fr2draw[370],sita3[370],fr3draw[370]。 static double fr[20][2],fe[20][2],fk[20][2],pk[20][2],fr1,bt1,fr2,bt2,tb1,tb。 static int ic。 double r13,r24,r25,r78,r79。 double gam2,gam3。 double gam4,gam5。 double pi,dr,we3,we5。 double r2,vr2,ar2,r3,vr3,ar3。 int i。 FILE *fp。 char *m[]={tb,tb1,fr1,fr2}。 sm[3]=。 sm[5]=。 sj[3]=。 r13= 。 r24=。 r25=。 r78=。 r79=sqrt(*+*)。 gam2=。 gam3=atan(2/5)。 t[6]=。 w[6]=。 e[6]=。 e[1]=。 del=。 pi=*atan()。 w[1]=2*pi。 dr=pi/。 t[6]=t[6]*dr。 東北大學機械原理課程設(shè)計 牛頭刨床機構(gòu)方案分析 8 gam4=gam2*dr。 gam5=gam3*dr。 p[1][1]=。 p[1][2]=。 p[2][1]=。 p[2][2]=。 p[6][1]=。 p[6][2]=。 printf(\n The Kiostatic Analysis of a Sixbar Linkase\n)。 printf( NO THETA1 FR1 BT1 FR2 BT2 TB TB1\n)。 printf( (deg.) (N) (deg.) (N) (deg.) () ()\n)。 if((fp=fopen(MA 靜力 ,w))==NULL) { printf(Can39。t open this file.\n)。 exit(0)。 } fprintf(fp,\n The Kiostatic Analysis of a Sixbar Linkage\n)。 fprintf(fp, NO THETA1 FR1 BT1 FR2 BT2 TB TB1\n)。 fprintf(fp, (deg.) (N) (deg.) (N) (deg.) () ()\n)。 ic=(int)()。 for(i=0。i=ic。i++) { t[1]=(double)(270*dracos()(i)*del*dr)。 bark(1,3,0,1,r13,t,w,e,p,vp,ap)。 rprk(1,2,3,3,2,amp。r2,amp。vr2,amp。ar2,t,w,e,p,vp,ap)。 bark(2,0,4,3,r24,t,w,e,p,vp,ap)。 bark(2,0,5,3,r25,t,w,e,p,vp,ap)。 rppk(4,6,4,7,4,5,6,gam4,amp。r2,amp。vr2,amp。ar2,amp。r3,amp。vr3,amp。ar3,t,w,e,p,vp,ap)。 bark(7,0,8,5,r78,gam4,t,w,e,p,vp,ap)。 bark(7,0,9,5,r79,gam5,t,w,e,p,vp,ap)。 rppf(4,10,4,7,0,8,0,9,9,4,5,6,p,vp,ap,t,w,e,fr,fk,pk)。 rprf(2,3,5,0,4,0,0,3,2,p,vp,ap,t,w,e,fr,fk,pk)。 barf(1,0,3,1,p,ap,e,fr,amp。tb)。 fr1=sqrt(fr[1][1]*fr[1][1]+fr[1][2]*fr[1][2])。 bt1=atan2(fr[1][2],fr[1][1])。 fr2=sqrt(fr[2][1]*fr[2][1]+fr[2][2]*fr[2][2])。 bt2=atan2(fr[2][2],fr[2][1])。 we3=(ap[5][1]*vp[5][1]+(ap[5][2]+)*vp[5][2])*sm[3] e[3]*w[3]*sj[3]。 extf(p,vp,ap,t,w,e,9 ,fe)。 we5=ap[8][1]*vp[8][1]*sm[5]+fe[9][1]*vp[9][1]。 tb1=(we3+we5)/w[1]。 東北大學機械原理課程設(shè)計 牛頭刨床機構(gòu)方案分析 9 printf( %3d%%%%%%%\n, i,t[1]/dr,fr1,bt1/dr,fr2,bt2/dr,tb,tb1)。 fprintf(fp, %3d%%%%%%%\n, i,t[1]/dr,fr1,bt1/dr,fr2,bt2/dr,tb,tb1)。 tbdraw[i]=tb。 tb1draw[i]=tb1。 fr1draw[i]=fr1。 sita1[i]=bt1。 fr2draw[i]=fr2。 sita2[i]=bt2。 fr3draw[i]=fr2。 sita3[i]=bt2。 if(i%24==0) getch()。 } fclose(fp)。 getch()。 draw2(del,tbdraw,tb1draw,ic)。 draw3(del,sita1,fr1draw,sita2,fr2draw,sita3,fr3draw,ic)。 } extf(p,vp,ap,t,w,e,nexf,fe) double p[20][2],vp[20