100 ' ********************************* 110 ' * IBM PC BASIC VERSION A3.30 * 120 ' * FILE NAME "FSL" * 130 ' * FREE SPACE LOSS * 140 ' * 1987/10 I.KATO * 150 ' ********************************* 160 KEY OFF:CLS:SCREEN 0 170 COLOR 14 180 DEFDBL B,C,E,F,G,K,L,M,O,S 190 DATA "FREQUENCY (GHz)","SPAN DISTANCE (km)","T POWER (dBm)", "T ANTENNA GAIN(dB)","R ANTENNA GAIN(dB)" 200 DATA "T FEEDER LOSS(dB)","R FEEDER LOSS(dB)" 210 FOR I=1 TO 7:READ A$(I):NEXT 220 LOCATE 1,1:PRINT "[ITEM 2] FREE SPACE PROPAGATION ":PRINT: COLOR 7 230 PRINT "The properties of propagation in free space is considered as transmission in a vacuum between points so remote from all other objects that those objects exert no measurable influence on the transmission." 240 PRINT "In the microwave region, the received power is generally specified in units of the watt or milliwatt relative to the radiation of a point source." 250 PRINT "When two isotropic antennas, which radiate uniformly in all directions, face each other separated by distance, D(km), in free space, the ratio of the transmitting power PT to the received power PR is" 260 COLOR 2:PRINT " SL=PT/PR=92.44+20*(LOG(FQ)+log(D)) (dB)" 270 COLOR 7:PRINT " where FQ is the frequency in GHz," 280 PRINT " SL is called the free space loss." 290 PRINT "An actual relay section consists of a transmitter, receiver, transmitting and receiving antennas, feeders, solid-circuit filters, etc. The gain of microwave" 300 PRINT "antenna is generally defined as being compared that of an isotropic antenna. Then a receiver input level over a free space path is" 310 COLOR 2:PRINT TAB(1)" PR=PT+GT+GR-(FT+GR)-SL (dBm)." " 320 COLOR 7:PRINT " where PT is transmitter output power in dBm," 330 PRINT " GT and GR are transmitting and receiving antenna gains in dB," 340 PRINT " FT and FR are transmitting and receiving feeder losses in dB," 350 PRINT " including their associated solid-circuit filter losses." 360 COLOR 6:LOCATE 23,20:PRINT "----- To proceed: Hit space key -----" 370 COLOR 7:Q$=INKEY$:IF Q$<>" " THEN 370 380 CLS 390 LOCATE 1, 1:PRINT STRING$(80,"-") 400 LOCATE 2,20:PRINT "FREE SPACE PROPAGATION" 410 LOCATE 3, 1:PRINT STRING$(80,"-") 420 FOR I=1 TO 7:LOCATE I+3,1:PRINT I" "A$(I):NEXT 430 GOSUB 1030:GOSUB 1240:GOSUB 1330:GOSUB 1420:GOSUB 1510:GOSUB 1600:GOSUB 1690 440 COLOR 6:LOCATE 22,12:PRINT "Do you correct any data (Y/N) ? ";:Y$=INPUT$(1) 450 IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 440 460 COLOR 7 :LOCATE 22,12:PRINT SPC(69) 470 IF Y$="N" OR Y$="n" THEN 560 ELSE 490 480 ' 490 COLOR 6:LOCATE 22,12:INPUT "Input the item number(1-7) to be corrected ";NO$ 500 COLOR 7 :LOCATE 22,12:PRINT SPC(67) 510 NO=VAL(NO$) 520 IF NO=0 OR NO>7 THEN 490 530 LOCATE 3+NO,30:PRINT SPC(30) 540 ON NO GOSUB 1030,1240,1330,1420,1510,1600,1690 550 GOTO 440 560 SL=92.44+20/2.3026*(LOG(FQ)+LOG(D)) 570 PR=PT+GT+GR-(FT+FR)-SL 580 COLOR 3:LOCATE 13, 4:PRINT USING "FREE SPACE LOSS ####.# dB";SL 590 COLOR 2:LOCATE 15, 4:PRINT USING "RECEIVER INPUT LEVEL ####.# dBm";PR 600 ' 690 COLOR 6:LOCATE 22,10:PRINT "Do you continue the work (Y/N) ? ";:Y$=INPUT$(1) 700 IF Y$<>"Y" AND Y$<>"y" AND Y$<>"N" AND Y$<>"n" THEN 690 710 COLOR 7:LOCATE 22,10:PRINT SPC(69) 720 IF Y$="Y" OR Y$="y" THEN 380 730 CLS:RUN "ME" 1000 ' ******************** 1010 ' * data input sub * 1020 ' ******************** 1030 ' freqency 1040 COLOR 6:LOCATE 4, 1:PRINT 1" "A$(1) 1050 COLOR 6:LOCATE 22,10:PRINT "Input FREQUENCY BAND (GHz) (2,4,5,6,7,8,11,15 ) ";:LINE INPUT X$ 1060 F=VAL(X$) 1070 IF F<>INT(F) OR F<2 OR F=3 OR (F>8 AND F<11) OR (F>11 AND F<15) OR F>15 THEN LOCATE 22,10:PRINT SPC(69):GOTO 1050 1080 IF F=6 THEN 1090 ELSE 1110 1090 LOCATE 23,10:INPUT "Input L(lower band) or U(upper band) L/U ";B$ 1100 IF B$<>"U" AND B$<>"u" AND B$<>"L" AND B$<>"l" THEN LOCATE 23,10: PRINT SPC(69):GOTO 1090 1110 COLOR 7:FOR I=22 TO 23:LOCATE I,10:PRINT SPC(69):NEXT 1120 IF F=2 THEN FQ=2.002 1130 IF F=4 THEN FQ=4.004 1140 IF F=5 THEN FQ=4.7 1150 IF (F=6 AND B$="L") OR (F=6 AND B$="l") THEN FQ=6.175 1160 IF (F=6 AND B$="U") OR (F=6 AND B$="u") THEN FQ=6.77 1170 IF F=7 THEN FQ=7.575 1180 IF F=8 THEN FQ=8 1190 IF F=11 THEN FQ=11.2 1200 IF F=15 THEN FQ=14.825 1210 COLOR 7:LOCATE 4, 1:PRINT 1" "A$(1) 1220 LOCATE 4,32:PRINT USING " ##.##";FQ 1230 RETURN 1240 ' span distance 1250 COLOR 6:LOCATE 5, 1:PRINT 2" "A$(2) 1260 COLOR 6:LOCATE 22,10:PRINT A$(2)" ";:LINE INPUT X$ 1270 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1280 D=VAL(X$) 1290 IF D<1 OR D>100 THEN 1260 1300 LOCATE 5,32:PRINT USING "####.#";D 1310 COLOR 7:LOCATE 5, 1:PRINT 2" "A$(2) 1320 RETURN 1330 ' T power 1340 COLOR 6:LOCATE 6, 1:PRINT 3" "A$(3) 1350 COLOR 6:LOCATE 22,10:PRINT A$(3)" ";:LINE INPUT X$ 1360 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1370 PT=VAL(X$) 1380 IF PT<1 OR PT>100 THEN 1350 1390 LOCATE 6,32:PRINT USING " ###.#";PT 1400 COLOR 7:LOCATE 6, 1:PRINT 3" "A$(3) 1410 RETURN 1420 ' Y ant gain 1430 COLOR 6:LOCATE 7, 1:PRINT 4" "A$(4) 1440 COLOR 6:LOCATE 22,10:PRINT A$(4)" ";:LINE INPUT X$ 1450 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1460 GT=VAL(X$) 1470 IF GT<1 OR GT>100 THEN 1440 1480 LOCATE 7,32:PRINT USING " ###.#";GT 1490 COLOR 7:LOCATE 7, 1:PRINT 4" "A$(4) 1500 RETURN 1510 ' R ant gain 1520 COLOR 6:LOCATE 8, 1:PRINT 5" "A$(5) 1530 COLOR 6:LOCATE 22,10:PRINT A$(5)" ";:LINE INPUT X$ 1540 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1550 GR=VAL(X$) 1560 IF GR<1 OR GR>100 THEN 1530 1570 LOCATE 8,32:PRINT USING " ###.#";GR 1580 COLOR 7:LOCATE 8, 1:PRINT 5" "A$(5) 1590 RETURN 1600 ' T feed loss 1610 COLOR 6:LOCATE 9, 1:PRINT 6" "A$(6) 1620 COLOR 6:LOCATE 22,10:PRINT A$(6)" ";:LINE INPUT X$ 1630 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1640 FT=VAL(X$) 1650 IF FT<1 OR FT>100 THEN 1620 1660 LOCATE 9,32:PRINT USING " ###.#";FT 1670 COLOR 7:LOCATE 9, 1:PRINT 6" "A$(6) 1680 RETURN 1690 ' R feed loss 1700 COLOR 6:LOCATE 10, 1:PRINT 7" "A$(7) 1710 COLOR 6:LOCATE 22,10:PRINT A$(7)" ";:LINE INPUT X$ 1720 COLOR 7:LOCATE 22,10:PRINT SPC(69) 1730 FR=VAL(X$) 1740 IF FR<1 OR FR>100 THEN 1710 1750 LOCATE 10,32:PRINT USING " ###.#";FR 1760 COLOR 7:LOCATE 10, 1:PRINT 7" "A$(7) 1770 RETURN