- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:
& v4 F" A7 H; G+ z& udim a as long ,b as long ,c as long,d as long
& ~ i# w4 f7 v; b% ~4 n! x for a=20 to 1007 O$ y6 S; c' w
for b=2o to 100. D2 n! C" e& V, m" n" f2 x
for c=20 to 100 * P6 B2 m' H5 K# V8 i% S5 ~
for d=2o to 100' F* @( y/ t8 d7 T. ?
if abs((a*b)/(c*d)-传动比)<自己设定的精度值0 q0 G9 \/ c. \" g
then prin a,b,c,d1 O, {+ C+ {% H5 w7 u! {( E3 ^- D$ h
next d
0 a7 j9 @9 v( S3 a* I2 Onext c7 G6 i7 s7 C0 L7 V3 G
next b
% h" [: r+ o5 z* c2 D1 snext a
# U% h5 M5 f& D" b' U9 W. ]4 X2 N不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。
5 k* D. [. J; e8 r/ j1 y具体的优化方法就不写了~ |
评分
-
查看全部评分
|