NIM : 230605110077

DOSEN PENGAMPU : Prof. Dr. SUHARTONO, M.Kom

LEMBAGA : UIN MAULANA MALIK IBRAHIM MALANG


Banyak perhitungan yang dimulai dengan tebakan yang diikuti dengan proses langkah demi langkah untuk menyempurnakan tebakan tersebut. Salah satu contohnya adalah proses menghitung akar kuadrat. Tidak ada rumus operasional untuk suatu fungsi yang mengambil suatu bilangan sebagai masukan dan menghasilkan akar kuadrat dari bilangan tersebut sebagai keluaran. Saat kita menulis \(\sqrt{x}\) kami tidak menjelaskan cara menghitung keluaran, hanya menjelaskan jenis keluaran yang kami cari.

Fungsi yang sering digunakan untuk menghitung \(\sqrt{x}\) lebih baik():

library(mosaicCalc)
## Loading required package: 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
## Loading required package: mosaicCore
## 
## Attaching package: 'mosaicCore'
## The following objects are masked from 'package:dplyr':
## 
##     count, tally
## The legacy packages maptools, rgdal, and rgeos, underpinning the sp package,
## which was just loaded, will retire in October 2023.
## Please refer to R-spatial evolution reports for details, especially
## https://r-spatial.org/r/2023/05/15/evolution4.html.
## It may be desirable to make the sf package available;
## package maintainers should consider adding sf to Suggests:.
## The sp package is now running under evolution status 2
##      (status 2 uses the sf package in place of rgdal)
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D
better <- makeFun((guess + x/guess)/2 ~ guess)
better(1, x=55)
## [1] 28
better(28, x=55)
## [1] 14.98214
better(14.98214, x=55)
## [1] 9.326589
## [1] 9.326589
better(9.326589, x=55)
## [1] 7.611854
## [1] 7.611854
better(7.611854, x=55)
## [1] 7.418713
## [1] 7.418713
better(7.418713, x=55)
## [1] 7.416199
## [1] 7.416199
better(7.416199, x=55)
## [1] 7.416198
## [1] 7.416198
7.416198^2
## [1] 54.99999
## [1] 54.99999
Iterate(better(guess, x=55) ~ guess, x0=1, n=8)
##   n     guess
## 1 0  1.000000
## 2 1 28.000000
## 3 2 14.982143
## 4 3  9.326590
## 5 4  7.611854
## 6 5  7.418713
## 7 6  7.416199
## 8 7  7.416198
## 9 8  7.416198