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

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

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

素人也能成為明日之星！

移除此區廣告請加入VIP

檔案狀態:

住戶編號:3038762

Karry Au 的日記本

快速選單

遲來的祝福《前一篇

後一篇》聯立二元一次/ 三元一次方程

回應

給他日記貼紙

給他愛的鼓勵

檢舉

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

一元二次方程
By Koopa
程式需要在 CMPLX 模式下執行，因此在選擇新程式位置後，按 2 選用CMPLX模式。

(共118 bytes，使用記憶為A, B, C, X, Y及M )
?→A: ?→B: ?→M: – B┘( 2A→B: AB2 M-:
- 4AM→C: B + √( -M┘A→X◢ 2B – Ans→Y◢ M◢
Abs( C→M: √( C÷M)┘(2A→A: B◢ 1: Fix 0:
While Ans: Rnd(√( M ÷ Ans ) – . 5→B: M ÷ B2→C:
Ans – Rnd(Ans => Rnd( C + . 5: WhileEnd:
Norm 1: AB◢ C

例題1: 解 21x2 - 11x – 2 = 0
按 Prog 1 再按 21 EXE – 11 EXE – 2 EXE (顯示第一個根為2/3)
EXE (顯示第二個根為 -1/7)
(注意: 若無需要計算其它資料，可以直接按AC終止程式)
EXE (顯示頂點的y座標或二次函數的極小值為 -289/84)
EXE (顯示頂點的x座標為11/42)
(注意: 若果無需要以根式表示或根為實數的整數/分數，可以直接按AC終止程式)

例題2: 解 x2 - 8x + 3 = 0
按 Prog 1 再按 1 EXE -8 EXE 3 EXE (顯示第一個根為7.60555)
EXE (顯示第二個根為 0.394449)
EXE (顯示頂點的y座標或二次函數的極小值為 – 13)
EXE (顯示頂點的x座標為 4)
EXE (顯示1)
EXE (顯示13)
所以方程的根為 4 ±1√13

例題3: 解 x2 + 6x + 25 = 0
按 Prog 1 再按 1 EXE 6 EXE 25 EXE ( 此時計算機右上角出現R<=>I，表示為複數解)
(顯示第一個根的實數部為 -3) 再按 Shift Re<=>Im (顯示第一個根虛數部為 4)
EXE (顯示第二個根的實數部為 -3) 再按 Shift Re<=>Im (顯示第二個根虛數部為 – 4)
EXE (顯示頂點的y座標或二次函數的極小值為 16)
EXE (顯示頂點的x座標為 -3)
所以方程的解為 x = -3 ± 4i
按AC中止程式

例題4: x2 + 7x + 15 = 0
按 Prog 1 再按 1 EXE 7 EXE 15 EXE ( 此時計算機右上角出現R<=>I，表示為複數解)
(顯示第一個根的實數部為 -7/2) 再按 Shift Re<=>Im (顯示第一個根虛數部為 1.6658)
EXE (顯示第二個根的實數部為 -7/2) 再按 Shift Re<=>Im (顯示第二個根虛數部為 – 1.658)
EXE (顯示頂點的y座標或二次函數的極小值為 11/4)
EXE (顯示頂點的x座標為 -7/2)
EXE (顯示 1/2 i)
EXE (顯示 11)
所以方程的解為 x = -7/2 ± (1/2)√11i
程式執行完成後，第一個程式按 RCL C顯示判別式的值。

註1: 若兩根為整數或分數，表示為有理數，亦即沒有必要計算根式表示式，請直接AC終止程式。
註2: 程式輸入的係數必須為整數，否則計算根式表示式的結果可能不成立。
註3: 兩根儲存在Ｘ及Ｙ中

程式特別指令或符號的按法
注意: 紅色的→是指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

標籤:

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

切換閱讀模式

回應

給他日記貼紙

給他愛的鼓勵

檢舉

給本文愛的鼓勵：