Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
Mtcars analysis
19-08-2020-JacobiSistema-menos-calc
Chi Square Tests [Is the die fair?]
19-08-2020-JacobiSistema
10-08-2020CalcuNum
LpSolver Example with Constraints
3dgraphics-and-curvesb
Practice series1(37)
Controle-22-03-2021
Data frame
Please log in to post a comment.