|
▼多摩川 さん:
こんにちは、色々方法はあると思いますが
提示されたマクロをいじるとすると
こんな感じで出来るのでは?
>b = a * α と数式があります。
>a = a + 0.1 と増加させると b の値も変化していきます。
>αは複雑な数式であり、a が増加するといって b も増加するとは限りません。(ランダム値)
>
Dim Bmax 'その時点の最大値
Dim Amax 'Bmaxに対するa
Bmax = 0 '初期値は工夫する必要があります。
>Do until a > 10
> i = i + 1 'カウント
> a = a + 0.1
> b = a * α
If b > Bmax then
Bmax = b
Amax = a
End If
> Redim Preserve x(i): x(i) = a '不要
> Redim Preserve y(i): y(i) = b '不要
>Loop
>
>b がある時点で増加から減少に転じるのであれば下記のようにできたのですが・・・
>For n = 1 to i - 1
> if y(n) > y(n + 1) Then a = x(n): Exit For
>Next
>
>b が増加−減少−増加−減少を繰り返すようなときの b の最大のときの a の値を求めたいのですが
>どのようにしたらよいのでしょうか?
>宜しくお願い致します。
|
|