VBAのプログラムについて

質問

以前、どこかのHPで以下のようなVBAのユーザー関数を見つけました。
最近になって、そのプログラムを見返したのですが、何をしているのかさっぱり覚えていません。
どなたか、教えてください。
そもそも、FEIが何の略なのかまたは何なのかわかりません。
////////////////////////▼プログラム///////////////////////////////////////////
Function FEI(k As Double, Order As Integer) As Double
Dim s As Double
Select Case Order
Case 1
s = (3969 * k ^ 10) / 65536 + (1225 * k ^ 8) / 16384 + (25 * k ^ 6) / 256 + (9 * k ^ 4) / 64 + k ^ 2 / 4 + 1
Case 2
s = -(441 * k ^ 10) / 65536 - (175 * k ^ 8) / 16384 - (5 * k ^ 6) / 256 - (3 * k ^ 4) / 64 - k ^ 2 / 4 + 1
Case Else
End Select
FEI = Application.WorksheetFunction.pi * s / 2
End Function
/////////////////////////////▲ココまで///////////////////////////////////////////////////////

回答No.1

N5200model05

見た感じ、実験値とか、何かの係数を求めてる感じですね。πが出てきているあたり、何かの角度とかでしょうか。

Ｅｘｃｅｌでグラフを書いて、多項式近似で近似式を求めてから、それをマクロ化するとかすると、こんなユーザ関数を作る人が昔多かったですね。
ただ、引数にｋとか使ってたり、６５５３６とかで割るとかして、あえて係数を整数にしているあたり、もしかしたらさらに古い時代（ＦＯＲＴＲＡＮとかの時代）の近似式を持ってきているかもしれません。

ご参考まで。