逆矩陣及行列式

這個程式可以直接計算出行列式及逆矩陣(不用自行將伴隨矩陣除以行列式)。

程式編寫日期: 2007年1月18日

程式(180步)

1 ENT 2. Kin 1 3. ENT 4. Min 5. +
6. ( 7. Kout 1 8. + 9. ( 10. ENT
11. Kin 2 12. ENT 13. Kin 3 14. + 15. (
16. ENT 17. Kin 4 18. ENT 19. Kin 5 20. ENT
21. Kin 6 22. + 23. ( 24. Kout 5 25. +
26. ( 27. ( 28. ( 29. ENT 30. Kin 5
31. × 32. Kout 3 33. - 34. Kout 4 35. X←→K6
36. Kin × 6 37. X←→K6 38. ) 39. X←→K6 40. ×
41. MR 42. Kin × 3 43. - 44. Kout 5 45. X←→K1
46. Kin × 1 47. X←→K1 48. ) 49. X←→K1 50. ×
51. Kout 4 52. - 53. Kout 3 54. ) 55. Kin 3
56. Kout 2 57. Kin × 6 58. ENT 59. Kin × 3 60 X←→K3
61. X←→Y 62. × 63. X←→K1 64. ) 65. Kin + 6
66. ( 67. Kout 3 68. × 69. Kout 4 70. -
71. Kout 1 72. × 73. Kout 5 74. ) 75. X←→K6
76. Kin ÷ 6 77 HLT 78. X←→K6 79. HLT 80. (
81. Kout 2 82. × 83. Kout 5 84. - 85. Kout 3
86. × 87. MR 88. ) 89. X←→K6 90. Kin ÷ 6
91. X←→K6 92. HLT 93. ( 94. MR 95. ×
96. Kout 1 97. - 98. Kout 2 99. × 100. Kout 4
101. ) 102. X←→K6 103. Kin ÷ 6 104. X←→K6 105. HLT
106. 0 107. ) 108. Min 109. 0 110. )
111. X←→K4 112. X←→Y 113. X←→K5 114. × 115. (
116. ( 117. Kout 1 118. × 119. MR 120. -
121. Kout 3 122. × 123. Kout 4 124. ) 125. X←→K3
126. × 127. Kout 5 128. Kin × 1 129. - 130. Kout 2
131. × 132. Kout 4 133. Kin × 2 134. MR 135. )
136. X←→K1 137. Kin - 2 138. Kout 6 139. Kin ÷ 1 140. Kin ÷ 2
141. Kin ÷ 3 142. 1 143. × 144. X←→K3 145. HLT
146. 0 147. ) 148. X←→K1 149. HLT 150. 0
151. = 152. X←→K2 153. HLT 154. MR 155. ×
156. X←→K2 157. Kin × 2 158. X←→K4 159. Kin × 4 160. X←→K3
161. Kin × 3 162. X←→K5 163. Kin × 5 164. X←→K1 165. Kin × 1
166. = 167. Kin - 3 168. Kout 5 169. Kin - 2 170. Kout 4
171. Kin - 1 172. Kout 6 173. Kin ÷ 1 174. Kin ÷ 2 175. Kin ÷ 3
176. Kout 3 177. HLT 178. Kout 2 179. HLT 180. Kout 1

 

例題: 計算下列矩陣的行列式及逆矩陣。

Prog 1  再按 2 RUN 1 RUN 3 RUN 7 RUN 4 RUN 6 RUN

8 RUN 9 RUN 7 RUN (顯示行列式的值為40) RUN

(顯示第一行的數值 - 0.65) RUN (顯示 0.5) RUN (顯示 - 0.15) RUN

(顯示第二行的數值 - 0.025) RUN (顯示 - 0.25) RUN (顯示 0.225) RUN

(顯示第三行的數值 0.775) RUN (顯示 - 0.25) RUN (顯示 0.025)

因此,行列式為40及

 

返回 fx-3900PV程式集

Free Web Hosting