|
VBA全くの初心者です。
ある案件の解析をするために以下の関数を計算したのですが、やり方、コーディングがうまくわからず、分析まであまり時間もないため、質問させていただきました。
使用するデータは、CSV形式のファイルで、3列n行あります(下の値は適当です。値は2行目から)
x y t
7.4 8.3 6.2
1.0 2.7 3.9
5.8 4.7 3.6
・
・
・
・
・
・
マクロにて入力する変数は、n, hs, htの値です。
これらの値を入力して以下の関数 f(x,y,t)=c値を求め、
(x, y, t, c)の列で別のCSVファイルに保存する
関数は、
f(x, y, t) = [1/{n*(hs^2)*ht}] * ΣKs[(x-xi)/hs, (y-yi)/hs]Kt[(t-ti)/ht]
(Σの下にはiがきます)
Ks(u, v)={(2/π)*(1-(u^2+v^2)) (u^2+v^2)<1}
={0 otherwise }
Kt(w)={(3/4)*(1-w^2) w^2<1}
={0 otherwise }
複雑な関数でテキストで書いており申し訳ありません。
何卒よろしくお願いします。
|
|