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

wz82 2007-08-25 10:02

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

# i nclude<stdio.h> =Pb5b6Y@6  
# i nclude<stdio.h> oSA*~N:  
# i nclude<math.h> =_m9so  
#define PI 3.1415926 2 ssj(Qo  
void ydgl(); %::deV7  
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al; d O46~  
int f; 1.95 ^8  
main() /sT ^lf=  
{ printf("Determaination the prime circle of cam\n");  e_~fJ  
  printf("----------------------------\n"); vuo'"^ =p0  
  printf( "input ro=");scanf("%f",&ro); =e!l=d|/  
  printf("input h=");scanf("%f",&h); H9san5{  
  printf("input e=");scanf("%f",&e); uQu/(5  
  printf("input dt0=");scanf("%f",&dt0); z(` }:t  
  am=0;p=PI/180; D_n}p8blT  
  printf("The initial data:ro=%f\n",ro); \9(- /rE  
  printf("h=%f e=%f dt0=%f\n",h,e,dt0); ) {  
  do T<f\*1~^  
  {ro=ro+5; }\u%)uZ  
  for(f=0;f<=dt0;f=f+2) K%(XgXb(</  
  {d=PI*f/dt0; Z2rzb{oS}  
  ydgl(); bH\C5zt6(  
  } t.E4Tqzc>  
  } w&|R5Q  
  while(am>30*p); "rx^M*"  
  printf("The intermediate results: am=%f\n",am/p); %nmY:}um  
  printf("ro=%f\n",ro); )b&-3$?  
  do N=T.l*8  
  {ro=ro-1; pFJQ7Jlx  
  if(ro<e) <wt$Gglk  
  break; _}e7L7B7g  
6 tc:A5mK  
  for(f=0;f<=dt0;f=f+2) ;;?vgrz  
  {d=PI*f/dt0; C1T=O  
  ydgl(); bbNU\r5%  
  } |/;U)M  
  } {eEC:[  
  while((am>30*p)||(am<=29.5*p)); %-# q O  
  printf("The final results:max alfa=%f\n",am/p); xEVLE,*?>  
  printf(" min ro=%f\n",ro); #`La|a.-  
  getch(); 7}?k^x,1  
  } WgA`kT  
  void ydgl() }qiF^D}  
  {  d0=dt0*p; nw0L1TP/J  
  s=0.5*h*(1-cos(d)); (S  k#x  
  ds=0.5*h*PI*sin(d)/d0; zb5N,!%r  
  r=sqrt(ro*ro-e*e); -]Q(~'a  
  if((s+r)==0) F<Hqo>G  
  return; WHUT/:?f  
  al=atan((ds-e)/(s+r)); ?C &x/2lt  
      if(al>am) i s L{9^  
      am=al; [dj5 $l|  
      }
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-2025 光行天下 蜀ICP备06003254号-1 网站统计