Tugas 4

Algoritma dan Sturktur Data

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

---

1 Menghitung Integral Tak Tentu dan Intergral Tak Tentu

integral<-function(x3,x2,x,c)
{
  cat("Integral tak tentu fungsi pangkat 3 :",x3/4,"x^4",x2/3,"x^3",x/2,"x^2",c*1,"x")
  }
integralt<-function(x3,x2,x,c,a,b)
{((x3/4)*(b^4))+((x2/3)*(b^3))+((x/2)*(b^2))+((c*1)*(b*1))-((x3/4)*(a^4))-((x2/3)*(a^3))-((x/2)*(a^2))-((c*1)*(a^1))
}
print(integral(1,2,3,4))

## Integral tak tentu fungsi pangkat 3 : 0.25 x^4 0.6666667 x^3 1.5 x^2 4 xNULL

print(integralt(1,2,3,4,1,2))

## [1] 16.91667

2 Fungsi untuk menghitung luas dan keliling lingkaran, volume bola

lkv<-function(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)))
}
print(lkv(14))

## Luas Lingkaran:  615.752160103599 
##  Keliling Lingkaran:  87.9645943005142 
##  Volume Bola: 11494.0403219339NULL

3 Fungsi untuk menghitung nilai statistik

Tinggi<-seq(150,180,5)
Frek<-c(15,23,28,40,39,22,9)
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 : 180 
##  Nilai Minimum  : 150 
##  Modus: 40 
##  Median: 165 
##  Rata-rata: 1933 1260.652 1035.536 724.875 743.4615 1317.955 3221.667 
##  variansi: 3179089 1222467 766562.8 313460 328858.1 1306345 9251736 
##  Standar Deviasi: 1783 1105.652 875.5357 559.875 573.4615 1142.955 3041.667 
## NULL