encapsulated function staircaseSVD import Modelica; import Modelica_LinearSystems2; import Modelica_LinearSystems2.StateSpace; import Modelica_LinearSystems2.Math.Vectors; input StateSpace ss "State space system"; output Boolean isControllable; output Modelica_LinearSystems2.Internal.StateSpaceR ssm1(redeclare Real A[size(ss.A, 1), size(ss.A, 2)], redeclare Real B[size(ss.B, 1), size(ss.B, 2)], redeclare Real C[size(ss.C, 1), size(ss.C, 2)], redeclare Real D[size(ss.D, 1), size(ss.D, 2)]) "Upper block Hessenberg form state space system"; output Real P[:, :]; end staircaseSVD;