home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / design1 / los-obj.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-08-18  |  1.6 KB  |  34 lines
  1. 10  CLS:PRINT "PROGRAM FOR CALCULATING MAXIMUM HEIGHT OF AN OBJECT IN A LOS PATH"
  2. 20  PRINT "ORIGINAL BY LEO KRASKA FOR TSC RF II CLASS V1.1M (4/15/84)
  3. 30  PRINT: PRINT "ENTER RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS"
  4. 40  INPUT "FOR NOMINAL VALUE (4/3) PRESS <CR>"; K
  5. 50  IF K=0 THEN K=1.33333
  6. 60  PRINT:INPUT"HEIGHT OF TRANSMITTING ANTENNA IN FEET";TA
  7. 70  PRINT:INPUT"HEIGHT OF RECIEVING ANTENNA IN FEET";RA
  8. 80  PRINT:INPUT"DISTANCE BETWEEN RECIEVER AND TRANSMITTING ANTENNAS IN MILES";LOSD
  9. 90  MD=(3*K*TA/2)^0.5+(3*K*RA/2)^0.5
  10. 100  IF MD<LOSD THEN PRINT :PRINT "DISTANCE BETWEEN ANTENNAS IS TO FAR, MAX. DISTANCE IN MILES IS";MD:GOTO 230
  11. 110  PRINT:INPUT"DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES";DIS
  12. 120  IF DIS>LOSD THEN PRINT: PRINT "DISTANCE TO OBJECT IS TOO FAR, MAX. DISTANCE IN MILES IS"; LOSD: GOTO 110
  13. 130  PRINT:INPUT"HEIGHT OF OBJECT IN FEET";HI
  14. 140  SLOAP=(RA-TA)/LOSD
  15. 150  IF LOSD/2< DIS THEN DOS=LOSD-DIS ELSE DOS=DIS
  16. 160  O=(DIS*SLOAP+TA)-(2*DOS^2)/(3*K)
  17. 170  IF O<= HI THEN PRINT:PRINT "OBJECT BLOCKING PATH"
  18. 180  IF O>HI THEN PRINT:PRINT "OBJECT NOT BLOCKING PATH"
  19. 190  PRINT:PRINT "HEIGHT OF OBJECT IN FEET IS";HI
  20. 200  PRINT:PRINT "MAXIMUM HEIGHT OF OBJECT IN FEET IS";O
  21. 210  PRINT:INPUT"DO YOU WANT A HARD COPY(Y/N)";PR$
  22. 220  IF PR$="Y" THEN GOSUB 260
  23. 230  PRINT: INPUT "DO YOU WANT TO CONTINUE (Y/N)"; AN$
  24. 240  IF AN$="Y" THEN 110
  25. 250  END
  26. 260  LPRINT :LPRINT :LPRINT "THE RATIO OF EFFECTIVE EARTH RADIUS TO TRUE EARTH RADIUS IS";K
  27. 270  LPRINT :LPRINT "MAXIMUM DISTANCE BETWEEN ANTENNAS IN MILES IS";MD
  28. 280  LPRINT :LPRINT "HEIGHT OF TRANSMITTING ANTENNA IN FEET IS";TA
  29. 290  LPRINT :LPRINT "HEIGHT OF RECIEVING ANTENNA IN FEET IS";RA
  30. 300  LPRINT :LPRINT "DISTANCE BETWEEN ANTENNAS IN MILES IS";LOSD
  31. 310  LPRINT :LPRINT "DISTANCE OF OBJECT TO TRANSMITTER ANTENNA IN MILES IS";DIS
  32. 320  LPRINT :LPRINT "HEIGHT OF OBJECT IN FEET IS";HI
  33. 330  LPRINT :LPRINT "MAXIMUM OBJECT HEIGHT IN FEET IS";O:RETURN
  34.