複數的整數指數

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

程式可以計算複數的實數冪,亦可以計算複數的N次方根,計算N次方根時只要輸入N-1或 1┘N即可。

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

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

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

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

Abs( A )^( B )∠( B ( 2Mπr + arg( A◢

1M+: WhileEnd

 

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

ClrMemory: ?→A: ?→B: Abs( A )^( B→C◢

While B-1 > M: 2BMπr + Barg( A◢ C∠Ans◢

1M+: WhileEnd

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

 

注意: 以下所有例題都假設是在DEG單位下進行,計算N次方根時只要輸入N-1或 1┘N即可。

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

第一個程式的按法:

按 Prog 1  再按 10 Shift ∠ 30 EXE

3-1 EXE (-1冪代表計算N次方根,顯示第一個根的實數部為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-1 EXE (-1冪代表計算N次方根,顯示所有根的模數為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-1 EXE (-1冪代表計算N次方根,顯示第一個根的實數部為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-1 EXE (-1冪代表計算N次方根,顯示所有根的模數為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 EXE (顯示實數部為 122)

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

計算完結後按 AC 終止程式

 

第二個程式的按法:

按 Prog 1 再按 2 + 3i EXE 5 EXE (顯示模數為609.3381655)

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

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

計算完結按 AC 終止程式

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

 

返回 CASIO fx-50FH 及 x-50F PLUS 程式集

Free Web Hosting