- UID
- 198155
- 积分
- 831
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2004-11-30
- 最后登录
- 1970-1-1
|
发表于 2005-12-20 18:04:57
|
显示全部楼层
供你参考。
撇开程序,只看其中数据即可。
Private Sub dxxz() ''GB1179-83
Rem 截面--s 直径--zhj 破坏力--nt 公里重--qq 弹模--tm 线膨--xp
Select Case xz
Case "LGJ-25/4"
S = 29.59: zhj = 6.96: nt = 9290: qq = 102.6: tm = 79000: xp = 0.0000191
Case "LGJ-35/6"
S = 40.67: zhj = 8.16: nt = 12630: qq = 141: tm = 79000: xp = 0.0000191
Case "LGJ-50/8"
S = 56.29: zhj = 9.6: nt = 16870: qq = 195.1: tm = 79000: xp = 0.0000191
Case "LGJ-70/10"
S = 79.39: zhj = 11.4: nt = 23390: qq = 275.2: tm = 79000: xp = 0.0000191
Case "LGJ-95/15"
S = 109.72: zhj = 13.61: nt = 35000: qq = 380.8: tm = 76000: xp = 0.0000189
Case "LGJ-95/20"
S = 113.96: zhj = 13.87: nt = 37200: qq = 408.9: tm = 76000: xp = 0.0000185
Case "LGJ-120/20"
S = 134.49: zhj = 15.07: nt = 41000: qq = 466.8: tm = 76000: xp = 0.0000189
Case "LGJ-120/25"
S = 146.73: zhj = 15.74: nt = 47880: qq = 526.6: tm = 76000: xp = 0.0000185
Case "LGJ-150/20"
S = 164.5: zhj = 16.67: nt = 46630: qq = 549.4: tm = 73000: xp = 0.0000196
Case "LGJ-150/25"
S = 173.11: zhj = 17.1: nt = 54110: qq = 601: tm = 76000: xp = 0.0000189
Case "LGJ-150/35"
S = 181.62: zhj = 17.5: nt = 65020: qq = 676.2: tm = 80000: xp = 0.0000178
Case "LGJ-185/25"
S = 211.29: zhj = 18.9: nt = 59420: qq = 706.1: tm = 73000: xp = 0.0000196
Case "LGJ-185/30"
S = 210.93: zhj = 18.88: nt = 64320: qq = 732.6: tm = 76000: xp = 0.0000189
Case "LGJ-185/45"
S = 227.83: zhj = 19.6: nt = 80190: qq = 848.2: tm = 80000: xp = 0.0000178
Case "LGJ-240/30"
S = 275.96: zhj = 21.6: nt = 75620: qq = 922.2: tm = 73000: xp = 0.0000196
Case "LGJ-240/40"
S = 277.75: zhj = 21.66: nt = 83370: qq = 964.3: tm = 76000: xp = 0.0000189
Case "LGJ-240/55"
S = 297.57: zhj = 22.4: nt = 102100: qq = 1108: tm = 80000: xp = 0.0000178
Case "LGJ-300/25"
S = 333.31: zhj = 23.76: nt = 83410: qq = 1058: tm = 65000: xp = 0.0000205
Case "LGJ-300/40"
S = 338.99: zhj = 23.94: nt = 92220: qq = 1133: tm = 73000: xp = 0.0000196
Case "LGJ-300/50"
S = 348.36: zhj = 24.26: nt = 103400: qq = 1210: tm = 76000: xp = 0.0000189
Case "LGJ-300/70"
S = 376.61: zhj = 25.2: nt = 128000: qq = 1402: tm = 80000: xp = 0.0000178
Case "LGJ-400/35"
S = 425.24: zhj = 26.82: nt = 103900: qq = 1349: tm = 65000: xp = 0.0000205
Case "LGJ-400/50"
S = 451.55: zhj = 27.63: nt = 123400: qq = 1511: tm = 69000: xp = 0.0000193
Case "LGJ-400/65"
S = 464!: zhj = 28!: nt = 135200: qq = 1611: tm = 76000: xp = 0.0000189
Case "LGJ-400/95"
S = 501.02: zhj = 29.14: nt = 171300: qq = 1860: tm = 78000: xp = 0.000018
Case "LGJQ-150"
S = 161.7: zhj = 16.44: nt = 41500: qq = 537: tm = 74000: xp = 0.0000189
Case "LGJQ-185 "
S = 198.5: zhj = 18.24: nt = 51100: qq = 661: tm = 74000: xp = 0.0000189
Case "LGJQ-240"
S = 285.6: zhj = 21.88: nt = 71200: qq = 951: tm = 74000: xp = 0.0000189
Case "LGJQ-300(1)"
S = 335.8: zhj = 23.72: nt = 83600: qq = 1117: tm = 74000: xp = 0.0000189
Case "LGJQ-400(1)"
S = 448.4: zhj = 27.4: nt = 107000: qq = 1491: tm = 74000: xp = 0.0000189
''钢绞线的tm,xp根据送电设计规程SDJ3-79
Case "GJ-25(26.6)"
S = 26.6: zhj = 6.6: nt = 31281.6: qq = 227.7: tm = 185000: xp = 0.0000115
Case "GJ-35(37.15)"
S = 37.15: zhj = 7.8: nt = 43688.4: qq = 318.2: tm = 185000: xp = 0.0000115
Case "GJ-50(49.46)"
S = 49.46: zhj = 9: nt = 58165: qq = 423.87: tm = 185000: xp = 0.0000115
Case "GJ-70(72.19)"
S = 72.19: zhj = 11: nt = 84895.5: qq = 615: tm = 185000: xp = 0.0000115
Rem 截面--s 直径--zhj 破坏力--nt 公里重--qq 弹模--tm 线膨--xp tm,xp(按铝绞线)
Rem 计算直径取绝缘线外经=导体外经+(绝缘厚3.4+屏蔽层厚0.5)*2;计算截面取GB1179-83中铝绞线的导体截面
Rem 自重比载g1=qq/S,冰重比载g2=冰重/S,即由导体承受之;其他比载与外径zhj相关,即计及了绝缘厚。
Rem 注意绝缘厚分3.4mm、2.5mm(Q型),属10kV单芯铝绝缘线。JKLYJ--架空、铝、聚乙烯、交联。
Case "JKLYJ-35", "JKLY-35"
S = 34.36: zhj = 13.8: nt = 5177: qq = 226.1: tm = 59000: xp = 0.000023
Case "JKLYJQ-35", "JKLYQ-35"
S = 34.36: zhj = 13: nt = 5177: qq = 167: tm = 59000: xp = 0.000023
Case "JKLYJ-50", "JKLY-50"
S = 49.48: zhj = 16.1: nt = 7011: qq = 282.4: tm = 59000: xp = 0.000023
Case "JKLYJQ-50", "JKLYQ-50"
S = 49.48: zhj = 14.3: nt = 7011: qq = 217: tm = 59000: xp = 0.000023
Case "JKLYJ-70", "JKLY-70"
S = 71.25: zhj = 17.8: nt = 10354: qq = 354.6: tm = 56000: xp = 0.000023
Case "JKLYJQ-70", "JKLYQ-70"
S = 71.25: zhj = 16: nt = 10354: qq = 282: tm = 56000: xp = 0.000023
Case "JKLYJ-95", "JKLY-95"
S = 95.14: zhj = 17.8: nt = 13727: qq = 449.3: tm = 56000: xp = 0.000023
Case "JKLYJQ-95", "JKLYQ-95"
S = 95.14: zhj = 16: nt = 13727: qq = 363.2: tm = 56000: xp = 0.000023
Case "JKLYJ-120", "JKLY-120"
S = 121.21: zhj = 21: nt = 17339: qq = 534.3: tm = 56000: xp = 0.000023
Case "JKLYJQ-120", "JKLYQ-120"
S = 121.21: zhj = 19.2: nt = 17339: qq = 441.4: tm = 56000: xp = 0.000023
Case "JKLYJ-150", "JKLY-150"
S = 148.07: zhj = 22.6: nt = 21033: qq = 635.3: tm = 56000: xp = 0.000023
Case "JKLYJQ-150", "JKLYQ-150"
S = 148.07: zhj = 20.8: nt = 21033: qq = 534.6: tm = 56000: xp = 0.000023
Case "JKLYJ-185", "JKLY-185"
S = 182.8: zhj = 24.2: nt = 26732: qq = 748.6: tm = 56000: xp = 0.000023
Case "JKLYJQ-185", "JKLYQ-185"
S = 182.8: zhj = 22.4: nt = 26732: qq = 640.5: tm = 56000: xp = 0.000023
Case "JKLYJ-240", "JKLY-240"
S = 238.76: zhj = 26.4: nt = 34679: qq = 925.9: tm = 56000: xp = 0.000023
Case "JKLYJQ-240", "JKLYQ-240"
S = 238.76: zhj = 24.6: nt = 34679: qq = 806.5: tm = 56000: xp = 0.000023
Case "JKLYJ-300", "JKLY-300"
S = 297.57: zhj = 28.6: nt = 43349: qq = 1115.3: tm = 56000: xp = 0.000023
Case "JKLYJQ-300", "JKLYQ-300"
S = 297.57: zhj = 26.8: nt = 43349: qq = 985.2: tm = 56000: xp = 0.000023
End Select
End Sub |
|