- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:. o. R3 Z( N9 l* [
dim a as long ,b as long ,c as long,d as long
6 E$ Z5 x7 o6 d$ ^& m for a=20 to 100- W& D7 p- K; r0 p" Y1 V8 x, Z/ @' P# ~
for b=2o to 1009 j' P5 W5 [, C' L
for c=20 to 100
" X/ @1 G" U+ t" ]. i for d=2o to 100. L$ W. K9 h6 C0 J4 D
if abs((a*b)/(c*d)-传动比)<自己设定的精度值; y0 F$ ~5 m$ H4 X
then prin a,b,c,d
2 o/ G; j! H6 r2 hnext d0 Q6 t3 c# }2 i( f+ Z% p
next c
6 g. e6 u$ B* O9 A( @! Pnext b
' O5 {: o$ X$ d5 V; E1 @next a% S, o. P5 k" [* H& |: }
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。- f, I, K( J h5 h# \ b k1 P
具体的优化方法就不写了~ |
评分
-
查看全部评分
|