使用 NCalc 进行 VB 坐标计算

如何解决使用 NCalc 进行 VB 坐标计算

我需要它从 -n 到 n 循环，但到目前为止这只产生一个坐标。有谁知道任何简单的快速修复方法，以便我可以将 -n 到 n（步骤 1）的值代入 y 方程 id 输入？

我也不确定我是否正确使用了表达式部分，因为我在今天之前从未尝试过 ncalc。

Dim y As String
Dim n As Integer

n = txtX.Text
y = txtY.Text
For x As Integer = -n To n Step 1

    Dim exp As Expression = New Expression(y)
    exp.Parameters("n") = n
    Label1.Text = exp.Evaluate

    Chart1.Series("plot1").Points.AddXY(x,y)
Next

解决方法

我查看了 NCalc 并设法想出了以下内容。

在一个空表单上，我放置了两个文本框，“tbEquation”用于保存方程，“tbXextents”用于保存用于评估函数的最大 x 值；和一个按钮“bnDrawGraph”告诉它绘制图形。

Private Sub bnDrawGraph_Click(sender As Object,e As EventArgs) Handles bnDrawGraph.Click

    Chart1.Legends.Clear()
    Chart1.Series.Clear()
    Dim xy As New Series
    xy.ChartType = SeriesChartType.Line

    Dim expr = New NCalc.Expression(tbEquation.Text)
    Dim xMax = Integer.Parse(tbXextents.Text)

    For x = -xMax To xMax
        expr.Parameters("n") = x
        Dim y = Convert.ToDouble(expr.Evaluate())
        xy.Points.AddXY(x,y)
    Next

    Chart1.Series.Add(xy)

End Sub

• 在循环中使用表达式之前，您只需创建一次表达式。
• 似乎 Evaluate() 方法返回的是 Object 而不是任何特定类型的变量，因此我使用 Convert.ToDouble 将值作为适合在图表中使用的数字类型获取系列。

示例输出：