TUGAS 3

#  ==========================================================================
#  Nama  : Rasta Zelvino Zulkarnain
#  NRP   : 5003251081
#  Kelas : Komputasi Statistika D
#  ==========================================================================

NO 1

#1a - fungsi mendapatkan nilai ekponensian x dengan Maclaurin orde n

exp_mcl <- function(x,n){
  
  deret <- 1
  total <- 0
  
  for(i in 0:n){
    deret <-(x^i)/factorial(i)
    total <-  total+ deret
  }
  
  return(total)

}

#contoh nilai eksponensial dari -1 dengan orde 5
exp_mcl(-1,5)

[1] 0.3666667

#1b - Mendapatkan sin(x) dengan pendekatan Maclaurin

sin_mcl <- function(x){
  total <- 0
  i     <- 0
  deret <- x

  while(abs(deret)>= 1e-5){
    total <- total + deret
    i     <- i+1
    deret <- (-1)^i * x^(2*i+1) / factorial(2*i+1)
    
  }
    return(total)
}  

#contoh dapatkan nilai sin(pi/6) dengan deret Maclaurin
sin_mcl(pi/6)

[1] 0.5000021

NO 2

#2 Menghitung rata-rata bergerak dari suatu data 

avg_gerak<- function(data,k){
  
  n <- length(data)
  hasil <- rep(NA, n)

  for( t in k:n){
  total <- 0
  
  
  for(i in (t-k+1):t){
  total <-  total + data[i]
  }
 
  hasil[t] <- total/k
  
  }
  
  return(hasil)
}

  
#contoh 
data <- c(4.1, 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6, 4.9)
hasilmt <- avg_gerak(data, 3)


data.frame(
  t= 1:length(data),
  Data = data,
  Mt3= round(hasilmt,2)
)