28 lines
567 B
Plaintext
28 lines
567 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION Calc_InjPress : REAL
|
|
VAR_INPUT
|
|
i_GasTemperature : REAL;
|
|
i_GasMW : REAL;
|
|
i_GasDensity : REAL;
|
|
END_VAR
|
|
VAR
|
|
mMW_Gas : REAL;
|
|
mTa_Gas : REAL;
|
|
m_R : REAL;
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_GasTemperature<gZeroAbsolute THEN
|
|
mTa_Gas := i_GasTemperature + gZeroAbsolute;
|
|
ELSE
|
|
mTa_Gas := i_GasTemperature;
|
|
END_IF
|
|
|
|
m_R := g_R0 / i_GasMW;
|
|
|
|
Calc_InjPress := i_GasDensity * 1000 * 1000 * m_R * mTa_Gas;
|
|
Calc_InjPress := (Calc_InjPress / 100000) - 1.01325;
|
|
|
|
END_FUNCTION
|