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 不得同時為零. 要解此形式的方程, 請用二次方程(三).