中國齒輪論壇 www.3550143.live

 找回密碼
 注冊
搜索
熱搜: 齒輪
查看: 170092|回復: 936
收起左側

[軟件] 神奇的計算軟件:計算不求人,機械設計計算樣樣行.

    [復制鏈接]
發表于 2010-9-27 20:42:34 | 顯示全部樓層 |閱讀模式

本帖子中包含更多資源。

您需要 登錄 才可以下載或查看,沒有帳號?注冊

x
本帖最后由 speed_long 于 2012-5-29 11:18 編輯

“計算不求人”軟件是一個創新的計算平臺,使用簡單,功能強大。
軟件即具備一般計算器的功能,同時能進行公式計算,支持條件,循環編程計算。
內部已集成滾齒差動掛輪計算,公差與配合查詢與計算,齒輪傳動設計計算,
具備自定義數據表及查詢數據表功能,寫設計計算書和編寫自己的計算工具都能手到擒來。
能進行編程繪圖。
是機械工程師工作和學習的好幫手,也可以作為初學軟件開發、編程的工具。

正版軟件,免費注冊;無限使用,無限技術支持!


在此跟貼發表個人獨創的“計算文件”一個(不少于50行,并解決了實際問題),即可獲得我們的“齒輪參數計算”軟件的免費注冊。

軟件最大的特色: 任何人幾乎不需要什么學習就可以在這個平臺上做出自己需要的計算工具(按照計算資料編寫計算文件),保存后重復使用.

計算不求人可以做什么?
計算不求人有兩種工作模式:“單行計算”和“文件計算”,
兩種計算模式通過“F8”鍵快速切換;
方便的單行計算:主要用于代替Windows系統自帶的計算器功能及其它所有第三方開發的計算器工具,相比其它計算器具有很多特色:1)支持基本四則運算、三角函數運算和其他許多高級運算和它們的任意組合,如:反漸開線函數運算(ainv)、解方程運算(rote)、尺寸公差配合查詢運算(size)等等。
2)在單行計算中計算就象在草稿紙上演算一樣,在里面輸入計算表達式,后按“=”號鍵即可得到結果;計算得到的結果可以作為后續計算表達式的一部分連續計算。
3)一行計算完成后,可以另起一行再開始計算。
4)參與計算的數據和結果都顯示在上面,方便校對,也可以作為文檔保存備查。

強大的文件計算:“文件計算”功能之強大,使用之簡單,超出了我們的想像!很多設計工作都需要做一些計算,而計算由許多公式組成,如計算直齒圓柱齒輪的分度圓直徑公式:分度圓=模數*齒數。只要我們把計算用到的所有公式輸入到“計算不求人”里面,選“文件計算”模式,就可以計算出我們所需要的所有參數。而輸入的完成某一計算工作的“所有公式”可以稱之為“計算文件”,可以保存,重復使用。編寫“計算文件”,很多時候就是照搬設計手冊、資料上的計算公式。因此,計算不求人“文件計算”能解決機械設計中:漸開線圓柱齒輪設計、圓弧圓柱齒輪傳動設計、錐齒輪傳動設計、蝸輪蝸桿傳動設計、行星齒輪傳動設計、帶傳動設計、鏈傳動設計、螺旋傳動設計、減速器設計、軸承設計選型、螺紋聯接設計、鍵聯接設計、彈簧設計選型等等設計工作中的計算問題;也能解決刀具設計中:插齒刀設計、滾刀設計、其他刀具設計等等設計工作中的計算問題,還能解決。。。。。。,總之,有計算的地方,就可以有“計算不求人”。


已內置圓柱齒輪計算功能(給定變位系數計算和給定中心距計算)

計算不求人2011_最新版-2011-03-15更新(掛輪計算).rar (609.99 KB, 下載次數: 21754)
方便證明.jpg

評分

3

查看全部評分

發表于 2010-9-27 20:51:27 | 顯示全部樓層
本帖最后由 洪都諾夫斯基 于 2010-9-27 20:52 編輯

確實是創新,頂!頂!頂!不過,我還是認為EXCEL方便。

點評

我的軟件搭配樓主的計算軟件就完美了! 最最新的AUTOCAD齒根曲線齒輪、橢圓變位齒輪程序;全自動行星齒輪系,數控線切割程序: http://www.3550143.live/forum.php?mod=viewthread&tid=21402&extra=page%3D1  發表于 2010-11-29 13:46
 樓主| 發表于 2010-9-27 21:32:05 | 顯示全部樓層
請問以下的內容放到EXCEL里面能計算嗎?
        外嚙合漸開線圓柱齒輪傳動計算
                                        --給定變位系數

        輸入數據
1 模數:                mn=5
2 齒數:                z1=25
                        z2=65
3 螺旋角:                helix=0
4 基本齒廓
        齒形角:                        an=20
        齒頂高系數:                ha_m=1.0
        徑向間隙系數:                c_m=0.25
        齒根圓角半徑系數:        p_m=0.38

5 變位系數:        x1=0
                        x2=0
6 精度等級:        pgrade=7
7 齒寬:                gw1=105
                        gw2=100

8 工作齒寬:        gw_work=MIN[gw1,gw2]= 100
9 當量齒數:        zv1=z1/(cos(helix)^3)= 25
                        zv2=z2/(cos(helix)^3)= 65

        主要幾何參數計算
1 分度(標準)中心距:        a_bz=(z1+z2)*mn/2/cos(helix)= 225
2 變位系數和:                x_sum=x1+x2= 0
3 端面齒形角:                at=atan(tan(an)/cos(helix))= 20
4 端面嚙合角:                at1=ainv[2*x_sum*tan(an)/(z1+z2)+inv(at)]= 20
5 中心距變動系數:        y=(z1+z2)/2/cos(helix)*[cos(at)-cos(at1)]/cos(at1)= 0
6 補償變位系數:                deta_y=x_sum-y= 0
7 工作中心距:                a_work=a_bz+mn*y= 225

8 分度圓直徑:                d1=mn*z1/cos(helix)= 125
                                d2=mn*z2/cos(helix)= 325
9 齒數比(傳動比):        u=z2/z1= 2.6
10 節圓直徑:                d_node1=2*a_work/(u+1)= 125
                                d_node2=2*a_work*u/(u+1)= 325
11 齒頂圓直徑:                da1=d1+2*(ha_m+x1-deta_y)*mn= 135
                                da2=d2+2*(ha_m+x2-deta_y)*mn= 335
12 齒根圓直徑:                df1=d1-2*(ha_m+c_m-x1)*mn= 112.5
                                df2=d2-2*(ha_m+c_m-x2)*mn= 312.5
13 齒高:                        h1=(da1-df1)/2= 11.25
                                h2=(da2-df2)/2= 11.25
14 法面分度圓齒厚:        sn1=[pi/2+2*x1*tan(an)]*mn= 7.853982
                                sn2=[pi/2+2*x2*tan(an)]*mn= 7.853982
15 基圓直徑:                db1=d1*cos(at)= 117.461578
                                db2=d2*cos(at)= 305.400102
16 基圓螺旋角:                Bb=asin[sin(helix)*cos(an)]= 0

        齒厚測量尺寸計算
1 固定弦齒厚:                s_c1=mn*[pi/2*cos(an)^2+x1*sin(2*an)]= 6.935240
                                s_c2=mn*[pi/2*cos(an)^2+x2*sin(2*an)]= 6.935240
2 固定弦齒高:                h_c1=0.5*[da1-d1-s_c1*tan(an)]= 3.737889
                                h_c2=0.5*[da2-d2-s_c2*tan(an)]= 3.737889
3 分度圓弦齒厚:       
                                deta1=tod[pi/2/z1+2*x1*tan(an)/z1]*[cos(helix)^3]= 3.600000
                                deta2=tod[pi/2/z2+2*x2*tan(an)/z2]*[cos(helix)^3]= 1.384615
        齒厚:                        s_1=mn*z1*sin(deta1)/[cos(helix)^3]= 7.848815
                                s_2=mn*z2*sin(deta2)/[cos(helix)^3]= 7.853217
4 分度圓弦齒高:                ha_1=0.5*{da1-[cos(deta1)-sin(helix)^2]/[cos(helix)^2]*d1}= 5.123329
                                ha_2=0.5*{da2-[cos(deta2)-sin(helix)^2]/[cos(helix)^2]*d2}= 5.047448
5 公法線長度:
                                z'1=z1*inv(at)/inv(an)= 25
                                z'2=z2*inv(at)/inv(an)= 65
        跨齒數:                k1=toint{z'1/180*acos[z'1*cos(an)/(z'1+2*x1)]+0.5}= 3
                                k2=toint{z'2/180*acos[z'2*cos(an)/(z'2+2*x2)]+0.5}= 8
                               
                                w1=mn*cos(an)*[pi*(k1-0.5)+z1*inv(at)+2*x1*tan(an)]= 38.652335
                                w2=mn*cos(an)*[pi*(k2-0.5)+z2*inv(at)+2*x2*tan(an)]= 115.256729
        公法線長度可以測量嗎?結果為True(真),表示可以測量;結果為False(假),表示不能測量,需要減少跨齒數再計算:
                                CanMeasure1=among[helix>0,w1 < gw1/sin(Bb),True]= True
                                CanMeasure2=among[helix>0,w2 < gw2/sin(Bb),True]= True
        改變跨齒數,計算公法線:
                                k1_change=among[k1>2,k1-1,k1]= 2
                                k2_change=among[k2>2,k2-1,k2]= 7
                                w1_change=mn*cos(an)*[pi*(k1_change-0.5)+z1*inv(at)+2*x1*tan(an)]= 23.891678
                                w2_change=mn*cos(an)*[pi*(k2_change-0.5)+z2*inv(at)+2*x2*tan(an)]= 100.496072
        公法線長度可以測量嗎?結果為True(真),表示可以測量;結果為False(假),表示不能測量:
                                CanMeasure1=among[helix>0,w1_change < gw1/sin(Bb),True]= True
                                CanMeasure2=among[helix>0,w2_change < gw2/sin(Bb),True]= True
6 量棒(球)跨距M值計算:
        量棒直徑:                dp=1.728*mn= 8.64
        或自定直徑:        dp=dp= 8.64
        量棒中心所在圓上的壓力角:
                                ad1=ainv{dp/[z1*mn*cos(an)]+inv(at)-pi/2/z1+2*x1*tan(an)/z1}= 23.789482
                                ad2=ainv{dp/[z2*mn*cos(an)]+inv(at)-pi/2/z2+2*x2*tan(an)/z2}= 21.633624

                                M1=among[ceil(z1/2) eq z1/2 ,d1*cos(at)/cos(ad1)+dp,d1*cos(at)/cos(ad1)*cos(90/z1)+dp]= 136.755271
                                M2=among[ceil(z2/2) eq z2/2 ,d2*cos(at)/cos(ad2)+dp,d2*cos(at)/cos(ad2)*cos(90/z2)+dp]= 337.086614
7 斜齒輪軸向齒距:        px=among[helix > 0 , pi*mn/sin(helix),0]= 0
8 斜齒輪導程:                pz1=among[helix > 0 ,z1*px,0]= 0
                                pz2=among[helix > 0 ,z2*px,0]= 0

                傳動質量指標計算
1 齒頂點壓力角:                aa1=acos(db1/da1)= 29.531393
                                aa2=acos(db2/da2)= 24.266728
2 端面重合度:                ea=0.5*/pi*[ z1*tan(aa1)+z2*tan(aa2)-(z1+z2)*tan(at1)]= 1.704276
3 斜齒輪縱向重合度:        eB=among[helix > 0 ,gw_work/px,0]= 0
4 總重合度:                er=ea+eB= 1.704276
5 斜齒輪齒頂螺旋角:        Ba1=atan[da1/d1*tan(helix)]= 0
                                        Ba2=atan[da2/d2*tan(helix)]= 0
6 法面齒頂厚:                        san1=da1*{[0.5*pi+2*x1*tan(an)]/z1+inv(at)-inv(aa1)}*cos(Ba1)= 3.599097
                                        san2=da2*{[0.5*pi+2*x2*tan(an)]/z2+inv(at)-inv(aa2)}*cos(Ba2)= 3.948438
        判斷齒頂厚度是否足夠?
        齒面類型(硬或軟):        Tooth_face="硬齒面"
                                        Thickness1_OK=among[Tooth_face  eq  "硬齒面",san1 >= 0.25*mn, san1 > 0.4*mn]= True
                                        Thickness2_OK=among[Tooth_face  eq  "硬齒面",san2 >= 0.25*mn, san2 > 0.4*mn]= True
7 滑動比:
                                        η1=(1+u)*[tan(aa2)-tan(at1)]/[tan(at1)-u*(tan(aa2)-tan(at1))]= 2.262898
                                        η2=(1+u)*[tan(aa1)-tan(at1)]/[u*tan(at1)-(tan(aa1)-tan(at1))]= 0.980233
        滑動比的絕對值是否小于等于3?
                                        η1_Ok=abs(η1) <= 3= True
                                        η2_Ok=abs(η2) <= 3= True
       
                齒輪精度數據計算(GB/T10095-2001):
1 齒距累積總公差Fp:        Fp1=table[GB10095_2001_Fp,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.039
                                Fp2=table[GB10095_2001_Fp,分度圓1<d2,分度圓2 >= d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.066
2 齒圈徑向跳動公差Fr:        Fr1=table[GB10095_2001_Fr,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.031
                                Fr2=table[GB10095_2001_Fr,分度圓1<d2,分度圓2 >= d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.053
3 單個齒距極限偏差±fpt:        fpt1=table[GB10095_2001_fpt,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.013
                                        fpt2=table[GB10095_2001_fpt,分度圓1<d2,分度圓2 >= d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.016
4 齒廓總公差Fa:                Fa1=table[GB10095_2001_Fa,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.019
                                Fa2=table[GB10095_2001_Fa,分度圓1<d2,分度圓2 >= d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.024
5 齒廓形狀公差ffa:                ffa1=table[GB10095_2001_ffa,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.015
                                        ffa2=table[GB10095_2001_ffa,分度圓1<d2,分度圓2 >=  d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.018
6 齒廓傾斜極限偏差±fHa:        fHa1=table[GB10095_2001_fHa,分度圓1<d1,分度圓2 >= d1,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.012
                                        fHa2=table[GB10095_2001_fHa,分度圓1<d2,分度圓2 >= d2,模數1<mn,模數2 >= mn,精度等級 eq pgrade,公差值]/1000= 0.015
7 螺旋線總公差FB:                FB1=table[GB10095_2001_FB,分度圓1<d1,分度圓2 >= d1,齒寬1<gw1,齒寬2>= gw1,精度等級 eq pgrade,公差值]/1000= 0.024
                                        FB2=table[GB10095_2001_FB,分度圓1<d2,分度圓2 >= d2,齒寬1<gw2,齒寬2>= gw2,精度等級 eq pgrade,公差值]/1000= 0.026
8 螺旋線形狀公差ffB:        ffB1=table[GB10095_2001_ffB,分度圓1<d1,分度圓1<d1,分度圓2 >= d1,齒寬1<gw1,齒寬2>= gw1,精度等級 eq pgrade,公差值]/1000= 0.017
                                ffB2=table[GB10095_2001_ffB,分度圓1<d2,分度圓2 >= d2,齒寬1<gw2,齒寬2 >= gw2,精度等級 eq pgrade,公差值]/1000= 0.018
9 螺旋線傾斜極限偏差±fHB:        fHB1=table[GB10095_2001_fHB,分度圓1<d1,分度圓2 >= d1,齒寬1<gw1,齒寬2 >= gw1,精度等級 eq pgrade,公差值]/1000= 0.017
                                                fHB2=table[GB10095_2001_fHB,分度圓1<d2,分度圓2 >= d2,齒寬1<gw2,齒寬2 >= gw2,精度等級 eq pgrade,公差值]/1000= 0.018
 樓主| 發表于 2010-9-27 21:34:01 | 顯示全部樓層
又如下面的:
        已知中心距和變位系數求螺旋角

        輸入數據
1 模數:                mn=1
2  齒數:                z1=40
                        z2=50
3 壓力角:                an=20
4 變位系數:        x1=0.1
                        x2=0.2
5 工作中心距:        a_work=48
       
        計算數據
1 變位系數和:        x_sum=x1+x2= 0.3
2 螺旋角:
        helix=rote[helix,-45 to 45,0.5*(z1+z2)*mn/cos(helix)+mn*(0.5*(z1+z2)/cos(helix)*(cos(atan(tan(an)/cos(helix)))-cos(ainv(2*x_sum*tan(an)/(z1+z2)+inv(atan(tan(an)/cos(helix))))))/cos(ainv(2*x_sum*tan(an)/(z1+z2)+inv(atan(tan(an)/cos(helix))))))-a_work]= 19.390417
 樓主| 發表于 2010-9-27 21:36:07 | 顯示全部樓層
這個在EXCEL絕對計算不了,漸開線反函數:ainv( ) EXCEL也是沒有的,
就像:ainv(0.01490438)=19.9999983273584

點評

有點太自吹自擂了。軟件不錯,但Excel功能不限于計算齒輪吧! 況且Excel計算你說的ainv等等函數仍然綽綽有余,只是你水平不夠而已!  發表于 2010-12-21 10:31
EXECEL算輕而易舉的,私以為EXECEL還是比較方便的。。。  發表于 2010-10-17 11:29
漸開線反函數:ainv( ) 在EXCEL中是中很容易計算的  發表于 2010-10-7 11:32
 樓主| 發表于 2010-9-27 21:36:44 | 顯示全部樓層
還有:
                圓跳動查詢

主參數:                Lenght=30
精度等級:        Pgrade=5
改變上面兩個參數的值,按"計算"即可查詢:
   
圓跳動公差=table[GBT1184_JUMP,主參數1<Lenght,主參數2>=Lenght,精度等級  eq  Pgrade,公差值]/1000= 0.006
 樓主| 發表于 2010-9-27 21:42:39 | 顯示全部樓層
本帖最后由 speed_long 于 2010-9-28 21:44 編輯

又如:

準雙面錐齒輪齒坯設計與切齒計算

  齒輪用途(汽車、其他):        useType="一般"
  收縮類型(雙重、標準):        shrink="標準"
  銑齒機型號:                        model="NO26"
  齒輪旋向:                        旋向="左旋"
1) 小輪齒數z1:        var1=9
2) 大輪齒數z2:        var2=35
3):                                var3=var1/var2= 0.257143
4) 大輪齒面寬b2:        var4=26.92
5) 小輪偏置距E:        var5=44.45
6) 大輪節圓直徑d2:        var6=171.45
7) 刀盤半徑r0:                var7=table(格里森_刀盤半徑,大輪直徑1 < var6,大輪直徑2 >= var6,刀盤半徑) = 95.25
8) 希望的小輪中點螺旋角β10:                var8=50
9) :                var9=tan(var8)= 1.191754
10):                var10=1.2*var3= 0.308571
11):                var11=sin[atan(1/var10)]= 0.955543
12):                var12=(var6-var4*var11)/2= 72.863397
13):                var13=var5*var11/var12= 0.582925
14):                var14=cos[asin(var13)]= 0.812526
15):                var15=var14+var9*var13= 1.507229
16):                var16=var3*var12= 18.736302
17):                var17=var15*var16= 28.239893
18):                var18=0.02*var1+1.06= 1.24
19):                var19=var12/var10+var17= 264.371272

20):                var20=var5/var19= 0.168135
.........



 樓主| 發表于 2010-9-27 21:44:20 | 顯示全部樓層
本帖最后由 speed_long 于 2010-10-6 21:16 編輯

不勝枚舉,
只舉一例了:
                普通平鍵聯接設計
(以下內容復制到"計算不求人"里面即可進行鍵聯接的設計)

鍵的類型(A、B、C型):        type="A"
基本尺寸:                        dbase=100
鍵的長度:                        length=50
傳遞扭矩(N.m):                LoadT=1000
聯接類型(較緊、一般、較松):join="較緊"

鍵的寬度:                width=table(GB1095_1990,基本尺寸1<dbase,基本尺寸2>=dbase,鍵寬)= 28
鍵的寬度公差:                width_gc=size[(width)h9]= 28( 0/-0.052)
軸槽寬度及公差:        zc_gc=choose{join; eq "較緊",size[(width)P9]; eq "一般",size[(width)N9]; eq "較松",size[(width)H9]}= 28(-0.022/-0.074)
孔槽寬度及公差:        kc_gc=choose{join; eq "較緊",size[(width)P9]; eq "一般",size[(width)JS9];eq "較松",size[(width)D10]}= 28(-0.022/-0.074)

鍵的高度:        height=table[GB1095_1990,基本尺寸1<dbase,基本尺寸2>=dbase,鍵高]= 16
鍵的高度公差:        height_gc=size[(height)h11]= 16( 0/-0.11)
軸槽深:        T=table[GB1095_1990,基本尺寸1<dbase,基本尺寸2>=dbase,鍵槽t]= 10
孔槽深:        T1=table[GB1095_1990,基本尺寸1<dbase,基本尺寸2>=dbase,鍵槽t1]= 6.4
軸槽底至母線:DT=dbase-T= 90
              公差:GC_DT=choose[dbase<=22,"-0.1";dbase>22 and dbase<=130,"-0.2"; dbase>130,"-0.3"]= "-0.2"

孔槽底至母線:DT1=dbase+T1= 106.4
              公差:GC_DT1=choose[dbase<=22,"+0.1";dbase>22  and  dbase<=130,"+0.2";dbase>130,"+0.3"]= "+0.2"
鍵聯接的強度校核公式
鍵與輪轂的接觸高度:        k=height/2= 8
工作長度:                                Lwork=choose[type; eq "A",length-width; eq "B",length; eq "C",length-b/2]= 22
工作面擠壓應力(MPa):                Qp=2000*LoadT/(dbase*k*Lwork)= 113.636364
剪切應力(MPa):                        Qt=2000*LoadT/(dbase*width*Lwork)= 32.467532
發表于 2010-9-27 21:46:03 | 顯示全部樓層
這個在EXCEL絕對計算不了,漸開線反函數:ainv( ) EXCEL也是沒有的,
就像:ainv(0.01490438)=19.9999983273584

雖然沒有漸開線反函數,但一樣能算出來

點評

invαExcel能算  發表于 2019-9-25 10:00
 樓主| 發表于 2010-9-27 21:50:55 | 顯示全部樓層
怎么算,請賜教?

點評

朋友,可以用二分法或牛頓迭代法來計算  發表于 2010-9-28 23:01
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規則

QQ|小黑屋|手機版|Archiver|中國齒輪論壇 ( 浙ICP備07013979號-1 )

浙ICP備07013979號-1

滬公網安備 31011202001393號

GMT+8, 2020-9-27 20:50 , Processed in 0.124628 second(s), 18 queries , MemCache On.

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2020, Tencent Cloud.

快速回復 返回頂部 返回列表
顿顿蛋炒饭赚钱吗 1万炒股一年最多挣多少 山东11选5 河北快三app下载 腾讯分分彩开奖历史查询 上海时时乐413开奖 河南快三遗漏和值推荐 辽宁35选7玩法介绍 众发pk10免费计划app 黑龙江十一选五中奖规则 股票短线*