Penyelesaian soal dengan metode secant menggunakan R studio

Latihan kerja mahasiswa

1.Cari hasil perkalian dari tiga persamaan berikut (x + 2)²(x-1)⁴(x+5).

Penyelesaian:

{r}
root_secant(function(x){((x + 2)^2)*((x - 1)^4)*(x+5)},x=0)

Sintaks fungsi

## $`function`
## function(x){((x + 2)^2)*((x - 1)^4)*(x + 5)}
## <bytecode: 0x000000000f897138>
## 
## $root
## [1] 0.9999996
## 
## $iter
## [1] 72

jadi,nilai akar penyelesaiannya adalah x=0,9999996 dan interasi dilakukan sebanyak 72 kali

---

2.Cari faktor dari persamaan 6x⁴+11x³-56x²-x+60

Penyelesaian:

root_secant(function(x){6*(x^4)+11*(x^3)-56*(x^2) +60}, x=0)

Sintaks fungsi

## $`function`
## function(x){6*(x^4)+11*(x^3)-56*(x^2) +60}
## <bytecode: 0x0000000010d85a80>
## 
## $root
## [1] 1.000008e-06
## 
## $iter
## [1] 3

jadi,nilai akar penyelesaiannya adalah x=1.0000008e-06 dan interasi dilakukan sebanyak 3 kali

---

3.Cari penyelesaian persamaan x⁴−5x³+3x²+x=0

Penyelesaian

root_secant(function(x){x^4-5*(x^3)+3*(x^2)+x}, x=0)

Sintaks fungsi

## $`function`
## function(x){x^4-5*(x^3)+3*(x^2)+x}
## <bytecode: 0x00000000103487a0>
## 
## $root
## [1] 0
## 
## $iter
## [1] 2

jadi,nilai akar penyelesaiannya adalah x=0 dan interasi dilakukan sebanyak 2 kali

---

4. Cari penyelesaian dari pertidaksamaan 7x – 1 < 2x + 3

Penyelesaian

root_secant(function(x){7*x + 2*x - 1 - 3}, x=0)

Sintaks fungsi

## $`function`
## function(x){7*x + 2*x - 1 - 3}
## <bytecode: 0x00000000109cdc60>
## 
## $root
## [1] 0.4444444
## 
## $iter
## [1] 2

jadi,nilai akar penyelesaiannya adalah x=0.4444444 dan interasi dilakukan sebanyak 2 kali

Daftar Pustaka

1.Soal file:///C:/Users/USER/Documents/kumpulan%20matkul%20sem%201/kalkunus/buku%20matenmatika%20suhartono.pdf

2.Cara dan Penyelesaian https://bookdown.org/moh_rosidi2610/Metode_Numerik/rootfinding.html#akar-persamaan-polinomial-menggunakan-fungsi-polyroot