100 ' ************************************* 110 ' * IBM PC BASIC VERSION A3.30 * 120 ' * FILE NAME "TOLOSS" * 130 ' * DIRECT AND REFRECTED WAVES LOSS * 140 ' * 1987/10 I.KATO * 150 ' ************************************* 160 KEY OFF:CLS:SCREEN 9 170 COLOR 14 180 DIM Y(100) 190 DATA "2.2","4.0","4.7","6.0","11.7" 200 FOR I=1 TO 5:READ FR$(I):NEXT 210 LOCATE 1,1:PRINT "[ITEM 11] DIRECT WAVE AND REFLECTED WAVE LOSSES ":COLOR 7 220 PRINT "A comparison of field intensities between the direct and reflected waves can be done by taking free space loss(Item 2), ground reflection loss(Item 12), antennadirectivity loss(Items 14,15) and ridge diffraction loss(Item 10) into account." 230 LOCATE 11,1:GOSUB 1000 240 COLOR 3:LOCATE 5,26:PRINT "[ DIRECT WAVE LOSS ]":COLOR 7 250 LOCATE 6,24:PRINT "This is obtained as a sum of free space loss and ridge" 260 LOCATE 7,24:PRINT "diffraction loss, the latter is determined by a gap" 270 LOCATE 8,24:PRINT "clearance (under the line A-B) and the first Fresnel zone" 275 LOCATE 9,24:PRINT "radius at point L." 280 COLOR 3:LOCATE 10,26:PRINT "[ REFLECTED WAVE LOSS ]":COLOR 7 290 LOCATE 11,24:PRINT "This is obtained as a sum of reflection loss, antenna" 300 LOCATE 12,24:PRINT "off-beam loss and ridge diffraction loss." 310 LOCATE 13,24:PRINT "Regarding reflected waves, calculations should be" 320 LOCATE 14,24:PRINT "practised for all the possible paths, namely ,AFB, APLB," 330 LOCATE 15,24:PRINT "ALQB. The minimum value among them should represent the" 340 LOCATE 16,24:PRINT "reflection loss thereafter." 350 COLOR 3:LOCATE 17,26:PRINT "[ For instance, as regards path AFB: ]":COLOR 7 360 LOCATE 18,24:PRINT "reflection loss; loss due to topography at point F, " 370 LOCATE 19,24:PRINT "antenna dir. loss; sum of losses by angles BAF and ABF," 380 LOCATE 20,24:PRINT "ridge diff. loss; determined by gap clearance and First" 390 LOCATE 21,24:PRINT " Fresnel zone radius at point L." 400 COLOR 2:LOCATE 22,10:PRINT "These calculation will be simultaneously processed in Item 23. " 430 COLOR 6:LOCATE 23,20:PRINT "----- menu: Hit space key -----" 440 COLOR 7:Q$=INKEY$:IF Q$<>" " THEN 440 450 CLS:SCREEN 0:RUN "ME" 1000 ' ------------------------------- 1010 ' * data input graph draw sub * 1020 ' ------------------------------- 1030 C=12.74*4/3 1040 WINDOW SCREEN(0,0)-(100,100) 1050 VIEW(10,84)-(170,224),,5 1060 ' ground surface 1070 FOR X=0 TO 100 1080 Y=100-(100-X)*X/C/10 1090 IF X=0 THEN PSET(X,Y) ELSE LINE-(X,Y),2 1100 Y(X)=Y 1110 NEXT 1120 LINE(0,100)-( 5, 20),2 :'A 1130 LINE(5, 20)-( 10,Y(10)),2 :'A 1140 LINE(90,Y(90))-(95, 70),2 :'B 1150 LINE(95, 70)-(100,100),2 :'B 1160 LINE(40,Y(40))-(45, 55),2 :'L 1170 LINE(45, 55)-(50,Y(50)),2 :'L 1180 LINE(30,Y(30))-(35, 70),2 :'P 1190 LINE(35, 70)-(40,Y(40)),2 :'P 1200 PAINT( 5, 30),2,2 :'A 1210 PAINT(95, 80),2,2 :'B 1220 PAINT(45, 65),2,2 :'L 1230 PAINT(35, 80),2,2 :'P 1240 LINE( 5, 20)-(95, 70),7 :'A-B 1250 LINE( 5, 20)-(60,Y(60)),14 :'A-F 1260 LINE( 60,Y(60))-(95, 70),14 :'F-B 1270 LINE( 5,20)-(35,70),3 :'A-P 1280 LINE( 35,70)-(45,55),3 :'P-L 1290 LINE( 45,55)-(95,70),3 :'L-B 1300 LINE( 5,20)-(45,55),5 :'A-L 1310 LINE( 45,55)-(70,Y(70)),5 :'L-Q 1320 LINE( 70,Y(70))-(95,70),5 :'Q-B 1330 LINE(45, 55)-(45, 42),7,,&H8888 1340 LOCATE 8, 3:PRINT "A" 1350 LOCATE 10,11:PRINT "L" 1360 LOCATE 13, 9:PRINT "P":LOCATE 13,21:PRINT "B" 1370 LOCATE 16,14:PRINT "F":LOCATE 16,16:PRINT "Q" 1380 COLOR 14:LOCATE 18, 1:PRINT "P;A-L reflection point" 1390 LOCATE 19, 1:PRINT "F;A-B reflection point" 1400 LOCATE 20, 1:PRINT "Q;L-B reflection point" 1410 COLOR 7:RETURN