Casio50 » fx-3x50P » Programs 程式集 » Numerical Integration 數值法積分 »
本式可以 Weddle 法則求出定積分的值
<COMP> |
---|
Goto 3 : Lbl 0 : f(A) → Y : Goto 2 : |
Lbl 3 : MemClear : ? → A : ? → B : ? → M : |
M -1 ( B – A → D : |
Lbl 1 : Goto 0 : Lbl 2 : 6 nCr C : |
X + Y ( 121 Ans ³ – 3726 Ans ² + 30455 Ans – 14880 → X : |
A + D → A : C + 1 → C : 6 ≥ C => Goto 1 : |
0 → C : A – D → A : B > A + D => Goto 1 : |
D X ÷ 39900 → X |
>129 Bytes |
一般操作 | 例子 | |||||||||
---|---|---|---|---|---|---|---|---|---|---|
求 |
求![]() |
|||||||||
整體程式為
|
||||||||||
啟動程式 | 按 Prog 1 | |||||||||
輸入上下限 a EXE b EXE |
[A?] 0 EXE [B?] π EXE |
|||||||||
輸入區間數 n EXE |
[M?] 18 EXE | |||||||||
顯示答案 Answer |
[DX÷39900→X] 1.843608248 (正確答案 = 1.8225763879) |
A | b |
---|---|
B | b |
C | 0 |
D | h |
X | Answer |
Y | f(b) |
M | n |
n 必為六之倍數