计算不求人2013 最新版

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

1561720203

省略了跨棒距M值的计算,是因为不知你的两个函数among,ceil是什么意思.
需要翻手册找计算公式,麻烦,就省掉了.

1561720203

among,ceil是计算不求人的专用函数,不通用,没兴趣去了解.

1561720203

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

外啮合渐开线圆柱齿轮传动计算
                                        --给定变位系数
        输入数据
1 模数:                MN=5 = [ 5 ]
2 齿数:                Z1=25 = [ 25 ]
Z2=65 = [ 65 ]
3 螺旋角:HELIX=9.5 = [ 9.5 ]
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.3 = [ 0.3 ]
X2=0.1 = [ 0.1 ]
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) = [ 26.0575 ]
ZV2=Z2/(COS(HELIX)^3) = [ 67.7494 ]
        主要几何参数计算
1 分度(标准)中心距:A_BZ=(Z1+Z2)*MN/2/COS(HELIX) = [ 228.129 ]
2 变位系数和:XSUM=X1+X2 = [ 0.4 ]
3 端面齿形角:AT=ATAN(TANG(AN)/COS(HELIX)) = [ 20.2556 ]
4 端面啮合角:
LISP:INVAT=(INV AT) = [ 0.0155037 ]
INVAT1=2*XSUM*TANG(AN)/(Z1+Z2)+INVAT = [ 0.018739 ]
                                       
;at1=ainv[2*xsum*tang(an)/(z1+z2)+inv(at)]
LISP:AT1=(AINV INVAT1) = [ 21.5274 ]
5 中心距变动系数:        Y=(Z1+Z2)/2/COS(HELIX)*(COS(AT)-COS(AT1))/COS(AT1) = [

6 补偿变位系数:                DETA_Y=XSUM-Y = [ 0.0117882 ]
7 工作中心距:                A_WORK=A_BZ+MN*Y = [ 230.07 ]
8 分度圆直径:                D1=MN*Z1/COS(HELIX) = [ 126.738 ]
D2=MN*Z2/COS(HELIX) = [ 329.519 ]
9 齿数比(传动比):        U=Z2/Z1 = [ 2.6 ]
10 节圆直径:                D_NODE1=2*A_WORK/(U+1) = [ 127.817 ]
D_NODE2=2*A_WORK*U/(U+1) = [ 332.323 ]
11 齿顶圆直径:                DA1=D1+2*(HA_M+X1-DETA_Y)*MN = [ 139.62 ]
DA2=D2+2*(HA_M+X2-DETA_Y)*MN = [ 340.401 ]
12 齿根圆直径:                DF1=D1-2*(HA_M+C_M-X1)*MN = [ 117.238 ]
DF2=D2-2*(HA_M+C_M-X2)*MN = [ 318.019 ]
13 齿高:                        H1=(DA1-DF1)/2 = [ 11.1911 ]
H2=(DA2-DF2)/2 = [ 11.1911 ]
14 法面分度圆齿厚:        SN1=(PI/2+2*X1*TANG(AN))*MN = [ 8.94589 ]
SN2=(PI/2+2*X2*TANG(AN))*MN = [ 8.21795 ]
15 基圆直径:                DB1=D1*COS(AT) = [ 118.9 ]
DB2=D2*COS(AT) = [ 309.141 ]
16 基圆螺旋角:                BB=ASIN(SIN(HELIX)*COS(AN)) = [ 8.92225 ]
        齿厚测量尺寸计算
1 固定弦齿厚:                S_C1=MN*(PI/2*COS(AN)^2+X1*SIN(2*AN)) = [ 7.89942 ]
S_C2=MN*(PI/2*COS(AN)^2+X2*SIN(2*AN)) = [ 7.25663 ]
2 固定弦齿高:                H_C1=0.5*(DA1-D1-S_C1*TANG(AN)) = [ 5.00348 ]
H_C2=0.5*(DA2-D2-S_C2*TANG(AN)) = [ 4.12046 ]
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.0686628 ]
DETA1=DETA1*180.0/PI = [ 3.93409 ]  ;转化为角度
                                
;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.0242599 ]
DETA2=DETA2*180.0/PI = [ 1.38999 ]  ;转化为角度
齿厚:
S_1=MN*Z1*SIN(DETA1)/(COS(HELIX)^3) = [ 8.93886 ]
S_2=MN*Z2*SIN(DETA2)/(COS(HELIX)^3) = [ 8.21715 ]
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) = [ 6.59456 ]
;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.4909 ]
5 跨齿数:
LISP:INVAT=(INV AT) = [ 0.0155037 ]
LISP:INVAN=(INV AN) = [ 0.0149044 ]
Z11=Z1*INVAT/INVAN = [ 26.0053 ]
Z22=Z2*INVAT/INVAN = [ 67.6137 ]
K1=TRUNC(Z11/180*ACOS(Z11*COS(AN)/(Z11+2*X1))+0.5) = [ 3 ]
K2=TRUNC(Z22/180*ACOS(Z22*COS(AN)/(Z22+2*X2))+0.5) = [ 8 ]
6 公法线长度:
;w1=mn*cos(an)*[pi*(k1-0.5)+z1*inv(at)+2*x1*tang(an)]= 38.652335
;w2=mn*cos(an)*[pi*(k2-0.5)+z2*inv(at)+2*x2*tang(an)]= 115.256729
W1=MN*COS(AN)*(PI*(K1-0.5)+Z1*INVAT+2*X1*TANG(AN)) = [ 39.7488 ]
W2=MN*COS(AN)*(PI*(K2-0.5)+Z2*INVAT+2*X2*TANG(AN)) = [ 115.782 ]
6 量棒(球)跨距M值计算:
量棒直径:  DP=TRUNC(1.728*MN) = [ 8 ]
        ;或自定直径:dp=9.0
        量棒中心所在圆上的压力角:
;ad1=ainv{dp/[z1*mn*cos(an)]+inv(at)-pi/2/z1+2*x1*tang(an)/z1}= 23.789482
;ad2=ainv{dp/[z2*mn*cos(an)]+inv(at)-pi/2/z2+2*x2*tang(an)/z2}= 21.633624
LISP:INVAT=(INV AT) = [ 0.0155037 ]
A1=DP/(Z1*MN*COS(AN))+INVAT-PI/2/Z1+2*X1*TANG(AN)/Z1 = [ 0.0295145 ]
A2=DP/(Z2*MN*COS(AN))+INVAT-PI/2/Z2+2*X2*TANG(AN)/Z2 = [ 0.0186527 ]
LISP:AD1=(AINV A1) = [ 24.8779 ]
LISP:AD2=(AINV A2) = [ 21.4956 ]
;M1=d1*cos(at)/cos(ad1)+dp  ;z1为偶数
M1=D1*COS(AT)/COS(AD1)*COS(90/Z1)+DP = [ 138.803 ]  ;Z1为奇数
;M2=d2*cos(at)/cos(ad2)+dp  ;z2为偶数
M2=D2*COS(AT)/COS(AD2)*COS(90/Z2)+DP = [ 340.153 ]  ;Z2为奇数

1561720203

               传动质量指标计算

1 齿顶点压力角:
AA1=ACOS(DB1/DA1) = [ 31.6141 ]
AA2=ACOS(DB2/DA2) = [ 24.7469 ]
2 端面重合度:
EA=0.5/PI*(Z1*TANG(AA1)+Z2*TANG(AA2)-(Z1+Z2)*TANG(AT1)) = [ 1.56737 ]
3 斜齿轮齿顶螺旋角:
BA1=ATAN(DA1/D1*TANG(HELIX)) = [ 10.4453 ]
BA2=ATAN(DA2/D2*TANG(HELIX)) = [ 9.80773 ]
4 法面齿顶厚:
;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
LISP : INVAT=(INV AT) = [ 0.0155037 ]
LISP : INVAA1=(INV AA1) = [ 0.0637734 ]
LISP : INVAA2=(INV AA2) = [ 0.0290258 ]
SAN1=DA1*((0.5*PI+2*X1*TANG(AN))/Z1+INVAT-INVAA1)*COS(BA1) = [ 3.1989 ]
SAN2=DA2*((0.5*PI+2*X2*TANG(AN))/Z2+INVAT-INVAA2)*COS(BA2) = [ 3.94591 ]
5 滑动率:
η1=(1+U)*(TANG(AA2)-TANG(AT1))/(TANG(AT1)-U*(TANG(AA2)-TANG(AT1))) = [ 1.07986 ]
η2=(1+U)*(TANG(AA1)-TANG(AT1))/(U*TANG(AT1)-(TANG(AA1)-TANG(AT1))) = [ 0.98927 ]

调整参数算了一下,也有量棒(球)跨距M值了.

speed_long

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

                               
登录/注册后可看大图

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

因为不能点评自己的帖子，只好再回帖了：

噢，老天，LISP 是啥， 这里的朋友有多少人会用的，都来冒个泡吧！
LISP 是专为CAD二次开发服务的吗？
我不太明白，请详细说明！
http://baike.baidu.com/subview/293795/6732872.htm?fr=aladdin

1561720203

那有什么不方便的?人工判断奇偶，再选择计算公式,把不要的用分号注释掉,是很简单的事.

speed_long

1561720203 发表于 2014-4-22 19:19

                               
登录/注册后可看大图

那有什么不方便的?人工判断奇偶，再选择计算公式,把不要的用分号注释掉,是很简单的事.

自动判断不更好吗？
自动判断应该也很容易做到的吧？
你说已经超越了  计算不求人  ，计算不求人   都是自动判断了，你为什么还要搞人工来判断呢？？？
这就是你所说的超越吗？？？

speed_long

speed_long 发表于 2014-4-22 22:03

                               
登录/注册后可看大图

自动判断不更好吗？
自动判断应该也很容易做到的吧？
你说已经超越了  计算不求人  ，计算不求人   都是 ...

几个简单的英语单词，不认识的可以查一下字典。
再说还有帮助文档，30分钟精通计算不求人

speed_long

speed_long 发表于 2014-4-23 18:03

                               
登录/注册后可看大图

几个简单的英语单词，不认识的可以查一下字典。
再说还有帮助文档，30分钟精通计算不求人

那只能说你是天才中的天才了，没有人能与你相比！