TUGAS 3

# Nama: Andin Olga Pramesti
# NRP: 5003251065
# Kelas: D

Soal Nomor 1

#1A
# Buatlah sebuah fungsi dengan input 𝑥 dan 𝑛 untuk mendapatkan nilai eksponensial suatu nilai 𝑥 dengan pendekatan deret Maclaurin dengan orde 𝑛

Maclaurin <- function(x,n){
  hasil <- 1
  for(i in 1:n){
    hasil <- hasil + x^i/factorial(i) 
  }
  return(hasil)
}

Maclaurin(-1,5)

[1] 0.3666667

#1B) Buatlah sebuah fungsi dengan input 𝑥 untuk mendapatkan nilai sin (𝑥) dengan pendekatan deret Maclaurin

Sin <- function(x){
  akhir <- x
  hasil <- x
  i <- 2
  while(abs(akhir) > 10^-5){
    akhir <- (-1)^(i+1) * x^(i*2-1)/factorial(i*2-1)
    hasil <- hasil + akhir
    i <- i+1
  }
  
  return(hasil)
}

Sin(pi/6)

[1] 0.5

Soal Nomor 2

#Buat sebuah fungsi untuk menghitung rata-rata bergerak dari suatu data ( 𝑀𝑡(𝑘))
d2 <- c(4.1, 4.9, 6.2, 6.9, 6.8, 4.4, 5.7, 5.8, 6.9, 4.7, 6, 4.9)

mt3 <- function(data){
  n <- length(data)
  mt3 <- NULL
  for(i in 3:n){
    mt3[i] <- mean(c(data[i], data[i-1], data[i-2]))
  }
  
  return(mt3)
}

mt3(d2)

 [1]       NA       NA 5.066667 6.000000 6.633333 6.033333
 [7] 5.633333 5.300000 6.133333 5.800000 5.866667 5.200000