x <- seq(-3,3, by = 0.1)
y <- x^2
plot(x, y, main="Parabel")
plot(x, y, main="Parabel",type="l")
plot(x, y, main="Parabel",type="h")