Algoritma dan Struktur Data

Tugas 2

Email             : ferdinand.widjaya@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/ferdnw/
Jurusan          : Statistika Bisnis
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

Integral

library(mosaicCalc)

IntegTentuTakTentu <- function(x)
{
Fungsi=makeFun(3*x^2~x)
Integral= antiD(Fungsi(x)~x)
Integral_Tentu=Integral(0)-Integral(5)
Integral_Tak_Tentu=Integral(2:4)
return (cat(c("Integral Tentu :", Integral_Tentu, "\n", 
"Integral Tak Tentu :", Integral_Tak_Tentu)))
}
IntegTentuTakTentu(x)

## Integral Tentu : -125 
##  Integral Tak Tentu : 8 27 64

Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola.

Luaskelvol <- function(pi,r)
{
  Luas = (pi*r^2)
  Keliling = (2*pi*r)
  Volume = (4/3*pi*r^3)
  return(cat(c("Luas lingkaran:",Luas, "\n",
               "Keliling lingkaran:", Keliling,"\n",
               "Volume bola:",Volume)))
}
Luaskelvol(3.14,24)

## Luas lingkaran: 1808.64 
##  Keliling lingkaran: 150.72 
##  Volume bola: 57876.48

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

Hasil	Frekuensi
45	2
55	6
65	7
75	12
85	9
95	4

 Hasil<-seq(45,95,10)
Frek<-c(2,6,7,12,9,4)


fi=40
tbm=74.5   
interval=10    
fkb = 15         
f= 12           
d1=5 
d2 = 3
xi=( Hasil/2)             
fixi=(xi*Frek)          
fixi2=xi^2*Frek     

Hasil_test<-function( Hasil,frek)
{
   nilaimax=max( Hasil)
   nilaimin=min( Hasil)
   nilaimean=sum( Hasil*Frek)/sum(Frek)
  Median=tbm+((fi/2-fkb)/f)*interval
  Mode=tbm+interval*(d1/(d1+d2))
  Variansi=(sum(fixi2)-(sum(fixi)^2/fi))/fi-1
 std=sqrt(Variansi)
  return(cat(" Nilai maksimum :  ", nilaimax,"\n",
               " Nilail minimum  : ",  nilaimin,"\n",
               "Mean  :" ,  nilaimean,"\n",
             "Median :", Median,"\n",
             "Mode  : ",Mode,"\n",
             "Variansi  : ",Variansi,"\n",
             "Standard Devasi  : ",std))
}
Hasil_test( Hasil,frek)

##  Nilai maksimum :   95 
##   Nilail minimum  :  45 
##  Mean  : 73 
##  Median : 78.66667 
##  Mode  :  80.75 
##  Variansi  :  44.25 
##  Standard Devasi  :  6.652067