- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
这个太简单了,用VB做四重循环就可以了。程序如下:
% {- I/ U! j* Hdim a as long ,b as long ,c as long,d as long
. g3 d& k. K% x" \ for a=20 to 100
/ d( O" ]2 K) \- D. _ for b=2o to 100
; X. Y, K: E4 L( g8 R- e3 N6 o for c=20 to 100
2 |) c. L6 l: u* W for d=2o to 1000 U0 W" U& ]/ a" f, W5 V! g
if abs((a*b)/(c*d)-传动比)<自己设定的精度值8 o. ? m% }7 O" \5 d! U. w
then prin a,b,c,d
1 \# {" p( C2 ^) Y6 o1 Vnext d
) E( q; z: `& J2 q6 |* u, Cnext c
, @5 T4 w# |' N. T6 \next b
j% }9 X. h/ D8 ]$ J' D5 @next a
% V. X- \5 ^& \2 M' D6 R9 D& D不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。. k2 w% m# i6 z( R F& b
具体的优化方法就不写了~ |
评分
-
查看全部评分
|