home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics for your PC / pcelectronics.bin / Elec_dos / DCSOLVE / SERDC.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1990-12-23  |  9KB  |  104 lines
  1. PLACE
  2. 0000000000000000023400000002357o
  3. BL27R54BL27BD7BL13R26BL14D32R1
  4. CIRCUIT
  5. VOLTAGE
  6. INFINITE
  7. START
  8. R55E4F8E8F8E8F8E8F4R55
  9. D26M+4,+4M-10,+5M+10,+5M-10,+5M+10,+5M-10,+5M+10,+5M-4,+4D26
  10. L55G4H8G8H8G8H8G8H4L55
  11. D20BD19D22BL27R54BL27BD7BL13R26BL14D22R1
  12. C0BM232,35
  13.  IT = ET / RT"d
  14.  RT = R1 + R2 + R3d    
  15.  IT = I1 = I2 = I3d
  16.  ET = IT x RT"d
  17.  ET = E1 + E2 + E3d
  18.  E1 = I1 x R1"d
  19.  E2 = I2 x R2"d
  20.  E3 = I3 x R3"d!
  21.  E2-3 = I(R2 + R3)d%
  22.  E1-2 = I(R1 + R2)d)
  23. 10)"d)
  24. 1st"d
  25. 2nd"d    
  26. 3rd"d
  27. 4th"d
  28. THE PROGRAM WILL RANDOMLY GENERATE SERIES CIRCUITS WITH VARIOUS UNKNOWNS."
  29.    USING THE LIST ABOVE, YOU WILL SOLVE THE CIRCUIT BY ENTERING THE NUMBER OF"
  30.    EACH REQUIRED EQUATION. THE COMPUTER WILL DO THE ALGEBRAIC REARRANGEMENT"
  31.    AND CALCULATIONS.
  32. PRESS ANY KEY TO BEGIN
  33. CIRCUIT CURRENT"
  34.  = 15 + 25 + 50 = 100
  35.  = 50 / 100 = .5A"
  36. BATTERY VOLTAGE"
  37.  = 10 + 30 + 25 = 65
  38.  = .35 x 65 = 22.7V"
  39. E2 VOLTAGE
  40.  = 5 + 2.2 + 6.8 = 14K
  41.  = 25 / 14000 = 1.78mA
  42.  = .00178 x 2200 = 3.91V
  43. RT = ET / IT = 75 / .60 = 125
  44. R3 = RT - R1 - R2 = 125 - 20 -15 = 100
  45. VALUE OF R3"
  46. VALUE OF R1"
  47. I = E3 / R3 = 10 / 100 = .10A"d
  48. RT = ET / IT = 30 / .1 = 300
  49. R1 = RT - R2 - R3 = 300 - 150 - 100 = 50
  50. E2 + E3 = ET - E1 = 50 - 35 = 15V"d
  51. I = E2-3 / (R2 + R3) = 15 / (20 + 40) = .25Ad    
  52. CIRCUIT CURRENT"
  53. E2 VOLTAGE
  54. E2 = ET - E1 - E2 = 45 - 10 - 15 = 20Vd
  55. BATTERY VOLTAGE"
  56. I = E2-3 / (R2+R3) = 35 / 7000 = .005Ad
  57.  = .005 x 2000 = 10V
  58.  = 10 + 35 = 45V
  59. E2 = ET - E1 - E3 = 60 - 18 - 14 = 28Vd
  60. R2 = E2 / I2 = 28 / .4 = 35
  61. VALUE OF R2"
  62. VALUE OF R3"
  63. E1 = ET - E2 - E3 = 38 - 30 = 8Vd
  64. I = E1 / R1 = 8 / 1600 = .005Ad    
  65. RT = ET / I = 30 / .OO5 = 6K
  66. R3 = RT - R1 - R2 = 6K -1.6K - 2.7K = 1.7K
  67. CIRCUIT CURRENT"
  68. RT = R1 + R2 + R3 = 1K + 0 + 1K = 2K
  69. IT = ET / RT = 10 / 2000 = 5mAd    
  70. CIRCUIT CURRENT"
  71. RT = R1 + R2 + R3 = 1K + INF. +1K = INF.d
  72. IT = ET / RT = 10V / INFINITE = 0"d    
  73. E3 VOLTAGE
  74. RT = R1 + R2 + R3 = 5K + 0 + 0 = 5K
  75. IT = ET / RT = 10 / 5000 = 2mAd    
  76. E3= I3 x R3 = .002 x 0 = 0V"d
  77. CIRCUIT CURRENT"
  78. RT = R1 + R3 = 4K + 2K = 6K
  79. IT = ET / RT = (20 - 8) / 6000 = 2mAd    
  80. E1 VOLTAGE
  81. RT = R1 + R2 + R3 = 100 + INF. + 400 = INF."d
  82. IT = ET / RT = 50 / INFINITE = 0d    
  83. E1 = I1 x R1 = 0 x 100 = 0V"d
  84. C0BM397,55L20D50R20"
  85. C0BM231,125M396,37
  86. C0BM398,55D20NL20NR20BD5NL10NR10D40"
  87. PROBLEM: "
  88. FIND "
  89.  --- REQUIRES 
  90.  EQUATIONS
  91. ENTER NUMBER OF 
  92.  EQUATION 
  93. 123456789"
  94. ANOTHER PROBLEM (Y/N)"
  95. R1 = "
  96. R3 = "
  97. C3BM275,34U20R25BR30R25D20
  98. C3BM275,125D20R25BR30R25U20"
  99. C3BM231,125M300,88BM323,76M397,36"
  100. T200 O1 L4 C. P16 L8D L4 E-C
  101. TRY AGAIN"
  102. LAST CHANCE"
  103. INCORRECT"
  104.