计算不求人2013 最新版

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分钟精通计算不求人

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

1561720203

以CAD对文本文件的计算功能进行建筑装饰工程的造价计算

                               
登录/注册后可看大图

                           私家住宅室内建筑装饰工程

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  地址：          深圳市       Tel:
                         报价单         
项目：
序号  装饰项目.内容  数量    单价  总价(元)  单位,备注

一  土建改造工程         
1       拆厨房与餐厅间墙体: 5.7*20        ;m2,包买麻袋，装袋
  小计         
二  天花工程         
1  餐厅天花吊顶:         13.20*140        ;m2,木龙骨，5厘夹板封面，刷ICI
2  原天花批灰刷ICI:          43*18        ;m2,批灰打磨三遍，油ICI三遍
3  厅,房角线饰边 :         90.8*18        ;m,9厘夹板，外漆白色手扫漆
  小计         
三  墙面工程(ICI,工艺造型及贴瓷片)         
1  墙面批灰刷ICI :       128.2*18         ;m2,批灰打磨三遍，油ICI三遍
2  客厅电视柜墙面造型         
3  踢脚线      24                         ;m,9厘夹板，外油白色手扫漆
  小计:         
四  门，门套，窗套工程         
1  卫生间门{白色手扫漆}:  2*1050            ;扇  
2  卫生间门门套  :         2*80             ;m,9厘夹板底，面漆白色手扫漆，7CM实木线收口。
3  主卧,次卧书房门{白色手扫漆}: 3*1050       ;扇,漆白色手扫漆
4  主卧,次卧书房门门套:      10.2*80        ;m,9厘夹板底，面漆白色手扫漆，7CM实木线收口。
5  主卧凸窗窗套:        6.8*80              ;m,9厘夹板底，白色手扫漆，4CM实木线收口。
6  平窗窗套:            27.1*62             ;m9厘夹板底，6CM实木线收口，白色手扫漆。
  小计         
五  地面工程         
1  厨房，卫生间铺大理石门槛:  3.5*120       ;m,米黄石，加两边磨边
2  厨房铺地砖     :          5.84*35        ;m2,人工辅料，水泥，沙，不含地砖
3  主卧凸窗大理石台面  :0.85*60             ;m2人工辅料，水泥，沙，不含大理石
  小计         
                         私家住宅室内建筑装饰  

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  地址：          深圳市       Tel:
                         报价单
项目：
序号  装饰项目.内容  数量  单位  单价  总价(元)  备注

六  家具         
1  入大门鞋柜及造型   :        1*550     ;项大芯板框架，18厘夹板，5厘夹板，12厘层板，面贴樱桃木饰面，油清漆，内贴宝丽板
2  客厅电视机柜         
3  两个凸窗大理石台面{亚士白}: 3.1*100    ;m  
4  次卧衣柜{深550MM}  :        3.75*650  ;m2,大芯板框架，18厘夹板，5厘夹板，12厘层板，面贴樱桃木饰面，油清漆，内贴宝丽板
5  卫生间地柜         :        2*500     ;m,大芯板框架，18厘夹板，5厘夹板，12厘层板，防火板饰面，油清漆，内贴宝丽板
  小计         
七  安装工程         
1  1个热水器         :    1*20        ;个
2  1块车边镜(洗手间)      :  1*40     ;块  
3  洗手间淋浴区装不锈钢帘扛 :  1*80    ;项  
4  安装灯具                 :  1*350  ;项  
5  安装筒灯      : 35    ;个
6  安装射灯      : 55    ;个
  小计         
八  其它         
1  电器布线(墙內线及线管开关,插座){按实结算}    m  40    国际电线，PVC管，水泥，沙
2  水路改造   :   1*400         ;项铝塑管，UPV管及配件，水泥，沙。
3  材料搬运   :   1*5           ;项
4  垃圾清理:      1*400         ;项,清运到楼下指定点，
  小计         
  总计         

注:  1、由物业管理处提出所有费用由甲方支付；         
  2、以上报价不含税收；         
  3、工程增减项目结算按实际工程支付,不包五金配件。

计算结果:


                         私家住宅室内建筑装饰工程

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  地址：          深圳市       Tel:
                         报价单
项目：
序号  装饰项目.内容  数量    单价  总价(元)  单位,备注

一  土建改造工程
1       拆厨房与餐厅间墙体: 5.7*20         = [ 114.0 ]  ;M2,包买麻袋，装袋
  小计
小计 = [ 114.0 ]
二  天花工程
1  餐厅天花吊顶:         13.20*140         = [ 1848.0 ]  ;M2,木龙骨，5厘夹板封面，刷ICI
2  原天花批灰刷ICI:          43*18         = [ 774 ]  ;M2,批灰打磨三遍，油ICI三遍
3  厅,房角线饰边 :         90.8*18         = [ 1634.4 ]  ;M,9厘夹板，外漆白色手扫漆
  小计
小计 = [ 4256.4 ]
三  墙面工程(ICI,工艺造型及贴瓷片)
1  墙面批灰刷ICI :       128.2*18          = [ 2307.6 ]  ;M2,批灰打磨三遍，油ICI三遍
2  客厅电视柜墙面造型
3  踢脚线      24                         ;m,9厘夹板，外油白色手扫漆
  小计:
小计 = [ 2307.6 ]
四  门，门套，窗套工程
1  卫生间门{白色手扫漆}:  2*1050             = [ 2100 ]  ;扇
2  卫生间门门套  :         2*80              = [ 160 ]  ;M,9厘夹板底，面漆白色手扫漆，7CM实木线收口。
3  主卧,次卧书房门{白色手扫漆}: 3*1050        = [ 3150 ]  ;扇,漆白色手扫漆
4  主卧,次卧书房门门套:      10.2*80         = [ 816.0 ]  ;M,9厘夹板底，面漆白色手扫漆，7CM实木线收口。
5  主卧凸窗窗套:        6.8*80               = [ 544.0 ]  ;M,9厘夹板底，白色手扫漆，4CM实木线收口。
6  平窗窗套:            27.1*62              = [ 1680.2 ]  ;M9厘夹板底，6CM实木线收口，白色手扫漆。
  小计
小计 = [ 8450.2 ]
五  地面工程
1  厨房，卫生间铺大理石门槛:  3.5*120        = [ 420.0 ]  ;M,米黄石，加两边磨边
2  厨房铺地砖     :          5.84*35         = [ 204.4 ]  ;M2,人工辅料，水泥，沙，不含地砖
3  主卧凸窗大理石台面  :0.85*60              = [ 51.0 ]  ;M2人工辅料，水泥，沙，不含大理石
  小计
小计 = [ 675.4 ]
                         私家住宅室内建筑装饰

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  地址：          深圳市       Tel:
                         报价单
项目：
序号  装饰项目.内容  数量  单位  单价  总价(元)  备注

六  家具
1  入大门鞋柜及造型   :        1*550      = [ 550 ]  
;项大芯板框架，18厘夹板，5厘夹板，12厘层板，面贴樱桃木饰面，油清漆，内贴宝丽板
2  客厅电视机柜
3  两个凸窗大理石台面{亚士白}: 3.1*100     = [ 310.0 ]  ;M
4  次卧衣柜{深550MM}  :        3.75*650   = [ 2437.5 ]  
;M2,大芯板框架，18厘夹板，5厘夹板，12厘层板，面贴樱桃木饰面，油清漆，内贴宝丽板
5  卫生间地柜         :        2*500      = [ 1000 ]  
;M,大芯板框架，18厘夹板，5厘夹板，12厘层板，防火板饰面，油清漆，内贴宝丽板
  小计
小计 = [ 4297.5 ]
七  安装工程
1  1个热水器         :    1*20         = [ 20 ]  ;个
2  1块车边镜(洗手间)      :  1*40      = [ 40 ]  ;块
3  洗手间淋浴区装不锈钢帘扛 :  1*80     = [ 80 ]  ;项
4  安装灯具                 :  1*350   = [ 350 ]  ;项
5  安装筒灯      : 35    ;个
6  安装射灯      : 55    ;个
  小计
小计 = [ 490 ]
八  其它
1  电器布线(墙內线及线管开关,插座){按实结算}    m  40    国际电线，PVC管，水泥，沙
2  水路改造   :   1*400          = [ 400 ]  ;项铝塑管，UPV管及配件，水泥，沙。
3  材料搬运   :   1*5            = [ 5 ]  ;项
4  垃圾清理:      1*400          = [ 400 ]  ;项,清运到楼下指定点，
  小计
小计 = [ 805 ]
  总计
总计 = 小计之和 = [ 21396.1 ]

注:  1、由物业管理处提出所有费用由甲方支付；
  2、以上报价不含税收；
  3、工程增减项目结算按实际工程支付,不包五金配件。