Hermite: Hermite Polynomials

In ArcadeAntics/polynomial:

Usage

Hermite(n)

Arguments

n

Examples

par(mar = c(4.5, 4.5, 1.7, 0.4))
plot(
    xlim = c(-3, 6), ylim = c(-10, 20),
    panel.first = grid(col = "gray69"),
    x = NA_real_, y = NA_real_,
    xlab = "x", ylab = ~H ~ ""[n](x), main = "Hermite Polynomials"
)
n <- 0:5
col <- c("#D55E00", "#009E73", "#0072B2", "#56B4E9", "#CC79A7", "#E69F00")
for (i in seq_along(n)) {
    x <- as.polynomial(Hermite(n[i]))
    lines(x, col = col[i], n = 1001, lwd = 2, xlim = par("usr")[1:2])
}
legend("topright",
    legend = paste0("n = ", n),
    fill = col,
    bty = "n")

ArcadeAntics/polynomial documentation built on Jan. 19, 2021, 12:32 a.m.