aboutsummaryrefslogtreecommitdiffstats
path: root/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo
diff options
context:
space:
mode:
Diffstat (limited to 'modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo')
-rw-r--r--modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo14
1 files changed, 14 insertions, 0 deletions
diff --git a/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo b/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo
new file mode 100644
index 0000000..cf86779
--- /dev/null
+++ b/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator2.mo
@@ -0,0 +1,14 @@
+function PolynomialEvaluator2
+ input Real a[:];
+ input Real x;
+ output Real y;
+protected
+ Real xpower;
+algorithm
+ y := 0;
+ xpower := 1;
+ for i in 1:size(a, 1) loop
+ y := y + a[i]*xpower;
+ xpower := xpower*x;
+ end for;
+end PolynomialEvaluator2;