Prof. Dr. Suhartono, M.Kom

Nama dan NIM : Abbiyi Qobus Syamsid (230605110087)

Universitas : Universitas Islam Negeri Maulana Malik Ibrahim Malang

Fakultas : Sains dan Teknologi

Program Studi : Teknik Informatika

Dalam buku ini, kita akan menggunakan fungsi R/mosaic. Argumen pertama adalah ekspresi tilde dan argumen kedua adalah interval domain untuk dicari.Zeros()

Zeros() diatur untuk menemukan input di mana fungsi yang didefinisikan dalam ekspresi tilde menghasilkan nol sebagai output. Tapi misalkan Anda berurusan dengan masalah seperti f ( x ) = 10 ? Anda dapat memodifikasi ekspresi tilde sehingga mengimplementasikan fungsi yang sedikit berbeda: f ( x ) − 10 . Jika kita dapat menemukan x 0 sedemikian rupa sehingga f ( x 0 ) − 10 = 0 , itu juga akan menjadi x 0 Memuaskan f ( x 0 ) = 10 .

Inti dari contoh ini adalah untuk menunjukkan cara menggunakan , jadi kita akan mendefinisikan fungsi Zeros() f ( x ) 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

f <- rfun( ~ x, seed=579)

Kami ingin mencari nol dari fungsi tersebut f ( x ) − 10 yang sesuai dengan pemecahan f ( x ) = 10 .

Zeros(f(x) - 10 ~ x, bounds(x=-4:4))
## # A tibble: 2 × 2
##         x      .output.
##     <dbl>         <dbl>
## 1 -2.92   -0.0000000344
## 2  0.0795 -0.00000118
## # A tibble: 2 × 2
##         x      .output.
##     <dbl>         <dbl>
## 1 -2.92   -0.0000000344
## 2  0.0795 -0.00000118

Output yang dihasilkan oleh adalah bingkai data dengan satu baris untuk masing-masing Zeros() x 0 Ditemukan. Di sini, dua nilai ditemukan: x 0 = − 2.92 dan x 0 = 0.0795 . Laporan kolom .output f ( x 0 ) yang seharusnya nol. Tidak selalu layak untuk mencapai nol dengan tepat, karena aritmatika komputer tidak selalu tepat.

Pikirkan sebagai cara untuk memperbaiki jawaban yang Anda temukan secara grafis. Jadi sebelum menggunakan , buat grafik.Zeros()Zeros()

slice_plot(f(x) ~ x, bounds(x=-4:4)) %>%
  gf_hline(yintercept = ~ 10, color="magenta")