Casio50 » fx-3x50P » Programs 程式集 » Polynomials 多項式 »
本式可解四次方程的所有根
| <CMPLX> |
|---|
| ? → A : ? → B : ? → M : ? → C : |
| A / 4 → A : C – 3 A ² ² + A ² B – A M → C: |
| 8 A ³ – 2 A B M+ : B / 6 – A ² → B : |
| A – M i → A : - M ² / 64 → M : 3 B ² / 4 – C / 12 → C : |
| 2 B ³ – 3 B C M+ : √ ( M ² + 4 ( C – B ² ) ³ M+ : |
| Ans i => ³√ Abs 4 M cos ( arg M ÷ 3 ) => Goto 1 : |
| ³√ . 5 M + ³√ ( Ans i + . 5 M : |
| Lbl 1 : - B – Ans → M : . 5 ( M + 3 B → B : |
| √ ( B ² – 3 C – 2 B M ) – B → C : - C – 2 B → B : |
| Abs B => √ Ans ∠ . 5 arg B → B : Abs C => √ Ans ∠ . 5 arg C → C : |
| B C sin arg A : 1 – 2 ( 0 ≥ arg ( Ans + ( Ans = 0 : - Ans √ M → M : |
| Abs A cos arg A → A : B + C – A M+ : M ◢ |
| 2 C – 2 A – M → C ◢ 2 B – 2 A – M → B ◢ |
| - 4 A – B – C – M → A |
| 288 Bytes |
| 一般操作 | 例子 |
|---|---|
解![]() |
解 |
| 啟動程式 | 按 Prog 1 |
| 輸入系數 a EXE b EXE m EXE c EXE |
2 EXE 3 EXE 4 EXE 5 EXE |
| 顯示解 x1 EXE x2 EXE x3 EXE x4 |
0.287815479 + 1.41609308i EXE 0.287815479 - 1.41609308i EXE -1.28781548 - 0.857896758i EXE -1.28781548 + 0.857896758i |
| A | x4 |
|---|---|
| B | x3 |
| C | x2 |
| M | x1 |
a, m 不得同時為零. 要解此形式的方程, 請用二次方程(三).