Casio50 » fx-3x50P » Programs 程式集 » Polynomials 多項式 »

Quartic Equation
四次方程

本式可解四次方程的所有根

<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

操作方法

一般操作 例子

x^4 + ax^3 + bx^2 + mx + c = 0

x^4 + 2x^3 + 3x^2 + 4x + 5 = 0
啟動程式 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 不得同時為零. 要解此形式的方程, 請用二次方程(三).

相關程式

  1. Cubic Equation (I) / 三次方程 (一)
  2. Quadratic Equation (III) / 二次方程 (三)