Rotation(pi/2) of vector around {0,0,1} and projection on orth plane
function j extends Modelica.Icons.Function; input Real x[:]; output Real y[size(x, 1)]; end j;