VB 用 NCalc 计算坐标

Question

我需要它从 -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

Answer 1

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

在一个空表格上，我放置了两个文本框，“tbEquation”用于保存方程，“tbXextents”用于保存用于评估 function 的最大 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来获取适合在图表系列中使用的数值类型的值。

样品 output：