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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
#!/usr/bin/perl -w
#
# Testprogram for lines
#
#======================================================================
use strict;
use Chart::Lines;
print "1..1\n";
my @messwerte = ();
my @zeit = ();
my $graphic;
my $gif_name;
my $titel_name;
my $einheit;
my $min_y;
my $max_y;
#------------------------------------------------------------------------------------
# Start
#------------------------------------------------------------------------------------
$gif_name = "Humidity";
$titel_name = "Examples of Humidity";
$einheit = "% rH";
@zeit = (
'12:00','12:01','12:02','12:03','12:04','12:05','12:06','12:07','12:08','12:09', #1
'12:10','12:11','12:12','12:13','12:14','12:15','12:16','12:17','12:18','12:19', #2
'12:20','12:21','12:22','12:23','12:24','12:25','12:26','12:27','12:28','12:29', #3
'12:30','12:31','12:32','12:33','12:34','12:35','12:36','12:37','12:38','12:39', #4
'12:40','12:41','12:42','12:43','12:44','12:45','12:46','12:47','12:48','12:49', #5
'12:50','12:51','12:52','12:53','12:54','12:55','12:56','12:57','12:58','12:59', #6
'13:00','13:01','13:02','13:03','13:04','13:05','13:06','13:07','13:08','13:09', #7
'13:10','13:11','13:12','13:13','13:14','13:15','13:16','13:17','13:18','13:19', #8
'13:20','13:21','13:22','13:23','13:24','13:25','13:26','13:27','13:28','13:29', #9
'13:30','13:31','13:32','13:33','13:34','13:35','13:36','13:37','13:38','13:39', #10
'13:40','13:41','13:42','13:43','13:44','13:45','13:46','13:47','13:48','13:49', #11
'13:50','13:51','13:52','13:53','13:54','13:55','13:56','13:57','13:58','13:59', #12
'14:00','14:01','14:02','14:03','14:04','14:05','14:06','14:07','14:08','14:09', #13
'14:10','14:11','14:12','14:13','14:14','14:15','14:16','14:17','14:18','14:19', #14
'14:20','14:21','14:22','14:23','14:24','14:25','14:26','14:27','14:28','14:29', #15
'14:30','14:31','14:32','14:33','14:34','14:35','14:36','14:37','14:38','14:39', #16
'14:40','14:41','14:42','14:43','14:44','14:45','14:46','14:47','14:48','14:49', #17
'14:50','14:51','14:52','14:53','14:54','14:55','14:56','14:57','14:58','14:59', #18
'15:00','15:01','15:02','15:03','15:04','15:05','15:06','15:07','15:08','15:09', #19
'15:10','15:11','15:12','15:13','15:14','15:15','15:16','15:17','15:18','15:19', #20
'15:20','15:21','15:22','15:23','15:24','15:25','15:26','15:27','15:28','15:29', #21
'15:30','15:31','15:32','15:33','15:34','15:35','15:36','15:37','15:38','15:39', #22
'15:40','15:41','15:42','15:43','15:44','15:45','15:46','15:47','15:48','15:49', #23
'15:50','15:51','15:52','15:53','15:54','15:55','15:56','15:57','15:58','15:59', #24
'16:00','16:01','16:02','16:03','16:04','16:05','16:06','16:07','16:08','16:09', #25
'16:10','16:11','16:12','16:13','16:14','16:15','16:16','16:17','16:18','16:19', #26
'16:20','16:21','16:22','16:23','16:24','16:25','16:26','16:27','16:28','16:29', #27
'16:30','16:31','16:32','16:33','16:34','16:35','16:36','16:37','16:38','16:39', #28
'16:40','16:41','16:42','16:43','16:44','16:45','16:46','16:47','16:48','16:49', #29
'16:50','16:51','16:52','16:53','16:54','16:55','16:56','16:57','16:58','16:59', #30
'17:00','17:01','17:02','17:03','17:04','17:05','17:06','17:07','17:08','17:09', #31
'17:10','17:11','17:12','17:13','17:14','17:15','17:16','17:17','17:18','17:19', #32
'17:20','17:21','17:22','17:23','17:24','17:25','17:26','17:27','17:28','17:29', #33
'17:30','17:31','17:32','17:33','17:34','17:35','17:36','17:37','17:38','17:39', #34
'17:40','17:41','17:42','17:43','17:44','17:45','17:46','17:47','17:48','17:49', #35
'17:50','17:51','17:52','17:53','17:54','17:55','17:56','17:57','17:58','17:59', #36
'18:00','18:01','18:02','18:03','18:04','18:05','18:06','18:07','18:08','18:09', #37
'18:10','18:11','18:12','18:13','18:14','18:15','18:16','18:17','18:18','18:19', #38
'18:20','18:21','18:22','18:23','18:24','18:25','18:26','18:27','18:28','18:29', #39
'18:30','18:31','18:32','18:33','18:34','18:35','18:36','18:37','18:38','18:39', #40
'18:41','18:42','18:43','18:44','18:45','18:46','18:47','18:48','18:49','18:50', #41
'18:51','18:52','18:53','18:54','18:55','18:56','18:57','18:58','18:59','19:00', #42
'19:01','19:02','19:03','19:04','19:05','19:06','19:07','19:08','19:09','19:10', #43
'19:11','19:12','19:13','19:14','19:15','19:16','19:17','19:18','19:19','19:20', #44
'19:21','19:22','19:23','19:24','19:25','19:26','19:27','19:28','19:29','19:30', #45
'19:31','19:32','19:33','19:34','19:35','19:36','19:37','19:38','19:39','19:40', #46
'19:41','19:42','19:43','19:44','19:45','19:46','19:47','19:48','19:49','19:50', #47
'19:51','19:52','19:53','19:54','19:55','19:56','19:57','19:58','19:59','20:00', #48
'20:01','20:02','20:03','20:04','20:05','20:06','20:07','20:08','20:09','20:10', #49
'20:11','20:12','20:13','20:14','20:15','20:16','20:17','20:18','20:19','20:20', #50
'20:21','20:22','20:23','20:24','20:25','20:26','20:27','20:28','20:29','20:30', #51
'20:31','20:32','20:33','20:34','20:35','20:36','20:37','20:38','20:39','20:40', #52
'20:41','20:42','20:43','20:44','20:45','20:46','20:47','20:48','20:49','20:50', #53
'20:51','20:52','20:53','20:54','20:55','20:56','20:57','20:58','20:59','21:00', #54
'21:01','21:02','21:03','21:04','21:05','21:06','21:07','21:08','21:09','21:10', #55
'21:11','21:12','21:13','21:14','21:15','21:16','21:17','21:18','21:19','21:20', #56
'21:21','21:22','21:23','21:24','21:25','21:26','21:27','21:28','21:29','21:30', #57
'21:31','21:32','21:33','21:34','21:35','21:36','21:37','21:38','21:39','21:40', #58
'21:41','21:42','21:43','21:44','21:45','21:46','21:47','21:48','21:49','21:50', #59
'21:51','21:52','21:53','21:54','21:55','21:56','21:57','21:58','21:59','22:00', #60
'22:01','22:02','22:03','22:04','22:05','22:06','22:07','22:08','22:09','22:10', #61
'22:11','22:12','22:13','22:14','22:15','22:16','22:17','22:18','22:19','22:20', #62
'22:21','22:22','22:23','22:24','22:25','22:26','22:27','22:28','22:29','22:30', #63
'22:31','22:32','22:33','22:34','22:35','22:36','22:37','22:38','22:39','22:40', #64
'22:41','22:42','22:43','22:44','22:45','22:46','22:47','22:48','22:49','22:50', #65
'22:51','22:52','22:53','22:54','22:55','22:56','22:57','22:58','22:59','23:00', #66
'23:01','23:02','23:03','23:04','23:05','23:06','23:07','23:08','23:09','23:10', #67
'23:11','23:12','23:13','23:14','23:15','23:16','23:17','23:18','23:19','23:20', #68
'23:21','23:22','23:23','23:24','23:25','23:26','23:27','23:28','23:29','23:30', #69
'23:31','23:32','23:33','23:34','23:35','23:36','23:37','23:38','23:39','23:40', #70
'23:41','23:42','23:43','23:44','23:45','23:46','23:47','23:48','23:49','23:50', #71
'23:51','23:52','23:53','23:54','23:55','23:56','23:57','23:58','23:59'); #72
@messwerte = (
36.3, 36.2, 36.2, 36.3, 36.4, 36.4, 36.3, 36.4, 36.4, 36.3, #1
36.1, 36.3, 36.2, 36.3, 36.4, 36.3, 36.3, 36.1, 36.2, 36.2, #2
36.3, 36.2, 36.2, 36.2, 36.1, 36.3, 36.3, 36.2, 36.2, 36.2, #3
36.2, 36.1, 36.5, 36.4, 36.3, 36.2, 36.2, 36.3, 36.4, 36.4, #4
36.3, 36.3, 36.3, 36.4, 36.5, 36.4, 36.4, 36.5, 36.5, 36.5, #5
36.3, 36.4, 36.3, 36.2, 36.2, 36.3, 36.2, 36.3, 36.4, 36.2, #6
36.2, 36.4, 36.3, 36.2, 36.4, 36.4, 36.4, 36.2, 36.4, 36.3, #7
36.3, 36.4, 36.4, 36.5, 36.3, 36.5, 36.5, 36.4, 36.5, 36.4, #8
36.5, 36.3, 36.4, 36.4, 36.4, 36.4, 36.5, 36.5, 36.3, 36.3, #9
36.3, 36.4, 36.4, 36.3, 36.3, 36.2, 36.3, 36.3, 36.2, 36.2, #10
36.2, 36.2, 36.2, 36.2, 36.3, 36.3, 36.2, 36.2, 36.2, 36.3, #11
36.1, 36.2, 36.2, 36.2, 36.2, 36.4, 36.2, 36.1, 36.2, 36.2, #12
36.3, 36.2, 36.3, 36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, #13
36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.3, 36.2, 36.2, #14
36.3, 36.2, 36.3, 36.2, 36.3, 36.1, 36.2, 36.2, 36.2, 36.2, #15
36.2, 36.2, 36.2, 36.2, 36.2, 36.3, 36.2, 36.2, 36.2, 36.2, #16
36.2, 36.2, 36.3, 36.2, 36.3, 36.2, 36.3, 36.2, 36.2, 36.2, #17
36.2, 36.2, 36.2, 36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, #18
36.3, 36.1, 36.2, 36.2, 36.3, 36.2, 36.3, 36.3, 36.2, 36.2, #19
36.2, 36.3, 36.2, 36.3, 36.2, 36.2, 36.2, 36.3, 36.2, 36.2, #20
36.2, 36.2, 36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2, #21
36.1, 36.2, 36.2, 36.2, 36.3, 36.2, 36.2, 36.1, 36.2, 36.2, #22
36.2, 36.2, 36.2, 36.2, 36.1, 36.3, 36.2, 36.3, 36.2, 36.3, #23
36.2, 36.2, 36.3, 36.2, 36.2, 36.3, 36.2, 36.2, 36.2, 36.2, #24
36.2, 36.2, 36.2, 36.2, 36.1, 36.2, 36.36,36.36,36.2, 36.1, #25
36.2, 36.2, 36.2, 36.3, 36.2, 36.3, 36.2, 36.3, 36.1, 36.1, #26
36.2, 36.2, 36.2, 36.1, 36.2, 36.2, 36.1, 36.1, 36.2, 36.2, #27
36.2, 36.2, 36.2, 36.2, 36.1, 36.1, 36.0, 36.2, 36.2, 36.2, #28
36.2, 36.2, 36.2, 36.1, 36.1, 36.1, 36.1, 36.1, 36.2, 36.2, #29
36.1, 36.2, 36.1, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2, #30
36.2, 36.2, 36.3, 36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, #31
36.2, 36.3, 36.3, 36.2, 36.1, 36.2, 36.2, 36.2, 36.1, 36.3, #32
36.3, 36.2, 36.3, 36.2, 36.2, 36.4, 36.3, 36.3, 36.2, 36.1, #33
36.1, 36.1, 36.1, 36.1, 36.1, 36.0, 36.1, 36.2, 36.1, 36.1, #34
36.1, 35.9, 36.2, 36.3, 36.5, 36.5, 36.5, 36.4, 36.1, 36.3, #35
36.4, 36.1, 36.2, 36.4, 36.0, 36.2, 36.1, 36.0, 36.1, 36.1, #36
36.2, 36.3, 36.4, 36.4, 36.5, 36.5, 36.5, 36.3, 36.0, 36.2, #37
36.4, 36.4, 36.3, 36.4, 36.2, 36.3, 36.2, 36.3, 36.4, 36.2, #38
36.4, 36.5, 36.4, 36.2, 36.2, 36.3, 36.1, 36.1, 36.3, 36.2, #39
36.3, 36.3, 36.2, 36.2, 36.3, 36.4, 36.3, 36.3, 36.3, 36.4, #40
36.3, 36.2, 36.3, 36.3, 36.3, 36.4, 36.3, 36.2, 36.1, 36.2, #41
36.2, 36.1, 36.2, 36.1, 36.1, 36.2, 36.2, 36.1, 36.0, 36.1, #42
36.1, 36.2, 36.2, 36.1, 36.2, 36.1, 36.1, 36.1, 36.1, 36.2, #43
36.1, 36.1, 36.2, 36.0, 36.0, 36.1, 36.1, 35.9, 35.9, 35.8, #44
36.1, 36.2, 36.2, 36.2, 36.1, 36.1, 35.9, 35.9, 35.9, 36.1, #45
36.1, 35.9, 36.1, 36.2, 36.1, 36.1, 36.1, 36.1, 36.0, 36.1, #46
36.2, 36.2, 36.1, 36.2, 36.0, 36.0, 35.9, 36.0, 36.0, 36.1, #47
36.2, 36.0, 36.0, 36.0, 36.1, 36.0, 36.0, 35.9, 36.0, 35.8, #48
35.9, 35.9, 35.9, 35.9, 35.8, 35.9, 35.7, 35.9, 35.9, 35.8, #49
35.9, 35.9, 35.7, 35.8, 36.0, 36.1, 36.2, 36.2, 36.0, 36.1, #50
36.2, 36.1, 36.2, 36.2, 36.1, 36.1, 36.0, 36.0, 35.9, 36.0, #51
36.2, 36.1, 36.1, 36.2, 36.2, 36.1, 36.1, 36.3, 36.2, 36.2, #52
36.1, 36.1, 36.1, 36.1, 36.1, 36.3, 36.4, 36.3, 36.2, 36.3, #53
36.2, 36.2, 36.2, 36.3, 36.3, 36.3, 36.2, 36.3, 36.3, 36.4, #54
36.3, 36.3, 36.4, 36.3, 36.3, 36.4, 36.4, 36.4, 36.4, 36.4, #55
36.3, 36.3, 36.4, 36.3, 36.3, 36.2, 36.3, 36.1, 36.1, 36.1, #56
36.2, 36.2, 36.2, 36.1, 36.1, 36.2, 36.2, 36.1, 36.2, 36.2, #57
36.2, 36.2, 36.2, 36.1, 36.1, 36.2, 36.1, 36.2, 36.2, 36.2, #58
36.1, 36.2, 36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2, #59
36.1, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.1, 36.2, 36.2, #60
36.2, 36.2, 36.1, 36.2, 36.1, 36.1, 36.2, 36.2, 36.2, 36.2, #61
36.3, 36.1, 36.2, 36.2, 36.2, 36.3, 36.2, 36.2, 36.1, 36.2, #62
36.3, 36.2, 36.3, 36.3, 36.3, 36.3, 36.3, 36.5, 36.3, 36.4, #63
36.3, 36.3, 36.3, 36.2, 36.3, 36.3, 36.3, 36.3, 36.3, 36.2, #64
36.2, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2, 36.1, 36.1, 36.2, #65
36.2, 36.2, 36.2, 36.2, 36.1, 36.1, 36.2, 36.1, 36.1, 36.1, #66
36.2, 36.1, 36.2, 36.2, 36.2, 36.5, 36.3, 36.2, 36.3, 36.4, #67
36.4, 36.4, 36.4, 36.4, 36.3, 36.3, 36.4, 36.4, 36.4, 36.4, #68
36.4, 36.4, 36.3, 36.4, 36.4, 36.4, 36.3, 36.4, 36.3, 36.2, #69
36.2, 36.2, 36.3, 36.1, 36.2, 36.1, 36.1, 36.1, 36.1, 36.2, #70
36.1, 36.2, 36.1, 36.1, 36.1, 36.1, 36.1, 36.1, 36.2, 36.2, #71
36.2, 36.1, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2, 36.2); #72
#------------------------------------------------------------------------------------
# Zeitarray aufbauen , Minimal- und Maximalwert bestimmen und X - Achse berechnen
#------------------------------------------------------------------------------------
#------------------------------------------------------------------------------------
# Graphic_objekt erstellen
#------------------------------------------------------------------------------------
$min_y = $max_y = $messwerte[0];
foreach (@messwerte ) {
if ( $_ < $min_y ) { $min_y = $_;}
if ( $_ > $max_y ) { $max_y = $_; }
}
$min_y = int($min_y)-1;
$max_y = int($max_y)+1;
$graphic = Chart::Lines -> new (750,400);
$graphic -> set ('brush_size' => 2 );
$graphic -> add_dataset ( @zeit );
$graphic -> add_dataset ( @messwerte );
#------------------------------------------------------------------------------------
# Diagramm Y-Achse berechnen
#------------------------------------------------------------------------------------
$graphic -> set ('min_val' => $min_y );
$graphic -> set ('max_val' => $max_y);
#$graphic -> set ('y_ticks' => 11 );
$graphic -> set ('x_ticks' => 'vertical' );
$graphic -> set ('skip_x_ticks' => 30);
$graphic -> set ('grey_background' => 'false' );
$graphic -> set ('graph_border' => 18 );
$graphic -> set ('title' => $titel_name );
$graphic -> set ('sub_title' => "over Time");
$graphic -> set ('y_grid_lines' => 'true' );
$graphic -> set ('x_grid_lines' => 'true' );
$graphic -> set ('x_ticks' => 'vertical' );
$graphic -> set ('colors' => {'y_grid_lines' => [127,127,0], 'x_grid_lines' => [127,127,0], 'dataset0' => [0,0,200]});
$graphic -> set ('legend' => 'none' );
$graphic -> set ('x_label' => 'Time (UTC)' );
$graphic -> set ('y_label' => $einheit );
if ( $graphic -> can ('gif') ){
my $wettgif = "samples/".$gif_name.".gif";
$graphic -> gif ($wettgif);
}
elsif ( $graphic -> can ('png') ) {
my $wettgif = "samples/".$gif_name.".png";
$graphic -> png ($wettgif);
}
print "ok 1\n";
exit (0);
|
