home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 771.OSCPLOT.BAS < prev    next >
BASIC Source File  |  1985-09-24  |  896b  |  37 lines
  1. 10 REM COMPUTE OSCILLATOR FREQUENCY
  2. 20 X = 50  : REM MINIMUM VALUE OF CAPACITANCE
  3. 30 Y = 500 : REM MAXIMUM VALUE OF CAPACITANCE
  4. 40 Z = 25  : REM STEP
  5. 50 INPUT "L (uH) ";L
  6. 60 C3 = 0 : F3 = C3 : F4 = F3
  7. 70 LPRINT "L (uH) = ";L
  8. 80 L = L * .000001 : REM CONVERT uH TO H
  9. 90 LPRINT
  10. 100 LPRINT "F (Mhz)", "C (pF)", "SLOPE","DELTA F"
  11. 110 FOR C1 = X TO Y STEP Z
  12. 120 C = C1 * 1E-12 : REM CONVERT pF TO F
  13. 130 REM
  14. 140 F = 1 / ( 2 * 3.1419 * (SQR( L * C )))
  15. 150 IF C1 = X THEN F5 = F
  16. 160 F1 = F * .000001
  17. 170 F4 = F3 - F1
  18. 180 C2 = C * 1E+12
  19. 190 M = (F3 - F2) / (C3 - C2)
  20. 200 IF M = 0 THEN F4 = 0 : REM FUDGE FIRST VALUE
  21. 210 LPRINT F1,C2,M,F4
  22. 220 F3 = F1
  23. 230 C3 = C2
  24. 240 NEXT
  25. 250 F5 = F5 / F
  26. 260 LPRINT
  27. 270 LPRINT "TUNING RATIO IS";F5
  28. ALUE
  29. 210 LPRINT F1C2,M,F4
  30. 220 F3 = F1
  31. 230 C3 = C2
  32. 240 NEXT
  33. 250 F5 = F5 / F
  34. 260 LPRINT
  35. 270 LPRINT "TUNING RATIO IS";F5
  36. ALUE
  37. 210 LPRINT F1