### Сам р 1
## 1. Построение 2d графика функции
f = function(x,y) {x^2/2^2+y^2/2^2-1}
x<-seq(-4,4,length=1000)
y<-seq(-4,4,length=1000)
z<-outer(x,y,f)
contour(x,y,z,levels=0)

## 2. Построение 3d графика функции
z = outer(x,y,f)
persp(x,y,z,
      theta=45, phi=15, # углы обзора
      col="black",
      ticktype="simple", # маркировка осей
      main="График", # заголовок
      sub="x^2/a^2+y^2/b^2-1") # подзаголовок