Migration to OpenModelica 1.25 and FMUs Generation

SimulationModels/OpenModelica 1.11/AIDAModelica/PositionConvector.mo

@@ -0,0 +1,64 @@
+// CP: 65001
+// SimulationX Version: 3.8.2.45319 x64
+within AIDAModelica;
+model PositionConvector "PositionConvector"
+	Modelica.Blocks.Interfaces.RealInput Latitude(
+		quantity="Mechanics.Rotation.Angle",
+		displayUnit="deg") "'input Real' as connector" annotation(Placement(
+		transformation(extent={{-20,-20},{20,20}}),
+		iconTransformation(
+			origin={-50,-100},
+			extent={{-20,-20},{20,20}},
+			rotation=90)));
+	Modelica.Blocks.Interfaces.RealInput Longitude(
+		quantity="Mechanics.Rotation.Angle",
+		displayUnit="deg") "'input Real' as connector" annotation(Placement(
+		transformation(extent={{-20,-20},{20,20}}),
+		iconTransformation(
+			origin={50,-100},
+			extent={{-20,-20},{20,20}},
+			rotation=90)));
+	Modelica.Blocks.Interfaces.RealOutput XCoordinate(
+		quantity="Mechanics.Translation.Displace",
+		displayUnit="m") "'output Real' as connector" annotation(Placement(
+		transformation(extent={{-10,-10},{10,10}}),
+		iconTransformation(
+			origin={-50,100},
+			extent={{-10,-10},{10,10}},
+			rotation=90)));
+	Modelica.Blocks.Interfaces.RealOutput YCoordinate(
+		quantity="Mechanics.Translation.Displace",
+		displayUnit="m") "'output Real' as connector" annotation(Placement(
+		transformation(extent={{-10,-10},{10,10}}),
+		iconTransformation(
+			origin={50,100},
+			extent={{-10,-10},{10,10}},
+			rotation=90)));
+	parameter Real a(
+		quantity="Basics.Length",
+		displayUnit="m")=6378137 "Radius semi-major axis";
+	parameter Real e2=0.00669437999 "First numerical eccentricity of the elipsoid";
+	parameter Real pi=3.14159265359 "Parameter pi";
+	Real Lat(
+		quantity="Mechanics.Rotation.Angle",
+		displayUnit="rad") "Latitude";
+	Real Lon(
+		quantity="Mechanics.Rotation.Angle",
+		displayUnit="rad") "Longitude";
+	Real R(
+		quantity="Basics.Length",
+		displayUnit="m") "The prime vertical radius of curvature";
+	parameter Real h=0 "Height above the elipsoide";
+	equation
+		// enter your equations here
+		Lat = Latitude*(pi/180);
+		Lon = Longitude*(pi/180);
+		R = a/sqrt(1-e2*((1-cos(2*Lat))/2));
+		XCoordinate = (R+h)*cos(Lat)*cos(Lon);
+		YCoordinate = -1*((R+h)*cos(Lat)*sin(Lon));
+	annotation(Icon(graphics={
+		Rectangle(
+			fillColor={255,255,255},
+			fillPattern=FillPattern.Solid,
+			extent={{-100,100},{100,-100}})}));
+end PositionConvector;