// 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;