Plot coordinate pairs: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: Added Perl version with Imager::Plot library.) |
m (Alphabetized, removed extra stuff) |
||
Line 13: | Line 13: | ||
'dot; pensize 2.4' plot magnitudes |
'dot; pensize 2.4' plot magnitudes |
||
[http://www.jsoftware.com/jwiki/RosettaCode/ExamplePlot1 Output of plot.] |
[http://www.jsoftware.com/jwiki/RosettaCode/ExamplePlot1 Output of plot.] |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
Line 63: | Line 71: | ||
=={{header|Python}}== |
=={{header|Python}}== |
||
'''Interpreter:''' [[Python]] |
|||
[[Category:Python]] |
|||
{{libheader|matplotlib}} |
{{libheader|matplotlib}} |
||
Line 74: | Line 80: | ||
>>> pylab.savefig('qsort-range-10-9.png') |
>>> pylab.savefig('qsort-range-10-9.png') |
||
[http://img30.picoodle.com/img/img30/5/12/23/f_qsortrange1m_0095c68.png qsort-range-10-9.png] (23 KiB) |
[http://img30.picoodle.com/img/img30/5/12/23/f_qsortrange1m_0095c68.png qsort-range-10-9.png] (23 KiB) |
||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ |
Revision as of 21:41, 19 February 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
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);
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');
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)