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

wz82 2007-08-25 10:02

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

# i nclude<stdio.h> )XHn.>]nc  
# i nclude<stdio.h> tt#dO@G#Fe  
# i nclude<math.h> 0)M8Tm0$  
#define PI 3.1415926 VZq~ -$  
void ydgl(); . !Pg)|  
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al; \h_q]  
int f; RWGf]V]6  
main() /M+Du,  
{ printf("Determaination the prime circle of cam\n"); T@Y, 7ccpd  
  printf("----------------------------\n"); AL.psw-Il  
  printf( "input ro=");scanf("%f",&ro); V$sY3,J7A%  
  printf("input h=");scanf("%f",&h); & +*OV:[;  
  printf("input e=");scanf("%f",&e); 1Qu@pb^  
  printf("input dt0=");scanf("%f",&dt0); 7}g4ePYag  
  am=0;p=PI/180; Bp3E)l  
  printf("The initial data:ro=%f\n",ro); &!OEd ]  
  printf("h=%f e=%f dt0=%f\n",h,e,dt0); |q58XwU `  
  do XbqMWQN*  
  {ro=ro+5; j:xC \b47"  
  for(f=0;f<=dt0;f=f+2) [:FiA?O]  
  {d=PI*f/dt0; #c5jCy}n  
  ydgl(); R(`:~@ 3\6  
  } 993f6  
  } '3Lu_]I-  
  while(am>30*p); wD=]U@t`,  
  printf("The intermediate results: am=%f\n",am/p); /("7*W2  
  printf("ro=%f\n",ro); :n QlS  
  do i'7+ ?YL  
  {ro=ro-1; kQ lU.J>^  
  if(ro<e) ATl?./Tu  
  break; Jjm#ofv  
G[A3H> >  
  for(f=0;f<=dt0;f=f+2) Zym6btc  
  {d=PI*f/dt0; SkE<V0  
  ydgl(); 3f] ;y<Km  
  } #3QPcoxa  
  } > .  
  while((am>30*p)||(am<=29.5*p)); ?%h$deJ  
  printf("The final results:max alfa=%f\n",am/p); lI 4tW=  
  printf(" min ro=%f\n",ro); ;~EQS.Qp  
  getch(); D]]wJQU2  
  } I5_HaC>  
  void ydgl() nUOi~cs  
  {  d0=dt0*p; :-B+W9'5  
  s=0.5*h*(1-cos(d)); {]< G=]'  
  ds=0.5*h*PI*sin(d)/d0; >%k6k1CZ  
  r=sqrt(ro*ro-e*e); RqtBz3v  
  if((s+r)==0) I I+y  
  return; `o JQA$UD  
  al=atan((ds-e)/(s+r)); n7cy[%yT  
      if(al>am) [mA-sl]  
      am=al; z* EV>Y[  
      }
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 网站统计