2017-04-20 126 views

回答

2

只是一個開始:

x <- seq(-1, 1, length = 20) 
y <- seq(-1, 1, length = 20) 
z <- outer(x, y, function (x, y) x + y + sin(x) + cos(y)) 
persp(x, y, z) 
0

Asuming你的論點進入你的函數是xy,什麼該函數返回是x + y + sin(x) + cos(y),我的解決方案如下:

f <- function(x, y) x + y + sin(x) + cos(y) 

x <- seq(from = -5, to = 5, length = 100) 
y <- seq(from = -5, to = 5, length = 100) 
z <- f(x, y) 

library(plotly) 
plot_ly(x = x, y = y, z = z) 

使用persp(什麼@李哲源宋哲元力建議)將意味着運行(當然,參數必須根據自己的喜好進行調整):

z <- outer(x, y, f) 
persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue")