home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / rf3 / translin.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  2.9 KB  |  75 lines
  1. 1    REM:FIXED 70,140,500 G.H. 6/86
  2. 10  REM OUTBYTE 26
  3. 15  PI=3.1416
  4. 20  PRINT"                TRANSMISSION LINE CHARACTERISTIC PROGRAM
  5. 21  PRINT:PRINT:PRINT"                           By Paul Andrusiewicz
  6. 25  PRINT:PRINT," via K2UYH/wa2tif":PRINT
  7. 30  FOR Y=1 TO 4000 : NEXT Y
  8. 40  REM OUTBYTE26
  9. 50  PRINT"  THIS PROGRAM CAN CALCULATE THE VOLTAGE POTENTIAL AT ANY POINT ALONG"
  10. 52  PRINT"  A TRANSMISSION LINE IF CERTIAN PARAMETERS ARE KNOWN ABOUT THE LINE"
  11. 55  PRINT"  ITSELF AND THE SIGNAL BEING APPLIED TO IT"
  12. 60  PRINT
  13. 70  PRINT"  IT IS ALSO POSSIBLE TO HAVE CALCULATED VOLTAGES AT MANY POINTS ALONG"
  14. 71  PRINT "  A TRANSMISSION LINE IN HARD COPY OR TABLE-LIKE FORM.":PRINT
  15. 80  INPUT"   HIT RETURN TO BEGIN";U
  16. 90  REM OUTBYTE26
  17. 100  REM INPUT"PRECISION TO HOW MANY PLACES (0 to 9)";P:PRINT
  18. 110  REM IF P>9 THEN P1=9:IF P<0 THEN P1=0
  19. 120  REM PRECISION (P1)
  20. 125  REM IF 0<P<9 THEN P1=P
  21. 130  REM PRINT"PRECISION TO"P1"PLACES":PRINT
  22. 140  PRINT "WOULD YOU LIKE SINGLE OR MULTI-POINT ANALYSIS "
  23. 141  INPUT "(TYPE 1 FOR SINGLE POINT OR TYPE 2 FOR MULTI-POINT)";G
  24. 150  IF G>2 THEN 140
  25. 160  IF G<1 THEN 140
  26. 170  REM OUTBYTE26
  27. 180  INPUT"INPUT LENTH OF LINE (in meters)";L
  28. 190  IF G=1 THEN 220
  29. 200  INPUT"INPUT THE NUMBERS OF POINTS ALONG THE LINE TO BE CALCULATED";L1
  30. 210  IF G=2 THEN 230
  31. 220  INPUT"INPUT THE POINT ALONG THE LINE TO BE ANALYZED";L1
  32. 230  INPUT"INPUT CHARACTERISTIC IMPEDANCE OF LINE";Z
  33. 240  INPUT"INPUT VELOCITY FACTOR OF LINE";Q
  34. 250  INPUT"INPUT INPUT FREQUENCY";F
  35. 260  INPUT"INPUT (real part) OF LOAD IMPEDANCE THEN THE (J part)";R,R1
  36. 270  INPUT"INPUT VOLTAGE IN (magnatude) THEN (phase angle)";V,V1:PRINT:PRINT
  37. 280  IF G=1 THEN 320 
  38. 290  INPUT"TYPE -GR- FOR GRAPHIC DISPLAY OR HIT RETURN FOR NUMERIC VALUES";L$
  39. 295  REM outbyte26
  40. 300  IF L$="GR" THEN K=2
  41. 310  IF K=2 THEN 340
  42. 320  REM INPUT"DO YOU WANT HARD COPY TO PRINTER ?                                      (make sure printer is on line) (type 2, if yes : RETURN if no)";A:PRINT:PRINT
  43. 330  REM OUTBYTE26
  44. 340  IF K=0 THEN 380
  45. 350  PRINT K,"                      V  O  L  T  A  G  E
  46. 360  PRINT K,"              5   10   15   20   25   30   35   40   45   50   55   60"
  47. 370  PRINT K,"         +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
  48. 380  L2=L1
  49. 390  IF G=2 THEN: FOR L2=(L/L1) TO L STEP(L/L1)
  50. 400  B1=L/(((3E+08)/F)*Q):B2=(L2/L)*B1:B=B2*(2*PI):B3=(B1*2*PI)
  51. 410  A1=ABS(R)*COS(B):A2=R1*(COS(B)):IF A1=0 THEN A1=1
  52. 420  A3=Z*(SIN(B)):A4=A3+A2
  53. 430  A5=R*COS(B3):A6=R1*COS(B3)
  54. 440  A7=Z*SIN(B3):A8=A7+A6
  55. 450  E1=SQR((A1*A1)+(A4*A4)):E2=ATN(A4/A1)
  56. 460  E3=SQR((A5*A5)+(A8*A8)):E4=ATN(A8/A5)
  57. 470  E5=E1/E3:E6=E2-E4
  58. 480  E7=V*E5:E8=(V1*(PI/180))+E6:E8=E8*(180/PI)
  59. 490  REM !'CCCCCCCCCCCCCC###.##'CCC###.##'CCCCCCCCC###.##'CCCCCCCCCCCCCCCCC
  60. 500  PRINT "THE VOLTAGE IS";E7;"AT";E8;"DEGREES,";L2;"METERS FROM LOAD"
  61. 510  O=E7+10
  62. 520  IF G=1 THEN 560
  63. 530  REM !###0## 'CC
  64. 540  IF K=0 THEN 560
  65. 550  IF PRINT;L2;"m +";:PRINT K,TAB(O)"*"
  66. 560  IF G=2 THEN:NEXT L2
  67. 570  PRINT ,:PRINT ,:PRINT ,:PRINT :PRINT ,"THE LENTH OF THE LINE WAS";L"METERS"
  68. 580  PRINT ,"THE VELOCITY FACTOR WAS";Q
  69. 590  PRINT ,"THE FREQUENCY WAS";F
  70. 600  PRINT ,"THE INPUT VOLTAGE WAS";V"AT";V1"DEGREES
  71. 610  PRINT ,"THE LOAD VALUE WAS";R"AND A -J- OF";R1:PRINT:PRINT
  72. 620  INPUT" ANOTHER PROBLEM (Y/N)";U$: REM outbyte26
  73. 630  IF U$ = "Y" THEN 140
  74. 640  END
  75.