Plot coordinate pairs: Difference between revisions
Content added Content deleted
m (Alphabetized, removed extra stuff) |
m (→{{header|Perl}}: Added syntax highlight.) |
||
Line 24: | Line 24: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
{{libheader|GD::Graph}} |
{{libheader|GD::Graph}} |
||
<perl> |
|||
use GD::Graph::points; |
use GD::Graph::points; |
||
Line 38: | Line 39: | ||
print OUF $gd->png; |
print OUF $gd->png; |
||
close(OUF); |
close(OUF); |
||
</perl> |
|||
{{libheader|Imager}} |
{{libheader|Imager}} |
||
{{libheader|Imager::Plot}} |
{{libheader|Imager::Plot}} |
||
<perl> |
|||
use Imager; |
use Imager; |
||
use Imager::Plot; |
use Imager::Plot; |
||
Line 69: | Line 72: | ||
$plot->Render('Image' => $img, 'Xoff' => 50, 'Yoff' => 350); |
$plot->Render('Image' => $img, 'Xoff' => 50, 'Yoff' => 350); |
||
$img->write('file' => 'qsort-range-10-9.png'); |
$img->write('file' => 'qsort-range-10-9.png'); |
||
</perl> |
|||
=={{header|Python}}== |
=={{header|Python}}== |
Revision as of 22:04, 10 July 2008
Plot coordinate pairs
You are encouraged to solve this task according to the task description, using any language you may know.
You are encouraged to solve this task according to the task description, using any language you may know.
Plot a function represented as `x', `y' numerical arrays.
Post link to your resulting image for input arrays (see Example section for Python language on Query Performance page):
x = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}; y = {2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0};
This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.
J
load 'plot' magnitudes =: 2.7 2.8 31.4 38.1 58.0 76.2 100.5 130.0 149.3 180.0 'dot; pensize 2.4' plot magnitudes
Maxima
(%i1) ".." (m, n) := makelist (i, i, m, n); infix ("..")$ (%i2) x: 0 .. 9$ y:[2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0]$ (%i3) plot2d(['discrete, x, y], [style, [points,5,1,1]], [gnuplot_term, png], [gnuplot_out_file, "qsort-range-10-9.png"])$
Perl
<perl>
use GD::Graph::points; @data = ( [0, 1, 2, 3, 4, 5, 6, 7, 8, 9], [2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0], ); $graph = GD::Graph::points->new(400, 300); $gd = $graph->plot(\@data) or die $graph->error; # Save as image. open(OUF, ">qsort-range-10-9.png"); binmode OUF; print OUF $gd->png; close(OUF);
</perl>
<perl>
use Imager; use Imager::Plot; @x = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9); @y = (2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0); $plot = Imager::Plot->new( 'Width' => 400, 'Height' => 300, 'GlobalFont' => 'PATH_TO_TTF_FONT', ); $plot->AddDataSet( 'X' => \@x, 'Y' => \@y, 'style' => { 'marker' => { 'size' => 2, 'symbol' => 'circle', 'color' => Imager::Color->new('red'), }, }, ); $img = Imager->new( 'xsize' => 500, 'ysize' => 400, ); $img->box('filled' => 1, 'color' => 'white'); $plot->Render('Image' => $img, 'Xoff' => 50, 'Yoff' => 350); $img->write('file' => 'qsort-range-10-9.png');
</perl>
Python
>>> x = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9] >>> y = [2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0]
>>> import pylab >>> pylab.plot(x, y, 'bo') >>> pylab.savefig('qsort-range-10-9.png')
qsort-range-10-9.png (23 KiB)