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
![Task](http://static.miraheze.org/rosettacodewiki/thumb/b/ba/Rcode-button-task-crushed.png/64px-Rcode-button-task-crushed.png)
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"])$