Email             :
RPubs            : https://rpubs.com/sharongracia/
Jurusan          : Fisika Medis
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

1 Integral tentu, integral tak tentu

library(mosaicCalc)
## Loading required package: mosaicCore
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D
F = antiD(x^2+2*x~x)
F(x = 3) - (x = 1)
## [1] 17
F2 = antiD(x^2 ~ x)
F2
## function (x, C = 0) 
## 1/3 * x^3 + C

2 Luas lingkaran, Keliling Lingkaran, Volume Bola

luas_keliling_volume <- function(r)
{luas = phi*r^2
 keliling = 2*phi*r
 volume = 4/3*phi*r^3
return(cat(c("luas :", luas, "\n",
             "keliling :", keliling, "\n",
             "volume :", volume, "\n")))}
phi <- 3.14
luas_keliling_volume(6)
## luas : 113.04 
##  keliling : 37.68 
##  volume : 904.32

3 Nilai maksimum, nilai minimum, rata-rata, median, mode, variasi, standar deviasi

nilai frek
40 4
50 2
60 5
70 6
80 2
90 2
100 3 
nilai <- c(40, 50, 60, 70, 80, 90, 100)
frek <- c(4, 2, 5, 6, 2, 2, 3)

fungsi <- function(nilai,frek)
{maks = max(nilai)
 min = min(nilai)
 ratarata = sum(nilai*frek)/length(frek)
 nilai_tengah = tb + i*(((length(frek))-fkm)/fm)
 modus = tb+i*(d1/(d1+d2))
 variasi = fi*((xi-ratarata)**2)
 std = (variasi)^(1/2)
return(cat(c("nilai maksimum :", maks, "\n",
             "nilai minimum :", min, "\n",
             "rata-rata :", ratarata, "\n",
             "median :", nilai_tengah, "\n",
             "modus :", modus, "\n",
             "variasi :", variasi, "\n",
             "standar deviasi :", std, "\n"
             )))}
tb  = 69.5
i   = 10
fkm = 5
fm = 6
d1 = 1
d2 = 4
fi = sum(frek)
xi = sum(nilai)
fungsi(nilai, frek)
## nilai maksimum : 100 
##  nilai minimum : 40 
##  rata-rata : 231.428571428571 
##  median : 72.8333333333333 
##  modus : 71.5 
##  variasi : 1604620.40816327 
##  standar deviasi : 1266.73612412501