Plot coordinate pairs: Difference between revisions
Content added Content deleted
m (→{{header|Maxima}}: eps -> png for web) |
(Added Perl version with GD::Graph library.) |
||
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}}== |
|||
{{libheader|GD::Graph}} |
|||
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); |
|||
=={{header|Python}}== |
=={{header|Python}}== |
||
'''Interpreter:''' [[Python]] |
'''Interpreter:''' [[Python]] |
Revision as of 12:29, 8 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
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);
Python
Interpreter: 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)
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"])$