- 积分
- 15
UID436973
主题
在线时间 小时
注册时间2007-12-14
|
发表于 2008-5-8 19:55:27
|
显示全部楼层
来自: 中国江苏南京
这个太简单了,用VB做四重循环就可以了。程序如下:" f6 w; h$ N o' Y6 G
dim a as long ,b as long ,c as long,d as long / j- U' Q- s. e9 R4 J; B/ ?3 \% f; t
for a=20 to 1006 ^2 }8 h" w$ S4 \
for b=2o to 100
% W5 ]9 o0 a9 E( e for c=20 to 100 8 Q! _' }2 T0 ?
for d=2o to 100+ L5 p/ S* c- J4 A1 M9 S
if abs((a*b)/(c*d)-传动比)<自己设定的精度值
) e1 k/ ~, p9 F$ Q then prin a,b,c,d" X* x& H2 k& `; b2 ]* s
next d
" K6 [6 I* p/ q6 t7 s& y" s- Wnext c' \/ }! x2 A4 g6 j. t" ?( o
next b
5 E- J* Z) B/ @4 K$ z1 F7 |; {next a" U6 }* Q" C5 P: l2 i) V
不过这种算法太慢,你可以自己根据机床的实际情况,将a,b,c,d的组合优化一下,运算速度就很快了。# w" ]5 K7 v+ Q% k6 `
具体的优化方法就不写了~ |
评分
-
查看全部评分
|