Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
(.)(.)
f = function(x,y){ t1 = exp((-1/1000)*((x+4)^2+(y+4)^2)^2) t2 = exp((-1/1000)*((x-4)^2+(y-4)^2)^2) t3.1 = exp(-((x+4)^2+(y+4)^2)^2) t3.2 = exp(-((x-4)^2+(y-4)^2)^2) t3 = 0.2*(t3.1 + t3.2) return(t1+t2+t3) } x = seq(-10,10,0.3); y = x z = outer(x,y,f) persp(x,y,z,theta=40, phi = 100,border="blue",expand = 0.4,box = F)
run
|
edit
|
history
|
help
0
First R
Gab1A(resumido)
Good Ozone
rungeefeito
Practices - 1
14-09-2020QRajustelinear
R exemplo
Ex17-12-20
practical ml
Garima