---

title: “Latihan bab 4” author: “siti wasi’atul maghfiroh” date: “2022-10-16” output: html_document —

LATIHAN 1

Selesaikan persamaan dosa(karena(2)−x)−x=0,5 untuk x.{0.0000,0.1328, 0.2098 ,0.3654,0.4217}

library(mosaic)

## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2

## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.

## 
## Attaching package: 'mosaic'

## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally

## The following object is masked from 'package:Matrix':
## 
##     mean

## The following object is masked from 'package:ggplot2':
## 
##     stat

## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var

## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum

findZeros( sin(cos(x^2) - x) -x - 0.4 ~ x, xlim=range(-10,10))

##        x
## 1 0.2671

LATIHAN 2 Temukan nol dari fungsi tersebut 3e−t/5dosa (2π2t)yang berada di antara t=1dan t=10. Tidak ada nol dalam interval itu.} Tidak ada nol sama sekali!} $ 2, 4, 6, 8$} $ 1, 3, 5, 7, 9$} {1,2,3,4,5,6,7,8,9}

findZeros( 3*exp(-t/5)*sin(pi*t) ~ t, xlim=range(1,10))

##    t
## 1  0
## 2  1
## 3  2
## 4  3
## 5  4
## 6  5
## 7  6
## 8  7
## 9  8
## 10 9

LATIHAN 3 Gunakan findZeros()untuk menemukan nol dari masing-masing polinomial ini: 3x2 +7 x − 10 Dimana angka nolnya? sebuah.x = −3,33 atau 1 b.x =3.33 atau 1 c.x = − 3,33 atau − 1d.x = 3.33 atau −1 e. Tidak ada nol

findZeros( 3*x^2 + 7*x - 10 ~ x, xlim=range(-100,100))

##         x
## 1 -3.3334
## 2  1.0000

LATIHAN 3 Gunakan findZeros()untuk menemukan nol dari masing-masing polinomial ini: 1.3x2+7x−10 Dimana angka nolnya? sebuah.x= -3,33 atau 1b.x=3.33atau1 c.x=−3,33 ataU−1 d.x = 3.33 atau −1 e. Tidak ada nol JAWAB:

findZeros( 3*x^2 + 7*x - 10 ~ x, xlim=range(-100,100))

##         x
## 1 -3.3334
## 2  1.0000

2.4x2−2x+20 Dimana angka nolnya? sebuah. x=−3.33atau 1} b. x=3.33atau 1} c. x=−3.33atau −1} d.x=3.33atau −1} e. Tidak ada nol 2x3−4x2−3x−10 Yang mana dari ini yang nol? {-1.0627,0,1.5432,1.8011,2.1223, 3.0363 ,tidak ada} JAWAB:

findZeros(2*x^3 - 4*x^2 - 3*x - 10 ~ x, xlim=c(-10,10))

##        x
## 1 3.0363

5. 6x5−7x4−2x3-4x2−3x−10 Yang mana dari ini yang nol? {-1.0627,0,1.5432, 1.8012 ,2.1223,3.0363,none}

JAWAB:

findZeros( 6*x^5-7*x^4 -2*x^3 - 4*x^2 - 3*x - 10 ~ x, xlim=c(-10,10))

##        x
## 1 1.8012

LATIHAN 6

library(mosaicCalc)

## Loading required package: mosaicCore

## 
## Attaching package: 'mosaicCore'

## The following objects are masked from 'package:dplyr':
## 
##     count, tally

## Loading required package: Deriv

## Loading required package: Ryacas

## 
## Attaching package: 'Ryacas'

## The following objects are masked from 'package:Matrix':
## 
##     diag, diag<-

## The following object is masked from 'package:stats':
## 
##     integrate

## The following objects are masked from 'package:base':
## 
##     %*%, diag, diag<-, lower.tri, upper.tri

## 
## Attaching package: 'mosaicCalc'

## The following object is masked from 'package:stats':
## 
##     D

g <- makeFun(sin(x) - 0.35 ~ x)
slice_plot(g(x) ~ x, domain(x = -20:20)) %>%
  gf_hline(yintercept =  0, color = "red") %>%
  gf_vline(xintercept = 0, color = "red")