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?!?