您所在位置：主题：各位高手，妹妹在此求救，
fcg2008
[专家分：0] 发布于 2008-06-17 12:13:00
各位大哥哥,小妹求救
各位大虾高手们，小妹在这跪地求救：我是一家纺织企业的车间主任，我们车间有一种设备，其工艺参数是由数十种齿轮搭配来完成的，但是说明书上给出的齿轮参数很粗略，不细致，所以我在工作之余又想起多年前学过的QB语言好像能解决此问题，但是经过几天的思考，还是不能解决此问题，所以还请各位高手指点迷津。
我们的设备需要三种主要工艺参数：即J（卷绕）；N（捻度）；Q（牵伸），且三个参数都有各自的公式：J =1.06*A*C/B/D;N=30980*B/a/C;Q=2.52*B*D/A/C；其中A，B ，C，D，是由以下齿轮数任意组合而成，也可以重复。齿轮大小如下：24，26，28，30，33，36，38，40，44，47，48，50，52，54，55，56，59，60，62。
其中需要注意的是：J是一个小数，而且其精确度最少要在小数点后三位，N必需是一个整数，若算出的数后有小数，要经过四舍五入后取整。Q是一个大于1且后有小数，精确度要最少两位小数。
例如：我想算这三个数：J=0。925，N=425，Q=2。82，但是我不知道有几种齿轮搭配方案，想通过QB算出。我用计算器得知此齿轮组可以满足以上条件：J=1。06*48*40/40/55=0。9250909取三位小数后正好是0.925，n=30980*40/54/54=424.965，取整后正好是425;q=2.52*50*50/36/62=2.8225取小数后两位正好是2。82，我想肯定还有其它的齿轮搭配方案，所以想通过电脑一次求出相近的齿轮搭配方案。我简单的编了一个但是连一个简单的公式也算不出，请各位高手帮忙：
CLS '
DIM a(16)
a(0) = 24
a(1) = 28
a(2) = 33
a(3) = 36
a(4) = 38
a(5) = 40
a(6) = 44
a(7) = 47
a(8) = 48
a(9) = 50
a(10) = 52
a(11) = 54
a(12) = 55
a(13) = 56
a(14) = 59
a(15) = 60
a(16) = 62
DIM b(16)
b(0) = 24
b(1) = 28
b(2) = 33
b(3) = 36
b(4) = 38
b(5) = 40
b(6) = 44
b(7) = 47
b(8) = 48
b(9) = 50
b(10) = 52
b(11) = 54
b(12) = 55
b(13) = 56
b(14) = 59
b(15) = 60
b(16) = 62
DIM c(16)
c(0) = 24
c(1) = 28
c(2) = 33
c(3) = 36
c(4) = 38
c(5) = 40
c(6) = 44
c(7) = 47
c(8) = 48
c(9) = 50
c(10) = 52
c(11) = 54
c(12) = 55
c(13) = 56
c(14) = 59
c(15) = 60
c(16) = 62
INPUT "nian:"; nian
FOR i = 0 TO 16
FOR j = 16 TO 0 STEP -1
FOR k = 0 TO 16
du = 30980 * b(j) / a(i) / c(k)
IF INT(du) = nian THEN
PRINT a(i); b(i); c(i); nian
ELSE
PRINT "no::"
END IF
NEXT k
NEXT j
NEXT i
END
[em4]
各位大虾高手们，小妹在这跪地求救：我是一家纺织企业的车间主任，我们车间有一种设备，其工艺参数是由数十种齿轮搭配来完成的，但是说明书上给出的齿轮参数很粗略，不细致，所以我在工作之余又想起多年前学过的QB语言好像能解决此问题，但是经过几天的思考，还是不能解决此问题，所以还请各位高手指点迷津。
我们的设备需要三种主要工艺参数：即J（卷绕）；N（捻度）；Q（牵伸），且三个参数都有各自的公式：J =1.06*A*C/B/D;N=30980*B/a/C;Q=2.52*B*D/A/C；其中A，B ，C，D，是由以下齿轮数任意组合而成，也可以重复。齿轮大小如下：24，26，28，30，33，36，38，40，44，47，48，50，52，54，55，56，59，60，62。
其中需要注意的是：J是一个小数，而且其精确度最少要在小数点后三位，N必需是一个整数，若算出的数后有小数，要经过四舍五入后取整。Q是一个大于1且后有小数，精确度要最少两位小数。
例如：我想算这三个数：J=0。925，N=425，Q=2。82，但是我不知道有几种齿轮搭配方案，想通过QB算出。我用计算器得知此齿轮组可以满足以上条件：J=1。06*48*40/40/55=0。9250909取三位小数后正好是0.925，n=30980*40/54/54=424.965，取整后正好是425;q=2.52*50*50/36/62=2.8225取小数后两位正好是2。82，我想肯定还有其它的齿轮搭配方案，所以想通过电脑一次求出相近的齿轮搭配方案。我简单的编了一个但是连一个简单的公式也算不出，请各位高手帮忙：
CLS '
DIM a(16)
a(0) = 24
a(1) = 28
a(2) = 33
a(3) = 36
a(4) = 38
a(5) = 40
a(6) = 44
a(7) = 47
a(8) = 48
a(9) = 50
a(10) = 52
a(11) = 54
a(12) = 55
a(13) = 56
a(14) = 59
a(15) = 60
a(16) = 62
DIM b(16)
b(0) = 24
b(1) = 28
b(2) = 33
b(3) = 36
b(4) = 38
b(5) = 40
b(6) = 44
b(7) = 47
b(8) = 48
b(9) = 50
b(10) = 52
b(11) = 54
b(12) = 55
b(13) = 56
b(14) = 59
b(15) = 60
b(16) = 62
DIM c(16)
c(0) = 24
c(1) = 28
c(2) = 33
c(3) = 36
c(4) = 38
c(5) = 40
c(6) = 44
c(7) = 47
c(8) = 48
c(9) = 50
c(10) = 52
c(11) = 54
c(12) = 55
c(13) = 56
c(14) = 59
c(15) = 60
c(16) = 62
INPUT "nian:"; nian
FOR i = 0 TO 16
FOR j = 16 TO 0 STEP -1
FOR k = 0 TO 16
du = 30980 * b(j) / a(i) / c(k)
IF INT(du) = nian THEN
PRINT a(i); b(i); c(i); nian
ELSE
PRINT "no::"
END IF
NEXT k
NEXT j
NEXT i
END
[em4]
