神奇的计算软件：计算不求人，机械设计计算样样行.

刀疤五

一点都不神奇,用"计算不求人"无法开发出好的程序,我试用了一段时间,没搞出什么好东西来.只能做一些简单的计算.

speed_long

刀疤大侠 发表于 2012-6-1 11:31

                               
登录/注册后可看大图

一点都不神奇,用"计算不求人"无法开发出好的程序,我试用了一段时间,没搞出什么好东西来.只能做一些简单的计 ...

齿轮计算软件
挂轮计算软件
蜗轮蜗杆计算软件
锥齿轮计算软件
轴承选型与计算
尺寸公差与配合
形位公差
锥齿轮切齿调整卡计算
。。。
。。。
都可以用计算 不求人轻易搞定。

下面附件是一个 渐开线圆柱齿轮传动几何计算及精度查询的示例，
可以打开直接使用，如果公式有错误的地方，可以直接修改后使用。
渐开线圆柱齿轮几何计算（包括精度查询）.rar (3.23 KB, 下载次数: 22)

2012-6-1 16:14 上传

点击文件名下载附件

speed_long

1561720203 发表于 2012-6-1 09:47

                               
登录/注册后可看大图

计算不求人是怎样写数组函数的?

如下例：
准双面锥齿轮齿坯设计与机床切齿调整计算

  齿轮用途(汽车、其他):        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
                i=0
20):                var20=var5/var19= 0.168135

        wcycle()
21):                var21=power(1+var20^2,0.5)= 1.013005
22):                var22=sin[atan(var20)]= 0.159723
23):                var23=asin(var22)= 9.190815
24):                var24=(var5-var17*var22)/var12= 0.548141
25):                var25=tan[asin(var24)]= 0.655369
26):                var26=var22/var25= 0.243714
27):                var27=cos[atan(var26)]= 0.971562
28):                var28=var24/var27= 0.564185
29):                var29=cos[asin(var28)]= 0.825648
30):                var30=(var15-var29)/var28= 1.208079
31):                var31=var28*(var9-var30)= -0.009211
32):                var32=var3*var31= -0.002368
33):                var33=var24-var22*var32= 0.548520
34):                var34=tan[asin(var33)]= 0.656016
35):                var35=var22/var34= 0.243474
36):                var36=atan(var35)= 13.683799
37):                var37=cos(var36)= 0.971616
38):                var38=var33/var37= 0.564544
39):                var39=asin(var38)= 34.370606
40):                var40=cos(var39)= 0.825403
41):                var41=(var15+var31-var40)/var38= 1.191431
42):                var42=atan(var41)= 49.992367
43):                var43=cos(var42)= 0.642890
44):                var44=var42-var39= 15.621761
45):                var45=cos(var44)= 0.963060
46):                var46=tan(var44)= 0.279614
47):                var47=var20/var33= 0.294976
48):                var48=atan(1/var47)= 73.565204
49):                var49=sin(var48)= 0.959142
50):                var50=cos(var48)= 0.282924
51):                var51=(var17+var12*var32)/var37= 28.887255
52):                var52=var12/var50= 257.536993
53):                var53=var51+var52= 286.424248
54):                var54=var12*var45/var49= 73.161039
55):                var55=var43*var51/var35= 76.276333
56):                var56=(var41*var55-var46*var54)/var53= 0.245863
57):                var57=atan(var56)= 13.812937
58):                var58=cos(var57)= 0.971080
59):                var59=var41*var56/var51= 0.010140
60):                var60=var46*var56/var52= 0.000267
61):                var61=var54*var55= 5580.455767
62):                var62=(var54-var55)/var61= -0.000558
63):                var63=var59+var60+var62= 0.009849
64):                var64=(var41-var46)/var63= 92.578624
65):                var65=var64/var58= 95.335695
66):                var66=var7/var65= 0.999101
                var20=var20/var66= 0.161946
                i=i+1= 3
                if(i>10)
                        exit wcycle
                end if
        end wcycle[abs(var66-1)<=0.001]

数组暂只能使用多个名称类似，以数字区分的变量来代替，
下一个版本会支持真正的数组功能。（在循环里给数组元素赋值和调用数组元素的值）

纪永君

JINLIANG 发表于 2010-10-5 18:20

                               
登录/注册后可看大图

我用 excel编的公式，上述计算都有没问题，反渐开很容易的，我连蜗轮钢球值都有用EXCEL算出了，这比量棒值要 ...

exce的最大缺陷需要在系统中有exce的母文件
太麻烦，如果没有安装母文件就没法使用

speed_long

JINLIANG 发表于 2010-10-5 18:20

                               
登录/注册后可看大图

我用 excel编的公式，上述计算都有没问题，反渐开很容易的，我连蜗轮钢球值都有用EXCEL算出了，这比量棒值要 ...

在计算不求人软件里，计算渐开线反函数，可以直接调用：ainv() 内置函数  如：

ainv(1E-5)=1.7800839308973
ainv(1E-4)=3.8332777595585
ainv(0.001)=8.2406242245347
ainv(0.01)=17.5767722241856
ainv(0.1)=36.1914218729462
ainv(1)=64.8741619370145
ainv(10)=85.023342919594
ainv(100)=89.4358665626354
ainv(1E+3)=89.9427940413192
.......

或者自已编程求反渐开线函数，如：

“计算不求人”里编程求渐开线反函数的方法：
第三种方法：
1:        val1=0.1
2:        middle=45
3:        pg=13
4:        min=0
5:        max=90
6:        val2=inv(middle)= 0.2146
7:        i=0
8:        wcycle(abs(val2-val1)>(1/10^pg))
9:                if(val2>val1)
10:                        max=middle= 36.1914
11:                else
12:                        min=middle= 36.1914
13:                end if
14:                middle=(min+max)/2= 36.1914
15:                val2=inv(middle)= 0.1000
16:                i=i+1= 30
17:                if(i>100)
18:                        exit wcycle
19:                end if
20:        end wcycle
21:        angle=middle= 36.1914

编程时，每一行前面的数字标号不是必须的。
设置文件计算下结果显示的小数位数可以改变计算结果的显示精度，
计算精度都是精确到小数后13位。

另外请提供蜗轮钢测量钢球的计算资料，我看看计算不求人能不能计算？

speed_long

刀疤大侠 发表于 2012-6-1 11:31

                               
登录/注册后可看大图

一点都不神奇,用"计算不求人"无法开发出好的程序,我试用了一段时间,没搞出什么好东西来.只能做一些简单的计 ...

计算齿厚等于齿槽宽的圆的直径:

模数:             mn=3.5
齿数:             z=81
压力角:         angle=20
螺旋角:         helix=0
变位系数:     x=-0.4806
齿顶高系数:  ha_=1.0
顶隙系数:     c_=0.25

端面模数:            mt=mn/cos(helix)= 3.5
端面变位系数:      xt=x*cos(helix)= -0.4806
端面压力角:         at=atan[tan(angle)/cos(helix)]= 20
分度圆直径:         d=mt*z= 283.5
基圆直径:            db=d*cos(at)= 266.4029
齿顶圆直径:        da=d+2*mn*(ha_+x)= 287.1358
齿根圆直径:        df=d-2*mn*(ha_+c_-x)= 271.3858
齿厚等于齿槽宽的圆的直径:
                          dse=rote[dy,df to da,dy*pi/z/2-dy*(pi/2/z+2*xt*tan(at)/z+inv(at)-inv(acos(db/dy)))]= 279.9611

复制到“计算不求人”里可直接使用，或可添加到其他计算不求人的文件里。

gk310

版主，在“计算不求人中”，公式隐藏后怎样使其显示呀？

speed_long

gk310 发表于 2012-6-15 16:32

                               
登录/注册后可看大图

版主，在“计算不求人中”，公式隐藏后怎样使其显示呀？

全选文字后修改文字颜色为黑色（与背景色不同）就可以显示了。

然后要区分关键字和变量的颜色按“F11”和“F12" 分别标示出关键字和变量的颜色。
（颜色可设置为不同）

费思量

太好了！很适合中学生练习简单的程序设计用。虽然麻烦些，但也可当科学计算器用。

jswuxiys

先下了，以后学习