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

wz82 2007-08-25 10:02

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

# i nclude<stdio.h> 8-wW?YTG  
# i nclude<stdio.h> ^lP_{ c  
# i nclude<math.h> SseMTw:  
#define PI 3.1415926 B f_oIc  
void ydgl(); `y2 6OYo  
float d,am,ro,e,h,p,dt0,d0,s,ds,r,al; W:8*Z8?7  
int f; E/MNz}+  
main() Pw"o[8  
{ printf("Determaination the prime circle of cam\n"); iZVMDJ?(Z]  
  printf("----------------------------\n"); P`^{dH $P  
  printf( "input ro=");scanf("%f",&ro); 4[S0~O{r  
  printf("input h=");scanf("%f",&h); &tULSp@J  
  printf("input e=");scanf("%f",&e);  ^vPt Ppt  
  printf("input dt0=");scanf("%f",&dt0); Ef1R?<  
  am=0;p=PI/180; ~)zoIM\  
  printf("The initial data:ro=%f\n",ro); %("Bq"Q8  
  printf("h=%f e=%f dt0=%f\n",h,e,dt0); (X rrnoz  
  do Y!kz0([  
  {ro=ro+5; WJ{hta  
  for(f=0;f<=dt0;f=f+2) o H/4opV  
  {d=PI*f/dt0; 6T}bD[h4?  
  ydgl(); $Yr'`(Cbc  
  } +G!N@O  
  } m})q8b!S  
  while(am>30*p); 0 gyg  
  printf("The intermediate results: am=%f\n",am/p); N F[v/S  
  printf("ro=%f\n",ro); e#YQA  
  do iI[Z|"a21  
  {ro=ro-1; :%dIX}F  
  if(ro<e) ~h~K"GbC?  
  break; s<I[)FQVr  
6 1= ?(Iw  
  for(f=0;f<=dt0;f=f+2) 'oZ/fUl|7  
  {d=PI*f/dt0; ^KU:5Bn  
  ydgl(); v5|X=B>&>  
  } uA?_\z?  
  } rAdYBr=0  
  while((am>30*p)||(am<=29.5*p)); yJaQcGxE"  
  printf("The final results:max alfa=%f\n",am/p); OXC7 m  
  printf(" min ro=%f\n",ro); <By R!Y  
  getch(); e!wS"[,  
  } .wrNRU7s  
  void ydgl() y)W.xR  
  {  d0=dt0*p; gY], (*v  
  s=0.5*h*(1-cos(d)); <}RU37,W  
  ds=0.5*h*PI*sin(d)/d0; ()}B]?  
  r=sqrt(ro*ro-e*e); l-yQ3/:  
  if((s+r)==0) Ve,_;<F]S  
  return; s D] W/  
  al=atan((ds-e)/(s+r)); *v'&i) J  
      if(al>am) H!Y`?Rc  
      am=al; rO% |PRP  
      }
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 网站统计