Anonymous user
Plot coordinate pairs: Difference between revisions
→{{header|OCaml}}
m (→{{header|Perl}}: Added syntax highlight.) |
|||
Line 21:
[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}}==
| |||