home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR3 / FREETK.ZIP / LINEAR8.TK < prev    next >
Text File  |  1987-07-01  |  2KB  |  203 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. #14
  100. :n
  101.  
  102. :s
  103. b
  104. :c
  105. As with LINEAR4, x1 through x8 have
  106. #15
  107. :n
  108.  
  109. :s
  110. b
  111. :c
  112. First Guess values assigned on their
  113. #16
  114. :n
  115.  
  116. :s
  117. b
  118. :c
  119. Variable subsheets to invoke the
  120. #17
  121. :n
  122.  
  123. :s
  124. b
  125. :c
  126. Iterative Solver automatically.
  127. #19
  128. :n
  129.  
  130. :s
  131. b
  132. :c
  133. Type =R to see Rule Sheet
  134. #20
  135. :n
  136.  
  137. :s
  138. b
  139. :c
  140. Type =V to see Variable Sheet again
  141. =u
  142. =r
  143. #1
  144. :r
  145.    x1 +          2*x3 +            x5 +            x7         =  20
  146. #2
  147. :r
  148.  4*x1 +  2*x2 +  3*x3 +  7*x4 +          4*x6 +            x8 = 104
  149. #3
  150. :r
  151.                  2*x3 +                            x7         =  13
  152. #4
  153. :r
  154.  2*x1 +    x2 +  3*x3 +  4*x4 +          2*x6 +            x8 =  67
  155. #5
  156. :r
  157.  2*x1 +    x2 +  3*x3 +  3*x4 +    x5 +  2*x6 +            x8 =  68
  158. #6
  159. :r
  160.  2*x1 +    x2 +          3*x4 +          3*x6                 =  43
  161. #7
  162. :r
  163.  3*x1 +    x2 +  6*x3 +  3*x4 +    x5 +  2*x6 +  2*x7 +    x8 = 112
  164. #8
  165. :r
  166.  2*x1 +    x2 +  3*x3 +  3*x4 +          2*x6 +            x8 =  63
  167. #10
  168. :r
  169. " This model accommodates more equations than LINEAR4 because the coeffi-
  170. :s
  171. C
  172. #11
  173. :r
  174. " cients are specified directly in the equations and do not use any space in 
  175. :s
  176. C
  177. #12
  178. :r
  179. " the Variable Sheet, the length of which is limited to 32 lines in FREETK.
  180. :s
  181. C
  182. #13
  183. :r
  184. " The 'interactive table' feature in TK Solver Plus may be used conveniently
  185. :s
  186. C
  187. #14
  188. :r
  189. " for assigning coefficients and observing results.  Also, the procedural
  190. :s
  191. C
  192. #15
  193. :r
  194. " capability of TK Solver Plus offers Gaussian elimination and other methods 
  195. :s
  196. C
  197. #16
  198. :r
  199. " as alternatives to the Iterative Solver used here.
  200. :s
  201. C
  202. %Tv,f,0,5,0,1,0
  203.