Changeset 13987

Timestamp:

Jun 26, 2007, 4:59:37 PM (19 years ago)

Author:

eugene

Message:

adding MANA plots of the curves, fixed parsing error

File:

• trunk/ippScripts/scripts/ipp_darkstats.pl (modified) (5 diffs)

trunk/ippScripts/scripts/ipp_darkstats.pl

@@ -7 +7 @@
 use Pod::Usage qw( pod2usage );
 use IPC::Cmd 0.36 qw( can_run run );
+use IO::Handle;
 
 use PS::IPP::Metadata::List qw( parse_md_list );
@@ -78 +79 @@
     my $statsName = "$rootName.$class_id.stats";
 
-    # print STDERR "rootName: $rootName\n";
-    # print STDERR "statsName: $statsName\n";
+    # print STDERR "rootName: $rootName : $exp_time\n";
+    print STDERR "statsName: $statsName : $exp_time\n";
 
     my $statsFile;
@@ -107 +108 @@
 print STDERR "dumping stats\n";
 open (MANA, "|mana --norc");
+MANA->autoflush;
 
 foreach my $component (@components) {
@@ -133 +135 @@
     print MANA "echo\n";
     print MANA "output stdout\n";
+
+    print MANA "applyfit X Yf\n";
+    print MANA "lim X Y\n";
+    print MANA "clear\n";
+    print MANA "box\n";
+    print MANA "plot -x 2 -pt 2 -sz 1.0 -c black X Y\n";
+    print MANA "plot -x 2 -pt 7 -sz 1.0 -c red X Yf\n";
+
+    print STDERR "hit return to continue\n";
+    $answer = <STDIN>;
 }
 
@@ -152 +164 @@
         }
 
-        if ($entry->{name} =~ /^(SAMPLE|ROBUST|FITTED|CLIPPED)_/) {
+        if ($entry->{name} =~ /^(SAMPLE|ROBUST|FITTED|CLIPPED)/) {
             # It's a statistic of some sort
             if ($entry->{name} =~ /_STDEV$/) {
                 push @bg_stdev_data, $entry->{value};
             } else {
-                push @bg_data, $entry->{value};
+                push @bg_name,    $tag;
+                push @bg_data,    $entry->{value};
+                push @bg_exptime, $exp_time;
+                # print STDERR "$tag $exp_time $entry->{value}\n";
             }
-            push @bg_name, $tag;
-            push @bg_exptime, $exp_time;
             if (!$componentsHash{$tag}) {
                 push @components, $tag;