Help for this page

Select Code to Download


  1. or download this
    my $time_ = localtime;
my $date = ParseDate($time_);
...
$unix_date =~ s/ //g;
$ash_{date} = $unix_date;
$ash_{temp} = gct();
  2. or download this
    
my %cash = build_comp_hash();
push @aoh, { %cash };
graphable_arrays();
  3. or download this
    @xdata = ();
@ydata = ();
...
    }
    else{}
   }
  4. or download this
    my @plot_title = ("CryoCooler Temperature Data", -5);    
if(!defined $gwidth){$gwidth = '700';}
...
my $ds = DataSet->new(-yData=>\@ydata, -xData=>\@xdata, -name=>"Cryoco
+oler");
$pw_plot->plot(-dataSet=>$ds);
MainLoop;