|
はじめまして。
まだまだ初心者ですがお願いします。
今、ある解を求めるためのトライアル計算について考えています。
private A(100),B(100)
******************************
private sub test()
for j = 1 to 10
A(j) = cells( , )
B(j) = cells( , )
・・・
Ans = 1
Stp = 1
for i = 1 to 5
Stp = stp / 10
Ans = Tryal(Ans , Stp)
next i
・・・
next j
end sub
*****************************
判定ルーチン↓
*****************************
private function tryal(X as single,Stp as single) as single
Tryal = X
for i = X to 0 step -Stp
・・・
if 〜
・・・
end
・・・
next i
end function
*****************************
というような感じで試したいのですが
変数A(j)とB(j)を判定ルーチンに渡したいのですが
どうすれば良いのかいまいち分かりません・・・
お願いします。
|
|