計算した数値で、図を描画したいと思いました。
EXCELに貼付けたり、gnuplotを準備したりするのが面倒くさかったので、試しにGoogleChartを使ってみました。
perlから扱いたいので「Google::Chart」モジュールを使用しました。
use strict; use warnings; use Google::Chart; my @list; push @list, create_list(sub { my $x = shift; return $x }); push @list, create_list(sub { my $x = shift; return $x * $x }); sub create_list { my ($f) = @_; my @y; for (my $x = 0; $x <= 100; $x++) { my $y = $f->($x); if ($y > 100) { last; } push @y, $y; } return \@y; } my $chart = Google::Chart->new( type => "Line", size => '300x300', data => [@list], ); print $chart->as_uri, "\n"; $chart->render_to_file( filename => 'filename.png' );
思ったに図が描画できません。
用途を間違っている気がする。
素直にgnuplotを使いましょうか・・・・。