Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineFunction("Calc(a, b) = a * 2 - b")
      Dim x_var = uc.DefineVariable("x")
      Dim y_var = uc.DefineVariable("y")
      Dim i = 0
      
      Dim expr = uc.Parse("Calc(x, y) + Sqrt(x)")
      For i  = 1 To 4
         x_var.Value(i * i) '// Use squared values for x
         y_var.Value(i)     '// Use linear values for y
         Console.WriteLine(expr.Evaluate())
      Next
   End Sub
End Module