winzer/pamhagen-sysctrl
2
0
Fork 0
Code Issues Pull Requests Actions Releases Activity

Add heat exchangers

Browse Source
This commit is contained in:
Lorenz Stechauner
2026-07-14 16:29:12 +02:00
parent b0d2bf4bdc
commit 44a605598e
9 changed files with 177 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PamhagenSysCtrl/Helpers/PamhagenGraph.cs
+44 -26
View File
@@ -84,13 +84,12 @@ namespace PamhagenSysCtrl.Helpers {
CreatePipe(x7, xv11);
var v10 = CreateValve(10, ltg2X + 40, 360);
var v11 = CreateValve(11, ltg1X - 40, 330);
var v11 = CreateValve(11, ltg1X - 30, 330);
var v12 = CreateValve(12, ltg1X, 260);
var v13 = CreateValve(13, ltg2X, 260);
var v14 = CreateValve(14, ltg1X - 40, 220);
var v15 = CreateValve(15, ltg1X - 40, 300);
var v16 = CreateValve(16, ltg1X - 40, 190);
var v14 = CreateValve(14, ltg1X - 30, 220);
var v15 = CreateValve(15, ltg1X - 30, 300);
var v16 = CreateValve(16, ltg1X - 30, 190);
CreatePipe(v10, x7);
CreatePipe(xv11, v11);
CreatePipe(xv15, v15);
@@ -99,32 +98,48 @@ namespace PamhagenSysCtrl.Helpers {
var xv16 = new PipeJoin(ltg1X, 190);
var xv14 = new PipeJoin(ltg2X, 220);
CreatePipe(v12, xv16);
CreatePipe(v13, xv14);
CreatePipe(v16, xv16);
CreatePipe(v14, xv14);
var v20 = CreateValve(20, ltg1X - 40, 60);
var v21 = CreateValve(21, ltg1X - 40, 90);
var v20 = CreateValve(20, ltg1X - 30, 60);
var v21 = CreateValve(21, ltg1X - 30, 90);
var xv20 = new PipeJoin(ltg1X, 60);
var xv21 = new PipeJoin(ltg2X, 90);
CreatePipe(xv16, xv20);
CreatePipe(xv14, xv21);
CreatePipe(v20, xv20);
CreatePipe(v21, xv21);
var x8 = new PipeJoin(ltg1X - 80, 300);
var x9 = new PipeJoin(ltg1X - 80, 220);
var x10 = new PipeJoin(ltg1X - 80, 90);
CreatePipe(v11, x8);
CreatePipe(v15, x8);
CreatePipe(x9, v14, true);
CreatePipe(x9, v16, true);
CreatePipe(x10, v20, true);
CreatePipe(x10, v21, true);
var wt1 = new HeatExchanger("WT Most", ltg1X - 180, 260);
var wt2 = new HeatExchanger("WT Warmwasser", ltg1X - 180, 125);
var v17 = CreateValve(17, ltg1X - 110, 260);
var v18 = CreateValve(18, ltg1X - 140, 300);
var v19 = CreateValve(19, ltg1X - 140, 190);
var xwt1 = new PipeJoin(ltg1X - 60, 300);
var xwt2 = new PipeJoin(ltg1X - 110, 300);
var xwt3 = new PipeJoin(ltg1X - 140, 220);
var xwt4 = new PipeJoin(ltg1X - 60, 220);
var xwt5 = new PipeJoin(ltg1X - 140, 160);
var xwt6 = new PipeJoin(ltg1X - 60, 90);
CreatePipe(v11, xwt1);
CreatePipe(v15, xwt1);
CreatePipe(xwt1, xwt2);
CreatePipe(xwt4, v14, true);
CreatePipe(xwt4, v16, true);
CreatePipe(xwt6, v20, true);
CreatePipe(xwt6, v21, true);
CreatePipe(wt2, xwt6, true);
CreatePipe(wt1, xwt3, true);
CreatePipe(xwt3, xwt4);
CreatePipe(xwt2, v18);
CreatePipe(v18, wt1);
CreatePipe(xwt2, v17);
CreatePipe(xwt3, v19);
CreatePipe(v17, xwt5, true);
CreatePipe(v19, xwt5);
CreatePipe(xwt5, wt2);
var xv22 = new PipeJoin(t1X - 15, ltg7Y);
var xv23 = new PipeJoin(t1X + 15, ltg6Y);
@@ -339,7 +354,8 @@ namespace PamhagenSysCtrl.Helpers {
return new($"Tank {n}", x, y, capacity, () => App.Plant?.TankFillLevels[n - 1] != FillState.Empty, () => App.Plant?.TankFillLevels[n - 1] != FillState.Full);
}
public void ColorSubgraph(INode start, Brush color, Action<Valve>? valveAction = null) {
public void TraverseSubgraph(INode start, HashSet<IEdge>? visited = null, Action<IEdge>? edgeAction = null, Action<Valve>? valveAction = null) {
visited ??= [];
if (start is Valve v) {
valveAction?.Invoke(v);
return;
@@ -347,16 +363,18 @@ namespace PamhagenSysCtrl.Helpers {
return;
}
foreach (var edge in start.Inputs) {
if (edge.Highlight != null) continue;
if (visited.Contains(edge)) continue;
var o = edge.IsTwoWay && edge.Start == start ? edge.End : edge.Start;
edge.Highlight = color;
ColorSubgraph(o, color, valveAction);
edgeAction?.Invoke(edge);
visited.Add(edge);
TraverseSubgraph(o, visited, edgeAction, valveAction);
}
foreach (var edge in start.Outputs) {
if (edge.Highlight != null) continue;
if (visited.Contains(edge)) continue;
var o = edge.IsTwoWay && edge.End == start ? edge.Start : edge.End;
edge.Highlight = color;
ColorSubgraph(o, color, valveAction);
edgeAction?.Invoke(edge);
visited.Add(edge);
TraverseSubgraph(o, visited, edgeAction, valveAction);
}
}
}