一元三次方程(II)
程式可以計算一元三次方程的三個根(包括複數根)。
程式編寫日期: 2006年9月22日
程式(144步)
| 1 | Kout 6 | 2. | ENT | 3. | Kin 1 | 4. | Kin 2 | 5. | Kin 4 |
| 6. | Kin 6 | 7. | Kout 5 | 8. | ENT | 9. | Kin 3 | 10. | Min |
| 11. | Kin 5 | 12. | ENT | 13. | Kin × 2 | 14. | Kin × 3 | 15. | Kin × 6 |
| 16. | ENT | 17. | Kin × 1 | 18. | 3 | 19. | Kin × 1 | 20. | Kin × 6 |
| 21. | Kout 5 | 22. | x2 | 23. | Kin × 5 | 24. | Kin - 6 | 25. | Kout 6 |
| 26. | x2 | 27. | Kin × 6 | 28. | Kout 1 | 29. | Kin - 3 | 30. | Kout 4 |
| 31. | Kin × 3 | 32. | 9 | 33. | Kin × 3 | 34. | 2 | 35. | Kin ÷ 3 |
| 36. | X←→K5 | 37. | Kin - 3 | 38. | Kout 3 | 39. | R→P | 40. | x2 |
| 41. | Kin + 6 | 42. | 4 | 43. | 9 | 44. | +/- | 45. | 10x |
| 46. | Kin + 6 | 47. | Kout 6 | 48. | x2 | 49. | √ | 50. | Kin ÷ 6 |
| 51. | √ | 52. | Kin 1 | 53. | = | 54. | 3√ | 55. | Kin × 5 |
| 56. | X←→Y | 57. | ÷ | 58. | 3 | 59. | = | 60 | cos |
| 61. | Kin × 5 | 62. | Kout 3 | 63. | + | 64. | X←→K1 | 65. | Kin - 1 |
| 66. | = | 67. | 3√ | 68. | X←→K1 | 69. | 3√ | 70. | Kin + 1 |
| 71. | 1 | 72. | Kin + 6 | 73. | 2 | 74. | Kin ÷ 6 | 75. | Kout 6 |
| 76. | Kin × 1 | 77 | sin-1 | 78. | cos | 79. | Kin × 5 | 80. | Kout 5 |
| 81. | Kin + 1 | 82. | MR | 83. | Kin - 1 | 84. | Kout 4 | 85. | Kin 3 |
| 86. | Kin ÷ 1 | 87. | Kin ÷ 2 | 88. | 3 | 89. | Kin ÷ 1 | 90. | Kout 1 |
| 91. | Kin 6 | 92. | Kin × 3 | 93. | MR | 94. | Kin + 3 | 95. | Kout 3 |
| 96. | Kin × 6 | 97. | X←→K2 | 98. | Kin + 6 | 99. | Kout 3 | 100. | Kin 5 |
| 101. | x2 | 102. | - | 103. | 2 | 104. | Kin × 4 | 105. | × |
| 106. | Kout 4 | 107. | × | 108. | Kout 6 | 109. | = | 110. | Min |
| 111. | x2 | 112. | √ | 113. | √ | 114. | Kin 6 | 115. | Kin + 2 |
| 116. | Kin - 3 | 117. | Kout 4 | 118. | Kin ÷ 6 | 119. | +/- | 120. | Kin ÷ 2 |
| 121. | Kin ÷ 3 | 122. | Kin ÷ 5 | 123. | Kout 2 | 124. | SCI 9 | 125. | RND |
| 126. | X←→K3 | 127. | RND | 128. | Kin 2 | 129. | Kout 5 | 130. | RND |
| 131. | X←→K6 | 132. | RND | 133. | Kin 5 | 134. | Kout 1 | 135. | RND |
| 136. | Norm | 137. | Kin 1 | 138. | HLT | 139. | MR | 140. | +/- |
| 141. | x > 0 | 142. | Kout 2 | 143. | HLT | 144. | Kout 3 |
例題1: 解 2x3 - x2 - 72x + 36 =0
按 P1 再按 2 RUN 1 +/- RUN 72 +/- RUN 36 RUN (顯示第一個根為6)
EXE (顯示第二個根為 0.5) EXE (顯示第三個根為 -6)
例題2: 解 3x3 - 5x2 + x - 4 =0
按 P1 再按 3 RUN 5 +/- RUN 1 RUN 4 +/- RUN (顯示第一個根為1.86977)
RUN (出現"ENT"表示為複數根，顯示實數部為 - 0.101554)
RUN (顯示虛數部為 0.838323 i)
所以方程式的三個根為 x=1.86977 或 x= - 0.101554 ± 0.838323 i