山東威鍛機械裝置有限公司 校直機☁↟╃₪◕、四柱液壓機一站式供應商

技術文章

當前位置 : 技術文章 >
用excel編自動計算校直機掛輪的公式
時間: 2019-12-10    作者:admin 點選: ( 2986 ) 次

問題補充·◕₪•:從已有的齒輪庫中選取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位等╃•。

欧美激情,亚洲A∨综合,自慰喷水白浆丝袜AV,扒开双腿猛进入喷水高潮视频,无码国产玉足脚交久久2020