home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / PATHLOSS.BAS < prev    next >
BASIC Source File  |  1988-07-26  |  1KB  |  39 lines
  1. 90 REM      PROGRAM BY D. McGARRETT      5 SEPTEMBER 84
  2. 100 PRINT
  3. 110 ON ERROR GOTO 330
  4. 120 PRINT"PROGRAM FOR FINDING PATH LOSS GIVEN RANGE, OR"
  5. 130 PRINT"RANGE AT WHICH GIVEN PATH LOSS OCCURS."
  6. 140 PRINT
  7. 150 INPUT"OPERATING FREQUENCY,MHZ";FZ
  8. 160 INPUT"UNITS OF RANGE:TYPE 'F' FOR FEET, 'M' FOR MILES";AN$
  9. 170 WL=11803/FZ
  10. 180 IF AN$="F" THEN GOSUB 360
  11. 185 IF AN$="f" THEN GOSUB 360
  12. 190 IF AN$="M" THEN GOSUB 380
  13. 195 IF AN$="m" THEN GOSUB 380
  14. 200 INPUT"TYPE 'P' FOR PATH LOSS, OR 'R' FOR RANGE";ANS$
  15. 210 PI=3.14159
  16. 220 IF ANS$="R" GOTO 280
  17. 225 IF ANS$="r" THEN GOTO 280
  18. 230 INPUT"RANGE";R
  19. 240 LP=20*LOG(4*PI*R/WL)/LOG(10)
  20. 250 LP=INT(LP*10+.5)/10
  21. 260 PRINT "PATH LOSS="LP"DB"
  22. 270 GOTO 330
  23. 280 INPUT"PATH LOSS IN DB";PL
  24. 290 RA=WL*10^(PL/20)/(4*PI)
  25. 300 RA=INT(10*RA+.5)/10
  26. 310 PRINT "RANGE FOR"PL"DB="RA
  27. 320 PRINT
  28. 330 INPUT"MORE (Y/N)";A$
  29. 340 IF A$="Y" THEN GOTO 140
  30. 345 IF A$="y" THEN GOTO 140
  31. 350 END
  32. 360 WL=WL/12
  33. 370 RETURN
  34. 380 WL=WL/(12*5280)
  35. 390 PRINT
  36. 400 PRINT"NOTE: S T A T U T E  MILES ARE USED."
  37. 410 PRINT
  38. 420 RETURN
  39.