如何在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

我看不到你的问题。当我尝试你的代码时，稍微修改一下，我可以根据需要绘制一条线。首先，你需要初始化窗口：

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

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

let f x = x + 1;; 

，然后使用功能plot

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

瞧只是划清界线！

Answer 2

还有Graphics.lineto，它是基于一个龟型系统上：

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

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

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

查看docs了解更多。