- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:
! k) W: S7 \( D: p$ p8 xdim a as long ,b as long ,c as long,d as long
6 O8 J. N( a+ e! {. n( \ for a=20 to 100
9 x) {0 i* G9 }4 T# _ for b=2o to 100
8 O) b+ h8 @- e) G for c=20 to 100
5 m5 l/ f3 Q0 Y5 l& U( s# b4 S for d=2o to 1007 j0 V1 L6 o, V; F
if abs((a*b)/(c*d)-传动比)<自己设定的精度值" N4 S, R5 A# q( L" G
then prin a,b,c,d
. b; \! o0 }( Q+ U9 S1 Rnext d. p) U5 w% u' F3 w" f- ^
next c# G) z0 N* P* Y3 Y' |( \4 f
next b
' }8 w. X/ w; Knext a
- l2 N2 j% @2 ]5 k& a5 ^3 Z不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。 Q# h$ l% h# s! ~, q% M
具体的优化方法就不写了~ |
评分
-
查看全部评分
|