PR 2 Kuliah Komstat Minggu 9

#Fungsi untuk mencari turunan ke-k(ordo=k) dari fungsi x^9

Turunan <- function(k){
  if (k == 0){
    return(expression(x^9)) #untuk mengembalikan fungsi asli x^9 jika k=0
  } else {
    HasilTurunan <- expression(x^9)
    for (i in 1:k){ #untuk mengulang operasi turunan sebanyak k kali
      HasilTurunan <- D(HasilTurunan, "x") #untuk menghitung turunan ke-k dari fungsi x^9
    }
    return(HasilTurunan)
  }
}

# Contoh penggunaan
print(Turunan(0))  # Fungsi asli: x^9

## expression(x^9)

# Menghitung turunan pertama (k=1) dari x^9
print(Turunan(1))  # Turunan pertama: 9 * x^8

## 9 * x^8

# Menghitung turunan ke-5 (k=5) dari x^9
print(Turunan(5))  # Turunan ke-5: 30240 * x^4

## 9 * (8 * (7 * (6 * (5 * x^4))))

# Menghitung turunan ke-10 (k=10) dari x^9
print(Turunan(10))  # Turunan ke-10: 0

## [1] 0