Задачи для расчета молниезащиты

1 2 3 4 5 6 7

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

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

приложение 3

Задача 1. Рассчитать молниезащиту здания, размеры которого (в метрах) показаны на рис. 10. Здание относится к категории взрывоопасных. В качестве молниеотвода принять одиночный стержневой молниеотвод. Здание расположено в Ленинградской области.

Построить зону защиты молниеотвода.

Рис. 10.

Рис. 11.

Задача 2. Рассчитать молниезащиту здания, в котором при аварийной ситуации выделяются газы. Здание расположено в Московской области. В качестве молниезащиты принять двойной стержневой молниеотвод. Размеры здания в метрах показаны на рис. 11.

Определить ожидаемое количество поражений молнией в год этого здания. Построить зону защиты молниеотвода.

Задача 3. Рассчитать молниезащиту гаража для автомобилей, использовав одиночный тросовый молниеотвод, размеры которого приведены на рис. 12.

Определить ожидаемое количество поражений молнией в год, если здание расположено в Ленинградской области. Размеры автогаража показаны на рис. 12. Построить зону защиты молниеотвода.