Anonymous user
Plot coordinate pairs: Difference between revisions
→{{header|OCaml}}
Line 23:
=={{header|OCaml}}==
<ocaml>#load "graphics.cma"
<ocaml>let x = [0; 1; 2; 3; 4; 5; 6; 7; 8; 9]▼
open Graphics▼
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
▲and y = [2.7; 2.8; 31.4; 38.1; 58.0; 76.2; 100.5; 130.0; 149.3; 180.0]
let () =
open_graph "";
Line 33 ⟶ 36:
(fun x y ->
(* scale to fit in the window *)
let _x = x *
and _y = round(y *.
plot _x _y)
x y;
ignore(wait_next_event [Key_pressed]);
;;</ocaml>
| |||