在 Modelica中,我想实现一个function
clip
Clip
与 Wolfram 语言类似的调用。也就是说,该函数将获取一个值列表x
并返回一个相同长度的向量y
,其中对于每个组件,我们都有一个分段函数:
y_i := x_i for min ≤ x_i ≤ max, v_min for x_i < min, and v_max for x_i > max
所以我们应该看到以下结果:
clip( {-3,-2,-1,0,1,2,3} , {-2,2} ) // { -2, -2, -1, 0, 1, 2, 2 }
clip( {-3,-2,-1,0,1,2,3} , {-2,2}, {-10,10} ) // { -10, -2, -1, 0, 1, 2, 10 }
clip( {-3,-2,-1,0,1,2,3} ) // { -1, -1, -1, 0, 1, 1, 1 }
我的方法如下:
function clip "Clip values so they do not extend beyond a given interval"
input Real x[:] "List of values to be clipped";
input Real[2] x_range := {-1, 1} "Original range [min,max] given as a list (default = {-1,1})";
input Real[2] extremes := x_range "Extreme values [v_min, v_max] given as a list (default {min,max})";
output Real y[size(x, 1)] "Clipped values";
protected
Integer n := size(x, 1) "Length of the input vector x";
algorithm
for i in 1:n loop
y[i] := if x[i] < x_range[1] then extremes[1] elseif x[i] > x_range[2] then extremes[2] else x[i];
end for;
end clip;
请注意,这里的默认表达式extremes
引用x_range
本身具有默认表达式的输入{-1, 1}
。
不幸的是,我在 Wolfram SystemModeler 12.0 和OpenModelica (OMEdit v.1.13.2)中得到了错误的结果,它甚至无法编译。
我的问题是:
- 根据规范,上述功能是否合法 Modelica 代码?
- 不管(1.)是否有另一种方法可以做到这一点?