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

Tugas 5 Buatlah fungsi dengan bahasa pemrograman R dan Python untuk menghitung:

1 Nomor 1

Intergral Tentu dan Tak Tentu

library(mosaicCalc)
Fungsi=makeFun(5*x^2 +3*x + 7 ~x)
a=5
b=0 

IntegralTT <- function(x)
{
 Integral= antiD(Fungsi(x)~x)
 Tentu =Integral(a)-Integral(b)
 TakTentu=Integral(a:b)
  return (cat(c("Integral Tentu :",Tentu, "\n", 
                "Integral Tak Tentu :", TakTentu)))
}
IntegralTT(x)
## Integral Tentu : 280.833333333333 
##  Integral Tak Tentu : 280.833333333333 158.666666666667 79.5000000000001 33.3333333333334 10.1666666666667 5.32907051820075e-14

2 Nomor 2

Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola.

\(Luas Lingkaran = \pi r^2\)

\(Keliling Lingkaran = 2\pi r\)

\(Volume Bola = \frac 4 3 \pi r^3\)

phi = 22/7

lingkaran = function(p, r)
{
  luas = round(p * r^2)
  keliling = round(2*p*r)
  vol = round(4/3 * p* r^3 , digits =2 )
  
  return(cat(c("luas =",luas,
               "keliling =",keliling,
               "volume bola=",vol)))
}

lingkaran(phi,7)
## luas = 154 keliling = 44 volume bola= 1437.33

3 Nomor 3

Nilai Maksimum, Minimum, Rata-rata, Median, Mode, Variansi, Standard Deviasi pada data berfrekuensi.

Tinggi = c(150,155,160,165,170,175)

Frek = c(1,2,3,1,2,2)


tb = data.frame(Tinggi,
                Frek)

tb
##   Tinggi Frek
## 1    150    1
## 2    155    2
## 3    160    3
## 4    165    1
## 5    170    2
## 6    175    2
wiiiii = function (x,frek)
{
  min = min(x)
  max = max(x)
  
  yg.med = median.default(frek)
  med = x[yg.med]
  

  
  yg.max = which.max(frek)
  mode = x[yg.max]
  
                          
  rata= round(sum(x*frek)/sum(frek), digits=2)
 
  b = x-rata
  c = sum((b^2)*frek)
  hiw = c / (sum(frek)-1)
  
  sd =  round(sqrt(hiw), digits=2)

  return(cat(c("minimum =",     min,"\n",
               "maksimum =",    max,"\n",
               "median =",med,"\n",
               "modus =", mode,"\n",
               "rata-rata =",   rata,"\n",
               "varians = ", hiw,"\n",
               "standar deviasi =", sd,"\n"
               )))}
wiiiii(tb$Tinggi,tb$Frek)
## minimum = 150 
##  maksimum = 175 
##  median = 155 
##  modus = 160 
##  rata-rata = 163.18 
##  varians =  71.36364 
##  standar deviasi = 8.45