1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl -w
use strict;
use Chart::LinesPoints;
use Chart::Lines;
print "1..1\n";
my @bezugszeitraum = ('2004-06-13 00:00:00+00', '2004-06-14 00:00:00+00', '2004-06-15 00:00:00+00', '2004-06-16 00:00:00+00', '2004-06-17 00:00:00+00', '2004-06-18 00:00:00+00', '2004-06-19 00:00:00+00', '2004-06-20 00:00:00+00', '2004-06-21 00:00:00+00', '2004-06-22 00:00:00+00', '2004-06-23 00:00:00+00', '2004-06-24 00:00:00+00', '2004-06-25 00:00:00+00', '2004-06-26 00:00:00+00', '2004-06-27 00:00:00+00', '2004-06-28 00:00:00+00', '2004-06-29 00:00:00+00', '2004-06-30 00:00:00+00', '2004-07-01 00:00:00+00', '2004-07-02 00:00:00+00', '2004-07-03 00:00:00+00', '2004-07-04 00:00:00+00', '2004-07-05 00:00:00+00', '2004-07-06 00:00:00+00', '2004-07-07 00:00:00+00', '2004-07-08 00:00:00+00', '2004-07-09 00:00:00+00', '2004-07-10 00:00:00+00', '2004-07-11 00:00:00+00', '2004-07-12 00:00:00+00', '2004-07-13 00:00:00+00', '2004-07-14 00:00:00+00', '2004-07-15 00:00:00+00', '2004-07-16 00:00:00+00', '2004-07-17 00:00:00+00', '2004-07-18 00:00:00+00', '2004-07-19 00:00:00+00', '2004-07-20 00:00:00+00', '2004-07-21 00:00:00+00', '2004-07-22 00:00:00+00', '2004-07-23 00:00:00+00', '2004-07-24 00:00:00+00', '2004-07-25 00:00:00+00', '2004-07-26 00:00:00+00', '2004-07-27 00:00:00+00', '2004-07-28 00:00:00+00', '2004-07-29 00:00:00+00', '2004-07-30 00:00:00+00', '2004-07-31 00:00:00+00', '2004-08-01 00:00:00+00', '2004-08-02 00:00:00+00', '2004-08-03 00:00:00+00', '2004-08-04 00:00:00+00', '2004-08-05 00:00:00+00', '2004-08-06 00:00:00+00', '2004-08-07 00:00:00+00', '2004-08-08 00:00:00+00', '2004-08-09 00:00:00+00', '2004-08-10 00:00:00+00', '2004-08-11 00:00:00+00', '2004-08-12 00:00:00+00', '2004-08-13 00:00:00+00', '2004-08-14 00:00:00+00', '2004-08-15 00:00:00+00', '2004-08-16 00:00:00+00', '2004-08-17 00:00:00+00', '2004-08-18 00:00:00+00', '2004-08-19 00:00:00+00', '2004-08-20 00:00:00+00', '2004-08-21 00:00:00+00', '2004-08-22 00:00:00+00', '2004-08-23 00:00:00+00', '2004-08-24 00:00:00+00', '2004-08-25 00:00:00+00', '2004-08-26 00:00:00+00', '2004-08-27 00:00:00+00', '2004-08-28 00:00:00+00', '2004-08-29 00:00:00+00', '2004-08-30 00:00:00+00', '2004-08-31 00:00:00+00', '2004-09-01 00:00:00+00', '2004-09-02 00:00:00+00', '2004-09-03 00:00:00+00', '2004-09-04 00:00:00+00', '2004-09-05 00:00:00+00', '2004-09-06 00:00:00+00', '2004-09-07 00:00:00+00', '2004-09-08 00:00:00+00', '2004-09-09 00:00:00+00', '2004-09-10 00:00:00+00', '2004-09-11 00:00:00+00', '2004-09-12 00:00:00+00', '2004-09-13 00:00:00+00', '2004-09-14 00:00:00+00', '2004-09-15 00:00:00+00', '2004-09-16 00:00:00+00', '2004-09-17 00:00:00+00', '2004-09-18 00:00:00+00', '2004-09-19 00:00:00+00', '2004-09-20 00:00:00+00', '2004-09-21 00:00:00+00', '2004-09-22 00:00:00+00', '2004-09-23 00:00:00+00', '2004-09-24 00:00:00+00', '2004-09-25 00:00:00+00', '2004-09-26 00:00:00+00', '2004-09-27 00:00:00+00', '2004-09-28 00:00:00+00', '2004-09-29 00:00:00+00', '2004-09-30 00:00:00+00', '2004-10-01 00:00:00+00', '2004-10-02 00:00:00+00', '2004-10-03 00:00:00+00', '2004-10-04 00:00:00+00', '2004-10-05 00:00:00+00', '2004-10-06 00:00:00+00', '2004-10-07 00:00:00+00', '2004-10-08 00:00:00+00', '2004-10-09 00:00:00+00', '2004-10-10 00:00:00+00', '2004-10-11 00:00:00+00', '2004-10-12 00:00:00+00', '2004-10-13 00:00:00+00', '2004-10-14 00:00:00+00', '2004-10-15 00:00:00+00', '2004-10-16 00:00:00+00', '2004-10-17 00:00:00+00', '2004-10-18 00:00:00+00', '2004-10-19 00:00:00+00', '2004-10-20 00:00:00+00', '2004-10-21 00:00:00+00', '2004-10-22 00:00:00+00', '2004-10-23 00:00:00+00', '2004-10-24 00:00:00+00', '2004-10-25 00:00:00+00', '2004-10-26 00:00:00+00', '2004-10-27 00:00:00+00', '2004-10-28 00:00:00+00', '2004-10-29 00:00:00+00', '2004-10-30 00:00:00+00', '2004-10-31 00:00:00+00', '2004-11-01 00:00:00+00', '2004-11-02 00:00:00+00', '2004-11-03 00:00:00+00', '2004-11-04 00:00:00+00', '2004-11-05 00:00:00+00', '2004-11-06 00:00:00+00', '2004-11-07 00:00:00+00', '2004-11-08 00:00:00+00', '2004-11-09 00:00:00+00', '2004-11-10 00:00:00+00', '2004-11-11 00:00:00+00', '2004-11-12 00:00:00+00', '2004-11-13 00:00:00+00', '2004-11-14 00:00:00+00', '2004-11-15 00:00:00+00', '2004-11-16 00:00:00+00', '2004-11-17 00:00:00+00', '2004-11-18 00:00:00+00', '2004-11-19 00:00:00+00', '2004-11-20 00:00:00+00', '2004-11-21 00:00:00+00', '2004-11-22 00:00:00+00', '2004-11-23 00:00:00+00', '2004-11-24 00:00:00+00', '2004-11-25 00:00:00+00', '2004-11-26 00:00:00+00', '2004-11-27 00:00:00+00', '2004-11-28 00:00:00+00', '2004-11-29 00:00:00+00', '2004-11-30 00:00:00+00', '2004-12-01 00:00:00+00', '2004-12-02 00:00:00+00', '2004-12-03 00:00:00+00', '2004-12-04 00:00:00+00', '2004-12-05 00:00:00+00', '2004-12-06 00:00:00+00', '2004-12-07 00:00:00+00', '2004-12-08 00:00:00+00', '2004-12-09 00:00:00+00', '2004-12-10 00:00:00+00', '2004-12-11 00:00:00+00', '2004-12-12 00:00:00+00', '2004-12-13 00:00:00+00', '2004-12-14 00:00:00+00', '2004-12-15 00:00:00+00', '2004-12-16 00:00:00+00', '2004-12-17 00:00:00+00', '2004-12-18 00:00:00+00', '2004-12-19 00:00:00+00', '2004-12-20 00:00:00+00', '2004-12-21 00:00:00+00', '2004-12-22 00:00:00+00', '2004-12-23 00:00:00+00', '2004-12-24 00:00:00+00', '2004-12-25 00:00:00+00', '2004-12-26 00:00:00+00', '2004-12-27 00:00:00+00', '2004-12-28 00:00:00+00', '2004-12-29 00:00:00+00', '2004-12-30 00:00:00+00', '2004-12-31 00:00:00+00', '2005-01-01 00:00:00+00', '2005-01-02 00:00:00+00', '2005-01-03 00:00:00+00', '2005-01-04 00:00:00+00', '2005-01-05 00:00:00+00', '2005-01-06 00:00:00+00', '2005-01-07 00:00:00+00', '2005-01-08 00:00:00+00', '2005-01-09 00:00:00+00', '2005-01-10 00:00:00+00', '2005-01-11 00:00:00+00', '2005-01-12 00:00:00+00', '2005-01-13 00:00:00+00', '2005-01-17 00:00:00+00', '2005-01-18 00:00:00+00', '2005-01-25 00:00:00+00', '2005-01-26 00:00:00+00', '2005-01-28 00:00:00+00', '2005-01-29 00:00:00+00', '2005-01-31 00:00:00+00', '2005-02-08 00:00:00+00', '2005-02-09 00:00:00+00', '2005-02-10 00:00:00+00', '2005-02-11 00:00:00+00', '2005-02-12 00:00:00+00', '2005-02-13 00:00:00+00', '2005-02-14 00:00:00+00', '2005-02-15 00:00:00+00', '2005-02-16 00:00:00+00', '2005-02-17 00:00:00+00', '2005-02-18 00:00:00+00', '2005-02-19 00:00:00+00', '2005-02-20 00:00:00+00', '2005-02-21 00:00:00+00', '2005-02-22 00:00:00+00', '2005-02-23 00:00:00+00', '2005-02-24 00:00:00+00', '2005-02-25 00:00:00+00', '2005-02-26 00:00:00+00', '2005-02-27 00:00:00+00', '2005-02-28 00:00:00+00', '2005-03-01 00:00:00+00', '2005-03-02 00:00:00+00', '2005-03-03 00:00:00+00', '2005-03-04 00:00:00+00', '2005-03-05 00:00:00+00', '2005-03-06 00:00:00+00', '2005-03-07 00:00:00+00', '2005-03-08 00:00:00+00', '2005-03-09 00:00:00+00', '2005-03-10 00:00:00+00', '2005-03-11 00:00:00+00', '2005-03-12 00:00:00+00', '2005-03-13 00:00:00+00', '2005-03-14 00:00:00+00', '2005-03-15 00:00:00+00', '2005-03-16 00:00:00+00', '2005-03-17 00:00:00+00', '2005-03-18 00:00:00+00', '2005-03-19 00:00:00+00', '2005-03-20 00:00:00+00', '2005-03-21 00:00:00+00', '2005-03-22 00:00:00+00', '2005-03-23 00:00:00+00', '2005-03-24 00:00:00+00', '2005-03-25 00:00:00+00', '2005-03-26 00:00:00+00', '2005-03-27 00:00:00+00', '2005-03-28 00:00:00+00', '2005-03-29 00:00:00+00', '2005-03-30 00:00:00+00', '2005-03-31 00:00:00+00', '2005-04-01 00:00:00+00', '2005-04-02 00:00:00+00', '2005-04-03 00:00:00+00', '2005-04-04 00:00:00+00', '2005-04-05 00:00:00+00', '2005-04-06 00:00:00+00', '2005-04-07 00:00:00+00', '2005-04-08 00:00:00+00', '2005-04-09 00:00:00+00', '2005-04-10 00:00:00+00', '2005-04-11 00:00:00+00', '2005-04-12 00:00:00+00', '2005-04-13 00:00:00+00', '2005-04-14 00:00:00+00', '2005-04-15 00:00:00+00', '2005-04-16 00:00:00+00', '2005-04-17 00:00:00+00', '2005-04-18 00:00:00+00', '2005-04-19 00:00:00+00', '2005-04-20 00:00:00+00', '2005-04-21 00:00:00+00', '2005-04-22 00:00:00+00', '2005-04-23 00:00:00+00', '2005-04-24 00:00:00+00', '2005-04-25 00:00:00+00', '2005-04-26 00:00:00+00', '2005-04-27 00:00:00+00', '2005-04-28 00:00:00+00', '2005-04-29 00:00:00+00', '2005-04-30 00:00:00+00', '2005-05-01 00:00:00+00', '2005-05-02 00:00:00+00', '2005-05-03 00:00:00+00', '2005-05-04 00:00:00+00', '2005-05-05 00:00:00+00', '2005-05-06 00:00:00+00', '2005-05-07 00:00:00+00', '2005-05-08 00:00:00+00', '2005-05-09 00:00:00+00', '2005-05-10 00:00:00+00', '2005-05-11 00:00:00+00', '2005-05-12 00:00:00+00', '2005-05-13 00:00:00+00', '2005-05-14 00:00:00+00', '2005-05-15 00:00:00+00', '2005-05-16 00:00:00+00', '2005-05-17 00:00:00+00', '2005-05-18 00:00:00+00', '2005-05-19 00:00:00+00', '2005-05-20 00:00:00+00', '2005-05-21 00:00:00+00', '2005-05-22 00:00:00+00', '2005-05-23 00:00:00+00', '2005-05-24 00:00:00+00', '2005-05-25 00:00:00+00', '2005-05-26 00:00:00+00', '2005-05-27 00:00:00+00', '2005-05-28 00:00:00+00', '2005-05-29 00:00:00+00', '2005-05-30 00:00:00+00', '2005-05-31 00:00:00+00', '2005-06-01 00:00:00+00', '2005-06-02 00:00:00+00', '2005-06-03 00:00:00+00', '2005-06-04 00:00:00+00', '2005-06-05 00:00:00+00', '2005-06-06 00:00:00+00',
);
my @obsepoch = (81.8670764502497, 42.4188998589563, 100, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 100, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.6528982992017, 100, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 99.6180555555556, 100, 100, 100, 100, 100, 100, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652777777778, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.7223186393613, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9306037473976, 99.9306037473976, 99.9652898299202, 99.7570288094412, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9652898299202, 99.9652898299202, 99.9652898299202, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 99.9306037473976, 94.5176960444136, 100, 98.125, 100, 100, 100, 100, 100, 99.4444444444444, 100, 100, 100, 100, 100, 100, 100, 100, 100, 99.9652777777778, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 99.6180555555556, 100, 100, 100, 100, 100, 100, 100, 100, 99.6527777777778, 100, 100, 100, 100, 100, 100, 94.9494949494949, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 99.965241571081, 99.930483142162, 99.860966284324,99.8262078554049, 99.7914494264859, 99.7566063977747, 99.6870653685674, 99.6175243393602, 99.547983310153, 99.4784422809458, 99.3741307371349, 99.5138888888889, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100,);
my $g = Chart::LinesPoints->new (700, 450);
#my $g = Chart::Lines->new(700,450);
$g-> add_dataset ( @bezugszeitraum );
$g-> add_dataset ( @obsepoch );
$g-> set ('x_ticks' => 'vertical');
$g-> set ('x_label' => ' Time');
$g-> set ('y_label' => 'actual_nr_of_obsepoch / possible_nr');
$g-> set ('legend' => 'none');
$g-> set ('precision' => 0);
$g-> set ('title' => 'DRES');
$g-> set ('grey_background' => 'false');
$g-> set ('max_val' => '100');
$g-> set ('min_val' => '80');
$g-> set ('pt_size' => '10');
$g-> set ('brush_size' => '4');
$g-> set ('skip_x_ticks' => '50');
$g-> png ("samples/linespoints_6.png");
print "ok 1\n\n";
|
