Wolfram EngineをVisualBasicで使う（３：グラフを表示してみる）
今回は、グラフを表示してみたい。
実際やってみたところ、簡単なものであればそれほど手間はかからないことが分かった。
前回のコードをそのまま流用します。
- レイアウトに「PictureBox」を追加します。画面の左下のテキストボックス「TextBox1」は今回は使わないので、端によけておきます。
画像のエリアを配置 - コードを次のように書き換えます。
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ml As IKernelLink = MathLinkFactory.CreateKernelLink("-linkmode launch -linkname 'C:\Program Files\Wolfram Research\Wolfram Engine\13.3\WolframKernel.exe'")
ml.WaitAndDiscardAnswer()
Dim result As Image = ml.EvaluateToImage(TextBox2.Text, 200, 200)
PictureBox1.Image = result
End Sub
End Class
Wolfram Kernelで画像を生成するときには、「EvaluateToImage()」を使います。出力はbyte[]になるので、VisualBasicでは「Image」として定義します。
この「Image」を「PictureBox」の「Image」に代入すればいいです。
200px x 200px で画像を出力することにします。
-
起動して、テキストボックスに
Plot[Sin[x], {x, 0, 6 Pi}]
と入力し、「Evaluate」をクリックします。
画像の時には、表示間で少し時間がかかります。
グラフが表示された -
グリッド線と凡例を入れてみます。
まずは凡例を試します。入力フィールドのWolgram言語はこれ。
Plot[Sin[x], {x, 0, 6 Pi}, PlotLegends->”Expressions”]
凡例は対応していない模様。
凡例は表示できない？ - デバッガで見てみると、それぞれの値は次のようになってます。「"Expressions”」のダブルクオートをエスケープすればうまくいくのかな、と思ったりしたのですが、いくつか試してみてもダメでした。。。方法を発見できたらまた書きます。
-
３次元のグラフもかけるのかな、ということで、
を入力してみました。３次元でもいけるんですね。Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}]
３次元の関数プロット
上記の関数はWolframのドキュメントセンターのものを使いました。同じページにもっと複雑なものもあるので、ついでに結果を書いておきます。
Plot3D[{x^2 + y^2, -x^2 - y^2}, {x, -2, 2}, {y, -2, 2}]
Plot3D[Im[ArcSin[(x + I y)^4]], {x, -2, 2}, {y, -2, 2}]
ドキュメントセンターの画像とほぼ同じです。
なかなかうまくできてます。
