- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:
: v' C# y; j: `( j4 }dim a as long ,b as long ,c as long,d as long : K/ P j+ y- t
for a=20 to 100, K+ I A2 S, \, q$ x# `0 N
for b=2o to 1001 \2 j. b/ S( N& z. Y' {
for c=20 to 100
! h- Q1 Q' s7 W2 N) r9 S5 p for d=2o to 100, Q6 y% I- s% |5 }, ]
if abs((a*b)/(c*d)-传动比)<自己设定的精度值4 }5 v& h' X/ h
then prin a,b,c,d& @3 {" S7 ]4 Y0 k; _$ v
next d: a- L. t& [( a
next c
* s& m6 B( C* g+ e6 [next b: n6 f+ L" }* x3 F
next a
' ?+ g$ F4 o3 B @不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。% s6 @: m! B& ~# N
具体的优化方法就不写了~ |
评分
-
查看全部评分
|