首页 -> 登录 -> 注册 -> 回复主题 -> 发表主题
光行天下 -> 机械设计,制造及其自动化 -> 机械原理课程设计程序 - 凸轮设计部分 [点此返回论坛查看本帖完整版本] [打印本页]

wz82 2007-08-25 10:02

机械原理课程设计程序 - 凸轮设计部分

# i nclude<stdio.h> Kq!E<|yM  
# i nclude<stdio.h> [pMJ9 d$  
# i nclude<math.h> s/[15  
#define PI 3.1415926 Ar&]/X,WG  
void ydgl(); #hL<9j  
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al; ghvF%-."1  
int f; #N%ATV  
main() }G^Bc4@b  
{ printf("Determaination the prime circle of cam\n");  +C3IP  
  printf("----------------------------\n"); v&g(6~b_>  
  printf( "input ro=");scanf("%f",&ro); ! K? o H  
  printf("input h=");scanf("%f",&h); g-^Cf   
  printf("input e=");scanf("%f",&e); vqh@)B+)  
  printf("input dt0=");scanf("%f",&dt0); I)$`@.  
  am=0;p=PI/180; K07SbL7g!p  
  printf("The initial data:ro=%f\n",ro); OiPE,sv  
  printf("h=%f e=%f dt0=%f\n",h,e,dt0); &1O[N*$e  
  do zTi %j$o  
  {ro=ro+5; e*5TZ7.  
  for(f=0;f<=dt0;f=f+2) NJJsg^'  
  {d=PI*f/dt0; w)I!q&`Y  
  ydgl(); 0{|ib !  
  } ,EPs>#d  
  } $47cKit|k:  
  while(am>30*p); fsc^8  
  printf("The intermediate results: am=%f\n",am/p); 0gY,[aQ2  
  printf("ro=%f\n",ro); i<<NKv8;  
  do cJ9:XWW  
  {ro=ro-1; d;(&_;  
  if(ro<e) *O') {(  
  break; ', -4o-  
hDc, #~!  
  for(f=0;f<=dt0;f=f+2) 4-^LC<}k  
  {d=PI*f/dt0; 3md yY\+&  
  ydgl(); K{[ySB  
  } 1_vaSEov  
  } #"|Y"#@k  
  while((am>30*p)||(am<=29.5*p)); gE8=#%1<  
  printf("The final results:max alfa=%f\n",am/p); :nki6Rkowt  
  printf(" min ro=%f\n",ro); i9}n\r0=c  
  getch(); zjd]65P  
  } 2!QS&i  
  void ydgl() :b+C<Bp64r  
  {  d0=dt0*p; #5HJW[9  
  s=0.5*h*(1-cos(d)); iN%\wkx*N  
  ds=0.5*h*PI*sin(d)/d0; T xRa&1  
  r=sqrt(ro*ro-e*e); hg7`jE&2  
  if((s+r)==0) 2GRh8G&5  
  return; =L~,HS(l,  
  al=atan((ds-e)/(s+r)); *au&ODa  
      if(al>am) N*JWd  
      am=al; /$zYSP)YT  
      }
2iso 2008-04-13 06:19
Thanks
lengyuquan 2008-05-29 11:14
你好 还有没关于机械原理程序设计的代码啊! 课程设计老师让我们用编程作,帮帮忙!!能发到我邮箱吗?lengyu.nan@163.com
ziqiangbux 2009-06-26 10:59
不对吧?????????????????
查看本帖完整版本: [-- 机械原理课程设计程序 - 凸轮设计部分 --] [-- top --]

Copyright © 2005-2026 光行天下 蜀ICP备06003254号-1 网站统计