计算不求人2013 最新版

刀疤五

计算不求人是完全公开的,有些BUG属正常,还是属一款很优秀的计算软件.值得推荐.
宇航CAD到底怎么样呢?看不到介绍,也看不到软件界面,只有一些图片,不好评论.
是马还是驴子,拉出来溜溜才知道.

刀疤五

刀疤五 发表于 2014-3-24 16:19

                               
登录/注册后可看大图

计算不求人是完全公开的,有些BUG属正常,还是属一款很优秀的计算软件.值得推荐.
宇航CAD到底怎么样呢?看不到 ...

去看过了,只有显示结果,看不出什么名堂.有些启发,只感到自己太孤陋寡闻了，有一遍文章写道:  
宇航CAD齿轮软件按双精度计算,输出按小数点后第八位.精确到小数点后第三位就是微米,第八位就小于纳米了.采用宇航CAD齿轮软件绘出精准的齿轮图后,慢走丝线切割加工,就可生产出0级高精度齿轮,能满足高精密传动的要求,而且成本低廉.
想问一下1561720203,现在这样的慢走丝线切割机哪里有?又有谁能检测0级精度的齿轮?

speed_long

1561720203 发表于 2014-3-24 14:36

                               
登录/注册后可看大图

普通圆柱蜗杆传动几何尺寸计算
(轴交角90度,已知中心距)

请看这个图片的结果，当使用：input() 后查看计算结果应该先按计算，而不是直接在计算文件中找计算结果，
而是按“计算”后，生成这个窗口界面，再在这里改变已知 参数再计算出相应的结果。
说句实话，结果正确否，与我们软件没多大关系，只要你输入的计算公式没问题，计算结果就会正确的。

1561720203

input()是否画蛇添足?
q=8不是很好吗?为何要q=input(8)  ?

speed_long

1561720203 发表于 2014-4-17 15:20

                               
登录/注册后可看大图

input()是否画蛇添足?
q=8不是很好吗?为何要q=input(8)  ?

我问一个问题可以吗？
你是喜欢丰满的女人，还是喜欢骨感的女人？

q=8    是在文件计算模式在工作

q=input(8)  是在窗口计算模式下工作，

两种工作模式各有不同特点。

1561720203

宇航CAD对文本文件的计算功能已超越"计算不求人".
宇航CAD对文本文件的计算功能支持所有LISP函数.

除支持所有ARX函数外,还支持所有的lisp函数以及用户自定义的lisp函数.
能调用LISP函数,等于是一个开放的平台.LISP函数相当于子程序,可以不断地增加函数.任何人都可 增加自定义的LISP函数.这就使这平台变得无穷大.

(INV  20)=0.0149044    ;渐开线函数
(AINV  0.01)=17.5768   ;反渐开线函数
(min 2 3 5)=2
(atang x y)=atan(y/x)   ;反正切函数,The range of angles returned is 0 to 360 degrees.
(atang 2 3)=56.3099
(atang -2 3)=123.69
(atang -2 -3)=236.31
(atang 2 -3)=303.69
......

lisp函数需在前面注明lisp.例如:
LISP:    AT=(AINV  A1)
LISP:  GWORK=(MIN GW1 GW2)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``
计算结果:

d:\外啮合渐开线圆柱齿轮传动计算.txt


外啮合渐开线圆柱齿轮传动计算
                                        --给定变位系数


        输入数据
1 模数:                MN=5 = [ 5 ]
2 齿数:                Z1=25 = [ 25 ]
Z2=65 = [ 65 ]
3 螺旋角:HELIX=0 = [ 0 ]
4 基本齿廓
齿形角:                        AN=20 = [ 20 ]
齿顶高系数:                    HA_M=1.0 = [ 1.0 ]
径向间隙系数:                  C_M=0.25 = [ 0.25 ]
齿根圆角半径系数:              P_M=0.38 = [ 0.38 ]

5 变位系数:        X1=0 = [ 0 ]
X2=0 = [ 0 ]
6 精度等级:        PGRADE=7 = [ 7 ]
7 齿宽:                GW1=105.0 = [ 105.0 ]
GW2=100.0 = [ 100.0 ]


8 工作齿宽:
LISP:GW_WORK=(MIN GW1 GW2) = [ 100.0 ]


9 当量齿数:        ZV1=Z1/(COS(HELIX)^3) = [ 25.0 ]
ZV2=Z2/(COS(HELIX)^3) = [ 65.0 ]

        主要几何参数计算

1 分度(标准)中心距:A_BZ=(Z1+Z2)*MN/2/COS(HELIX) = [ 225.0 ]
2 变位系数和:XSUM=X1+X2 = [ 0 ]
3 端面齿形角:AT=ATAN(TANG(AN)/COS(HELIX)) = [ 20.0 ]
4 端面啮合角:

;at1=ainv[2*xsum*tang(an)/(z1+z2)+inv(at)]

LISP:INVAT=(INV AT) = [ 0.0149044 ]
INVAT1=2*XSUM*TANG(AN)/(Z1+Z2)+INVAT = [ 0.0149044 ]                                    
LISP:AT1=(AINV INVAT1) = [ 20.0 ]

5 中心距变动系数:        
Y=(Z1+Z2)/2/COS(HELIX)*(COS(AT)-COS(AT1))/COS(AT1) =  
[ 5.31664e-015 ]
6 补偿变位系数:                DETA_Y=XSUM-Y = [ -5.31664e-015 ]
7 工作中心距:                A_WORK=A_BZ+MN*Y = [ 225.0 ]
8 分度圆直径:                D1=MN*Z1/COS(HELIX) = [ 125.0 ]
D2=MN*Z2/COS(HELIX) = [ 325.0 ]
9 齿数比(传动比):        U=Z2/Z1 = [ 2.6 ]
10 节圆直径:                D_NODE1=2*A_WORK/(U+1) = [ 125.0 ]
D_NODE2=2*A_WORK*U/(U+1) = [ 325.0 ]
11 齿顶圆直径:                DA1=D1+2*(HA_M+X1-DETA_Y)*MN = [ 135.0 ]
DA2=D2+2*(HA_M+X2-DETA_Y)*MN = [ 335.0 ]
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*TANG(AN))*MN = [ 7.85398 ]
SN2=(PI/2+2*X2*TANG(AN))*MN = [ 7.85398 ]
15 基圆直径:                DB1=D1*COS(AT) = [ 117.462 ]
DB2=D2*COS(AT) = [ 305.4 ]
16 基圆螺旋角:                BB=ASIN(SIN(HELIX)*COS(AN)) = [ 0.0 ]

        齿厚测量尺寸计算

1 固定弦齿厚:                S_C1=MN*(PI/2*COS(AN)^2+X1*SIN(2*AN)) = [ 6.93524 ]
S_C2=MN*(PI/2*COS(AN)^2+X2*SIN(2*AN)) = [ 6.93524 ]
2 固定弦齿高:                H_C1=0.5*(DA1-D1-S_C1*TANG(AN)) = [ 3.73789 ]
H_C2=0.5*(DA2-D2-S_C2*TANG(AN)) = [ 3.73789 ]

3 分度圆弦齿厚:
                                
;deta1=tod[pi/2/z1+2*x1*tang(an)/z1]*[cos(helix)^3]= 3.600000

DETA1=(PI/2/Z1+2*X1*TANG(AN)/Z1)*(COS(HELIX)^3) = [ 0.0628319 ]
DETA1=DETA1*180.0/PI = [ 3.6 ]
                                
;deta2=tod[pi/2/z2+2*x2*tang(an)/z2]*[cos(helix)^3]= 1.384615

DETA2=(PI/2/Z2+2*X2*TANG(AN)/Z2)*(COS(HELIX)^3) = [ 0.0241661 ]
DETA2=DETA2*180.0/PI = [ 1.38462 ]

齿厚:
S_1=MN*Z1*SIN(DETA1)/(COS(HELIX)^3) = [ 7.84881 ]
S_2=MN*Z2*SIN(DETA2)/(COS(HELIX)^3) = [ 7.85322 ]
4 分度圆弦齿高:
;ha_1=0.5*{da1-[cos(deta1)-sin(helix)^2]/[cos(helix)^2]*d1}= 5.123329
HA1=0.5*(DA1-(COS(DETA1)-SIN(HELIX)^2)/(COS(HELIX)^2)*D1) = [ 5.12333 ]

;ha_2=0.5*{da2-[cos(deta2)-sin(helix)^2]/[cos(helix)^2]*d2}= 5.047448
HA2=0.5*(DA2-(COS(DETA2)-SIN(HELIX)^2)/(COS(HELIX)^2)*D2) = [ 5.04745 ]
5 跨齿数:

LISP:INVAT=(INV AT) = [ 0.0149044 ]
LISP:INVAN=(INV AN) = [ 0.0149044 ]
Z11=Z1*INVAT/INVAN = [ 25.0 ]
Z22=Z2*INVAT/INVAN = [ 65.0 ]

K1=TRUNC(Z11/180*ACOS(Z11*COS(AN)/(Z11+2*X1))+0.5) = [ 3 ]
K2=TRUNC(Z22/180*ACOS(Z12*COS(AN)/(Z22+2*X2))+0.5) = [ 7 ]
6 公法线长度:
W1=MN*COS(AN)*(PI*(K1-0.5)+Z1*INVAT+2*X1*TANG(AN)) = [ 38.6523 ]
W2=MN*COS(AN)*(PI*(K2-0.5)+Z2*INVAT+2*X2*TANG(AN)) = [ 100.496 ]

                传动质量指标计算

1 齿顶点压力角:

AA1=ACOS(DB1/DA1) = [ 29.5314 ]
AA2=ACOS(DB2/DA2) = [ 24.2667 ]
2 端面重合度:

EA=0.5/PI*(Z1*TANG(AA1)+Z2*TANG(AA2)-(Z1+Z2)*TANG(AT1)) = [ 1.70428 ]
3 斜齿轮齿顶螺旋角:

BA1=ATAN(DA1/D1*TANG(HELIX)) = [ 0.0 ]
BA2=ATAN(DA2/D2*TANG(HELIX)) = [ 0.0 ]

4 法面齿顶厚:

LISP : INVAT=(INV AT) = [ 0.0149044 ]
LISP : INVAA1=(INV AA1) = [ 0.0510763 ]
LISP : INVAA2=(INV AA2) = [ 0.0272841 ]

SAN1=DA1*((0.5*PI+2*X1*TANG(AN))/Z1+INVAT-INVAA1)*COS(BA1) = [ 3.5991 ]
SAN2=DA2*((0.5*PI+2*X2*TANG(AN))/Z2+INVAT-INVAA2)*COS(BA2) = [ 3.94844 ]

5 滑动率:

η1=(1+U)*(TANG(AA2)-TANG(AT1))/(TANG(AT1)-U*(TANG(AA2)-TANG(AT1))) = [ 2.2629 ]
η2=(1+U)*(TANG(AA1)-TANG(AT1))/(U*TANG(AT1)-(TANG(AA1)-TANG(AT1))) = [ 0.980233 ]

刀疤五

吹吧!
你说宇航CAD超越了KISSsot,ROMAX也可以.

speed_long

刀疤五 发表于 2014-4-21 12:46

                               
登录/注册后可看大图

吹吧!
你说宇航CAD超越了KISSsot,ROMAX也可以.

他的目的是借   计算不求人   提高知名度，
这叫炒作！

他的文本计算只实现了   计算不求人   最基本的功能！
现在说超越  计算不求人   还过早了点，没有看见他展示过结构编程里的：
循环，条件转移； 还有数据库查询等等都没有，
只是简单的几个函数堆积，能说明什么问题呢？

再有，计算不求人    是免费的，就这一点，他也是无法超越的！

speed_long

speed_long 发表于 2014-4-21 13:51

                               
登录/注册后可看大图

他的目的是借   计算不求人   提高知名度，
这叫炒作！

1561720203  朋友，我不能在自己的帖子里点评，只好回帖回复你的问题了：
1  你说   计算不求人   不是免费的？请详细说明，你注册时付费了吗？现在不能用了可能是你的机器配置改变了吧，你可以申请重新注册，也不用付费，如果你愿意付费，我们也不反对的哦
2  如果  计算不求人   大家都证明是免费的，你的软件能不能免费呢？？？
3  计算不求人 追求的是使用简单，LISP语言是什么语言？比VB还容易学吗？需要专门学习吗？

speed_long

speed_long 发表于 2014-4-21 16:47

                               
登录/注册后可看大图

1561720203  朋友，我不能在自己的帖子里点评，只好回帖回复你的问题了：
1  你说   计算不求人   不是免 ...

计算不求人   还可以作为小学生，中学生，大学生 学习算法的工具，可以很容易在里面实现 一些算法，并得到结果，验证算法的正确性。如：
小学生要写个算法计算：1+2+3+。。。+N
在计算不求人里编写如下：

n=55
sum=0

ncycle(i,0 to n)
        sum=sum+i= 1540
end ncycle

sum=sum= 1540