- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:
0 l" Q. v2 K4 F9 ~dim a as long ,b as long ,c as long,d as long
. Z3 P( f5 S: \8 L: i& [ for a=20 to 100. B6 S. C, T* h& a2 I7 a1 f+ R$ D5 b
for b=2o to 1009 J8 ]# ]/ \4 b# O8 |6 T; n* u
for c=20 to 100 9 V. G- |% B* G* |6 f0 w
for d=2o to 100
5 _1 I$ Q( G7 P' r if abs((a*b)/(c*d)-传动比)<自己设定的精度值
, D6 I3 C, i, l* t3 I then prin a,b,c,d9 N3 v) Z7 n& e4 C* G
next d
6 i7 _ @5 r" Cnext c3 ~. F, n% O4 ]' E' L3 g
next b
# J+ {; T: M: ?$ k4 i, y! _next a1 _( H5 x! y6 @' L+ a) E
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。 `1 v* Q/ V$ ?
具体的优化方法就不写了~ |
评分
-
查看全部评分
|