Author's photo
Anonymní autor
programování

Programování v programu R

Potřebuji pomoct s úlohou v programe R. Umí to prosím někdo?
Úkol zní:
a) Vypočítejte numerickou derivaci funkce y=
exp (x)*sin(5*x) v intervalu <0, 2*pi>
b) Výpočet proveďte pomocí obou uvedených vzorců pro derivaci.
c) Výsledky znázorněte v grafu, spolu s grafem přesné hodnoty derivace.
d) Krok h pro výpočet derivace volte odhadem tak velký, aby se graf numerické
derivace vypočtený funkcí fd2 a graf přesné hodnoty derivace kryly.
Ďekuji :)

Přílohy:
Question image
2 odpovědí
avatar
Zrušený účet
1. Definuj funkci:

f <- function(x) {
exp(x) * sin(5*x)
}

2. Pouzij dve v zadani uavdene metody 'fd1' a 'fd2' pro vypocet derivatu:

x <- seq(0, 2*pi, length.out = 1000)
h <- 0.0001 (nebo 0.00001)
y1 <- fd1(f, x, h)
y2 <- fd2(f, x, h)

3. Kod pro vygenerovani grafu:

exact <- exp(x) * (cos(5*x) + 5*sin(5*x))

plot(x, y1, type="l", col="red", lty=2, ylim=c(-5,5),
xlab="x", ylab="f'(x)")
lines(x, y2, col="blue", lty=2)
lines(x, exact, col="black", lwd=2)
legend("topleft", legend=c("fd1", "fd2", "exact"),
col=c("red", "blue", "black"), lty=c(2, 2, 1))
A jak máte doopravdy tu funkci zadanou : y = (e^x ) * sin(5x), nebo y = e^(x*sin(5x))