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

wz82 2007-08-25 10:02

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

# i nclude<stdio.h> qb+vptg@I  
# i nclude<stdio.h> O87Ptr8  
# i nclude<math.h> 7o$4ov;T  
#define PI 3.1415926 :/HfMJ  
void ydgl(); r5!I|E  
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al; !]tZE%?  
int f; )v!>U<eprD  
main() ~!c~jcq]lZ  
{ printf("Determaination the prime circle of cam\n"); qMAH~P0u  
  printf("----------------------------\n"); anj*a<C<  
  printf( "input ro=");scanf("%f",&ro); ,B>Rc#  
  printf("input h=");scanf("%f",&h); +tz^ &(  
  printf("input e=");scanf("%f",&e); ni#!Gxw  
  printf("input dt0=");scanf("%f",&dt0); Vi~9[&.E\!  
  am=0;p=PI/180; G]fl33_}l  
  printf("The initial data:ro=%f\n",ro); &e\A v.n@-  
  printf("h=%f e=%f dt0=%f\n",h,e,dt0); $ctY#:;pV{  
  do Ku{DdiTg>  
  {ro=ro+5; ~Co7%e V  
  for(f=0;f<=dt0;f=f+2) Wq!n8O1  
  {d=PI*f/dt0; C LhD[/Fo  
  ydgl(); 2}P<}-?6  
  } MtAD&+3$  
  } F=C8U$'S  
  while(am>30*p); Z9rs,_A  
  printf("The intermediate results: am=%f\n",am/p); CVsc#=w0  
  printf("ro=%f\n",ro); Dm': D  
  do n/_cJD \  
  {ro=ro-1; v%|()Z0  
  if(ro<e) }hOExTz  
  break; T,h,)|:I^  
$wa )e  
  for(f=0;f<=dt0;f=f+2) ?@ ei_<A{  
  {d=PI*f/dt0; * pN,@ZV$  
  ydgl(); 4C&L%A  
  } EQ&E C  
  } )1H$5h  
  while((am>30*p)||(am<=29.5*p)); :U`8s#  
  printf("The final results:max alfa=%f\n",am/p); UOrf wK  
  printf(" min ro=%f\n",ro); S8+Xk= x  
  getch(); %=J<WA6\  
  } W! FmC$Kc  
  void ydgl() 9k_3=KS3N  
  {  d0=dt0*p; /IM5#M5~  
  s=0.5*h*(1-cos(d)); 1!. CfQi  
  ds=0.5*h*PI*sin(d)/d0; dq?q(_9  
  r=sqrt(ro*ro-e*e); M>df7.N7%P  
  if((s+r)==0) ': Gk~   
  return; !7SZZz  
  al=atan((ds-e)/(s+r)); P)~PrTa%  
      if(al>am) AF5.gk=  
      am=al; Au'[|Pr r  
      }
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 网站统计