- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:1 t; s# M* D! X& q
dim a as long ,b as long ,c as long,d as long
2 ^, H% l% T3 _6 ?! u, `# ?+ r* W6 _; d for a=20 to 100
3 W/ M5 v6 z5 V- w4 G4 r; ~ for b=2o to 100
% J8 Z8 b% |$ v+ Z9 { for c=20 to 100
7 H! e! d Z1 @4 v4 p for d=2o to 100* c' `; K7 |; z; B7 Y3 M
if abs((a*b)/(c*d)-传动比)<自己设定的精度值& p) @ {1 c" V; c; u
then prin a,b,c,d( L% p! q1 j+ {# y J% T! {/ r
next d
; H) O6 J% S# r5 vnext c% r% g2 a8 r! P& L$ L% {4 A
next b
2 v( Z$ x4 G2 dnext a) t+ z, R N9 G% k& [$ U3 I1 q% g' W K
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。
$ q ]; v- H, P+ e+ P- c# ]具体的优化方法就不写了~ |
评分
-
查看全部评分
|