齿轮论坛 www.gearbbs.net

 找回密码
 注册

手机号码,快捷登录

手机号码,快捷登录

搜索
查看: 189063|回复: 946
收起左侧

[软件] 神奇的计算软件:计算不求人,机械设计计算样样行.

    [复制链接]
发表于 2010-9-27 20:42 | 显示全部楼层 |阅读模式

本帖子中包含更多资源。

您需要 登录 才可以下载或查看,没有账号?注册

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, 下载次数: 21889)
计算文件库.rar (59.58 KB, 下载次数: 4065)
计算不求人 计算文件库 的使用.doc (918 KB, 下载次数: 5312)
:loveliness:


方便证明.jpg

评分

3

查看全部评分

发表于 2010-9-27 20:51 | 显示全部楼层
本帖最后由 洪都诺夫斯基 于 2010-9-27 20:52 编辑

确实是创新,顶!顶!顶!不过,我还是认为EXCEL方便。

点评

我的软件搭配楼主的计算软件就完美了! 最最新的AUTOCAD齿根曲线齿轮、椭圆变位齿轮程序;全自动行星齿轮系,数控线切割程序: http://www.gearbbs.net/forum.php?mod=viewthread&tid=21402&extra=page%3D1  发表于 2010-11-29 13:46
 楼主| 发表于 2010-9-27 21:32 | 显示全部楼层
请问以下的内容放到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 | 显示全部楼层
又如下面的:
        已知中心距和变位系数求螺旋角

        输入数据
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 | 显示全部楼层
这个在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 | 显示全部楼层
还有:
                圆跳动查询

主参数:                Lenght=30
精度等级:        Pgrade=5
改变上面两个参数的值,按"计算"即可查询:
   
圆跳动公差=table[GBT1184_JUMP,主参数1<Lenght,主参数2>=Lenght,精度等级  eq  Pgrade,公差值]/1000= 0.006
 楼主| 发表于 2010-9-27 21:42 | 显示全部楼层
本帖最后由 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 | 显示全部楼层
本帖最后由 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 | 显示全部楼层
这个在EXCEL绝对计算不了,渐开线反函数:ainv( ) EXCEL也是没有的,
就像:ainv(0.01490438)=19.9999983273584

虽然没有渐开线反函数,但一样能算出来

点评

invαExcel能算  发表于 2019-9-25 10:00
 楼主| 发表于 2010-9-27 21:50 | 显示全部楼层
怎么算,请赐教?

点评

朋友,可以用二分法或牛顿迭代法来计算  发表于 2010-9-28 23:01
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|手机版|Archiver|齿轮论坛

GMT+8, 2024-3-29 01:54 , Processed in 0.170526 second(s), 13 queries , MemCache On.

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表