What's wrong with my code?
My code is as follows:
(* Create empty lists *)
xlist={};
ylist={};
zlist={};
latlonlist={};
(* Take inputs for ECEF *)
(Label[startinput];x = Input["What is the x coordinate?"];
y = Input["What is the y coordinate?"];
z = Input["What is the z coordinate?"];
AppendTo [xlist, x]
AppendTo [ylist, y]
AppendTo [zlist, z]
(Label[errorcontrol];
again=InputString["Enter more coords? Y for yes, N for no"];
If [again=="Y", Print["Okay!"];Goto[startinput]];
If [again!="N", Print["Sorry, this is an invalid input here!"];Goto[errorcontrol]];
If [again=="N", Print["Okay."]]));
(* Debugging *)
(* Print[xlist]
Print[ylist]
Print[zlist]
Print[x]
Print[y]
Print[z] *)
(* Combine Lists *)
list=Transpose[{xlist,ylist,zlist}]
(* More Debugging *)
(* Print[list] *)
(* Find length of list *)
qty=Length[list]
Print[qty]
For[i = 1, i < qty, i++,
point = Part[list, i];
GeoPositionXYZ[point, "ITRF00"];
latlonlist = AppendTo[latlonlist, GeoMarker[GeoPosition[%]]];
];
(* (* Put in Coordinate Form *)
GeoPositionXYZ[{x, y, z}, "ITRF00"];
(* Convert to LLA *)
GeoPosition[%] *)
(* Display Map *)
GeoGraphics[latlonlist, 7GeoRange -> "World", GeoProjection -> "Robinson"]
(* Display 3D Plot *)
ListPointPlot3D[list, DataRange -> {{-1000000, 1000000}, {-1000000, 1000000}}]
However, GeoGraphics returns:
GeoGraphics[{GeoMarker[GeoPosition[Null]],
GeoMarker[GeoPosition[Null]]}, 7 GeoRange -> "World",
GeoProjection -> "Robinson"]
HOW IS IT NULL WHEN I KNOW I AM FEEDING VALUES INTO IT?!?