Показать сообщение отдельно
Старый 29.12.2016, 13:09   #565
Hogfather
Platinum Member
 
Аватар для Hogfather
 
Регистрация: 22.07.2010
Адрес: Санкт-Петербург
Сообщений: 3,281
По умолчанию



Скрипт
Код:
library(plot3D)
test<-function(x,y){
exp(-((x-4)^2+(y-4)^2)^2/1000) + exp(-((x +4)^2+(y+4)^2)^2/1000) + 0.1*exp(-((x +4)^2+(y+4)^2)^2)+0.1*exp(-((x -4)^2+(y-4)^2)^2)
}
x <- seq(-10,10,length=100)
y <- x
z <- outer(x,y,test)

persp3D(x,y,z,theta=-30,phi=30,colkey=F)
title("С новым 2017 годом!","Всем добра, борща и сисек!")
---------
DNF is not an option
Hogfather вне форума   Ответить с цитированием
Реклама