home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
47
/
oscplot.bas
< prev
next >
Wrap
BASIC Source File
|
1985-09-24
|
896b
|
37 lines
10 REM COMPUTE OSCILLATOR FREQUENCY
20 X = 50 : REM MINIMUM VALUE OF CAPACITANCE
30 Y = 500 : REM MAXIMUM VALUE OF CAPACITANCE
40 Z = 25 : REM STEP
50 INPUT "L (uH) ";L
60 C3 = 0 : F3 = C3 : F4 = F3
70 LPRINT "L (uH) = ";L
80 L = L * .000001 : REM CONVERT uH TO H
90 LPRINT
100 LPRINT "F (Mhz)", "C (pF)", "SLOPE","DELTA F"
110 FOR C1 = X TO Y STEP Z
120 C = C1 * 1E-12 : REM CONVERT pF TO F
130 REM
140 F = 1 / ( 2 * 3.1419 * (SQR( L * C )))
150 IF C1 = X THEN F5 = F
160 F1 = F * .000001
170 F4 = F3 - F1
180 C2 = C * 1E+12
190 M = (F3 - F2) / (C3 - C2)
200 IF M = 0 THEN F4 = 0 : REM FUDGE FIRST VALUE
210 LPRINT F1,C2,M,F4
220 F3 = F1
230 C3 = C2
240 NEXT
250 F5 = F5 / F
260 LPRINT
270 LPRINT "TUNING RATIO IS";F5
ALUE
210 LPRINT F1C2,M,F4
220 F3 = F1
230 C3 = C2
240 NEXT
250 F5 = F5 / F
260 LPRINT
270 LPRINT "TUNING RATIO IS";F5
ALUE
210 LPRINT F1