Dosen Pengampu : Prof. Dr. Suhartono, M.Kom
Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Fakultas : Sains dan Teknologi
Program Studi : Teknik Informatika
Kelas : B

PENDAHULUAN

Optimasi kalkulus merupakan cabang dalam matematika yang berkaitan dengan mencari nilai maksimum atau minimum suatu fungsi. Tujuan dari optimasi adalah untuk menemukan nilai input (variabel independen) yang membuat fungsi mencapai nilai ekstremum, seperti maksimum atau minimum.

Dalam konteks kalkulus, optimasi melibatkan konsep turunan. Turunan dari suatu fungsi memberikan informasi tentang kecepatan perubahan fungsi tersebut pada suatu titik. Poin di mana turunan pertama fungsi sama dengan nol adalah kandidat untuk nilai maksimum atau minimum.

Terdapat dua jenis optimasi utama dalam kalkulus:

1. Optimasi Diferensial: Melibatkan penggunaan turunan untuk menemukan titik-titik di mana fungsi mencapai nilai maksimum atau minimum. Kandidat-kandidat ini ditemukan dengan menyelesaikan persamaan turunan pertama fungsi terhadap variabel independennya. Misalnya, kita ingin mencari nilai minimum dari fungsi kuadratik berikut:

# Definisikan fungsi kuadratik
fungsi_kuadratik <- function(x) {
  return(x^2 - 4*x + 4)
}

# Gunakan optim() untuk mencari nilai minimum
hasil_optim <- optim(par = 0, fn = fungsi_kuadratik, method = "BFGS")

# Tampilkan hasil optimasi
cat("Nilai minimum terjadi pada x =", hasil_optim$par, "\n")
## Nilai minimum terjadi pada x = 2
cat("Nilai minimum fungsi =", hasil_optim$value, "\n")
## Nilai minimum fungsi = 0

2. Optimasi Integral: Melibatkan penggunaan integral untuk menemukan nilai maksimum atau minimum dari suatu fungsi di seluruh domainnya. Pendekatan ini sering digunakan dalam konteks masalah di mana fungsi yang diinginkan terkait dengan suatu kuantitas yang diukur secara keseluruhan, seperti luas area di bawah kurva fungsi.

# Definisikan fungsi kuadratik
fungsi_kuadratik <- function(x) {
  return(x^2)
}

# Definisikan batas integral
a <- 0
b <- 2

# Hitung luas area di bawah kurva menggunakan integral
luas_area <- integrate(fungsi_kuadratik, lower = a, upper = b)$value

# Tampilkan hasil
cat("Luas area di bawah kurva fungsi =", luas_area, "\n")
## Luas area di bawah kurva fungsi = 2.666667

Analisis Optimasi Kalkulus

Lakukan analisis dengan menggunakan data atau fungsi kalkulus tertentu. Berikut contoh menggunakan fungsi kuadrat:

# Fungsi yang akan dioptimalkan
fungsi_kuadrat <- function(x) {
  return(x^2 - 4*x + 4)
}

# Plot fungsi
library(ggplot2)

x <- seq(-1, 5, by = 0.1)
y <- fungsi_kuadrat(x)

data <- data.frame(x, y)

ggplot(data, aes(x, y)) +
  geom_line() +
  geom_point() +
  labs(title = "Fungsi Kuadrat",
       x = "Variabel X",
       y = "Nilai Fungsi")

# Optimasi menggunakan fungsi optimize
hasil_optimasi <- optimize(fungsi_kuadrat, c(0, 5))
nilai_minimum <- hasil_optimasi$minimum

cat("Nilai minimum fungsi:", nilai_minimum)
## Nilai minimum fungsi: 2