- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
这个太简单了,用VB做四重循环就可以了。程序如下:
& c2 S5 o7 B1 Q0 T3 \: l. X4 L' qdim a as long ,b as long ,c as long,d as long ! Q; o5 E6 \, H% h
for a=20 to 100
0 h& Z) b* D4 b1 M) c& I for b=2o to 100
- W2 b! j$ M4 m3 H1 Q for c=20 to 100
& B% h/ Y) f2 c3 P4 X2 w' B for d=2o to 100
5 p/ D# o; D6 v if abs((a*b)/(c*d)-传动比)<自己设定的精度值
; C& p2 |; i P ` then prin a,b,c,d0 z% L; |, e; \ B1 l5 A& o7 p
next d
2 B( p+ b4 W$ D+ B0 J9 rnext c
$ P; m% |6 ^7 V/ [- L7 M1 bnext b" I: @% ]) @* u8 b2 l' G
next a. m# ^+ z E% F' r* |8 y+ ]$ x
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。
" n. P3 C% U* K/ B具体的优化方法就不写了~ |
评分
-
查看全部评分
|