Продолжение прил. 2

Рис. 8. Алгоритм расчета одиночного тросового молниеотвода

Рис. 9. Алгоритм расчета двойного тросового молниеотвода

Продолжение прил. 2 Программа расчета молниезащиты

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