Tugas 3

#NOMOR 1A#


# step 1. function penyebut
fact <- function(orde){
  hasil2<-1
  for (i in orde:1) {
    hasil2=hasil2 * i #karena yg bergerak adalah i
  }
  return(hasil2)
}

# step 2. buat fungsi aslinya
mclaurin <- function(x,n){
  
  sum <- 1
  for (i in 1:n) {
    sum = sum + x^i/fact(i)
  }
  
  return(sum)
}

mclaurin(-1,5)

## [1] 0.3666667

# NOMOR 1 B

mcsin <- function(x){
 nilaiterakhir <- 1
 i <- 1
 sum <- x
 
 while(nilaiterakhir > 10^-5){
   pembilang <- x^(2*i+1)
   nilaiterakhir <- (pembilang/fact(2*i+1))
   sum = sum + nilaiterakhir * (-1)^i
   i=i+1
 }
  
return(sum)
}

mcsin(pi/6)

## [1] 0.5

# NOMOR 2


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)
sum <- 0
n <- length(data)

mxt <- function(k){
  sum <- 0
  kantong <- c() #buat ngemas semua nilai yg ada
  
  for(i in 3:n){
    sum = k[i]+k[i-1]+k[i-2] #jangan +sum ntar gede gt
    rerata <- sum/3
    kantong <- c(kantong, rerata)
  }
    return(kantong)
}

mxt(data)

##  [1] 5.066667 6.000000 6.633333 6.033333 5.633333 5.300000 6.133333 5.800000
##  [9] 5.866667 5.200000