Changeset 20857 for branches/eam_branch_20081124/Ohana/src/opihi/lib.data/PlotVectors.c

Timestamp:

Nov 30, 2008, 7:45:21 AM (18 years ago)

Author:

eugene

Message:

modify functions to use both int and flt vectors

File:

• branches/eam_branch_20081124/Ohana/src/opihi/lib.data/PlotVectors.c (modified) (4 diffs)

branches/eam_branch_20081124/Ohana/src/opihi/lib.data/PlotVectors.c

@@ -1 +1 @@
 # include "display.h"
 
-int PlotVectorSingle (int kapa, int Npts, opihi_flt *values, char *mode) {
+int PlotVectorSingle (int kapa, Vector *vec, char *mode) {
 
-  int i;
+  int i, Npts;
   float *temp;
+
+  Npts = vec->Nelements;
   ALLOCATE (temp, float, Npts);
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = values[i];
+  if (vec->type == OPIHI_FLT) {
+    opihi_flt *value = vec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = vec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, mode);
@@ -17 +27 @@
 }
 
-int PlotVectorPair (int kapa, int Npts, opihi_flt *xValues, opihi_flt *yValues, Graphdata *graphmode) {
+int PlotVectorPair (int kapa, Vector *xVec, Vector *yVec, Graphdata *graphmode) {
 
-  int i;
+  int i, Npts;
   float *temp;
+
+  if (xVec->Nelements != yVec->Nelements) return (FALSE);
+  Npts = xVec->Nelements;
+
   ALLOCATE (temp, float, Npts);
 
   KapaPrepPlot (kapa, Npts, graphmode);
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = xValues[i];
+  if (xVec->type == OPIHI_FLT) {
+    opihi_flt *value = xVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = xVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "x");
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = yValues[i];
+  if (yVec->type == OPIHI_FLT) {
+    opihi_flt *value = yVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = yVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "y");
@@ -40 +70 @@
 }
 
-int PlotVectorTriplet (int kapa, int Npts, opihi_flt *xValues, opihi_flt *yValues, opihi_flt *zValues, Graphdata *graphmode) {
+int PlotVectorTriplet (int kapa, Vector *xVec, Vector *yVec, Vector *zVec, Graphdata *graphmode) {
 
-  int i;
+  int i, Npts;
   float *temp;
+
+  if (xVec->Nelements != yVec->Nelements) return (FALSE);
+  if (xVec->Nelements != zVec->Nelements) return (FALSE);
+  Npts = xVec->Nelements;
+
   ALLOCATE (temp, float, Npts);
 
-  KapaPrepPlot   (kapa, Npts, graphmode);
+  KapaPrepPlot (kapa, Npts, graphmode);
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = xValues[i];
+  if (xVec->type == OPIHI_FLT) {
+    opihi_flt *value = xVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = xVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "x");
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = yValues[i];
+  if (yVec->type == OPIHI_FLT) {
+    opihi_flt *value = yVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = yVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "y");
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = zValues[i];
+  if (zVec->type == OPIHI_FLT) {
+    opihi_flt *value = zVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = zVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "z");
@@ -68 +127 @@
 }
 
-int PlotVectorPairErrors (int kapa, int Npts, opihi_flt *xValues, opihi_flt *yValues, opihi_flt *dyValues, Graphdata *graphmode) {
+int PlotVectorPairErrors (int kapa, Vector *xVec, Vector *yVec, Vector *dyVec, Graphdata *graphmode) {
 
-  int i;
+  int i, Npts;
   float *temp;
+
+  if (xVec->Nelements != yVec->Nelements) return (FALSE);
+  if (xVec->Nelements != dyVec->Nelements) return (FALSE);
+  Npts = xVec->Nelements;
+
   ALLOCATE (temp, float, Npts);
 
   KapaPrepPlot (kapa, Npts, graphmode);
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = xValues[i];
+  if (xVec->type == OPIHI_FLT) {
+    opihi_flt *value = xVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = xVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "x");
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = yValues[i];
+  if (yVec->type == OPIHI_FLT) {
+    opihi_flt *value = yVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = yVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "y");
 
-  for (i = 0; i < Npts; i++) {
-    temp[i] = dyValues[i];
+  if (dyVec->type == OPIHI_FLT) {
+    opihi_flt *value = dyVec->elements.Flt;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
+  } else {
+    opihi_int *value = dyVec->elements.Int;
+    for (i = 0; i < Npts; i++) {
+      temp[i] = value[i];
+    }
   }
   KapaPlotVector (kapa, Npts, temp, "dym");