Here is my code (pasted below). How do I append values to the end of my lists? Either append isn't working or the debugging lines I wrote to confirm the values were appended isn't working. What am I doing wrong?
I don't honestly believe I have a future in this... it's not something I am smart enough to learn... an IQ of 150 just isn't high enough for Mathematica and physics I don't think.
(* Create empty lists *)
xlist={};
ylist={};
zlist={};
(* 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?"];
Append [xlist, x]
Append [ylist, y]
Append [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]
(* Put in Coordinate Form *)
GeoPositionXYZ[{x, y, z}, "ITRF00"];
(* Convert to LLA *)
GeoPosition[%]
(* Display Map *)
GeoGraphics[GeoMarker[GeoPosition[%]],GeoRange -> "World", GeoProjection -> "Robinson"]
(* Display 3D Plot *)
ListPointPlot3D[{{x, y, z}}]