注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

国产经典:“计算不求人”软件专区

官方网站:http://www.speed-long.com

 
 
 

日志

 
 

玩转“计算不求人2009”  

2010-08-08 17:07:54|  分类: 计算不求人 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

玩转“计算不求人”

 

一、             基本四则运算

l         支持:“ +、-、*、/ ”及乘方开方运算符“ ^ ”,运算符优先跟平常数学里面一样,乘方开方(^)最先计算,后乘除(*、/),最后是加减(+、-)。

l         如在“计算不求人”里输入:1+2-3*4/5,它的结果会等于:0.6

l         可以通过括号()、[ ]、{ }改变运算的先后顺序,小括号()里面的先计算,再计算中括号[ ]里面的,再计算大括号{}里面的,最后是括号外面的。

l         如在“计算不求人”里输入:[1+(2-3)*4]/5,它的结果会等于:-0.6

l         & :字符连接运算,如:”I” & “ LOVE “ & “YOU!”,结果会等于:”I LOVE YOU!”

 

二、             三角函数及其他一些基本函数运算

l         abs( ):绝对值函数,如abs(-1)=1

l         acos( ):反余弦函数,如acos(0.5)=60

l         ainv( ):反渐开线函数,如ainv(0.0149043838673)=20

l         asin( ):反正弦函数,如sin(30)=0.5

l         atan( ):反正切函数,如atan(1)=45

l         ceil( ):求不小于给定数的最小整数,如:ceil(1.1)=2,ceil(1.9)=2

l         cos( ):余弦函数,如cos(60)=0.5

l         ee:常数=2.7182818284590452354

l         floor( ):求不大于给定数的最大整数,如:floor(1.1)=1,floor(1.9)=1

l         inv( ):渐开线函数,如:inv(20)=0.0149043838673

l         ln( ):以自然数e为底的对数,如:ln(ee)=1

l         log( ):以10为底的对数,如:log(10)=1

l         pi:常数=3.14159265358979323846

在三角函数中使用到 pi 时需注意,如:cos(pi/3) , 我们想它应该等于 cos60=0.5 ,但在计算不求人里不是这样的,cos(pi/3)=0.9998329794591,在三角函数里 pi 并不代表 180 度,pi 在计算不求人里面只纯粹的代表圆周率这个常数;如果需要pi代表角度,需要用tod(pi)把它转换为角度180

l         sin( ):正弦函数,如:sin(30)=0.5

l         tan( ):正切函数,如:tan(45)=1

l         tod( ):弧度转换为角度,如:tod(pi)=180

l         toint( ):四舍五入取整,如:toint(1.1)=1,toint(1.9)=2

l         torad( ):角度转换为弧度,如:torad(180)=3.14159265358979

 

三、             比较运算

l         > :大于运算,输入格式:表达式1 > 表达式二;如果“表达式一”的值大于“表达式二”的值,则结果为:True (真),否则为:False(假)。如输入:3 > 4 ,结果会等于 False

l         < :小于运算,参照大于运算;

l         >=:大于或等于运算,参照大于运算;

l         <=:小于或等于运算,参照大于运算;

l         !=:不等于运算,参照大于运算

l         eq:等于运算,注意,判断两个表达式的值是否相等用“eq”运算,而不是“=”,两表达式的值相等,则结果为:True,否则为:False

 

四、             逻辑运算

l         and:并且,输入格式:条件表达式一 and 条件表达式二,只有当两个条件表达式的值都为True时,结果为才为True,否则为False。

l         or:或者,输入格式:条件表达式一 or 条件表达式二,只要两个条件表达式的值中有一个表达式的值是True时,结果就是True;两个条件表达式的值都为False时,结果才为False。

l         所谓条件表达式就是包涵有比较运算的表达式。

 

五、             高级函数运算

l         among[]:二选一运算,输入格式:among[比较运算或逻辑运算表达式一,表达式二,表达式三],说明:当表达式一的值为True时,among计算表达式二的值作为结果;表达式一的值为False时,among计算表达式三的值作为结果。如:among[3 > 4, 5, 6]=6;among[3 < 4, 5, 6]=5

l         choose[]:多选一运算,输入格式:choose[表达式一;比较表达式一,结果表达式一;比较表达式二,结果表达式二;比较表达式三,结果表达式三;。。。。。。];表达式一的值先后与比较表达式一、二、三。。。。。。比较,当比较表达式的值为True时,choose就计算对应的结果表达式的值作为结果。如在文件计算模式下,输入下面两行:

a=10

b=choose[a; eq 8,100; eq 9,200; > 5,300; eq 10,400]

b的结果会是多少?结果是:300,又如下:

a=10

b=choose[a; eq 8,100; eq 9,200; eq 10,400; > 5,300]

b的结果会是多少?结果是:400。

使用此运算需注册分号“;”和逗号“,”的位置,输入不对将不能计算。

l         MAX[]:取最大值,输入格式:MAX[表达式一,表达式二,表达式三,。。。。。。,表达式N],MAX计算每一个表达式的值后取其中最大的值作为结果;如:MAX[10,20,30,20,10]=30

l         MIN[]:取最小值,输入格式:MIN[表达式一,表达式二,表达式三,。。。。。。,表达式N],MIN计算每一个表达式的值后取其中最小的值作为结果;如:MIN[10,20,30,20,10]=10

l         power[]:幂运算(乘方、开方),输入格式:power[表达式一,表达式二],power计算表达式一的表达式二次幂的结果;如:power[1+2, 2+2]=81

l         rote[]:解方程运算,输入格式:rote[要求的未知数,估计未知数值范围最小 to 估计未知数值范围最大,带未知数的方程表达式];如要解如下方程:

tan(x)-torad(x)=0.014904,在计算不求人中输入:

rote[x, 0 to 90, tan(x)-torad(x)-0.014904]= 19.9998339358717

解说:x为待求未知数,0 to 90 为x的取值范围(角度),torad(x)将角度转换为弧度,需要注意的是方程表达式的输入:tan(x)-torad(x)=0.014904 需先转换成:tan(x)-torad(x)-0.014904=0,输入时“=0”不要输入。

l         size[]:尺寸公差与配合查询,输入格式:size[基本尺寸表达式+公差带字母及精度等级]和size[基本尺寸表达式+孔公差带字母及精度等级/轴公差带字母及精度等级],如:

size[50H8]=50(+0.039/ 0)

size[50f7]=50(-0.025/-0.05)

size[50H8/f7]=50(+0.039/ 0)|(-0.025/-0.05);间隙配合,最小间隙:0.025,最大间隙:0.089

l         table[]:数据表查询取值,输入格式:table[数据表名,包涵表列名称的比较表达式一,包涵表列名称的比较表达式二,。。。。。。包涵表列名称的比较表达式N,输出表列名称];数据表的建立及管理由菜单“工具”/“数据管理”进入:

玩转“计算不求人2009” - 龙建国 - “计算不求人”专区

 

如要查“GB10095_88_齿厚极限偏差”表中“偏差代号”为“H”的“偏差数值”,输入如下:

table[GB10095_88_齿厚极限偏差,偏差代号 eq "H",偏差数值]=-8

注意:偏差代号H是字符型数据,输入时要用引号””括起来。

l         total[]:合计运算,输入格式:total[]、total[开始合计运算行的表达式]、total[开始合计运算行的表达式,结束合计运算行的表达式],看下面关于 total 运算的应用,大家就会明白 total 的妙处:

出差费用明细计算

火车票:200+300=500

飞机票:1200*2=2400

的士:50+60+40+20=170

 

住宿:280*2+320*4=1840

吃饭:200+300+400+500+300+1500=3200

 

合计:total[]=8110

其中路费:total[2,4]=3070

(它可以作为一个文件保存)

l         calvol( ):计算体积:

 玩转“计算不求人2009” - 龙建国 - “计算不求人”专区

 

六、             单行计算

以上运算都可以用于单行计算中,单行计算规则:

1) 按“=”键或“F5”键进行计算;

2) 冒号(:)及冒号前面的内容将被忽略;

3) 单行计算的结果可以单独设置颜色;

4) 单行计算的结果可以作为下一次计算的输入,一行里可以进行多次计算;

 玩转“计算不求人2009” - 龙建国 - “计算不求人”专区

 

七、             文件计算

计算文件的编写:

l         以行为单位,每一行一个变量(参数),每一行冒号前的文字是说明,冒号后面的,第一个等号前面的文字是变量名,第一个等号后面,第二个等号前面的是计算表达式;如果行不包函“=”号,则是纯说明行不作任何处理,如果不包函冒号,则第一个等号前面的都作为变量名(参数名);

l         以 note 开头的行是注释不作任何处理, 以noprint 开头的行打印时忽略;(暂不提供打印功能,升级版再提供);

l         变量名(参数名)不能与关键字相同;变量名中间不要包函空格;变量名可以是汉字,字母组合;以下单词不能作为变量名:

&

abs, acos, ainv, alert, among, and, asin

case, calvol, ceil, choose, cos, cosh

ee, elseif, end, eq

floor, FX, False, false, FYH

GX

if, inv, int

ln, log

MAX, MIN

NBX, ncycle, note, noprint

or, outprg

PFZ, pi, PYZ

QIU

rote

select, sin, sinh, size, sizel, swap, SX

table, tan, tanh, then, tod, torad, total, True, true, TX, TYX

wcycle

XYZ

YYH, YZ

ZSJX

 

l         支持3种类型值:数字型,文本型(需用引号 “” 引起来),真/假型(True 或 False )

l         在文件计算中,可按“F11”标记文件中的关键字(默认红色),可按“F12”标记变量(参数),以便检查排错;

l         文件保存格式为 RTF 或 TXT 文件。

 

下面是一个计算文件示例,把它们复制到计算不求人里保存后可重复使用:

       外啮合渐开线圆柱齿轮传动计算

                                   --给定变位系数

 

       输入数据

1 模数:         mn=6

2 齿数:         z1=11

                     z2=49

3 螺旋角:             helix=12

4 基本齿廓

       齿形角:                 an=20

       齿顶高系数:          ha_m=1.0

       径向间隙系数:             c_m=0.25

       齿根圆角半径系数:      p_m=0.38

 

5 变位系数:  x1=0.3

                     x2=-0.3

6 精度等级:  pgrade=7

7 齿宽:         gw1=105

                     gw2=100

 

8 工作齿宽:  gw_work=MIN[gw1,gw2]= 100

9 当量齿数:  zv1=z1/(cos(helix)^3)= 11.753833

                    zv2=z2/(cos(helix)^3)= 52.357982

 

       主要几何参数计算

1 分度(标准)中心距:   a_bz=(z1+z2)*mn/2/cos(helix)= 184.021307

2 变位系数和:             x_sum=x1+x2= 0

3 端面齿形角:             at=atan(tan(an)/cos(helix))= 20.410312

4 端面啮合角:             at1=ainv[2*x_sum*tan(an)/(z1+z2)+inv(at)]= 20.410312

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= 184.021307

 

8 分度圆直径:             d1=mn*z1/cos(helix)= 67.474479

                            d2=mn*z2/cos(helix)= 300.568135

9 齿数比(传动比):       u=z2/z1= 4.454545

10 节圆直径:              d_node1=2*a_work/(u+1)= 67.474479

                            d_node2=2*a_work*u/(u+1)= 300.568135

11 齿顶圆直径:           da1=d1+2*(ha_m+x1-deta_y)*mn= 83.074479

                            da2=d2+2*(ha_m+x2-deta_y)*mn= 308.968135

12 齿根圆直径:           df1=d1-2*(ha_m+c_m-x1)*mn= 56.074479

                            df2=d2-2*(ha_m+c_m-x2)*mn= 281.968135

13 齿高:                     h1=(da1-df1)/2= 13.5

                            h2=(da2-df2)/2= 13.5

14 法面分度圆齿厚:    sn1=[pi/2+2*x1*tan(an)]*mn= 10.735071

                            sn2=[pi/2+2*x2*tan(an)]*mn= 8.114485

15 基圆直径:              db1=d1*cos(at)= 63.238380

                            db2=d2*cos(at)= 281.698239

16 基圆螺旋角:           Bb=asin[sin(helix)*cos(an)]= 11.266519

 

       齿厚测量尺寸计算

1 固定弦齿厚:             s_c1=mn*[pi/2*cos(an)^2+x1*sin(2*an)]= 9.479306

                            s_c2=mn*[pi/2*cos(an)^2+x2*sin(2*an)]= 7.165271

2 固定弦齿高:             h_c1=0.5*[da1-d1-s_c1*tan(an)]= 6.074907

                            h_c2=0.5*[da2-d2-s_c2*tan(an)]= 2.896027

3 分度圆弦齿厚: 

                            deta1=tod[pi/2/z1+2*x1*tan(an)/z1]*[cos(helix)^3]= 8.721613

                            deta2=tod[pi/2/z2+2*x2*tan(an)/z2]*[cos(helix)^3]= 1.479958

       齿厚:                    s_1=mn*z1*sin(deta1)/[cos(helix)^3]= 10.693661

                            s_2=mn*z2*sin(deta2)/[cos(helix)^3]= 8.113583

4 分度圆弦齿高:         ha_1=0.5*{da1-[cos(deta1)-sin(helix)^2]/[cos(helix)^2]*d1}= 8.207737

                            ha_2=0.5*{da2-[cos(deta2)-sin(helix)^2]/[cos(helix)^2]*d2}= 4.252397

5 公法线长度:

                            z'1=z1*inv(at)/inv(an)= 11.715912

                            z'2=z2*inv(at)/inv(an)= 52.189062

       跨齿数:          k1=toint{z'1/180*acos[z'1*cos(an)/(z'1+2*x1)]+0.5}= 2

                            k2=toint{z'2/180*acos[z'2*cos(an)/(z'2+2*x2)]+0.5}= 6

                           

                            w1=mn*cos(an)*[pi*(k1-0.5)+z1*inv(at)+2*x1*tan(an)]= 28.784981

                            w2=mn*cos(an)*[pi*(k2-0.5)+z2*inv(at)+2*x2*tan(an)]= 100.574681

       公法线长度可以测量吗?结果为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]= 5

                            w1_change=mn*cos(an)*[pi*(k1_change-0.5)+z1*inv(at)+2*x1*tan(an)]= 28.784981

                            w2_change=mn*cos(an)*[pi*(k2_change-0.5)+z2*inv(at)+2*x2*tan(an)]= 82.861892

       公法线长度可以测量吗?结果为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= 10.368

       或自定直径:   dp=dp= 10.368

       量棒中心所在圆上的压力角:

                            ad1=ainv{dp/[z1*mn*cos(an)]+inv(at)-pi/2/z1+2*x1*tan(an)/z1}= 31.046218

                            ad2=ainv{dp/[z2*mn*cos(an)]+inv(at)-pi/2/z2+2*x2*tan(an)/z2}= 20.821113

 

                            M1=among[ceil(z1/2) eq z1/2 ,d1*cos(at)/cos(ad1)+dp,d1*cos(at)/cos(ad1)*cos(90/z1)+dp]= 83.428508

                            M2=among[ceil(z2/2) eq z2/2 ,d2*cos(at)/cos(ad2)+dp,d2*cos(at)/cos(ad2)*cos(90/z2)+dp]= 311.593084

7 斜齿轮轴向齿距:      px=among[helix > 0 , pi*mn/sin(helix),0]= 90.661356

8 斜齿轮导程:             pz1=among[helix > 0 ,z1*px,0]= 997.274921

                            pz2=among[helix > 0 ,z2*px,0]= 4442.406468

 

              传动质量指标计算

1 齿顶点压力角:         aa1=acos(db1/da1)= 40.427679

                            aa2=acos(db2/da2)= 24.253241

2 端面重合度:             ea=0.5*/pi*[ z1*tan(aa1)+z2*tan(aa2)-(z1+z2)*tan(at1)]= 1.451657

3 斜齿轮纵向重合度:  eB=among[helix > 0 ,gw_work/px,0]= 1.103006

4 总重合度:         er=ea+eB= 2.554663

5 斜齿轮齿顶螺旋角:  Ba1=atan[da1/d1*tan(helix)]= 14.665377

                                   Ba2=atan[da2/d2*tan(helix)]= 12.325247

6 法面齿顶厚:                    san1=da1*{[0.5*pi+2*x1*tan(an)]/z1+inv(at)-inv(aa1)}*cos(Ba1)= 2.589702

                                   san2=da2*{[0.5*pi+2*x2*tan(an)]/z2+inv(at)-inv(aa2)}*cos(Ba2)= 4.901512

       判断齿顶厚度是否足够?

       齿面类型(硬或软):       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))]= 18.834039

                                   η2=(1+u)*[tan(aa1)-tan(at1)]/[u*tan(at1)-(tan(aa1)-tan(at1))]= 2.222114

       滑动比的绝对值是否小于等于3?

                                   η1_Ok=abs(η1) <= 3= False

                                   η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

 

 

八、             软件的下载与安装

如上图所示,在我们的网站:http://speed-long.com “软件下载”页面里可以下载“计算不求人2009”正式版,VIP用户还可以下载“计算文件库”,正式版下载到电脑后的文件如下图:

双击打开解压缩后如下图:

双击“setup.exe”开始安装“计算不求人2009”正式版,按提示下一步,下一步就可安装完成。安装完成后,在桌面上有图标如下:

双击它即可打开“计算不求人2009”。

 

九、             “计算文件库”的使用

计算文件库下载到电脑后的文件如下图:

双击打开压缩文件解压缩后得到文件夹如下图:

打开计算不求人2009,找到菜单“工具”“选项”,打开选项设置对话框,如下图:

点击“(F)计算文件库路径”右边的按钮:

打开如下图的浏览文件夹对话框:

找到刚才解压缩计算文件库.RAR文件得到的文件夹:

选中并按“确定”回到“选项”对话框,再按下面的“保存”:

即设置好“计算文件库路径”选项,按“关闭”再查看菜单“计算文件库”,会发现其下面多了一些子菜单项,如下图:

此处表明GB/T1184-1996形位公差功能已加载,可使用。

 

 

 

 

 

还有一些功能,不作详细说明,等待您去发现!

在使用过程中有任何问题(建议),可到我们网站的“计算不求人”专区提出,感谢您的使用与支持!

“计算不求人”经常会有一些更新,经常关注我们的网站,能获得有关计算不求人的最新信息。

技术支持网站:http://www.speed-long.com

 

 

速龙科技:龙建国

2010-8-8

  评论这张
 
阅读(443)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018