複數的n次方根 52步 made by tfakspws

Mem clear:?→A:?→B:arg A→C:BxAbs A→A:

Lbl 1:A◢B-1(C+πrM◢A∠Ans◢2M+:2B>M=>Goto 1:0

 

例:計算 1 + i 的三次方根

1 + i  EXE  ( 複數的數值 )
再按  3 EXE  ( 次方值 )
顯示  1.1225  ( 第一個根的模數 Modulus of First Root )
再按  EXE  顯示  15  ( 第一個根的輻角 Argument of First Root )
再按  EXE  顯示  1.0842  ( 第一個根的實數部份 Real Part of First Root )
再按  Re←→Im  顯示  0.2905  ( 第一個根的虛數部份 Imaginary Part of First Root )
再按  EXE  顯示  1.1225  ( 第二個根的模數 Modulus of Second Root )
再按  EXE  顯示  135  ( 第二個根的輻角 Argument of Second Root )
再按  EXE  顯示  0.7937  ( 第二個根的實數部份 Real Part of Second Root )
再按  Re←→Im  顯示  0.7937  ( 第二個根的虛數部份 Imaginary Part of Second Root )
再按  EXE  顯示  1.1225  ( 第三個根的模數 Modulus of Third Root )
再按  EXE  顯示  255  ( 第三個根的輻角 Argument of Third Root )
再按  EXE  顯示  0.2905  ( 第三個根的實數部份 Real Part of Third Root )
再按  Re←→Im  顯示  1.0842  ( 第三個根的虛數部份 Imaginary Part of Third Root )
再按  EXE  顯示  0  ( 此時程式位置的顯示會消失,表示計算完成 )
亦即是說三個根的值是 1.0842 + 0.2905i , 0.7937 + 0.7937i 及 0.2905 1.0842i

 

複數的n次方根 51步 made by tfakspws

Mem clear:?→A:?→B:arg A→C:BxAbs A→A:

Lbl 1:A∠B-1(C+πrM>r∠q◢Ans◢2M+:2B>M=>Goto 1:0

 

例:計算 1 + i 的三次方根

1 + i  EXE  ( 複數的數值 )
再按  3 EXE  ( 次方值 )
顯示  1.1225  ( 第一個根的模數 Modulus of First Root )
再按  Re←→Im  顯示  15  ( 第一個根的輻角 Argument of First Root )
再按  EXE  顯示  1.0842  ( 第一個根的實數部份 Real Part of First Root )
再按  Re←→Im  顯示  0.2905  ( 第一個根的虛數部份 Imaginary Part of First Root )
再按  EXE  顯示  1.1225  ( 第二個根的模數 Modulus of Second Root )
再按  Re←→Im  顯示  135  ( 第二個根的輻角 Argument of Second Root )
再按  EXE  顯示  0.7937  ( 第二個根的實數部份 Real Part of Second Root )
再按  Re←→Im  顯示  0.7937  ( 第二個根的虛數部份 Imaginary Part of Second Root )
再按  EXE  顯示  1.1225  ( 第三個根的模數 Modulus of Third Root )
再按  Re←→Im  顯示  255  ( 第三個根的輻角 Argument of Third Root )
再按  EXE  顯示  0.2905  ( 第三個根的實數部份 Real Part of Third Root )
再按  Re←→Im  顯示  1.0842  ( 第三個根的虛數部份 Imaginary Part of Third Root )
再按  EXE  顯示  0  ( 此時程式位置的顯示會消失,表示計算完成 )
亦即是說三個根的值是 1.0842 + 0.2905i , 0.7937 + 0.7937i 及 0.2905 1.0842i