double arrow

Программа расчета молниезащиты


Продолжение прил. 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








Сейчас читают про: