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
|
#!/usr/bin/perl -w
use Chart::Lines;
print "1..1\n";
$g = Chart::Lines->new(600,300);
@x_values = ( );
@y_values = ( );
for ( $i = 0 ; $i <= 16; $i += 0.05) {
$j = sin($i);
$j2 = cos ($i);
push (@x_values, $i);
push (@y_values, $j);
push (@y2_values, $j2);
}
$g->add_dataset (@x_values);
$g->add_dataset (@y_values);
$g->add_dataset (@y2_values);
%hash = (
'title' => 'The trigonometric functions sinus and cosinus',
'grid_lines' => 'true',
'legend' => 'left',
'xy_plot' => 'true',
'skip_x_ticks' => 20,
'legend_labels' => ['y = sin x', 'y = cos x'],
'precision' => 2,
'integer_ticks_only' => 'true',
#'custom_x_ticks' => [0,3],
'colors' => {
'title' =>'plum',
'dataset0' => 'mauve',
},
'f_x_tick' => \&formatter,
);
$g->set (%hash);
$g->png ("samples/lines_5.png");
sub formatter {
my $d = shift;
$d = sprintf "%1.2f",$d;
if ( $d =~ /^0.00/) {return 0}
return $d;
}
print "ok 1\n";
exit (0);
|
