美女裸露胸被强挤奶免费视频软件,亚洲18色成人网站WWW,凹凸国产熟女精品视频国语

<cite id="x77bp"><video id="x77bp"><thead id="x77bp"></thead></video></cite><var id="x77bp"><video id="x77bp"></video></var>
<cite id="x77bp"></cite>
<cite id="x77bp"><strike id="x77bp"><menuitem id="x77bp"></menuitem></strike></cite>
<var id="x77bp"></var>
<cite id="x77bp"><strike id="x77bp"><listing id="x77bp"></listing></strike></cite><cite id="x77bp"></cite>
<cite id="x77bp"></cite>
<cite id="x77bp"><video id="x77bp"></video></cite><cite id="x77bp"></cite>
<ins id="x77bp"><noframes id="x77bp"><var id="x77bp"></var>
<menuitem id="x77bp"></menuitem>
<cite id="x77bp"></cite>
<var id="x77bp"><dl id="x77bp"></dl></var><var id="x77bp"><strike id="x77bp"></strike></var>

滾齒機,數控滾齒機

產品分類

聯系方式

  • 山東新田力機床有限公司
  • 聯系人:孫經理
  • 手機:13188925018 微信同號
  • 電話:0632-6252169
  • 郵箱:tzxtljc@163.com
  • 網址:http://www.fushi-dai-li.com
  • 地址:山東省滕州市東城工業園區
您的當前位置: 網站首頁 > 技術文章 » 用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位等。

美女裸露胸被强挤奶免费视频软件,亚洲18色成人网站WWW,凹凸国产熟女精品视频国语