我试图从中得到轮廓图。
x <- seq(-250,250, by=0.005)
y <- seq(-250,250, by=0.005)
p_x <- 450+2.5*10^(-4)*(x^2+y^2)
p_y <- 450+2.5*10^(-4)*(x^2+y^2)
z <- outer(x, y, function(x, y) 0*x + 0*y)
contour(p_x,p_y,z)
但它还没有奏效。我收到错误＆gt;增加＆＃39; x＆＃39;并且＆＃39; y＆＃39;值预期＆lt;。重要的是：z必须是由零组成的矩阵。