第一類貝塞爾函數(Bessel Function of the first kind)

程式編寫日期: 2008年4月24日

程式可以計第一類貝塞爾函數 J_n(x) (Bessel Function of the first kind)，其中 n 為整數。

注意: π^r 是按 SHIFT EXP SHIFT Ans 2

程式 (59 bytes)

ClrMemory: ?→A: ?→X: Lbl 0: M→C:

(X÷2)^( 2B + A) cos( π^rB ) ÷ B! ÷ (B+A)! M+:

B+1→B: M-C => Goto 0: M

計算第一類貝塞爾函數 J₃(1.3)的數值。

按 Prog 1  再按 3 EXE 1.3 EXE (顯示答案為0.041135825)

參考資料:

貝塞爾函數 -wikipedia

Bessel Fuction of the First Kind -- from Wolfarm MathWorld

Bessel Fuction Calculator

返回 CASIO fx-50FH 及 fx-50F PLUS 程式集