Internal Test: Tests programmatic updates to a variable from host code in a loop, a common high-performance pattern.
ID: 1182
using uCalcSoftware;
var uc = new uCalc();
var myVar = uc.DefineVariable("x");
var expr = uc.Parse("x * 2");
var i = 0;
for ( i = 1; i <= 5; i++) {
myVar.Value(i);
Console.WriteLine($"When x is {i}, result is: {expr.Evaluate()}");
}
When x is 1, result is: 2
When x is 2, result is: 4
When x is 3, result is: 6
When x is 4, result is: 8
When x is 5, result is: 10 using uCalcSoftware; var uc = new uCalc(); var myVar = uc.DefineVariable("x"); var expr = uc.Parse("x * 2"); var i = 0; for ( i = 1; i <= 5; i++) { myVar.Value(i); Console.WriteLine($"When x is {i}, result is: {expr.Evaluate()}"); }
#include
#include "uCalc.h"
using namespace std;
using namespace uCalcSoftware;
int main() {
uCalc uc;
auto myVar = uc.DefineVariable("x");
auto expr = uc.Parse("x * 2");
auto i = 0;
for ( i = 1; i <= 5; i++) {
myVar.Value(i);
cout << "When x is " << i << ", result is: " << expr.Evaluate() << endl;
}
}
When x is 1, result is: 2
When x is 2, result is: 4
When x is 3, result is: 6
When x is 4, result is: 8
When x is 5, result is: 10 #include <iostream> #include "uCalc.h" using namespace std; using namespace uCalcSoftware; int main() { uCalc uc; auto myVar = uc.DefineVariable("x"); auto expr = uc.Parse("x * 2"); auto i = 0; for ( i = 1; i <= 5; i++) { myVar.Value(i); cout << "When x is " << i << ", result is: " << expr.Evaluate() << endl; } }
Imports System
Imports uCalcSoftware
Public Module Program
Public Sub Main()
Dim uc As New uCalc()
Dim myVar = uc.DefineVariable("x")
Dim expr = uc.Parse("x * 2")
Dim i = 0
For i = 1 To 5
myVar.Value(i)
Console.WriteLine($"When x is {i}, result is: {expr.Evaluate()}")
Next
End Sub
End Module
When x is 1, result is: 2
When x is 2, result is: 4
When x is 3, result is: 6
When x is 4, result is: 8
When x is 5, result is: 10 Imports System Imports uCalcSoftware Public Module Program Public Sub Main() Dim uc As New uCalc() Dim myVar = uc.DefineVariable("x") Dim expr = uc.Parse("x * 2") Dim i = 0 For i = 1 To 5 myVar.Value(i) Console.WriteLine($"When x is {i}, result is: {expr.Evaluate()}") Next End Sub End Module