公式更改版本2603141639
This commit is contained in:
@@ -104,6 +104,34 @@ namespace CapMachine.Wpf.PPCalculation
|
||||
);
|
||||
|
||||
|
||||
/***************************************************************************************
|
||||
* General Flash subroutine taking a pressure and entropy.
|
||||
* 用于在给定 P、s（摩尔熵）下求解状态点（等熵压缩出口 h2s 等）。
|
||||
**************************************************************************************/
|
||||
[DllImport(@".\PPCalculation\REFPROP\REFPRP64.DLL", CharSet = CharSet.Ansi)]
|
||||
public static extern void PSFLSHdll
|
||||
(
|
||||
ref double p, // (INPUT) pressure [kPa]
|
||||
ref double s, // (INPUT) entropy [J/mol-K]
|
||||
[MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 0)] double[] z, // (INPUT) overall (bulk) composition [array of mol frac]
|
||||
ref double t, // (OUTPUT) temperature [K]
|
||||
ref double d, // (OUTPUT) overall (bulk) molar density [mol/L]
|
||||
ref double Dl, // (OUTPUT) molar density of liquid phase [mol/L]
|
||||
ref double Dv, // (OUTPUT) molar density of the vapor phase [mol/L]
|
||||
[MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 0)] double[] xliq, // (OUTPUT) composition of liquid phase [array of mol frac]
|
||||
[MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 0)] double[] xvap, // (OUTPUT) composition of vapor phase [array of mol frac]
|
||||
ref double q, // (OUTPUT) vapor quality on a MOLAR basis
|
||||
ref double ee, // (OUTPUT) internal energy [J/mol]
|
||||
ref double h, // (OUTPUT) enthalpy [J/mol]
|
||||
ref double Cv, // (OUTPUT) Cv [J/mol-K]
|
||||
ref double Cp, // (OUTPUT) Cp [J/mol-K]
|
||||
ref double w, // (OUTPUT) speed of sound [m/s]
|
||||
ref long ierr, // (OUTPUT) error flag
|
||||
[MarshalAs(UnmanagedType.VBByRefStr)] ref string herr, // (OUTPUT) error string
|
||||
ref long ln // (INPUT) length of herr
|
||||
);
|
||||
|
||||
|
||||
|
||||
/****************************************************************************************
|
||||
* Open a mixture file (e.g., R410A.mix) and read constituents and mole fractions
|
||||
@@ -254,6 +282,23 @@ namespace CapMachine.Wpf.PPCalculation
|
||||
ref long herrLen
|
||||
);
|
||||
|
||||
/********************************************************************************
|
||||
* Solve for density given T and P using the most robust iterative routine.
|
||||
* This mirrors the LabVIEW TPRHO DLL call path to obtain phase-specific density.
|
||||
********************************************************************************/
|
||||
[DllImport(@".\PPCalculation\REFPROP\REFPRP64.DLL", CharSet = CharSet.Ansi)]
|
||||
public static extern void TPRHOdll
|
||||
(
|
||||
ref double t, // (INPUT) temperature [K]
|
||||
ref double p, // (INPUT) pressure [kPa]
|
||||
[MarshalAs(UnmanagedType.LPArray, SizeParamIndex = 0)] double[] x, // (INPUT) composition [array of mol frac]
|
||||
ref long kph, // (INPUT) phase flag: 1=liquid, 2=vapor
|
||||
ref long kguess, // (INPUT) initial guess: 0=let routine choose
|
||||
ref double D, // (OUTPUT) molar density [mol/L]
|
||||
ref long ierr, // (OUTPUT) error flag: 0=success
|
||||
[MarshalAs(UnmanagedType.VBByRefStr)] ref string herr, // (OUTPUT) error string
|
||||
ref long herrLen
|
||||
);
|
||||
|
||||
|
||||
/***************************************************
|
||||
|
||||
@@ -196,6 +196,18 @@ namespace CapMachine.Wpf.Services
|
||||
TagManger.AddTag(new Tag<short>("通讯PTC膜温", "通讯PTC膜温[℃]", "ComPTCFlmTemp", "程序", "VW14128", 100, 0, 1, "℃", new ShortTagValue(), false) { DecimalPoint = 0 });
|
||||
TagManger.AddTag(new Tag<short>("通讯PTC模块温度", "通讯PTC模块温度[℃]", "ComPTCMdTemp", "程序", "VW14130", 100, 0, 1, "℃", new ShortTagValue(), false) { DecimalPoint = 0 });
|
||||
|
||||
|
||||
TagManger.AddTag(new Tag<short>("过热度", "过热度[K]", "Superheat", "程序", "VW14132", 100, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("过冷度", "过冷度[K]", "Subcooling", "程序", "VW14134", 100, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
|
||||
TagManger.AddTag(new Tag<short>("制热量Qh", "制热量Qh[KW]", "HeatingCapacity", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("压缩机性能系数(制热)", "压缩机性能系数(制热)[K]", "COPHeat", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("等熵效率ns", "等熵效率ns[%]", "IsentrpEff", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("制冷量Qc", "制冷量Qc[KW]", "CoolCapacity", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("压缩机性能系数(制冷)", "压缩机性能系数(制冷)[K]", "COPCool", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
TagManger.AddTag(new Tag<short>("容积效率nv", "容积效率nv[%]", "VoltricEff", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 });
|
||||
|
||||
|
||||
#endregion
|
||||
|
||||
|
||||
|
||||
@@ -82,15 +82,15 @@ namespace CapMachine.Wpf.Services
|
||||
|
||||
TxvFrPressTag = TagManager.DicTags.GetValueOrDefault("膨胀阀前压力[BarA]");
|
||||
|
||||
LiqRefFlowTag = TagManager.DicTags.GetValueOrDefault("液冷媒流量[kg/h]");
|
||||
//LiqRefFlowTag = TagManager.DicTags.GetValueOrDefault("液冷媒流量[kg/h]");
|
||||
|
||||
//kg/h
|
||||
|
||||
VRVTag = TagManager.DicTags.GetValueOrDefault("冷媒流量[kg/h]");
|
||||
VRVTag = TagManager.DicTags.GetValueOrDefault("冷媒流量[L/min]");
|
||||
|
||||
//润滑油流量
|
||||
|
||||
LubeFlowTag = TagManager.DicTags.GetValueOrDefault("润滑油流量[kg/h]");
|
||||
LubeFlowTag = TagManager.DicTags.GetValueOrDefault("润滑油流量[L/min]");
|
||||
|
||||
|
||||
//Cond1TempTag = TagManager.DicTags.GetValueOrDefault("冷凝器出口水温[℃]");
|
||||
@@ -306,9 +306,13 @@ namespace CapMachine.Wpf.Services
|
||||
}
|
||||
|
||||
if (iErr == 0)
|
||||
Superheat.EngPvValue = InhTempTag.EngPvValue - (te - 273.15);
|
||||
else
|
||||
Superheat.EngPvValue = 0;
|
||||
{
|
||||
double superheatValue = InhTempTag.EngPvValue - (te - 273.15);
|
||||
if (!double.IsNaN(superheatValue) && !double.IsInfinity(superheatValue))
|
||||
{
|
||||
Superheat.EngPvValue = superheatValue;
|
||||
}
|
||||
}
|
||||
|
||||
herr = new string(' ', 255); herrLen = 255; iErr = 0;
|
||||
lock (_refpropLock)
|
||||
@@ -316,9 +320,13 @@ namespace CapMachine.Wpf.Services
|
||||
IRefProp64.SATPdll(ref p1, x, ref kph, ref te1, ref Dl, ref Dv, xliq, xvap, ref iErr, ref herr, ref herrLen);
|
||||
}
|
||||
if (iErr == 0)
|
||||
Subcool.EngPvValue = TxvFrTempTag.EngPvValue - (te1 - 273.15);
|
||||
else
|
||||
Subcool.EngPvValue = 0;
|
||||
{
|
||||
double subcoolValue = TxvFrTempTag.EngPvValue - (te1 - 273.15);
|
||||
if (!double.IsNaN(subcoolValue) && !double.IsInfinity(subcoolValue))
|
||||
{
|
||||
Subcool.EngPvValue = subcoolValue;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
if (TryUpdateThermodynamicSixResults(out var thermoErr))
|
||||
@@ -1090,21 +1098,19 @@ namespace CapMachine.Wpf.Services
|
||||
COPCooling = copC;
|
||||
IsentropicEfficiencyPct = etaS_pct;
|
||||
|
||||
if (!TryComputeVolumetricEfficiencyPct(mRef_kg_s, v1_m3kg, out var etaV_pct, out var etaVErr))
|
||||
{
|
||||
VolumetricEfficiencyPct = double.NaN;
|
||||
error = etaVErr;
|
||||
return true;
|
||||
}
|
||||
|
||||
VolumetricEfficiencyPct = etaV_pct;
|
||||
|
||||
//赋值
|
||||
HeatingCapacity.EngPvValue = HeatingCapacityQh_kW;
|
||||
COPHeat.EngPvValue = COPHeating;
|
||||
IsentrpEff.EngPvValue = IsentropicEfficiencyPct;
|
||||
CoolCapacity.EngPvValue = CoolingCapacityQc_kW;
|
||||
COPCool.EngPvValue = COPCooling;
|
||||
|
||||
if (!TryComputeVolumetricEfficiencyPct(mRef_kg_s, v1_m3kg, out var etaV_pct, out var etaVErr))
|
||||
{
|
||||
error = etaVErr;
|
||||
return true;
|
||||
}
|
||||
|
||||
VolumetricEfficiencyPct = etaV_pct;
|
||||
VoltricEff.EngPvValue = VolumetricEfficiencyPct;
|
||||
|
||||
return true;
|
||||
|
||||
Reference in New Issue
Block a user