ПРОДОЛЖЕНИЕ ПРИЛ. 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=100TM\GOS 500\ GOS E
38 LET E=E+40TZ\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.294HX+RX
150 LET H=(B-SQRT(BB-0.008C))/0.004
160 LET HO=0.85H\LET RO=(1.1-0.002H)H
170 RET
180 PUT #5(" ЗОНА Б")
185 LET H=(RX+1.63HX)/1.5\LET HO=0.92H
190 LET RO=1.5H
195 RET
200 PUT #5(" ДВОЙНОЙ ТРОСОВЫЙ ОДИНАКОВОЙ ВЫСОТЫ")
202 GOS 600
220 LET D=100+40TZ\GOS D
225 LET HC=HD\LET RCX=1.0RX\LET RCO=RO
230 RET
240 REM ЗОНА А
241 IF L1<=3.0H THE GOT 245
242 PUT ("ПРИ L=",L1," И H=",H," ЗОНА А НЕ СУЩЕСТВУЕТ")