Assignment 3

NOMOR 1

pangkat <- function(basis, orde){
  hasil=1
  for(i in 1:orde){
    hasil= hasil * basis
  }
  return(hasil)
}


fact <- function(orde){
  hasil2=1
  for(i in orde:1){
    hasil2 = hasil2 * i
  }
  return(hasil2)
}

A

MClaurin = function(basis, orde){
  result1=1
  for(i in 1:orde){
    result1=result1 + (pangkat(basis,i)/fact(i))
  }
  return(result1)
}
MClaurin(-1,5)

## [1] 0.3666667

B

MCsin = function(basis){
  c = 1         
  nilai = 0     
  result = pangkat(basis, 2*c-1) / fact(2*c-1) 
  
  while(result > 10^-5){
    nilai = nilai + (pangkat(-1, c+1) * result)  
    c = c + 1
    result = pangkat(basis, 2*c-1) / fact(2*c-1)
  }

  return(nilai)
}
MCsin(pi/6)

## [1] 0.5000021

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)

Mtk <- function(x){
  n <- length(x)
  t <- n-2
  wadah <- c()
  
  for(i in 1:t){
    wadah[i] = (x[i+2] + x[i+1] +x[i])/3
  }
  
  return(wadah)
}

Mtk(data)

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