Changeset 32867 for branches/eam_branches/ipp-20111122/Ohana/src/opihi/cmd.astro

Timestamp:

Dec 5, 2011, 6:41:13 AM (15 years ago)

Author:

eugene

Message:

clustering code

Location:

branches/eam_branches/ipp-20111122/Ohana/src/opihi/cmd.astro

Files:

• Makefile (modified) (1 diff)
• init.c (modified) (2 diffs)
• mkclusters.c (added)
• specpairfit.c (modified) (1 diff)

branches/eam_branches/ipp-20111122/Ohana/src/opihi/cmd.astro/Makefile

@@ -58 +58 @@
 $(SRC)/spec.$(ARCH).o              \
 $(SRC)/specpairfit.$(ARCH).o       \
+$(SRC)/mkclusters.$(ARCH).o        \
 $(SRC)/star.$(ARCH).o              \
 $(SRC)/transform.$(ARCH).o         \

branches/eam_branches/ipp-20111122/Ohana/src/opihi/cmd.astro/init.c

@@ -46 +46 @@
 int spec                    PROTO((int, char **));
 int specpairfit             PROTO((int, char **));
+int mkclusters              PROTO((int, char **));
 int star                    PROTO((int, char **));
 int times                   PROTO((int, char **));
@@ -95 +96 @@
   {1, "spec",        spec,         "extract a spectrum"},
   {1, "specpairfit", specpairfit,  "fit spectrum to another spectrum"},
+  {1, "mkclusters",  mkclusters,   "group spectra by distance"},
   {1, "star",        star,         "star stats at rough coords"},
   {1, "transform",   transform,    "geometric transformation of image"},

branches/eam_branches/ipp-20111122/Ohana/src/opihi/cmd.astro/specpairfit.c

@@ -14 +14 @@
   if ((window = SelectVector (argv[5], OLDVECTOR, TRUE)) == NULL) goto escape;
   
+  // XXX enforce matching lengths on the 6 vectors
+
   int mask = atoi (argv[6]);
   CastVector (window, OPIHI_INT);