Changeset 31886 for trunk/tools/czartool/Plotter.pm

Timestamp:

Jul 15, 2011, 4:16:20 PM (15 years ago)

Author:

rhenders

Message:

all time-series plots now created at same time for speed

File:

• trunk/tools/czartool/Plotter.pm (modified) (9 diffs)

trunk/tools/czartool/Plotter.pm

@@ -97 +97 @@
     my $type = $isLog ? "log" : "linear";
     return $prefix . "/czarplot_" . $type . "_" . $label . "_" . $stagePart . "_$suffix.png";
-}
-
-###########################################################################
-#
-# Plots a time series for all stages for this label, both log and linear
-#
-###########################################################################
-sub createLogAndLinearTimeSeries {
-    my ($self, $label, $selectedStage, $beginTime, $endTime) = @_;
-
-    $self->createTimeSeries($label, $selectedStage, $beginTime, $endTime, 1);
-    $self->createTimeSeries($label, $selectedStage, $beginTime, $endTime, 0);
 }
 
@@ -146 +134 @@
 #
 ###########################################################################
-sub createRatePlot {
-    my ($self, $label, $selectedStage, $beginTime, $endTime, $interval, $histogram, $timeSeries) = @_;
+sub createRateHistogram {
+    my ($self, $label, $selectedStage, $beginTime, $endTime, $interval) = @_;
 
     # stages
@@ -184 +172 @@
     }
 
-    if ($histogram) {
-
-        my $outputFile = createImageFileName($self, $label, $selectedStage, "rh", 0);
-        $self->plotRateStackedHistogram(\%gnuplotFiles, $outputFile, $label, $selectedStage, $beginTime, $endTime, $interval);
-    }
-    if ($timeSeries) {
-
-        my $outputFile = createImageFileName($self, $label, $selectedStage, "rt", 0);
-        $self->plotTimeSeries(\%gnuplotFiles, $outputFile, $label, $beginTime, $endTime, $maxX, $minX, $timeDiff, "", "Exposures processed per $interval");
-    }
+    my $outputFile = createImageFileName($self, $label, $selectedStage, "rh", 0);
+    $self->plotRateStackedHistogram(\%gnuplotFiles, $outputFile, $label, $selectedStage, $beginTime, $endTime, $interval);
 
     # now delete temp dat files
@@ -250 +230 @@
 ###########################################################################
 sub createTimeSeries {
-    my ($self, $label, $selectedStage, $beginTime, $endTime, $isLog, $showCleanup, $deriv) = @_;
+    my ($self, $label, $selectedStage, $beginTime, $endTime, $linear, $log, $rate) = @_;
 
     my $minX = 999999999;      
@@ -261 +241 @@
     else {$stages = ["$selectedStage"]};        
 
-    my %gnuplotFiles;
+    my %linDataFiles;
+    my %logDataFiles;
+    my %ratDataFiles;
     my $stage = undef;
-    my $gnuplotFile = undef;
+    my $linDataFile = undef;
+    my $logDataFile = undef;
+    my $ratDataFile = undef;
+
     foreach $stage (@{$stages}) {
 
@@ -274 +259 @@
                     \$maxX, 
                     \$timeDiff, 
-                    \$gnuplotFile,
-                    $isLog,
-                    $showCleanup,
-                    $deriv)) {
-
-            $gnuplotFiles{$stage} = $gnuplotFile;
+                    \$linDataFile,
+                    \$logDataFile,
+                    \$ratDataFile)) {
+
+            $linDataFiles{$stage} = $linDataFile;
+            $logDataFiles{$stage} = $logDataFile;
+            $ratDataFiles{$stage} = $ratDataFile;
         }
     }                                                           
 
-    my $numOfPlots =  keys(%gnuplotFiles);
+    my $numOfPlots =  keys(%linDataFiles);
 
     if ($numOfPlots == 0 ) {
@@ -297 +283 @@
     }
 
-    my $outputFile = createImageFileName($self, $label, $selectedStage, "t", $isLog);
-    my $yTitle;
-    if ($isLog) {$yTitle = "Log(Exposures)";}
-    elsif ($deriv) {$yTitle = "dExposures/dTime(secs)";}
-    else {$yTitle = "Exposures";}
-    $self->plotTimeSeries(
-            \%gnuplotFiles, 
-            $outputFile, 
-            $label, 
-            $beginTime, 
-            $endTime, 
-            $maxX, 
-            $minX, 
-            $timeDiff, 
-            "",
-            $yTitle);
-}                                                    
+    if ($linear) {
+
+        my $outputFile = createImageFileName($self, $label, $selectedStage, "t", 0);
+
+        $self->plotTimeSeries(
+                \%linDataFiles, 
+                $outputFile, 
+                $label, 
+                $beginTime, 
+                $endTime, 
+                $maxX, 
+                $minX, 
+                $timeDiff, 
+                "",
+                "Exposures");
+    }
+
+    if ($log) {
+
+        my $outputFile = createImageFileName($self, $label, $selectedStage, "t", 1);
+
+        $self->plotTimeSeries(
+                \%logDataFiles, 
+                $outputFile, 
+                $label, 
+                $beginTime, 
+                $endTime, 
+                $maxX, 
+                $minX, 
+                $timeDiff, 
+                "",
+                "Log(Exposures)");
+    }
+
+    if ($rate) {
+
+        my $outputFile = createImageFileName($self, $label, $selectedStage, "rt", 0);
+
+        $self->plotTimeSeries(
+                \%ratDataFiles, 
+                $outputFile, 
+                $label, 
+                $beginTime, 
+                $endTime, 
+                $maxX, 
+                $minX, 
+                $timeDiff, 
+                "",
+                "Exposures processed per hour");
+}    
+}                                                
 
 ###########################################################################
@@ -468 +488 @@
     my $timeFormat = undef;
     my $divX = undef;
-    #my $yTitle = undef;
-    #if ($isLog) {$yTitle = "Log( Exposures )";}
-    #elsif ($isDeriv) {$yTitle = "dExposures/dTime(secs)";}
-    #else {$yTitle = "Exposures";}
 
     $self->getTimeSpacing($timeDiff, \$divX, \$timeFormat);
@@ -478 +494 @@
 
     # sort out plot title
-    #my $title = "";
-    #if ($isDeriv) {$title .= "First derivatives of "}
     if ($numOfPlots == 1) {foreach my $stage (keys %$gnuplotFiles) {$title .= "'".$stage."'";}}
     else {$title .= "'all stages'"}