tasks a-s

Task/Plot-coordinate-pairs/OCaml/plot-coordinate-pairs-1.ocaml

@@ -0,0 +1,20 @@
+#load "graphics.cma"
+open Graphics
+
+let round x = int_of_float (floor(x +. 0.5))
+
+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 () =
+  open_graph "";
+  List.iter2
+    (fun x y ->
+      (* scale to fit in the window *)
+      let _x = x * 30
+      and _y = round(y *. 2.0) in
+      plot _x _y)
+    x y;
+  ignore(wait_next_event [Key_pressed]);
+  close_graph();
+;;

Task/Plot-coordinate-pairs/OCaml/plot-coordinate-pairs-2.ocaml

@@ -0,0 +1,10 @@
+module A = Archimedes
+
+let y = [|2.7; 2.8; 31.4; 38.1; 58.0; 76.2; 100.5; 130.0; 149.3; 180.0|]
+
+let () =
+  let vp = A.init [] in
+  A.Axes.box vp;
+  A.set_color vp A.Color.red;
+  A.Array.y vp y;
+  A.close vp