Algoritma & Struktur Data

Tugas 4

Email             : kent.zendrato@student.matanauniversity.ac.id
RPubs            : https://rpubs.com/kentzend03/
Jurusan          : Fisika Medis
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

---

1 Integral

library(mosaicCalc)

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

## Integral Tentu : -215143.6 
##  Integral Tak Tentu : 3116.4 13115.2 40010

2 Keliling Lingkaran, Luas Lingkaran, dan Volume Bola

Misal diketahui π = 22/7 dan R = 14, maka hitunglah keliling lingkaran, luas lingkaran, dan volume bola berdasarkan data yang tersedia.

KLV <- function(π,R)
{
  K = 2*π*R
  L = π*R^2
  V = 4/3*π*R^3
  return(cat(c("Keliling:", K, sep = "\n",
               "Luas Permukaan:", L, sep = "\n",
               "Volume:", V)))
}
KLV(22/7,14)

## Keliling: 88 
##  Luas Permukaan: 616 
##  Volume: 11498.6666666667

3 Nilai Maksimum, Minumum, Rata-Rata, Median, Mode, Variansi, Standard Deviasi pada Data Berfrekuensi

Nilai	Frekuensi
50	2
60	5
70	4
80	1
90	3

 Hasil<-seq(50,90,10)
Frek<-c(2,5,4,1,3)


fi=15
tbm=69.5   
interval=10    
fkb = 13        
f= 4           
d1= 1 
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:   90 
##   Nilail minimum:  50 
##  Mean: 68.66667 
##  Median: 55.75 
##  Mode:  72 
##  Variansi:  41.88889 
##  Standard Devasi:  6.472163