lovebet体育

滚齿机,数控滚齿机

产物分类

接洽体例

  • 滕州市lovebet体育 机床无限公司
  • 接洽人:孙司理
  • 手机:13188925018 微信同号
  • 德律风:0632-6252169
  • 邮箱:tzxtljc@163.com
  • 网址:http://meishite.com.cn
  • 地点:山东省滕州市东城产业园区
您确当前地位: 网站lovebet体育 > 手艺文章 » 用excel编主动计较滚齿机挂轮的公式

手艺文章

用excel编主动计较滚齿机挂轮的公式

题目补充:从已有的齿轮库当选取4个适合的齿轮abcd,并使a/b*c/d=传动比。比方:传动比0.43678,挂轮库中有28、29、30------110等齿数的齿轮,要从当选取4个,且a/b*c/d=0.43678....


保举回覆:110个组合4,而后逐一计较(A/B)*(c/d)全能的vba能够实古代码以下:
PrivateSubCommandButton1_Click()DimsArr(1To1837620,1To4)AsInteger,SJSAsLongDimjgArr(1To1000,1To4)AsInteger,jgJsAsIntegerDimXLaRR(1To83)AsInteger,SZAsDoubleConstCDB=0.43678ForI=1To83XLaRR(I)=28+I-1NextISJS=0ForI=1To83-3ForJ=I+1To83-2ForK=J+1To83-1ForL=K+1To83SJS=SJS+1sArr(SJS,1)=XLaRR(I)sArr(SJS,2)=XLaRR(J)sArr(SJS,3)=XLaRR(K)sArr(SJS,4)=XLaRR(L)NextLNextKNextJNextI'计较jgJs=0ForM=1ToSJSSZ=sArr(M,1)/sArr(M,2)*(sArr(M,3)/sArr(M,4))IfAbs(CDB-SZ)<=0.0001thenjgjs=jgjs+1jgarr(jgjs,1)=sarr(m,1)jgarr(jgjs,2)=sarr(m,2)jgarr(jgjs,3)=sarr(m,3)jgarr(jgjs,4)=sarr(m,4)endifnextm'输入成果ifjgjs>0ThenCells(1,1).Resize(jgJs,4)=jgArrEndIfEndSub运转成果如图:
若是有题目就加我老友。
诘问很是感激您的回覆!我只要要列出须要的成果就能够了。
我想获得的成果是,从28-110挂轮库中(这个只是举例,现实上中心有的齿轮不。
也有的时辰有2个以上不异的齿轮)挑选4个齿轮abcd,并且(a/b)*(c/d)=0.43678,列出1-10个完整或类似即是0.43678的齿轮组合便可。
对于类似精度,能够设置一个选项。
比方切确到小数点后第5位或第6位等。