BAB 8 INTEGRAL DAN INTEGRASI

INTEGRAL DAN INTEGRASI

Operator diferensiasi mengambil sebuah fungsi sebagai masukan (input) dan berhubungan dengan variabel. Sebuah output (keluaran) merupakan sebuah fungsi yang memiliki variabel dan berhubungan dengan argumen lainnya. Contoh dari sebuah fungsi:

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

## 
## Attaching package: 'mosaicCalc'

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

f <- makeFun( A * x ^ 2 ~ x, A = 2.5) f(3)

## [1] 22.5

## [1] 40

Lalu cari integralnya:

df <- D(f(x)~x)
df(3)

## [1] 15

slice_plot(f(x) ~ x, domain(x = -1:1)) %>% gf_labs(title = "Original function f(x)") slice_plot(df(x) ~ x, domain(x =-1:1), color = "purple") %>% gf_labs(title = "New function df(x), the derivative of f(x)") ANTITURUNAN Operator invers ini diimplementasikan dalam R/ mosaicCalcsebagai antiD()fungsi. Seperti yang disarankan akhiran anti, antiD()“membatalkan” apa .

slice_plot(df(x) ~ x, domain(x=-1:1), color = "red") %>% gf_labs(title = "Original function df(x)")