Assignment 3

## Nomor 1 : Pendekatan Deret Maclaurin
### a. Pendekatan Nilai Eksponensial

# Fungsi Eksponensial
eksponensial <- function(x, n){
  sum <- 1
  
  for(i in 1:n) {
    sum <- sum + x^i/factorial(i)
  }
  return(sum)
}

eksponensial(-1, 5)

[1] 0.3666667

### b. 
faktorial <- function(x){
  fakt <- 1
  if(x<= 0){
    return(1)
  } else {
    for(i in 1:x){
      fakt <- fakt*i
  }
  return(fakt)
  }
}

sin_function <-  function(x){
  sum <- x
  i <-  1
  suku <- 1

while(suku > 10^(-5)){
  pembilang <- x^(2*i + 1)
  penyebut <- faktorial (2*i + 1)
  suku <-  pembilang/penyebut

if (suku < 10^(-5)) {
  break
}

sum <- sum + ((-1)^i*suku)

i <- i+1
}
return(sum)
}

sin_function(pi/6)

[1] 0.5000021

## Nomor 2: Fungsi rata-rata gerak dari suatu data
hitung_ma <- function(data_input, k=3){
  n <- length(data_input)
  hasil_ma <-  rep(NA, n)

  for (t in k:n){
    kelompok_data <- data_input[(t-k+1):t]
    hasil_ma[t] <- mean(kelompok_data)
  }
  return(hasil_ma)
}

#Input data berdasarkan tabel
t_index <- 1:12
data_y <- c(4.1, 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6.0, 4.9)

mt_3 <- hitung_ma(data_y, k=3)

tabel_ma <- data.frame(
t = t_index,
data = data_y,
mt_3 = round(mt_3, 2)
)

print(tabel_ma)

    t data mt_3
1   1  4.1   NA
2   2  4.9   NA
3   3  6.2 5.07
4   4  6.9 6.00
5   5  6.8 6.63
6   6  4.4 6.03
7   7  5.7 5.63
8   8  5.8 5.30
9   9  6.9 6.13
10 10  4.7 5.80
11 11  6.0 5.87
12 12  4.9 5.20