x1 <- seq(-4, 4, length.out = 101)
y1 <- einsteinF(1, x1)
plot(x1, y1, type = "l", col = "red",
xlab = "", ylab = "", main = "Einstein Function E1(x)")
grid()
y2 <- einsteinF(2, x1)
plot(x1, y2, type = "l", col = "red",
xlab = "", ylab = "", main = "Einstein Function E2(x)")
grid()
x3 <- seq(0, 5, length.out = 101)
y3 <- einsteinF(3, x3)
plot(x3, y3, type = "l", col = "red",
xlab = "", ylab = "", main = "Einstein Function E3(x)")
grid()
y4 <- einsteinF(4, x3)
plot(x3, y4, type = "l", col = "red",
xlab = "", ylab = "", main = "Einstein Function E4(x)")
grid()
Run the code above in your browser using DataLab