ロジスティック曲線作成 vb6サンプルプログラム
お世話になります
vb6でロジスティック曲線の値を求めるサンプルソースを探しております。
サンプルを元に作成したい処理は以下となります
右上がり(右増分)の曲線
サンプルの計算式があれば、以下の様に改造を考えております
引数は
YMax : 縦軸の最大値
XMax : 横軸の最大値
T_Val : 閾値
Table(XMax) : 戻り値
言葉で説明すると
YMaxが100ならば、求める値の増分幅は0~100で
XMaxが200ならば、Table(200)に100が入る
T_Valが小さければ、比例に近く
T_Valが大きければ、曲線がきつくなる
T_Valの範囲はサンプルソース依存で構いません
No.1ベストアンサー
- 回答日時:
ロジスティック曲線の性質上、
>XMaxが200ならば、Table(200)に100が入る
>T_Valが小さければ、比例に近く
>T_Valが大きければ、曲線がきつくなる
とするのは難しいと思います。
蛇足ですが、
ベジェ曲線ですと、上記のようなものができそうです。
ただし、xとyの関係が媒介変数(t)を介しての記述となるため、xが○のときyは●、という計算が簡単にはできません。
以下サンプルです。
エクセルVBAです。
B1セルにXMax、B2セルにYMax、B3セルにT-Val(ゼロ以上1以下)を入力してください。
マクロ実行すると、A7セル以下にxの値、B7セル以下にyの値が表示されます。
----------------
Sub test()
x1 = 0
y1 = 0
x4 = Cells(1, 2)
y4 = Cells(2, 2)
x2 = (x4 - x1) * Cells(3, 2)
y2 = y1
x3 = (x4 - x1) * (1 - Cells(3, 2))
y3 = y4
div = x4
For i = 0 To div
t = i / div
tp = 1 - t
x = t * t * t * x4 + 3 * t * t * tp * x3 + 3 * t * tp * tp * x2 + tp * tp * tp * x1
y = t * t * t * y4 + 3 * t * t * tp * y3 + 3 * t * tp * tp * y2 + tp * tp * tp * y1
Cells(7 + i, 1) = x
Cells(7 + i, 2) = y
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 微分積分の曲率についての問題がわからないです。 4 2022/07/16 16:23
- C言語・C++・C# [C言語] コメント文字列を無視して、数値データを読み込むプログラム部分について 5 2022/10/05 11:03
- 電気工事士 来月から電気管理技術者のお仕事を始める者です。東京電力パワーグリッドへ情報提供の依頼をする方法がTE 1 2022/06/27 06:48
- Java Java モンスターブリーダー 1 2023/02/05 09:44
- 経済学 総需要曲線は、物価上昇が利子率上昇をもたらし、投資を減少させるため右下がりの曲線になると聞きました。 3 2022/09/16 22:24
- 大学・短大 C言語線形リストの問題です 3 2022/12/22 00:45
- 工学 ロジスティック方程式について 1 2022/05/14 21:44
- C言語・C++・C# C++のcinの動作 5 2023/02/26 00:13
- 数学 接線の本数を求めたいときの与式の微分について FG例題206 f(x)=xe^-x とするとき、 実 4 2023/07/24 15:43
- 経済学 均衡価格の求め方について教えてください 10 2022/12/23 13:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelのハイパーリンクにマクロ...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
DataGridViewのセル編集完了後...
-
【Excel VBA】指定行以降をクリ...
-
EXCELで変数をペーストしたい
-
Excel vbaで特定の文字以外が入...
-
【VBA】指定したセルと同じ値で...
-
特定行の色を変えたい(FlexGrid)
-
VBAでセルをクリックする回...
-
EXCELのVBA-フィルタ抽出後の...
-
スプレッドシートの数値列に対...
-
VBAの計算で@が出てしまう件
-
セル色なしの行一括削除
-
3桁または4桁の数値を時刻に...
-
”戻り値”が変化したときに、マ...
-
TODAY()で設定したセルの日付...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
TODAY()で設定したセルの日付...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報