Nama : Abdan Nawwaf El Hibban

NIM : 230605110066

Dosen : Prof. Dr. Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

library(mosaicCalc)

Dengan menggunakan R, hitung laju rata-rata perubahan fungsi selama interval yang diberikan.

f <- makeFun(2*exp(x+1) ~ x)
g <- makeFun(3*exp(-x) ~ x)
h <- makeFun(x*exp(x) ~ x)
f
## function (x) 
## 2 * exp(x + 1)
g
## function (x) 
## 3 * exp(-x)
h
## function (x) 
## x * exp(x)

Ini jauh lebih sedikit bekerja jika kita menggunakan fungsi R untuk menentukan interval, dan fungsi R untuk menghitung perbedaan. Kotak pasir berikutnya berisi contoh yang meminta Anda untuk menghitung tingkat rata-rata perubahan c()diff() selama interval [0, 7]. Anda hanya perlu baris 1, 3, dan 5. Baris lain menunjukkan hasil antara untuk membantu Anda memahami apa yang dilakukan.diff()

interval <- c(0, 7)  # creates the interval
diff(interval)       # calculate the run
## [1] 7
f <- makeFun(2*exp(x+1) ~ x)   #  create the function
f
## function (x) 
## 2 * exp(x + 1)
f(interval)     # evaluate  function at the endpoints of  the interval
## [1]    5.436564 5961.915974
diff(f(interval)) / diff(interval)  # complete answer
## [1] 850.9256
interval <- c(0, 7)  # creates the interval
diff(interval)       # calculate the run
## [1] 7
h <- makeFun(x*exp(x) ~ x)

h(interval)     # evaluate  function at the endpoints of  the interval
## [1]    0.000 7676.432
diff(h(interval)) / diff(interval)  # complete answer
## [1] 1096.633