Modelicaでは、Wolfram 言語と同様に機能する call を実装したいと考えてfunction
います。clip
Clip
つまり、関数は値のリストを取り、同じ長さ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;
ここで、デフォルトの式 forは、それ自体がデフォルトの式を持つextremes
入力を参照することに注意してください。x_range
{-1, 1}
残念ながら、Wolfram SystemModeler 12.0 とOpenModelica (OMEdit v.1.13.2)では間違った結果が得られ、コンパイルすらできません。
私の質問は次のとおりです。
- 上記の関数は、仕様に従って正当な Modelica コードですか?
- (1.)に関係なく、これを行う別の方法はありますか?