2013-12-27
699
Продолжение прил. 2
Продолжение прил. 2
Продолжение прил. 2
Методика расчета молниезащиты на ЭВМ
Приложение 2
Уравнения для программирования и программа
расчета молниезашиты*
| № п/п | Тип молниеотвода и обозначение габаритов зоны защиты | Расчетные уравнения габаритов | |
| Зона А | Зона Б | ||
| Одиночный стержневой молниеотвод (рис. 4), h=H, в=В, с=С, hx=HX, rx=RX, h0=HO, r0=RO | B=1,1+0,00235HX,
C=1,294HX+RX,
 ,
 ,
HO=0,85H,
RO=(1,1-0,002H)H
|  ,
HO=0,92·H,
RO=1,5H
| |
| Двойной стержневой молниеотвод одинаковой высоты (рис. 5). Габариты зоны защиты посередине при H < L £ 3H (зона А), L=L, rcx=RCX·hc=HC, rco=RCO. При 1,5H < L £ 5H (зона Б) | HC=HO-(0,17+3·10-4H)(L-H),
RCO=RO
| HC=HO-0,14(L-1,5H),
RCO=RO
| |
| Одиночный тросовый молниеотвод (рис. 6) | B=1,35+0,00294HX,
C=1,59HX+RX
HO=0,85H,
RO=(1,35-0,0025H)H
| 
HO=0,92·H
RO=1,7H
|
Рис. 7. Алгоритм расчета стержневого молниеотвода: а – одиночного;
б – двойного одинаковой высоты
Рис. 8. Алгоритм расчета одиночного тросового молниеотвода
Рис. 9. Алгоритм расчета двойного тросового молниеотвода
1 REM РАСЧЕТ МОЛНИЕЗАЩИТЫ
2 REM РАЗРАБОТЧИК
3 REM СПБГАСЭ
4 REM КАФЕДРА ЭКОЛОГИЯ
5 REA B, CH, HO, RCO, L1, RCX. HOP
6 REA A, RO
10 PUT (“ТИП МОЛНИЕОТВОДА”/"1=ОДИНОЧНЫЙ СТЕРЖНЕВОЙ")
12 PUT ("2=ДВОЙНО1 СТЕРЖНЕВОЙ ОДИНАКОВОЙ ВЫСОТЫ")
14 PUT ("3=ОДИНОЧНЫЙ ТРОСОВЫЙ")
16 PUT ("4=ОДИНОЧНЫЙ ТРОСОВЫЙ"/"КАКОЙ?",)\GET (TM)
18 IF TM>0 THE IF TM<6 THE GOT 22
20 PUT (/"НЕ МОЖЕТ БЫТЬ!")\GOT 10
22 PUT ("ТИП ЗОНЫ ЗАЩИТЫ"/"(1=А, 2=Б)",)\GET (TZ)
30 IF TZ>0 THE IF TZ<3 THE GOT 36
34 PUT (/"ТАКОГО НЕ БЫВАЕТ …"/)\GOT 22
36 LET E=100*TM\GOS 500\ GOS E
38 LET E=E+40*TZ\GOS E
40 IF H<=150.0 THE GJT 54
42 PUT ("ВЫСОТА МОЛНИЕОТВОДА >150 МЕТРОВ")
44 PUT #5("ВЫСОТА МОЛНИЕОТВОДА >150 МЕТРОВ")
46 PUT ("(",H,")"/МЕНЯЕТЕ ТИП")
48 PUT ("(0=НЕТ, 1=ДА)")\GET (TM)
50 IF TM=1 THE G0T 10
52 STO
54 PUT #5(" РЕЗУЛЬТАТЫ:")
56 PUT #5("ВЫСОТА МОЛНИЕОТВОДА =",H)
58 PUT #5("ВЫСОТА ЗОНЫ ЗАЩИТЫ =",HO)
60 PUT #5("РАДИУС ЗОНЫ ЗАЩИТЫ ПО ЗЕМЛЕ =",RO)
62 IF TM=1 THE GOT 99
63 IF TM=3 THE GOT 72
64 PUT #5("HC=",HC/"RCX=",RCX/"RCO=",RCO)
70 IF TM=2 THE GOT 99
72 PUT #5("ВЫСОТА ОПОР =",HOP)
99 STO
100 PUT #5(" ОДИНОЧНЫЙ СТЕРЖНЕВОЙ")
120 RET
140 PUT #5(" ЗОНА А")
141 LET B=1.1+0.00235+HX\LET C=1.294*HX+RX
150 LET H=(B-SQRT(B*B-0.008*C))/0.004
160 LET HO=0.85*H\LET RO=(1.1-0.002*H)*H
170 RET
180 PUT #5(" ЗОНА Б")
185 LET H=(RX+1.63*HX)/1.5\LET HO=0.92*H
190 LET RO=1.5*H
195 RET
200 PUT #5(" ДВОЙНОЙ ТРОСОВЫЙ ОДИНАКОВОЙ ВЫСОТЫ")
202 GOS 600
220 LET D=100+40*TZ\GOS D
225 LET HC=HD\LET RCX=1.0*RX\LET RCO=RO
230 RET
240 REM ЗОНА А
241 IF L1<=3.0*H THE GOT 245
242 PUT ("ПРИ L=",L1," И H=",H," ЗОНА А НЕ СУЩЕСТВУЕТ")
243 PUT #5("ПРИ L=",L1," И H=",H," ЗОНА А НЕ СУЩЕСТВУЕТ")
244 PUT ("ЭТО БЫ НАДО ЗНАТЬ")\STO
254 IF L1<=H THE GOT 249
247 LET CH=HO-(0.17+0.0003*H)*(L1-H)
248 LET RCX=RO*(HC-HX)/HC
200 REM ЗОНА Б
281 IF L1<=5.0*H THE GOT 285
282 PUT ("ПРИ L=",L1," И H=",H," МОЛНИЕОТВОДЫ ОДИНОЧНЫ")
284 GOT 244
285 IF L1<=1.5*H THE GOT 249
286 LET HC=HO-0.14*(L1-1.5*H)
287 GOT 248
300 PUT #5(" ОДИНОЧНЫЙ ТРОСОВЫЙ")
302 GOS 800
304 IF L1<=150.0 THE GOT 339
305 PUT ("СЛИШКОМ БОЛЬШОЕ L. СМЕНИТЕ.")
306 PUT #5("СЛИШКОМ БОЛЬШОЕ L.")
307 GOT 302
310 LET HOP=H+2.0
311 IF L1>=120.0 THE LET HOP=HOP+1.0
339 RET
340 PUT #5(" ЗОНА А")
341 LET B=1.35+0.0294*HX\LET C=1.59*HX+RX
342 LET H=(B-SQRT(B*B-0.01*C))/0.005
343 LET HO=0,05*H\LET RO=(1.35-0.0025*H)*H
349 GOT 310
380 PUT #5(" ЗОНА Б")
381 LET H=(RX+1.85*HX)/1.7
382 LET HO=0.92*H\LET RO=1.7*H
383 GOT 310
400 PUT #5(" ДВОЙНОЙ ТРОСОВЫЙ")
402 GOS 700\GOS 304
404 RET
440 GOS 340\GOS 241\GOS 225
450 IF L1<=H THE GOT 479
465 LET HC=HO-(0.14+0.0005*H)*(L1-H)
470 LET RCX=RO*(HC-HX)/HC
479 RET
480 GOS 380\GOS 281\GOS 225
485 IF L1>H THE GOT 479
490 LET HC=HO-0.12*(L1-H)
495 RET
500 PUT ("ВЫСОТА ЗДАНИЯ =",)\GET(HX)
510 PUT ("РАДИУС ЗОНЫ ЗАЩИТЫ НА ЭТОЙ ВЫСОТЕ =",)\GET (RX)
515 PUT #5("ВЫСОТА ЗДАНИЯ =",HX/"РАДИУС ЗОНЫ ЗАЩИТЫ =",RX)
520 RET
600 PUT ("РАССТОЯНИЕ МЕЖДУ МОЛНИЕОТВОДАМИ =",)\GET (L)
610 PUT #5("РАССТОЯНИЕ МЕЖДУ МОЛНИЕОТВОДАМИ =",L)
620 LET L1=1.0*L
630 RET
700 PUT ("РАССТОЯНИЕ МЕЖДУ ТРОСАМИ =",)\GET (L)
710 PUT #5("РАССТОЯНИЕ МЕЖДУ ТРОСАМИ =",L)
720 GOS 620
730 RET
800 PUT ("ДЛИНА ПРОЛЕТА =",)\GET (L)
810 PUT #5("ДЛИНА ПРОЛЕТА =",L)
820 GOS 620\RET
