home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
tech
/
rescalc
/
rescalc.bas
Wrap
BASIC Source File
|
1985-09-04
|
2KB
|
56 lines
10 REM 1% resistive divider optimizer program
12 REM Picks best standard resistor values to achieve divider ratio.
15 REM R1
20 REM V1 O------vvvvvvv------O V3
30 REM I
40 REM <
44 REM < R2
48 REM <
54 REM I
60 REM O V2
70 REM
140 DIM RV(99)
150 FOR X=1 TO 96
160 READ RV(X)
170 NEXT X
180 P(0)=1:P(1)=10:P(2)=100:P(3)=1000:P(4)=10000:P(5)=100000!
190 CLS
200 INPUT "ENTER VOLTAGE V1";V1
210 INPUT "ENTER VOLTAGE V2";V2
220 INPUT "ENTER THE DESIRED VOLTAGE AT V3";V3
230 IF V2>V1 THEN F1=1:X=V1:V1=V2:V2=X
240 IF V3>=V1 OR V3<=V2 THEN PRINT "V1 > V3 > V2 PLEASE":GOTO 220
260 R=(V1-V3)/(V3-V2)
280 IF R<1 THEN F2=1:R=1/R
300 SF=LEN(STR$(FIX(R)))-2
320 R=R/P(SF)
350 Q=FIX(LOG(R)*41.69227+.5)
360 H=99
370 FOR X=1 TO 96
380 G=0
390 Y=X+Q
400 IF Y>96 THEN Y=Y-96:G=1
410 IF RV(Y)/RV(X) < H THEN H=RV(Y)/RV(X):J=RV(Y):K=RV(X)
420 NEXT X
430 IF G=1 THEN SF=SF+1
440 J=J*P(SF)
450 IF F1=1 THEN Z=J:J=K:K=Z
460 IF F2=1 THEN Z=J:J=K:K=Z
470 PRINT
480 PRINT "WITH ";V1;"VOLTS AT V1"
490 PRINT "AND ";V2;"VOLTS AT V2"
500 PRINT "IF R1 =";J;"OHMS"
510 PRINT "AND R2 =";K;"OHMS"
520 PRINT "THEN V3 WILL BE ";K*(V1-V2)/(J+K)+V2;" VOLTS"
530 END
900 DATA 1,1,02,1.05,1.07,1.1,1.13,1.15,1.18,1.21,1.24
910 DATA 1.27,1.3,1.33,1.37,1.4,1.43,1.47,1.5,1.54,1.58
920 DATA 1.62,1.65,1.69,1.74,1.78,1.82,1.87,1.91,1.96,2.00
930 DATA 2.05,2.1,2.15,2.21,2.26,2.32,2.37,2.43,2.49,2.55
940 DATA 2.61,2.67,2.74,2.80,2.87,2.94,3.01,3.09,3.16,3.24
950 DATA 3.32,3.4,3.48,3.57,3.65,3.74,3.83,3.92,4.02,4.12
960 DATA 4.22,4.32,4.42,4.53,4.64,4.75,4.87,4.99,5.11,5.23
970 DATA 5.36,5.49,5.62,5.76,5.90,6.04,6.19,6.34,6.49,6.65
980 DATA 6.81,6.98,7.15,7.32,7.5,7.68,7.87,8.06,8.25,8.45
990 DATA 8.66,8.87,9.09,9.31,9.53,9.76
0,6.04,6.19,6.