From 1cebfc1811a724a62481f78e084d0141795ff3f2 Mon Sep 17 00:00:00 2001 From: Tyrone CT Date: Thu, 12 Mar 2026 11:16:02 +0800 Subject: [PATCH] =?UTF-8?q?=E8=AE=A1=E7=AE=97=E5=85=AC=E5=BC=8F=E6=8F=90?= =?UTF-8?q?=E4=BA=A4?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- CapMachine.Wpf/PPCalculation/IRefProp64.cs | 28 +++++++++ .../Services/MachineRtDataService.cs | 20 +++++-- CapMachine.Wpf/Services/PPCService.cs | 58 ++++++++++++++----- 3 files changed, 87 insertions(+), 19 deletions(-) diff --git a/CapMachine.Wpf/PPCalculation/IRefProp64.cs b/CapMachine.Wpf/PPCalculation/IRefProp64.cs index b4f9c72..4371111 100644 --- a/CapMachine.Wpf/PPCalculation/IRefProp64.cs +++ b/CapMachine.Wpf/PPCalculation/IRefProp64.cs @@ -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 diff --git a/CapMachine.Wpf/Services/MachineRtDataService.cs b/CapMachine.Wpf/Services/MachineRtDataService.cs index f18b930..d54ee48 100644 --- a/CapMachine.Wpf/Services/MachineRtDataService.cs +++ b/CapMachine.Wpf/Services/MachineRtDataService.cs @@ -145,7 +145,7 @@ namespace CapMachine.Wpf.Services ////三电 Sample - TagManger.AddTag(new Tag("转速", "转速[rpm]", "Speed", "程序", "VW14100", 100, 0, 1, "rpm", new ShortTagValue(), true) { DecimalPoint = 0,SVAddress= "VW14002" }); + TagManger.AddTag(new Tag("转速", "转速[rpm]", "Speed", "程序", "VW14100", 100, 0, 1, "rpm", new ShortTagValue(), true) { DecimalPoint = 0, SVAddress = "VW14002" }); TagManger.AddTag(new Tag("排气压力", "排气压力[BarA]", "ExPress", "程序", "VW15002", 100, 0, 100, "BarA", new ShortTagValue(), true) { DecimalPoint = 2 }); TagManger.AddTag(new Tag("吸气压力", "吸气压力[BarA]", "InhPress", "程序", "VW15004", 100, 0, 100, "BarA", new ShortTagValue(), true) { DecimalPoint = 2 }); TagManger.AddTag(new Tag("吸气温度", "吸气温度[℃]", "InhTemp", "程序", "VW15006", 100, 0, 10, "℃", new ShortTagValue(), true) { DecimalPoint = 1 }); @@ -158,7 +158,7 @@ namespace CapMachine.Wpf.Services TagManger.AddTag(new Tag("HV[W]", "HV[W]", "HVPw", "程序", "VW15020", 100, 0, 1, "W", new ShortTagValue(), false) { DecimalPoint = 1 }); TagManger.AddTag(new Tag("LV[V]", "LV[V]", "LV", "程序", "VW15022", 100, 0, 100, "V", new ShortTagValue(), true) { DecimalPoint = 2 }); //TagManger.AddTag(new Tag("LV[A]", "LV[A]", "LVCur", "程序", "VW15024", 100, 0, 1, "A", new ShortTagValue(), false) { DecimalPoint = 1 }); - TagManger.AddTag(new Tag("LV[A]", "LV[A]", "LVCur", "程序", "VW15024", 100, 0, 1000, "A", new ShortTagValue(), false) { DecimalPoint =3 }); + TagManger.AddTag(new Tag("LV[A]", "LV[A]", "LVCur", "程序", "VW15024", 100, 0, 1000, "A", new ShortTagValue(), false) { DecimalPoint = 3 }); TagManger.AddTag(new Tag("环境温度", "环境温度[℃]", "EnvTemp", "程序", "VW15026", 100, 0, 10, "℃", new ShortTagValue(), true) { DecimalPoint = 1 }); //TagManger.AddTag(new Tag("环境湿度", "环境湿度[%]", "EnvRH", "程序", "VW15028", 100, 0, 10, "%", new ShortTagValue(), true) { DecimalPoint = 1 }); TagManger.AddTag(new Tag("环境湿度", "环境湿度[%]", "EnvRH", "程序", "VW15028", 100, 0, 10, "%", new ShortTagValue(), true) { DecimalPoint = 1 }); @@ -178,7 +178,9 @@ namespace CapMachine.Wpf.Services TagManger.AddTag(new Tag("PTC流量", "PTC流量[L/min]", "PTCFlow", "程序", "VW15054", 100, 0, 10, "L/min", new ShortTagValue(), false) { DecimalPoint = 1 }); TagManger.AddTag(new Tag("PTC入水温度", "PTC入水温度[℃]", "PTCEntTemp", "程序", "VW15056", 100, 0, 10, "℃", new ShortTagValue(), false) { DecimalPoint = 1 }); TagManger.AddTag(new Tag("PTC出水温度", "PTC出水温度[℃]", "PTCExpTemp", "程序", "VW15058", 100, 0, 10, "℃", new ShortTagValue(), false) { DecimalPoint = 1 }); - + + TagManger.AddTag(new Tag("液冷媒流量", "液冷媒流量[kg/h]", "LiqRefFlow", "程序", "VW15084", 100, 0, 10, "kg/h", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("通讯Cmp母线电流", "通讯Cmp母线电流[A]", "ComCapBusCur", "程序", "VW14102", 100, 0, 100, "A", new ShortTagValue(), false) { DecimalPoint = 2 }); TagManger.AddTag(new Tag("通讯Cmp母线电压", "通讯Cmp母线电压[V]", "ComCapBusVol", "程序", "VW14104", 100, 0, 1, "V", new ShortTagValue(), false) { DecimalPoint = 0 }); TagManger.AddTag(new Tag("通讯Cmp逆变器温度", "通讯Cmp逆变器温度[℃]", "ComCapInvTemp", "程序", "VW14106", 100, 0, 1, "℃", new ShortTagValue(), false) { DecimalPoint = 0 }); @@ -193,8 +195,18 @@ namespace CapMachine.Wpf.Services TagManger.AddTag(new Tag("通讯PTC膜温", "通讯PTC膜温[℃]", "ComPTCFlmTemp", "程序", "VW14128", 100, 0, 1, "℃", new ShortTagValue(), false) { DecimalPoint = 0 }); TagManger.AddTag(new Tag("通讯PTC模块温度", "通讯PTC模块温度[℃]", "ComPTCMdTemp", "程序", "VW14130", 100, 0, 1, "℃", new ShortTagValue(), false) { DecimalPoint = 0 }); + TagManger.AddTag(new Tag("过热度", "过热度[K]", "Superheat", "程序", "VW14132", 100, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("过冷度", "过冷度[K]", "Subcooling", "程序", "VW14134", 100, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + + TagManger.AddTag(new Tag("制热量Qh", "制热量Qh[KW]", "HeatingCapacity", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("压缩机性能系数(制热)", "压缩机性能系数(制热)[K]", "COPHeat", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("等熵效率ns", "等熵效率ns[%]", "IsentrpEff", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("制冷量Qc", "制冷量Qc[KW]", "CoolCapacity", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("压缩机性能系数(制冷)", "压缩机性能系数(制冷)[K]", "COPCool", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + TagManger.AddTag(new Tag("容积效率nv", "容积效率nv[%]", "VoltricEff", "程序", "VW14134", 1000, 0, 1, "K", new ShortTagValue(), false) { DecimalPoint = 1 }); + #endregion - + ListHandSwitchData = new List() { diff --git a/CapMachine.Wpf/Services/PPCService.cs b/CapMachine.Wpf/Services/PPCService.cs index de16e81..94b5adb 100644 --- a/CapMachine.Wpf/Services/PPCService.cs +++ b/CapMachine.Wpf/Services/PPCService.cs @@ -32,7 +32,7 @@ namespace CapMachine.Wpf.Services public ILogService Logger { get; } public MachineRtDataService MachineRtDataService { get; } public IDialogService DialogService { get; } - + /// /// 标签中心 @@ -58,11 +58,11 @@ namespace CapMachine.Wpf.Services TagManager = MachineRtDataService.TagManger; SpeedTag = TagManager.DicTags.GetValueOrDefault("转速[rpm]"); - + ExPressTag = TagManager.DicTags.GetValueOrDefault("排气压力[BarA]"); ExTempTag = TagManager.DicTags.GetValueOrDefault("排气温度[℃]"); - + HVPwTag = TagManager.DicTags.GetValueOrDefault("HV[W]"); InhPressTag = TagManager.DicTags.GetValueOrDefault("吸气压力[BarA]"); @@ -78,7 +78,7 @@ namespace CapMachine.Wpf.Services //TxvFrTempTag = TagManager.DicTags.GetValueOrDefault("膨胀阀前温度[℃]")!; //TxvFrPressTag = TagManager.DicTags.GetValueOrDefault("膨胀阀前压力[BarA]")!; - TxvFrTempTag = TagManager.DicTags.GetValueOrDefault("SUBCOOL出口温度[℃]"); + TxvFrTempTag = TagManager.DicTags.GetValueOrDefault("膨胀阀前温度[℃]"); TxvFrPressTag = TagManager.DicTags.GetValueOrDefault("膨胀阀前压力[BarA]"); @@ -89,21 +89,28 @@ namespace CapMachine.Wpf.Services VRVTag = TagManager.DicTags.GetValueOrDefault("冷媒流量[kg/h]"); //润滑油流量 - + LubeFlowTag = TagManager.DicTags.GetValueOrDefault("润滑油流量[kg/h]"); - + //Cond1TempTag = TagManager.DicTags.GetValueOrDefault("冷凝器出口水温[℃]"); //CondInTempTag = TagManager.DicTags.GetValueOrDefault("冷凝器进口温度[℃]"); //Superheat = TagManager.DicTags.GetValueOrDefault("过热度[K]"); //Subcool = TagManager.DicTags.GetValueOrDefault("过冷度[K]"); - + Superheat = TagManager.DicTags.GetValueOrDefault("过热度[K]"); - + Subcool = TagManager.DicTags.GetValueOrDefault("过冷度[K]"); + HeatingCapacity = TagManager.DicTags.GetValueOrDefault("制热量Qh[KW]"); + COPHeat = TagManager.DicTags.GetValueOrDefault("压缩机性能系数(制热)[K]"); + IsentrpEff = TagManager.DicTags.GetValueOrDefault("等熵效率ns[%]"); + CoolCapacity = TagManager.DicTags.GetValueOrDefault("制冷量Qc[KW]"); + COPCool = TagManager.DicTags.GetValueOrDefault("压缩机性能系数(制冷)[K]"); + VoltricEff = TagManager.DicTags.GetValueOrDefault("容积效率nv[%]"); + SuperHeatCoolConfig.FluidsPath = ConfigHelper.GetValue("FluidsPath"); SuperHeatCoolConfig.Cryogen = ConfigHelper.GetValue("Cryogen"); @@ -216,6 +223,15 @@ namespace CapMachine.Wpf.Services /// public ITag LubeFlowTag { get; set; } + + public ITag HeatingCapacity { get; set; } + public ITag COPHeat { get; set; } + public ITag IsentrpEff { get; set; } + public ITag CoolCapacity { get; set; } + public ITag COPCool { get; set; } + public ITag VoltricEff { get; set; } + + /// /// 风量数据-乘以系数的后的最终结果 /// @@ -281,8 +297,8 @@ namespace CapMachine.Wpf.Services kph = 1; p1 = (TxvFrPressTag.EngPvValue) * 100.0;// 保持你原有流程 - //p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa） - // 统一放入同一把锁中，避免并发导致的 Fortran 读文件/状态竞态 + //p1 = Convert.ToDouble(textBox3.Text) * 1000.0;//textBox3 Evap.膨胀阀前压力（Mpa） + // 统一放入同一把锁中，避免并发导致的 Fortran 读文件/状态竞态 string herr = new string(' ', 255); long herrLen = 255; iErr = 0; lock (_refpropLock) { @@ -1082,6 +1098,15 @@ namespace CapMachine.Wpf.Services } VolumetricEfficiencyPct = etaV_pct; + + //赋值 + HeatingCapacity.EngPvValue = HeatingCapacityQh_kW; + COPHeat.EngPvValue = COPHeating; + IsentrpEff.EngPvValue = IsentropicEfficiencyPct; + CoolCapacity.EngPvValue = CoolingCapacityQc_kW; + COPCool.EngPvValue = COPCooling; + VoltricEff.EngPvValue = VolumetricEfficiencyPct; + return true; } @@ -1491,12 +1516,15 @@ namespace CapMachine.Wpf.Services displacement_cc = double.NaN; error = string.Empty; + displacement_cc = 35; + return true; + const string key = "CompressorDisplacementCc"; - if (!ConfigHelper.IsExist(key)) - { - error = $"未配置压缩机排量，请在 App.config/appSettings 增加 {key}（单位 cc）"; - return false; - } + //if (!ConfigHelper.IsExist(key)) + //{ + // error = $"未配置压缩机排量，请在 App.config/appSettings 增加 {key}（单位 cc）"; + // return false; + //} string v = ConfigHelper.GetValue(key); if (!double.TryParse(v, out displacement_cc))