-------------輸入以下程式前請先按 MODE 2 將計算機轉入複數計算模式 ( CMPLX )----------
一元三次方程 102至98步 made by tfakspws
?→A:?→B:?→C:?→M:B┘(3A→B:
B3-(BC-M)┘(2A→M:C┘(3A)-B2→A:M-√(M2+A3→C:MM-:
Lbl 1:3√Abs C∠3-1(arg C+πrM:A÷Ans-Ans-B◢2M+:4≧M=>Goto 1:0
可將程式中的 ┘( ) 轉為 ÷，步數會減少，但準確度會降低!!
一元三次方程(複數輸入) 105步 made by tfakspws
?→A:?→B:?→C:?→M:B÷3A→B:
B3-(BC-M)÷2A→M:C÷3A-B2→A:M2+A3:M-√Abs Ans∠2-1arg Ans→C:MM-:
Lbl 1:3√Abs C∠3-1(arg C+πrM:A÷Ans-Ans-B◢2M+:4≧M=>Goto 1:0
--------------以上程式沒有儲存答案-----------------
一元三次方程 112至104步 made by tfakspws
?→A:?→B:?→C:?→M:B┘(3A→B:
B3-(BC-M)┘(2A→M:C┘(3A)-B2→A:√(M2+A3M-:
3√Abs M∠3-1arg M:A÷Ans-Ans-B→C◢
3√Abs M∠(3-1arg M+5!:A÷Ans-Ans-B→A◢-3B-Ans-C→B
可將程式中的 ┘( ) 轉為 ÷，步數會減少，但準確度會降低!!
一元三次方程(複數輸入) 115至111步 made by tfakspws
?→A:?→B:?→C:?→M:B÷3A→B:
B3-(BC-M)÷2A→M:C÷3A-B2→A:M2+A3:√Abs Ans∠2-1arg AnsM-:
3√Abs M∠3-1arg M:A÷Ans-Ans-B→C◢
3√Abs M∠(3-1arg M+5!:A÷Ans-Ans-B→A◢-3B-Ans-C→B
----------以上程式皆不能解決某些特殊方程------------
一元三次方程 131至125步 made by tfakspws
?→A:?→B:?→C:?→M:B┘(3A→B:C┘A→C:
B3-BC┘2+M┘(2A→M:√(M2+(C┘3-B2)3M-:
Ansi=>2 3√Abs Mcos (3-1arg M→M=>Goto 1:3√M+3√(M+2Ansi→M:
Lbl 1:-M-B→A◢2BM-:M┘2-√(M2┘4+AM-C→B◢M-Ans→C
可將程式中的 ┘( 轉為 ÷，步數會減少，但準確度會降低!!
會考推介!!!~~
一元三次方程 131至125步 made by tfakspws
?→A:?→B:?→C:?→M:B┘(3A→B:C┘A→C:
BC┘2-B3-M┘(2A→M:√(M2+(C┘3-B2)3M+:
Ansi=>2 3√Abs Mcos (3-1arg M)=>Goto 1:3√M+3√(M+2Ansi:
Lbl 1:Ans-B→A◢-A-3B→M:M┘2-√(M2┘4+AM-C→B◢M-Ans→C
可將程式中的 ┘( 轉為 ÷，步數會減少，但準確度會降低!!
可解決任何實數及虛數係數之一元三次方程!~
一元三次方程(複數輸入) 183至179步 made by tfakspws
?→A:?→B:?→C:?→M:B÷3A→B:C÷A→C:
BC÷2-B3-M÷2A→M:C÷3-B2→A:M2+A3+10x-90:M+√Abs Ans∠2-1arg Ans:
Ansi=>Goto 1:Ansi=>Goto 2:2M+10x-90:3√Abs Ans∠3-1arg Ans:Goto 3:
Lbl 1:Ansi:Lbl 2:3√Abs Ans∠3-1arg Ans:A÷Ans-Ans:
Lbl 3:Ans-B→A◢-A-3B→M:M2÷4+AM-C+10x-90:
M÷2-√Abs Ans∠2-1arg Ans→B◢M-Ans→C
例一：解方程
( Solve ) x3
- 3x2 + 2x + 1
= 0
按
1 EXE -3 EXE 2 EXE 1 EXE
顯示
-0.325 ( 第一個根
First Root )
再按
EXE 顯示
1.662 ( 第二個根
Second Root，實數部份
Real Part )
(
此時計算機右上角會顯示
R<=>I，表示答案是複數
Complex Number
)
再按
Re←→Im ( SHIFT EXE ) 顯示 0.562 (
第二個根
Second Root，虛數部份
Imaginary Part )
再按
EXE 顯示
1.662 ( 第二個根
Second Root，實數部份
Real Part )
(
此時計算機右上角會顯示
R<=>I，表示答案是複數
Complex Number
)
再按
Re←→Im ( SHIFT EXE ) 顯示 -0.562 (
第二個根
Second Root，虛數部份
Imaginary Part )
亦即是說三個根的數值分別是
-0.325, 1.662
±
0.562i
程式執行完成後，按 RCL A、RCL B、RCL C 分別會顯示三個根的數值。
例二：(1+2i)x3 + (3+4i)x2 + (5+6i)x + (7+8i) = 0
按 1+2i EXE 3+4i EXE 5+6i EXE 7+8i EXE
顯示
-1.757 ( 第一個根
First Root，實數部份
Real Part
)
(
此時計算機右上角會顯示
R<=>I，表示答案是複數
Complex Number
)
再按
Re←→Im ( SHIFT EXE ) 顯示 0.207i
(
第一個根
First
Root，虛數部份
Imaginary Part )
再按
EXE 顯示
-0.121 ( 第二個根
Second Root，實數部份
Real Part )
(
此時計算機右上角會顯示
R<=>I，表示答案是複數
Complex Number
)
再按
Re←→Im ( SHIFT EXE ) 顯示 1.719i (
第二個根
Second Root，虛數部份
Imaginary Part )
再按
EXE 顯示
-0.322 ( 第
三個根
Second Root，實數部份
Real Part )
(
此時計算機右上角會顯示
R<=>I，表示答案是複數
Complex Number
)
再按
Re←→Im ( SHIFT EXE ) 顯示 -1.526i (
第三個根
Third Root，虛數部份
Imaginary Part )
亦即是說三個根的數值分別是
-1.757+0.207i,
-0.121+1.719i,
-0.322-1.526i
程式執行完成後，按 RCL A、RCL B、RCL C 分別會顯示三個根的數值。