Plot coordinate pairs: Difference between revisions
Content deleted Content added
m →{{header|Perl}}: Added syntax highlight. |
|||
Line 21: | Line 21: | ||
[http://img28.picoodle.com/img/img28/4/2/7/f_qsortrange1m_1b7f493.png qsort-range-10-9.png] |
[http://img28.picoodle.com/img/img28/4/2/7/f_qsortrange1m_1b7f493.png qsort-range-10-9.png] |
||
=={{header|OCaml}}== |
|||
<ocaml>let x = [0; 1; 2; 3; 4; 5; 6; 7; 8; 9] |
|||
and y = [2.7; 2.8; 31.4; 38.1; 58.0; 76.2; 100.5; 130.0; 149.3; 180.0] |
|||
let round x = int_of_float (floor(x +. 0.5)) |
|||
open Graphics |
|||
let () = |
|||
open_graph ""; |
|||
List.iter2 |
|||
(fun x y -> |
|||
(* scale to fit in the window *) |
|||
let _x = x * 20 |
|||
and _y = round(y *. 1.5) in |
|||
plot _x _y) |
|||
x y; |
|||
close_graph (); |
|||
;;</ocaml> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |