Changeset 29437 for trunk/tools/czarplot.pl

Timestamp:

Oct 15, 2010, 12:34:37 PM (16 years ago)

Author:

rhenders

Message:

Added first derivative plots

File:

• trunk/tools/czarplot.pl (modified) (6 diffs)

trunk/tools/czarplot.pl

@@ -23 +23 @@
 my $timeSeries = undef;
 my $rate = undef;
+my $deriv = undef;
 my $showCleanup = undef;
 my $nebulous = undef;
@@ -29 +30 @@
 
 GetOptions (
-        "dbname|d=s" => \$czarDbName,
+        "dbname=s" => \$czarDbName,
         "label|l=s" => \$label,
         "stage|s=s" => \$stage,
@@ -41 +42 @@
         "cleanup|c" => \$showCleanup,
         "rate|r" => \$rate,
+        "deriv|d" => \$deriv,
         "timeseries|t" => \$timeSeries,
         "verbose|v" => \$verbose,
@@ -59 +61 @@
 if (!$rate) {
     print "* OPTIONAL: plot timeseries of rate         -r                          (default=off)\n";} 
+if (!$deriv) {
+    $deriv = 0;
+    print "* OPTIONAL: plot first derivative           -d                          (default=$deriv)\n";} 
 if (!$showCleanup) {
     $showCleanup = 0;
@@ -97 +102 @@
 $czarDb->setDateFormat("%Y%m%d-%H%i%s");
 
+
 my $plotter = new czartool::Plotter(
         $czarDb, 
@@ -128 +134 @@
     exit;
 }
-if (!$nebulous && $timeSeries) {$plotter->createTimeSeries($label, $stage, $begin, $end, $log, $showCleanup);}
+if (!$nebulous && $timeSeries) {$plotter->createTimeSeries($label, $stage, $begin, $end, $log, $showCleanup, $deriv);}
 if ($histogram) {$plotter->createHistogram($label, $begin, $end);}
 if ($nebulous && $timeSeries) {$plotter->plotStorageTimeSeries($begin, $end);}