contour(u,v,z,n)是画
等值线\r\n其第四个参数是控制等值线的值的\r\n\r\n如果n
是一个标量，那么解释为等值线的条数例如\r\ncontour(u,v,z,20)那么它会根据数据的范围画出20条等值线\r\n\r\n如果n是一个
向量，那么解释为需要等值线的值，例如\r\ncontour(u,v,z,[1 2 3 4])会画出z=1,2,3,4四个值的等值线\r\n\r\n如果我们要只要画指定的某个值的等值线，我们就用两个相同的数组成向量\r\ncontour(u,v,z,[1 1])画值为1的等值线\r\ncontour(u,v,z,[0 0])画值为0的等值线R可以画轮廓图，例如：
require(grDevices) # for colours
x <- -6:16
op <- par(mfrow = c(2, 2))
contour(outer(x, x), method = "edge", vfont = c("sans serif", "plain"))
z <- outer(x, sqrt(abs(x)), FUN = "/")
image(x, x, z)
contour(x, x, z, col = "pink", add = TRUE, method = "edge",
vfont = c("sans serif", "plain"))
