TyroneGit/CapMachine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

计算公式提交

Browse Source
This commit is contained in:
Tyrone CT
2026-03-12 11:16:02 +08:00
parent 8e884679fc
commit 1cebfc1811
3 changed files with 87 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
CapMachine.Wpf/Services/PPCService.cs
View File

@@ -32,7 +32,7 @@ namespace CapMachine.Wpf.Services
public ILogService Logger { get; }
public MachineRtDataService MachineRtDataService { get; }
public IDialogService DialogService { get; }
/// <summary>
/// 标签中心
@@ -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
/// </summary>
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; }
/// <summary>
/// 风量数据-乘以系数的后的最终结果
/// </summary>
@@ -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))