File tree Expand file tree Collapse file tree
OpenIPSL/NonElectrical/Functions Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -8,9 +8,9 @@ function SE "Scaled Quadratic Saturation Function (PTI PSS/E) "
88 input Real E2;
99 output Real sys "Saturated Output" ;
1010protected
11- parameter Real a= if SE2 <> 0 then sqrt (SE1* E1/ (SE2* E2)) else 0 ;
12- parameter Real A= E2 - (E1 - E2)/ (a - 1 );
13- parameter Real B= if abs (E1 - E2) < Modelica.Constants.eps then 0 else SE2* E2*
11+ Real a= if SE2 <> 0 then sqrt (SE1* E1/ (SE2* E2)) else 0 ;
12+ Real A= E2 - (E1 - E2)/ (a - 1 );
13+ Real B= if abs (E1 - E2) < Modelica.Constants.eps then 0 else SE2* E2*
1414 (a - 1 )^ 2 / (E1 - E2)^ 2 ;
1515algorithm
1616 if SE1 == 0.0 or u < = 0.0 then
Original file line number Diff line number Diff line change @@ -8,7 +8,7 @@ function SE_exp "Exponential Saturation Function (PTI PSS/E) "
88 input Real E_2 "Second saturation point" ;
99 output Real sys "Saturated Output" ;
1010protected
11- parameter Real X= log (S_EE_2/ S_EE_1)/ log (E_2);
11+ Real X= log (S_EE_2/ S_EE_1)/ log (E_2);
1212algorithm
1313 sys := S_EE_1* u^ X;
1414end SE_exp;
You can’t perform that action at this time.
0 commit comments