home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / CIRCUIT.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.3 KB  |  234 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.     ***** DC CIRCUIT ANALYSIS *****
  10. #2
  11. :n
  12. I
  13. :s
  14. b
  15. :c
  16. current
  17. #3
  18. :n
  19. V
  20. :v
  21. 36
  22. :s
  23. i
  24. :c
  25. voltage
  26. #4
  27. :n
  28. R
  29. :v
  30. 4.5
  31. :s
  32. i
  33. :c
  34. total resistance
  35. #5
  36. :n
  37. R1
  38. :v
  39. 3
  40. :s
  41. i
  42. :c
  43. ┐
  44. #6
  45. :n
  46. R2
  47. :v
  48. 3
  49. :s
  50. i
  51. :c
  52. │
  53. #7
  54. :n
  55. R3
  56. :v
  57. 2
  58. :s
  59. i
  60. :c
  61. │
  62. #8
  63. :n
  64. R4
  65. :s
  66. b
  67. :c
  68. ├ resistances of individual resistors
  69. #9
  70. :n
  71. R5
  72. :v
  73. 5
  74. :s
  75. i
  76. :c
  77. │
  78. #10
  79. :n
  80. R6
  81. :v
  82. 4
  83. :s
  84. i
  85. :c
  86. │
  87. #11
  88. :n
  89. R7
  90. :v
  91. 4
  92. :s
  93. i
  94. :c
  95. ┘
  96. #13
  97. :n
  98.  
  99. :s
  100. b
  101. :c
  102. Notes:
  103. #14
  104. :n
  105.  
  106. :s
  107. b
  108. :c
  109. 1. The intermediate resistances 
  110. #15
  111. :n
  112.  
  113. :s
  114. b
  115. :c
  116.    Ra,...,Re were deleted from the
  117. #16
  118. :n
  119.  
  120. :s
  121. b
  122. :c
  123.    Variable Sheet.
  124. #17
  125. :n
  126.  
  127. :s
  128. b
  129. :c
  130. 2. Equations for the components'
  131. #18
  132. :n
  133.  
  134. :s
  135. b
  136. :c
  137.    voltage drops and current flows 
  138. #19
  139. :n
  140.  
  141. :s
  142. b
  143. :c
  144.    may be added to the Rule Sheet.
  145. #20
  146. :n
  147. Ra
  148. :s
  149. b
  150. #21
  151. :n
  152. Re
  153. :s
  154. b
  155. =u
  156. =r
  157. #1
  158. :r
  159. "                 **** DC CIRCUIT ANALYSIS ****
  160. :s
  161. C
  162. #3
  163. :r
  164. R * I = V             "            ┌─────────┬───────────┬──────────────┐
  165. #4
  166. :r
  167. 1/Ra = 1/R1 + 1/R2    "            │         │           │              │
  168. #5
  169. :r
  170. Rb = R3 + R4          "            ░         ░           ░              ░
  171. #6
  172. :r
  173. 1/Rc = 1/R6 + 1/R7    "            ░ R1      ░ R2        ░ R5           ░ R3
  174. #7
  175. :r
  176. Rd = R5 + Rc          "            ░         ░           ░              ░
  177. #8
  178. :r
  179. 1/Re = 1/Rb + 1/Rd    "            │         │           │              │
  180. #9
  181. :r
  182. R = Ra + Re           "            └────┬────┘      ┌────┴────┐         │ 
  183. #10
  184. :r
  185. "                                       │           │         │         │
  186. :s
  187. C
  188. #11
  189. :r
  190. "                                       │+          ░         ░         ░
  191. :s
  192. C
  193. #12
  194. :r
  195. "                                      ╔╧╗          ░ R6      ░ R7      ░ R4
  196. :s
  197. C
  198. #13
  199. :r
  200. " In TK Solver Plus you can define     ╚╤╝  V       ░         ░         ░
  201. :s
  202. C
  203. #14
  204. :r
  205. " Rule Functions "ser" and "par" to     │-          │         │         │ 
  206. :s
  207. C
  208. #15
  209. :r
  210. " calculate serial and parallel         └───────────┴─────────┴─────────┘
  211. :s
  212. C
  213. #16
  214. :r
  215. " connections of resistors.  The
  216. :s
  217. C
  218. #17
  219. :r
  220. " last 6 rules above may then be replaced by a single rule:
  221. :s
  222. C
  223. #18
  224. :r
  225. "   R = ser(par(R1,R2),par(ser(R5,par(R6,R7)),ser(R3,R4)))
  226. :s
  227. C
  228. #20
  229. :r
  230. "  Type  =V  to bring up the Variable Sheet.
  231. :s
  232. C
  233. %Tr,f,0,1,0,1,0
  234.