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