home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / LINEAR4.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.3 KB  |  264 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5. x1
  6. :s
  7. b
  8. :c
  9.         *****  LINEAR4  ***** 
  10. :f
  11. 0
  12. #2
  13. :n
  14. x2
  15. :s
  16. b
  17. :c
  18.     Sample Matrix of Coefficients:
  19. :f
  20. 0
  21. #3
  22. :n
  23. x3
  24. :s
  25. b
  26. :c
  27.         -------a-------  -b--
  28. :f
  29. 0
  30. #4
  31. :n
  32. x4
  33. :s
  34. b
  35. :c
  36.          1   0   2   0    20
  37. :f
  38. 0
  39. #5
  40. :n
  41. a11
  42. :v
  43. 1
  44. :s
  45. i
  46. :c
  47.          4   2   3   7    86
  48. #6
  49. :n
  50. a12
  51. :v
  52. 0
  53. :s
  54. i
  55. :c
  56.          0   0   2   0    13
  57. #7
  58. :n
  59. a13
  60. :v
  61. 2
  62. :s
  63. i
  64. :c
  65.          2   1   3   4    58
  66. #8
  67. :n
  68. a14
  69. :v
  70. 0
  71. :s
  72. i
  73. #9
  74. :n
  75. b1
  76. :v
  77. 20
  78. :s
  79. i
  80. :c
  81. Press [F6] to see more of this sheet
  82. #10
  83. :n
  84. a21
  85. :v
  86. 4
  87. :s
  88. i
  89. #11
  90. :n
  91. a22
  92. :v
  93. 2
  94. :s
  95. i
  96. :c
  97. This model can solve not only for
  98. #12
  99. :n
  100. a23
  101. :v
  102. 3
  103. :s
  104. i
  105. :c
  106. unknown x's, but also for unknown
  107. #13
  108. :n
  109. a24
  110. :v
  111. 7
  112. :s
  113. i
  114. :c
  115. a's and b's.  This is not so with the
  116. #14
  117. :n
  118. b2
  119. :v
  120. 86
  121. :s
  122. i
  123. :c
  124. model LINEAR8, which does, however,
  125. #15
  126. :n
  127. a31
  128. :v
  129. 0
  130. :s
  131. i
  132. :c
  133. show how to enter a larger number of
  134. #16
  135. :n
  136. a32
  137. :v
  138. 0
  139. :s
  140. i
  141. :c
  142. equations within MiniTK restrictions
  143. #17
  144. :n
  145. a33
  146. :v
  147. 2
  148. :s
  149. i
  150. :c
  151. by specifying coefficients directly
  152. #18
  153. :n
  154. a34
  155. :v
  156. 0
  157. :s
  158. i
  159. :c
  160. on the Rule Sheet.
  161. #19
  162. :n
  163. b3
  164. :v
  165. 13
  166. :s
  167. i
  168. #20
  169. :n
  170. a41
  171. :v
  172. 2
  173. :s
  174. i
  175. :c
  176. Press [PgDn] or [End] to see the rest
  177. #21
  178. :n
  179. a42
  180. :v
  181. 1
  182. :s
  183. i
  184. #22
  185. :n
  186. a43
  187. :v
  188. 3
  189. :s
  190. i
  191. #23
  192. :n
  193. a44
  194. :v
  195. 4
  196. :s
  197. i
  198. :c
  199. Press [Home] or [PgUp] to go to top
  200. #24
  201. :n
  202. b4
  203. :v
  204. 58
  205. :s
  206. i
  207. :c
  208. Type =R  to select the Rule Sheet
  209. #25
  210. :n
  211.  
  212. :s
  213. b
  214. :c
  215. Type /WR to split the screen and
  216. #26
  217. :n
  218.  
  219. :s
  220. b
  221. :c
  222.           bring up the Rule Sheet.
  223. =u
  224. =r
  225. #1
  226. :r
  227. a11*x1 + a12*x2 + a13*x3 + a14*x4 = b1   " The restriction of 32 lines on the
  228. #2
  229. :r
  230. a21*x1 + a22*x2 + a23*x3 + a24*x4 = b2   " MiniTK Variable Sheet effectively
  231. #3
  232. :r
  233. a31*x1 + a32*x2 + a33*x3 + a34*x4 = b3   " limits this model to 4 equations
  234. #4
  235. :r
  236. a41*x1 + a42*x2 + a43*x3 + a44*x4 = b4   " in 4 unknowns.
  237. #5
  238. :r
  239.                                          " With TK Solver Plus, only the
  240. :s
  241. C
  242. #6
  243. :r
  244. " available memory limits the expansion of this model.  Also, representing
  245. :s
  246. C
  247. #7
  248. :r
  249. " the rows of coefficients and the unknowns as LISTS simplifies the equations
  250. :s
  251. C
  252. #8
  253. :r
  254. " down to dot(a1,x)=b1, dot(a2,x)=b2, ..., dot(an,x)=bn, and the spreadsheet-
  255. :s
  256. C
  257. #9
  258. :r
  259. " like interactive tables make the coefficient assignments much easier.
  260. :s
  261. C
  262. %Tv,f,0,5,0,1,0
  263. %Or,f,0,1,0,1,0
  264.