Tugas 5

Algoritma dan Sturktur Data

Email             : naufal3433@gmail.com
RPubs            : https://www.rpubs.com/muhammad_naufal/
Jurusan          : Statistika Bisnis
Address         : Jalan Gunung Galunggung 5 Blok E9, No.21

---

0.1 Intergral Tentu dan Tak Tentu

library('pracma')
pracma=integral(function(x)(2*(x)^2)+6*(x)+3,
          xmin=1, xmax=5, method="Simpson",
          reltol = 1e-8)
library(mosaicCalc)

## Loading required package: mosaicCore

## 
## Attaching package: 'mosaicCore'

## The following object is masked from 'package:pracma':
## 
##     logit

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

## 
## Attaching package: 'mosaicCalc'

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

I = antiD(3*x^3+9 ~ x)
I

## function (x, C = 0) 
## 3/4 * x^4 + 9 * x + C

print(pracma)

## [1] 166.6667

0.2 Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola.

phi = 3.14
r=21
data<- function(phi,r)
  
{luas = phi*r^2
  keliling = 2*phi*r
  volume =round(4/3*phi*r^3, digits = 2)

return(cat(c("luaslingkaran :", luas,
             "kelilinglingkaran :", keliling,
             "volumebola :", volume)))
}
data(phi = 3.14, r=21)

## luaslingkaran : 1384.74 kelilinglingkaran : 131.88 volumebola : 38772.72

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

Tinggi<-c(60,65,70,75,80,85,90,95)
Frek<-c(2,1,4,4,5,5,2,2)
data<-function(x,frek)
{
  maksimum=max(x)
  minimum=min(x)
  modus=max(frek)
  median=median(x)
  ratarata=sum(x*frek)/frek
  variansi=((x-ratarata)^2)*frek/frek
  standardeviasi=sqrt(variansi)
  cat("Nilai Maksimum :",maksimum,"\n",
      "Nilai Minimum  :", minimum,"\n",
      "Modus:",modus,"\n",
      "Median:",median,"\n",
      "Rata-rata:",ratarata,"\n",
      "variansi:",variansi,"\n",
      "Standar Deviasi:",standardeviasi,"\n")
}
print(data(Tinggi,Frek))

## Nilai Maksimum : 95 
##  Nilai Minimum  : 60 
##  Modus: 5 
##  Median: 77.5 
##  Rata-rata: 980 1960 490 490 392 392 980 980 
##  variansi: 846400 3591025 176400 172225 97344 94249 792100 783225 
##  Standar Deviasi: 920 1895 420 415 312 307 890 885 
## NULL