複數的N次方根

程式編寫日期: 2007年11月15日

程式可以計算複數的N次方根,亦可用作計算複數的實數冪。

程式需要在 CMPLX 模式下執行,因此在選擇新程式位置後,按 2 選用CMPLX模式。

注意: 紅色的 r 是按 shift Ans 2。

第一個程式 (38 bytes,不顯示根的模數及輻角)

ClrMemory: ?→A: ?→B: While B>M:

Bx√( Abs( A ) )∠( B-1(2Mπr + arg( A◢

1M+: WhileEnd

 

第二個程式 (41 bytes,同時顯示根的模數及輻角)

ClrMemory: ?→A: ?→B: Bx√( Abs( A→C◢ While B>M:

B-1(2Mπr + arg(A◢ C∠Ans◢ 1M+: WhileEnd

註: 若果想保留一些記憶用作儲存臨時數據,可將程式中"ClrMemory"改為"MM-",而程式 長度增加 1 byte,所使用的記憶為A,B及M。

 

注意以下所有例題都假設是在DEG單位下進行。

例題1: 計算 10(cos30o + i sin30o) 的三次方根。

第一個程式的按法:

按 Prog 1  再按 10 Shift ∠ 30 EXE 3 EXE (顯示第一個根的實數部為2.121703986)

Shift Re<=>Im  (顯示第一個根的虛數部為0.374113657)

EXE (顯示第二個根的實數部為 -1.384843925)

Shift Re<=>Im (顯示第二個根的虛數部為1.650392722)

EXE (顯示第三個根的實數部為 -0.736860061)

Shift Re<=>Im (顯示第三個根的虛數部為-2.02450638)

EXE (顯示0,程式亦計算完結)。

 

第二個程式的按法:

按 Prog 1  再按 10 Shift ∠ 30 EXE 3 EXE (顯示所有根的模數為2.15443469)

EXE (顯示第一個根的輻角為 10)

EXE (顯示第一個根的實數部為2.121703986)

Shift Re<=>Im  (顯示第一個根的虛數部為0.374113657)

EXE (顯示第二個根的輻角為 130)

EXE (顯示第二個根的實數部為-1.384843925)

Shift Re<=>Im (顯示第二個根的虛數部為1.650392722)

EXE (顯示第三個根的輻角為 250)

EXE (顯示第三個根的實數部為-0.736860061)

Shift Re<=>Im (顯示第三個根的虛數部為-2.02450638)

EXE (顯示0,程式亦計算完結)。

 

所以三個根分別為 2.121703986 + 0.374113657i, -1.384843925 + 1.650392722i及-0.736860061 - 2.02450638i

 

例題2: 計算 4 + 5i 的三次方根。

第一個程式的按法:

按 Prog 1  再按 4 + 5i EXE 3 EXE (顯示第一個根的實數部為1.774720263)

Shift Re<=>Im (顯示第一個根的虛數部為0.546429525)

EXE (顯示第二個根的實數部為-1.360581983)

Shift Re<=>Im (顯示第二個根的虛數部為1.26373807)

EXE (顯示第三個根的實數部為-0.41413828)

Shift Re<=>Im (顯示第三個根的虛數部為-1.810167596)

EXE (顯示0,程式亦計算完結)。

 

第二個程式的按法:

按 Prog 1  再按 4 + 5i EXE 3 EXE (顯示所有根的模數為1.856937597)

EXE (顯示第一個根的輻角為 17.11339725)

EXE (顯示第一個根的實數部為1.774720263)

Shift Re<=>Im (顯示第一個根的虛數部為0.546429525)

EXE (顯示第二個根的輻角為 137.1133972)

EXE (顯示第二個根的實數部為-1.360581983)

Shift Re<=>Im (顯示第二個根的虛數部為1.26373807)

EXE (顯示第三個根的輻角為 257.1133972)

EXE (顯示第三個根的實數部為-0.41413828)

Shift Re<=>Im (顯示第三個根的虛數部為-1.810167596)

EXE (顯示0,程式亦計算完結)。

 

所以三個根分別為1.774720263 + 0.546429525i, -1.360581983 + 1.26373807i及-0.41413828 - 1.810167596i

 

例題3: 計算  (2 + 3i )5

第一個程式的按法:

按 Prog 1  再按 2 + 3i EXE 5-1 EXE (按 x-1 表示計實數指數,顯示實數部為 122)

再按 Re<=>Im (顯示虛數部為 -597 i) EXE (顯示0,程式亦計算完結)。

計算完結按 AC 終止程式

 

第二個程式的按法:

按 Prog 1 再按 2 + 3i EXE 5-1 EXE (按 x-1 表示計實數指數,顯示模數為609.3381655)

EXE (顯示輻角為281.5496624) EXE (顯示實數部為 122)

再按 Re<=>Im (顯示虛數部為 -597 i)

計算完結按 AC 終止程式

所以 (2 + 3i)5 = 122 - 597i

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

Free Web Hosting