casio fx-50FH ,公式

程式組

131
bytes



1

? → A : ? → B : ?
→ C
: ? → M : B ┘( 3A → B : C ┘A → C
:


2

BC ┘2 – B3
–
M ┘( 2A → M : √( M2
+
( C ┘3 – B2 )3 M+ :


3

Ans i => 2 3√ Abs M
cos
(3-1 arg M) => Goto 1 :


4
3√M + 3√( M + 2
Ans
i : Lbl 1 : Ans – B → A ◢


5
-A – 3B
→ M : M ┘2 + √( M2
┘4
– C + AM → B ◢


6
M – B → C




MODE MODE MODE 2
MODE
1
例一：解方程 ( Solve )
x3 – 3x2

+ 2x + 1 = 0。
按 Prog，再按
1 至 4
選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同，此時計算機出現 A?
)，再按
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 (
第三個根 Third Root，
實數部份 Real
Part )

( 此時計算機右上角會顯示 R<=>I，表示答案是複數 Complex

Number )

再按 Re←→Im
( SHIFT EXE ) 顯示 –0.562 (
第三個根 Third Root，
虛數部份 Imaginary
Part )
亦即是說三個根的數值分別是 –0.325,
1.662 ± 0.562i。
例二：解方程 ( Solve )
x3 + 3x2

– 2x – 1 = 0。
按 Prog，再按 1 至 4 選擇輸入程式位置
( 必須和輸入程式時選擇的位置相同，此時計算機出現 A? )，再按
1 EXE
3 EXE (-) 2 EXE (-) 1 EXE
顯示 0.834
( 第一個根 First Root
)

再按 EXE
顯示 –0.343 (
第二個根 Second Root
)

再按 EXE
顯示 –3.491 (
第三個根 Third Root )
亦即是說三個根的數值分別是 0.834,
–0.343, –3.491。

casio fx-50FH 一元三次的程式

圖片參考：http://i.imagehost.org/0303/ScreenHunter_01_Feb_11_06_03.gif


圖片參考：http://i.imagehost.org/0381/ScreenHunter_02_Feb_11_06_03.gif



2010-02-11 06:08:12 補充：
http://i.imagehost.org/0303/ScreenHunter_01_Feb_11_06_03.gif
http://i.imagehost.org/0381/ScreenHunter_02_Feb_11_06_03.gif