home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / LINEAR8.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.2 KB  |  208 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5. x1
  6. :s
  7. b
  8. :c
  9.      ******  LINEAR8  ******
  10. :f
  11. 0
  12. #2
  13. :n
  14. x2
  15. :s
  16. b
  17. :f
  18. 0
  19. #3
  20. :n
  21. x3
  22. :s
  23. b
  24. :c
  25.   Sample Matrix of Coefficients:
  26. :f
  27. 0
  28. #4
  29. :n
  30. x4
  31. :s
  32. b
  33. :f
  34. 0
  35. #5
  36. :n
  37. x5
  38. :s
  39. b
  40. :c
  41.    1  0  2  0  1  0  1  0    20
  42. :f
  43. 0
  44. #6
  45. :n
  46. x6
  47. :s
  48. b
  49. :c
  50.    4  2  3  7  0  4  0  1   104
  51. :f
  52. 0
  53. #7
  54. :n
  55. x7
  56. :s
  57. b
  58. :c
  59.    0  0  2  0  0  0  1  0    13
  60. :f
  61. 0
  62. #8
  63. :n
  64. x8
  65. :s
  66. b
  67. :c
  68.    2  1  3  4  0  2  0  1    67
  69. :f
  70. 0
  71. #9
  72. :n
  73.  
  74. :s
  75. b
  76. :c
  77.    2  1  3  3  1  2  0  1    68
  78. #10
  79. :n
  80.  
  81. :s
  82. b
  83. :c
  84.    2  1  0  3  0  3  0  0    43
  85. #11
  86. :n
  87.  
  88. :s
  89. b
  90. :c
  91.    3  1  6  3  1  2  2  1   112
  92. #12
  93. :n
  94.  
  95. :s
  96. b
  97. :c
  98.    2  1  3  3  0  2  0  1    63
  99. #13
  100. :n
  101.  
  102. :s
  103. b
  104. #14
  105. :n
  106.  
  107. :s
  108. b
  109. :c
  110. First Guess values are assigned on the
  111. #15
  112. :n
  113.  
  114. :s
  115. b
  116. :c
  117. subsheets of x1 through x8 to invoke
  118. #16
  119. :n
  120.  
  121. :s
  122. b
  123. :c
  124. the Iterative Solver automatically.
  125. #18
  126. :n
  127.  
  128. :s
  129. b
  130. :c
  131.  Type =R    to see Rule Sheet
  132. #19
  133. :n
  134.  
  135. :s
  136. b
  137. :c
  138.  Type /WR   to split the screen and
  139. #20
  140. :n
  141.  
  142. :s
  143. b
  144. :c
  145.             bring up the Rule Sheet.
  146. =u
  147. =r
  148. #1
  149. :r
  150.    x1 +          2*x3 +            x5 +            x7         =  20
  151. #2
  152. :r
  153.  4*x1 +  2*x2 +  3*x3 +  7*x4 +          4*x6 +            x8 = 104
  154. #3
  155. :r
  156.                  2*x3 +                            x7         =  13
  157. #4
  158. :r
  159.  2*x1 +    x2 +  3*x3 +  4*x4 +          2*x6 +            x8 =  67
  160. #5
  161. :r
  162.  2*x1 +    x2 +  3*x3 +  3*x4 +    x5 +  2*x6 +            x8 =  68
  163. #6
  164. :r
  165.  2*x1 +    x2 +          3*x4 +          3*x6                 =  43
  166. #7
  167. :r
  168.  3*x1 +    x2 +  6*x3 +  3*x4 +    x5 +  2*x6 +  2*x7 +    x8 = 112
  169. #8
  170. :r
  171.  2*x1 +    x2 +  3*x3 +  3*x4 +          2*x6 +            x8 =  63
  172. #10
  173. :r
  174. " This model accommodates more equations than LINEAR4 because the coeffi-
  175. :s
  176. C
  177. #11
  178. :r
  179. " cients are assigned directly in the equations and do not use any space on
  180. :s
  181. C
  182. #12
  183. :r
  184. " the Variable Sheet, the length of which is limited to 32 lines in MiniTK.
  185. :s
  186. C
  187. #13
  188. :r
  189. " The 'interactive table' feature in TK Solver Plus is much more convenient
  190. :s
  191. C
  192. #14
  193. :r
  194. " for assigning coefficients and observing results.  Also, the procedural
  195. :s
  196. C
  197. #15
  198. :r
  199. " capability of TK Solver Plus offers Gaussian elimination and other methods 
  200. :s
  201. C
  202. #16
  203. :r
  204. " as alternatives to the Iterative Solver used here.
  205. :s
  206. C
  207. %Tv,f,0,5,0,1,0
  208.