電動壓蓋機(jī)課程設(shè)計(jì)-資料下載頁
2025-07-04 18:17本頁面
【導(dǎo)讀】機(jī)械設(shè)計(jì)課程設(shè)計(jì)。設(shè)計(jì)題目____電動壓蓋機(jī)__
【正文】 FILE *fp。 double e,ro,rt,h,phi1,phis,phi_1,phi_s,omega。 /*各字母含義 e 偏距基圓半徑 ro,滾子半徑 rt,行程 h,推程運(yùn)動角 phi1,遠(yuǎn)休止角 phis,回程運(yùn)動角 phi_1,近休止角 phi_s，凸輪轉(zhuǎn)動角速度 omega*/ double s,alp[73],x[73],y[73],x1,y1,x2,y2,xr[73],yr[73],qulv[73]。 /*分別代表從動件位移壓力角理論輪廓曲線點(diǎn)的位置 x,y 對運(yùn)動角的微分實(shí)際輪廓曲線的位置 x,y*/ double ic,ic1,ic2,ic3,so,s1,s2,cop,sip,phi,gam,bel,del=,q,t,f。 /*定義變量 */ int i。 fp=fopen(,wt)。 printf(fp,請依次輸入偏距 ,基圓半徑 ,滾子半徑 ,行程 ,推程運(yùn)動角 ,遠(yuǎn)休止角 ,回程 運(yùn)動角 ,近休止角，凸輪轉(zhuǎn)動角速度 \n)。 printf(請依次輸入偏距 ,基圓半徑 ,滾子半徑 ,行程 ,推程運(yùn)動角 ,遠(yuǎn)休止角 ,回程運(yùn)動角 ,近休止角，凸輪轉(zhuǎn)動角速度 \n)。 scanf(%lf%lf%lf%lf%lf%lf%lf%lf%lf,amp。e,amp。ro,amp。rt,amp。h,amp。phi1,amp。phis,amp。phi_1,amp。phi_s,amp。omega)。 gam=phi1+phis。 bel=phi1+phis+phi_1。 ic=(int)()。 ic1=(int)(phi1/del)。 ic2=(int)(gam/del)。 ic3=(int)(bel/del)。 so=sqrt(ro*roe*e)。 phi1=phi1/180*PI。 phis=phis/180*PI。 phi_1=phi_1/180*PI。 27 phi_s=phi_s/180*PI。 printf(編號 理論輪廓線 x/mm 理論輪廓線 y/mm 實(shí)際輪廓線 X/mm 實(shí)際輪廓線Y/mm 壓力角 曲率 p/mm\n)。 /*在屏幕上輸出文件頭 */ for(i=0。i=ic。i++) /*每隔五度建立循環(huán) */ { phi=i*del*PI/。 /*將角度化為弧度 */ cop=cos(phi)。 sip=sin(phi)。 if(i=ic1) /*推程運(yùn)動判斷 */ { s=h*(phi/phi1sin(2*PI/phi1*phi)/2/PI)。 /*求推程從動件位移 采用簡諧運(yùn)動規(guī)律 */ s1=h*(1cos(2*PI/phi1*phi))/phi1。 /*求 s 對 phi 角的微分 */ s2=2*h*PI*sin(2*PI/phi1*phi)/phi1/phi1。 y1=(s+so)*sip+s1*cope*cop。 /*求 y 對 phi 角的微分 */ x1=(s+so)*cop+s1*sipe*sip。 /*求 x 對 phi 角的微分 */ y2=s1*sip(s+so)*cop+s2*cops1*sip+e*sip。 x2=s1*cop(s+so)*sip+s2*sip+s1*cope*cop。 t=fabs(s1e)。 alp[i]=atan2(t,(s+so))/PI*180。 } else if(i=ic2) /*遠(yuǎn)休止角 */ {s=h。 s1=0。 s2=0。 y1=(s+so)*sip+s1*cope*cop。 x1=(s+so)*cop+s1*sipe*sip。 y2=s1*sip(s+so)*cop+s2*cops1*sip+e*sip。 x2=s1*cop(s+so)*sip+s2*sip+s1*cope*cop。 t=fabs(s1e)。 alp[i]=atan2(t,(s+so))/PI*180。 } else if(i=ic3) /*回程簡諧運(yùn)動判斷 */ 28 { s=h*(1phi/phi_1+sin(2*PI/phi_1*phi)/2/PI)。 s1=h*(1cos(2*PI*phi/phi_1))/phi_1。 s2=2*h*PI*sin(2*PI*phi/phi_1)/phi_1/phi_1。 y1=(s+so)*sip+s1*cope*cop。 x1=(s+so)*cop+s1*sipe*sip。 y2=s1*sip(s+so)*cop+s2*cops1*sip+e*sip。 x2=s1*cop(s+so)*sip+s2*sip+s1*cope*cop。 t=fabs(s1e)。 alp[i]=atan2(t,(s+so))/PI*18090。 if(alp[i]0) { alp[i]=0alp[i]。 } } else /*近休止角 */ { s=0。 s1=0。 y1=(s+so)*sipe*cop。 x1=so*cope*sip。 y2=(s+so)*cop+e*sip。 x2=(so+s)*sipe*cop。 t=fabs(s1e)。 alp[i]=atan2(t,(s+so))/PI*180。 } q=rt/sqrt(x1*x1+y1*y1)。 y[i]=(s+so)*cope*sip。 /*理論輪廓曲線位置 */ x[i]=(s+so)*sip+e*cop。 xr[i]=x[i]+q*y1。 /*實(shí)際輪廓曲線位置 */ yr[i]=y[i]q*x1。 phi=i*del。 29 f=x1*x1+y1*y1。 qulv[i]=sqrt(f*f*f)/fabs(x1*y2x2*y1)。 printf(\n%2d%%%%%%%,i+1,phi,x[i],y[i],xr[i],yr[i],alp[i],qulv[i])。 fprintf(fp,\n%2d%%%%%%%,i+1,phi,x[i],y[i],xr[i],yr[i],alp[i],qulv[i])。 }}
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號-1