Nama : Abdan Nawwaf El Hibban

NIM : 230605110066

Dosen : Prof. Dr. Suhartono,M.Kom

Prodi : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

library(mosaicCalc)

Zeros() diatur untuk menemukan input di mana fungsi yang didefinisikan dalam ekspresi tilde menghasilkan nol sebagai output.

Inti dari contoh ini adalah untuk menunjukkan cara menggunakan , jadi kita akan mendefinisikan fungsi Zeros()menggunakan dari R/mosaic. Ini membangun fungsi dengan mengambil kombinasi linier dari fungsi lain yang dipilih secara acak. Argumen menentukan fungsi mana yang akan berada dalam kombinasi linier.rfun()seed=579 Kami ingin mencari nol dari fungsi tersebut 

f <- makeFun(x^3+3*x-3~x)
f
## function (x) 
## x^3 + 3 * x - 3
f(4)
## [1] 73
Zeros(f(x) - 0 ~ x, bounds(x=-10:10))
## # A tibble: 1 × 2
##       x  .output.
##   <dbl>     <dbl>
## 1 0.818 0.0000179
slice_plot(f(x) ~ x, bounds(x=-10:10)) %>%
  gf_hline(yintercept = ~ 5, color="Blue")