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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
#!/usr/bin/perl -w
use strict;
use Chart::Composite;
print "1..1\n";
my $g = Chart::Composite->new (700, 350);
my @bezugszeitraum = ('2005-04-02','2005-04-03','2005-04-04',
'2005-04-05','2005-04-06','2005-04-07',
'2005-04-08','2005-04-09','2005-04-10',
'2005-04-18','2005-04-19','2005-04-20',
'2005-04-21','2005-04-22','2005-04-23',
'2005-04-24','2005-04-25');
my @nr_of_sats = (27,29,28,26,27,23,29,29,23,26,29,29,29,29,29,29,29);
my @obsinterval_abs = (0.555555555555556,0.999652777777778,
0.673611111111111,0.607291666666667,
0.638888888888889,0.361111111111111,
0.999652777777778,0.999652777777778,
0.377083333333333,0.51875,
0.84375, 0.977777777777778,
0.999652777777778,0.999652777777778,
0.999652777777778,0.999652777777778,
0.999652777777778);
#my @obsinterval_abs = (0.555555555555556,0.999652777777778,
# 0.673611111111111,500,
# 0.638888888888889,0.361111111111111,
# 0.999652777777778,0.999652777777778,
# 0.377083333333333,0.51875,
# -500, 0.977777777777778,
# 0.999652777777778,0.999652777777778,
# 0.999652777777778,0.999652777777778,
# 0.999652777777778);
# Chart::Composite
# $g = Chart::LinesPoints->new (800, 350);
# $g = Chart::LinesPoints->new (700, 350);
$g = Chart::Composite->new (700, 350);
$g-> add_dataset ( @bezugszeitraum );
$g-> add_dataset ( @nr_of_sats );
$g-> add_dataset ( @obsinterval_abs );
$g-> set ('composite_info' => [ ['LinesPoints', [1]], ['LinesPoints', [2]] ]);
$g-> set ('x_ticks' => 'vertical');
$g-> set ('x_label' => ' Time');
$g-> set ('y_label' => 'red: Nr_of_sats');
# $g-> set ('y_axes' => 'both');
$g-> set ('y_label2' => 'green: obs_interval (absolut)');
$g-> set ('legend' => 'none');
$g-> set ('precision' => 1);
$g-> set ('grey_background' => 'false');
$g-> set ('title' => 'ANKR');
$g-> set ('sub_title' => '2005-04-02 - 2005-04-25');
# $g-> set ('title_font' => gdGiantFont);
# $g-> set ('sub_title_font' => gdMediumBoldFont);
$g-> set ('include_zero' => 'true');
$g-> set ('pt_size' => '10');
$g-> set ('brush_size' => '4');
# $g-> set ('skip_x_ticks' => $skip_x);
$g-> png ("samples/linespoints_5.png");
print "ok 1\n\n";
|
