一元三次方程-Karry Au│愛情公寓交友網站與聊天室

還沒登入愛情公寓嗎？還沒加入愛情公寓嗎？馬上進入公寓和 10,557,084 個住戶交朋友～

紅包抽抽樂！小資變土豪！

素人也能成為明日之星！

移除此區廣告請加入VIP

檔案狀態:

住戶編號:3038762

Karry Au 的日記本

快速選單

聯立二元一次/ 三元一次方程《前一篇

回應

給他日記貼紙

給他愛的鼓勵

檢舉

篇名: 一元三次方程
作者: Karry Au	日期: 2012.04.13　　天氣: 　心情:

一元三次方程
By Koopa
程式 (複數版 128 bytes，使用記憶A、B、C及M)

程式需要在 CMPLX 模式下執行，因此在選擇新程式位置後，按 2 選用CMPLX模式。
CAUTION: M+ and M- are ONE single key.

?→A: ?→B: – B┘(3A→B: ?→C: C┘A→C: ?→M:
B3 - BAns┘2 – M┘(2A→M: √( ( C┘3 – B2)3 + Ans2M+:
If Ans=Conig( Ans: Then 3√( M) + 3√( M – 2Ans:
Else 2 3√(Abs( M ) ) cos ( 3-1arg( M: IfEnd: Ans + B→A◢
3B – Ans→M: M┘2 + √(AM – C + M2┘4M-◢ Ans→B: M

例題1: 解 3x3 - 5x2 + x – 4 =0
按 Prog 1 再按 3 EXE – 5 EXE 1 EXE – 4 EXE (顯示第一個根為1.86977)
EXE (程式右上角出現R<=>I，表示為複數解)
(顯示第二個根實數部為 – 0.101554)
Shift Re<=>Im (顯示第二個根虛數部為 0.838323 i)
EXE (顯示第三個根的實數部為 – 0.101554)
Shift Re<=>Im (顯示第三個根虛數部為 – 0.838323 i)

例題2: 解 2x3 - x2 - 72x + 36 =0
按 Prog 1 再按 2 EXE – 1 EXE – 72 EXE 36 EXE (顯示第一個根為6)
EXE (顯示第二個根為 1/2) EXE (顯示第三個根為 -6)

例題3: 解 x2 - 7x + 12 = 0 (一元二次方程)
方程可以寫成 x3 - 7x2 + 12x = 0 (其中捨去一個 x=0 的解)
按 Prog 1 再按 1 EXE – 7 EXE 12 EXE 0 EXE(顯示第一個實數根為4)
EXE (顯示第二個實數根為3) EXE (顯示第三個根為0 (捨去))

程式特別指令或符號的按法
注意: 紅色的→是指Replay的右鍵，紅色的←是指Replay的左鍵
特別指令或符號程式中的按法特別指令或符號程式中的按法
ClrMemory SHIFT 9 1 Fix SHIFT MODE → 1
? SHIFT 3 1 Sci SHIFT MODE → 2
→ SHIFT RCL 或 SHIFT 3 2 Norm SHIFT MODE → 3
: EXE 或 SHIFT 3 3 ┘ a b/c
◢ SHIFT 3 4 Deg SHIFT MODE 1
=> SHIFT 3 → 1 Rad SHIFT MODE 2
= SHIFT 3 → 2 Gra SHIFT MODE 3
≠ SHIFT 3 → 3 Pol( SHIFT +
> SHIFT 3 → → 1 Rec( SHIFT -
< SHIFT 3 → → 2 πr SHIFT EXP SHIFT Ans 2
≧ SHIFT 3 → → 3 Abs( SHIFT )
≦ SHIFT 3 → → 4 arg( SHIFT (
Goto SHIFT 3 → → → 1 Conig( SHIFT ,
Lbl SHIFT 3 → → → 2 i ENG
while SHIFT 3 → → → → 1 ∠ SHIFT (-)
whileEnd SHIFT 3 → → → → 2 >r∠θ SHIFT +
If SHIFT ← 1 >a+bi SHIFT -
Then SHIFT ← 2 ClrStat SHIFT 9 1
Else SHIFT ← ← 1 Σx2 SHIFT 1 1
IfEnd SHIFT ← ← 2 Σx SHIFT 1 2
For SHIFT ← ← ← 1 n SHIFT 1 3
To SHIFT ← ← ← 2 Σy SHIFT 1 → 2
Step SHIFT ← ← ← 3 Σxy SHIFT 1 → 3
Next SHIFT ← ← ← ← 1 SD 模式: x SHIFT 2 1
Break SHIFT ← ← ← ← 2 REG 模式: x SHIFT 2 1 1
A ALPHA (-) y SHIFT 2 1 → 1
B ALPHA o,,, minX SHIFT 2 2 1
C ALPHA hyp maxX SHIFT 2 2 2
D ALPHA sin minY SHIFT 2 2 → 1
X Aplha ) maxY SHIFT 2 2 → 2
Y ALPHA ， ; SHIFT ,
M ALPHA M+ DT M+
Rnd( SHIFT 0

標籤:

瀏覽次數:131 人氣指數:131 累積鼓勵:0

切換閱讀模式

回應

給他日記貼紙

給他愛的鼓勵

檢舉

給本文愛的鼓勵：