Casio50 » fx-3x50P » Programs 程式集 » Numerical Root-Finding 數值法求根 »
本式可以二分法求一方程的根
<COMP> |
---|
Goto 3 : Lbl 0 : f(X) → C : X = A => Goto 4 : Goto 2 : |
Lbl 3 : ? → A : ? → B : |
Lbl 1 : . 5 ( A + B → D ◢ D → X : Goto 0 : |
Lbl 2 : C → Y : A → X: Goto 0 : |
Lbl 4 : 0 > C Y => D → B : C Y > 0 => D → A : Goto 1 |
>86 Bytes |
一般操作 | 例子 | |||||||
---|---|---|---|---|---|---|---|---|
求![]() 並以 [a,b] 為初始區間 |
求![]() 並以 [0.5, 1] 為初始區間
![]() ![]() |
|||||||
啟動程式 | 按 Prog 1 | |||||||
輸入初始值 a EXE b EXE |
1 EXE 0.5 EXE | |||||||
顯示近似值 x1 EXE x2 EXE x3 EXE ... |
0.75 EXE 0.875 EXE 0.8125 EXE 0.78125 EXE 0.796875 EXE 0.8046875 EXE 0.80078125 EXE 0.802734375 EXE 0.801757812 EXE 0.801269531 EXE 0.80102539 EXE 0.80114746 EXE 0.801086425 EXE 0.801055908 EXE ... (正確答案 = 0.801070765425) |
A | an-1 |
---|---|
B | bn-1 |
C | fn-1 |
D | xn |
X | xn-1 |
Y | f(an-1) |
M |
區間 [a,b] 是指變數 x 是在 a 和 b 之間.