tweak coords setup, add more comments to same

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinderDirect/trunk@581 f88db872-0e4f-0410-b76b-b9085cfa78c5

1 files changed, 6 insertions, 4 deletions

diff --git a/src/maple/coords.maple b/src/maple/coords.maple
index 502e8da..d76993c 100644
--- a/src/maple/coords.maple
+++ b/src/maple/coords.maple
@@ -24,12 +24,14 @@ N_ang := 2;				# number of angular spatial coordinates
 delta := array(1..N, 1..N, identity);
 
 # (x,y,z) coordinates
+# n.b. individual coordinates are (xx,yy,zz) to avoid confusion with
+#      local variables x, y, etc
 x_xyz := array(1..N);
 x_xyz[1] := xx;
 x_xyz[2] := yy;
 x_xyz[3] := zz;
-x_xyz_list := [x_xyz[1], x_xyz[2], x_xyz[3]];
-x_xyz_set := {op(x_xyz_list)};
+x_xyz_list := [xx, yy, zz];
+x_xyz_set := {xx, yy, zz};
 
 # r coordinate
 r__fnd := ssqrt(xx^2 + yy^2 + zz^2);
@@ -38,8 +40,8 @@ r__fnd := ssqrt(xx^2 + yy^2 + zz^2);
 y_rs := array(1..N_ang);
 y_rs[1] := rho;
 y_rs[2] := sigma;
-y_rs_list := [y_rs[1], y_rs[2]];
-y_rs_set := {op(y_rs_list)};
+y_rs_list := [rho, sigma];
+y_rs_set := {rho, sigma};
 
 # list of all coordinates (for sorting things into "nice" order)
 xy_all_list := [op(x_xyz_list), op(y_rs_list)];