diff options
author | bnewbold <bnewbold@robocracy.org> | 2016-12-18 23:02:38 -0800 |
---|---|---|
committer | bnewbold <bnewbold@robocracy.org> | 2016-12-18 23:02:38 -0800 |
commit | 25ec87c63a5ba79846e147e3d153bf8d884a664e (patch) | |
tree | 84e5facf3113b92fb0fd822d6ea315615ce1a47c /modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo | |
parent | 24b2dc9c022cf1daa95418328019d12e5198b06b (diff) | |
download | modelthing-25ec87c63a5ba79846e147e3d153bf8d884a664e.tar.gz modelthing-25ec87c63a5ba79846e147e3d153bf8d884a664e.zip |
parser: more weird examples
Diffstat (limited to 'modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo')
-rw-r--r-- | modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo b/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo new file mode 100644 index 0000000..f11d375 --- /dev/null +++ b/modelica-parser-lalrpop/examples/modelica_other/polynomial_evaluator.mo @@ -0,0 +1,14 @@ +block PolynomialEvaluator + parameter Real a[:]; + input Real x; + output Real y; +protected + constant n = size(a, 1)-1; + Real xpowers[n+1]; +equation + xpowers[1] = 1; + for i in 1:n loop + xpowers[i+1] = xpowers[i]*x; + end for; + y = transpose(a) * xpowers; +end PolynomialEvaluator; |