如何在OCaml中划一条线？

Question

我尝试在OCaml中绘制一些东西（try.ocamlpro.com）。 我不确定如何使用“plot x y”函数绘制一条线，例如x = y。最终我尝试了类似的东西，显然不起作用：

open Graphics;;
Graphics.open_graph " 200x200";;
       for i = 0 to x do
        plot i (f i)
       done
    let g x = 2*x
read_line ();;

任何帮助（或示例）？ 谢谢。

Answer 1

还有Graphics.lineto，它基于海龟型系统：

Graphics.open_graph " 200x200";;
Graphics.lineto 100 100;;

将当前点（默认为0, 0）更改为提供的x y点，并绘制一条连接两者的线。

您可以使用moveto : int -> int -> unit设置当前点。

有关详情，请参阅docs。

Answer 2

我看不出你的问题是什么。当我尝试你的代码，修改一下，我可以根据你的需要画一条线。首先，您需要初始化窗口：

open Graphics;;
Graphics.open_graph " 200x200";;

然后你需要定义你的函数f：

let f x = x + 1;;

然后使用函数plot

绘制线条

for i = 0 to 200 do
   plot i (f i)
done;;

Voilà！