Merge branch 'main' of http://gitea.schoenenberger.de/mistangl/SSG-Ruledesigner-Konfigurator

Doku/Berechnung-foerderer-Längen_extended.md

@@ -89,3 +89,46 @@ $$
 $$
 {tan(\alpha_F)} \geq {\frac{H_1 - H_0}{L_1}}
 $$
+
+///
+
+C-GPT
+
+# Bekannte Werte:
+L1, H0, H1, alpha_F, alpha_S, H_SEA, L_SEA, H_FEA, L_FEA
+
+# Gesucht:
+# L_F, L_S, ΔH_F, ΔH_S, (→ H_Max)
+
+# Beziehungen:
+# [1]    (ΔH_F - H_FEA) / (L_F - L_FEA) = tan(alpha_F)
+# [1.2]  ΔH_F = tan(alpha_F) * (L_F - L_FEA) + H_FEA
+# [2]    (ΔH_S - H_SEA) / (L_S - L_SEA) = tan(alpha_S)
+# [2.2]  ΔH_S = tan(alpha_S) * (L_S - L_SEA) + H_SEA
+# [4]    H_0 + ΔH_F = H_1 + ΔH_S
+# [4.2]  ΔH_F = H_1 - H_0 + ΔH_S
+# [5]    L_1 = L_F + L_S
+# [6]    L_1 = L_F * x_Verhältnis
+
+# Umstellen der Gleichungen für ΔH_F und ΔH_S:
+ΔH_F = tan(alpha_F) * (L_F - L_FEA) + H_FEA
+ΔH_S = tan(alpha_S) * (L_S - L_SEA) + H_SEA
+
+# Einsetzen von L_S = L_1 - L_F:
+tan(alpha_F) * (L_F - L_FEA) + H_FEA = H_1 - H_0 + (tan(alpha_S) * ((L_1 - L_F) - L_SEA) + H_SEA)
+
+# Auflösen nach L_F:
+tan(alpha_F) * L_F - tan(alpha_F) * L_FEA + H_FEA = H_1 - H_0 + tan(alpha_S) * L_1 - tan(alpha_S) * L_F - tan(alpha_S) * L_SEA + H_SEA
+
+# Gruppieren der Terme:
+tan(alpha_F) * L_F + tan(alpha_S) * L_F = tan(alpha_S) * L_1 + H_1 - H_0 - tan(alpha_F) * L_FEA - H_FEA + tan(alpha_S) * L_SEA - H_SEA
+
+# L_F isolieren:
+L_F = (tan(alpha_S) * L_1 + H_1 - H_0 - tan(alpha_F) * L_FEA - H_FEA + tan(alpha_S) * L_SEA - H_SEA) / (tan(alpha_F) + tan(alpha_S))
+
+# Berechnung von x_Verhältnis:
+x_Verhältnis = L_F / L_1
+x_Verhältnis = (tan(alpha_S) + (H_1 - H_0 - tan(alpha_F) * L_FEA - H_FEA + tan(alpha_S) * L_SEA - H_SEA) / L_1) / (tan(alpha_F) + tan(alpha_S))
+
+# Vereinfachte Formel für x_Verhältnis:
+x_Verhältnis = (tan(alpha_S) + ((H_1 - H_0) - tan(alpha_F) * L_FEA - H_FEA + tan(alpha_S) * L_SEA - H_SEA) / L_1) / (tan(alpha_F) + tan(alpha_S))

Editor2DLibrary/SSG/Init/objekteigenschaften_ILS.json

@@ -0,0 +1,22 @@
+{
+    "Einschleuselement":{
+        "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Ausschleuselement":{
+        "comment": "Höhen- und Längendifferenz zwischen Laufprofil des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Einschleusung_Kreiselkopf":{
+        "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    },
+    "Ausschleusung_Kreiselkopf":{
+        "comment": "Höhen- und Längendifferenz zwischen Kreiselkopf des Kreisels und Ende einer angebundenen Gefällestrecke in Millimetern",
+        "delta_h": 50,
+        "delta_s": 30
+    }
+}

MAIN_SSG.rdx

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
-	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-05-24T18:18:52" LanguageVersion="2014.1.3.673" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-05-27T15:29:02" LanguageVersion="2014.1.3.673" />
 	<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
 		<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
 			<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -17,7 +17,7 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
+				<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -162,6 +162,13 @@
 					<FIELD Id="RDK:18530562" Name="Weiche_top" Type="WeicheType" />
 					<FIELD Id="RDK:18530564" Name="Weiche_bot" Type="WeicheType" />
 				</TYPE>
+				<TYPE Id="RDK:19260062" Name="SSG_Attributes" Expanded="True" SubType="structure">
+					<TYPE_VALUES />
+					<FIELD Id="RDK:19260048" Name="Einschleuselement_delta_h" Type="double" />
+					<FIELD Id="RDK:19260066" Name="Einschleuselement_delta_s" Type="double" />
+					<FIELD Id="RDK:19260064" Name="Ausschleuselement_delta_h" Type="double" />
+					<FIELD Id="RDK:19260068" Name="Ausschleuselement_delta_s" Type="double" />
+				</TYPE>
 			</GROUP>
 			<TYPE Id="RDK:381" Name="ImportBackgroundType" SubType="structure">
 				<TYPE_VALUES />
@@ -842,7 +849,7 @@
 				<FIELD Id="RDK:1345489" Name="NewHoeheUnten" Type="double" />
 				<FIELD Id="RDK:1370529" Name="Text" Type="string" />
 			</TYPE>
-			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
+			<TYPE Id="RDK:1529401" Name="IndirectConnGefaellestreckeType" Expanded="True" SubType="structure" HasArrayType="True" DesignTimeNotes="20231011 -1-">
 				<TYPE_VALUES />
 				<FIELD Id="RDK:1529402" Name="Id" Type="string" />
 				<FIELD Id="RDK:1529403" Name="Cp" Type="string" />
@@ -898,6 +905,7 @@
 				<VAR Id="RDK:1789532" Name="SSGParameterList" Type="SSGParameter[]" />
 				<VAR Id="RDK:1789534" Name="SSGParameter" Type="SSGParameter" />
 				<VAR Id="RDK:18530566" Name="SSG_Limits_data" Type="SSG_Limits" />
+				<VAR Id="RDK:19260001" Name="SSG_Attributes_data" Type="SSG_Attributes" />
 			</GROUP>
 			<GROUP Id="RDK:314272" Name="MUI" SubType="VarSet" IncludeDate="0">
 				<VAR Id="RDK:426767" Name="KreiselData" Type="KreiselType" />
@@ -16522,6 +16530,131 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</SELECTCASE>
 				</FOREACHLOOP>
 			</FUNCTION>
+			<FUNCTION Id="RDK:19259865" Name="InitObjectAttributes">
+				<GROUP Id="RDK:19259883" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:19259876" Name="jsonfilepath" Type="string">
+						<SET Id="RDK:19259875" VarRef="Me">
+							<EXP><![CDATA[$=$WebRootPath()+"Editor2D\SSG\Init\objekteigenschaften_ILS.json"]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:19259877" Name="json" Type="string" />
+					<VAR Id="RDK:19259878" Name="attribute" Type="structure" />
+					<VAR Id="RDK:19259879" Name="komponenten_list" Type="string[]" DesignTimeRemark="Alle Komponenten, die im JSON den Attributen enthalten sind" />
+					<VAR Id="RDK:19259880" Name="str_item" Type="string" />
+					<VAR Id="RDK:19259881" Name="attr_item" Type="structure" />
+					<VAR Id="RDK:19259882" Name="werte" Type="string[]" DesignTimeRemark="Alle JSON Felder, die unter einer Komponente enthalten sind (z.B. &quot;Höhendifferenz&quot;)" />
+				</GROUP>
+				<ACTION_CALL Id="RDK:19259921" Name="RDEngineering_ReadFromTextFile">
+					<PAR Name="RDLibraryName">
+						<EXP><![CDATA[$C$RDEngineering_FILE_TEXT]]></EXP>
+					</PAR>
+					<PAR Name="FileName">
+						<EXP><![CDATA[$=$jsonfilepath]]></EXP>
+					</PAR>
+					<PAR Name="DataType">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="StringText">
+						<EXP><![CDATA[$V$json]]></EXP>
+					</PAR>
+					<PAR Name="StringVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="StringTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberVector">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="NumberTable">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="XmlTokens">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="FileFormat">
+						<EXP><![CDATA[$C$2]]></EXP>
+					</PAR>
+					<PAR Name="IniSection" />
+					<PAR Name="IniProperty" />
+					<PAR Name="Options">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+				</ACTION_CALL>
+				<SET Id="RDK:19259923" VarRef="attribute" DesignTimeRemark="Hole Daten der Eigenschaften aus JSON Datei">
+					<EXP><![CDATA[$=$FromJSON(json)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:19259925" VarRef="komponenten_list" DesignTimeRemark="Alle Komponenten, die in der JSON Datei enthalten sind">
+					<EXP><![CDATA[$=$FieldNames(attribute)]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<FOREACHLOOP Id="RDK:19259979" ItemVarRef="str_item">
+					<PAR Name="ArrayValueExp">
+						<EXP><![CDATA[$=$komponenten_list]]></EXP>
+					</PAR>
+					<PAR Name="ExitCondExp">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<SELECTCASE Id="RDK:19259978">
+						<EXP><![CDATA[$=$str_item]]></EXP>
+						<CASEGROUP Id="RDK:19259969" CaseType="0">
+							<EXP><![CDATA[$C$Einschleuselement]]></EXP>
+							<IFTHENELSE Id="RDK:19260123">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260122" SubType="Then">
+									<SET Id="RDK:19260117" VarRef="SSG_Attributes_data.Einschleuselement_delta_h">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:19260174">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260173" SubType="Then">
+									<SET Id="RDK:19260172" VarRef="SSG_Attributes_data.Einschleuselement_delta_s">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:19260194" CaseType="0">
+							<EXP><![CDATA[$C$Ausschleuselement]]></EXP>
+							<IFTHENELSE Id="RDK:19260190">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260189" SubType="Then">
+									<SET Id="RDK:19260188" VarRef="SSG_Attributes_data.Ausschleuselement_delta_h">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:19260193">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:19260192" SubType="Then">
+									<SET Id="RDK:19260191" VarRef="SSG_Attributes_data.Ausschleuselement_delta_s">
+										<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</CASEGROUP>
+						<CASEGROUP Id="RDK:19259977" CaseType="1">
+							<EXP />
+						</CASEGROUP>
+					</SELECTCASE>
+				</FOREACHLOOP>
+			</FUNCTION>
 		</GROUP>
 	</GROUP>
 	<GROUP Id="RDK:0008" Name="Main Group" SubType="Generic" Expanded="True">
@@ -20429,6 +20562,16 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:19260089">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$InitObjectAttributes]]></EXP>
+					</PAR>
+					<PAR Name="InputExp" />
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 			</GROUP>
 		</GROUP>
 		<GROUP Id="RDK:93787" Name="Default Settings" SubType="Generic">