Casio50 » fx-3x50P » Programs 程式集 » Polynomials 多項式 »
本式可求三次方程的根。
<CMPLX> |
---|
? → A : ? → B : ? → C : ? → M : |
B ÷ 3 A → B : 2 B ³ + A -1 ( M – B C → M : |
C ÷ 3 A → C : √ ( 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 → A ◢ . 5 ( A + 3 B → B : |
√ ( B ² – 3 C – 2 A B ) – B → C ◢ - C – 2 B → B |
135 Bytes |
一般操作 | 例子 |
---|---|
解 ![]() (三個實根 (Real Roots)) |
解 ![]() |
啟動程式 | 按 Prog 1 |
輸入資料 a EXE b EXE c EXE d EXE |
5 EXE -30 EXE 55 EXE -30 EXE |
顯示根 x1 EXE x2 EXE x3 |
1 EXE 3EXE 2 |
解 ![]() (一個實根、兩個複根 (Complex Roots)) |
解 ![]() |
啟動程式 | 按 Prog 1 |
輸入資料 a EXE b EXE c EXE d EXE |
1 EXE -3 EXE -23 EXE 85 EXE |
顯示根 x1 EXE x2 EXE x3 |
-5 EXE 4 Shift EXE (=Re 4 Shift EXE (=Re (=4±i) |
A | x1 |
---|---|
B | x2 |
C | x3 |
M | B+d(i) |