Nama : Rahmad Hidayat Al Fahrizzi
NIM : 230605110135
Dosen Pengampu : Prof. Dr. Suhartono, M.Kom
Universitas : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Fakultas : Sains dan Teknologi
Program Studi : Teknik Informatika

Materi: U-Substitution (Substitusi U) dalam Konteks Kalkulus

1. Pendahuluan: - Substitusi U adalah teknik integrasi yang berguna dalam menyelesaikan integral yang melibatkan fungsi dan turunannya.

2. Metode Substitusi U: - Langkah-Langkah: - Pilih \(u = g(x)\) untuk menggantikan bagian dari integral. - Hitung \(du = g'(x) \, dx\). - Gantikan \(u\) dan \(du\) dalam integral. - Evaluasi integral yang disederhanakan.

3. Contoh Fungsi: - Misalnya, \(\int x \cdot e^{x^2} \, dx\).

4. Implementasi dalam Kode R: - Substitusi U: - Menerapkan langkah-langkah substitusi U pada integral. - Visualisasi: - Grafik fungsi sebelum dan setelah substitusi U.

5. Contoh Kode R:

# Fungsi Awal
fungsi_awal <- function(x) {
  return(x * exp(x^2))
}

# Substitusi U
substitusi_u <- function(u) {
  return(exp(u))
}

# Integral Awal
integral_awal <- function(x) {
  return(integrate(fungsi_awal, lower = 0, upper = x)$value)
}

# Integral Setelah Substitusi U
integral_setelah_substitusi <- function(u) {
  return(integrate(substitusi_u, lower = 0, upper = u)$value)
}

# Grafik Fungsi dan Substitusi U
plot_fungsi_dan_substitusi_u <- function(fungsi_awal, substitusi_u, integral_awal, integral_setelah_substitusi, rentang) {
  x <- seq(rentang[1], rentang[2], length.out = 100)
  y_awal <- fungsi_awal(x)
  y_substitusi <- substitusi_u(x)

  par(mfrow = c(2, 1))

  # Plot Fungsi Awal
  plot(x, y_awal, type = 'l', col = 'blue', lwd = 2, main = 'Original Function')
  text(1, max(y_awal), expression(integral(x * e^{x^2} * dx)), pos = 4, col = 'blue')

  # Plot Integral Awal
  plot(x, sapply(x, integral_awal), type = 'l', col = 'red', lwd = 2, main = 'Original Integral')
  text(1, max(sapply(x, integral_awal)), expression(integral(x * e^{x^2} * dx)), pos = 4, col = 'red')

  # Plot Fungsi Setelah Substitusi U
  plot(x, y_substitusi, type = 'l', col = 'green', lwd = 2, main = 'Function After U-Substitution')
  text(1, max(y_substitusi), expression(integral(e^u * du)), pos = 4, col = 'green')

  # Plot Integral Setelah Substitusi U
  plot(x, sapply(x, integral_setelah_substitusi), type = 'l', col = 'purple', lwd = 2, main = 'Integral After U-Substitution')
  text(1, max(sapply(x, integral_setelah_substitusi)), expression(integral(e^u * du)), pos = 4, col = 'purple')
}

# Rentang
rentang <- c(0, 2)

# Plot Fungsi dan Substitusi U
plot_fungsi_dan_substitusi_u(fungsi_awal, substitusi_u, integral_awal, integral_setelah_substitusi, rentang)

Dalam contoh ini, kita menggunakan integral \(\int x \cdot e^{x^2} \, dx\) dan menerapkan substitusi U dengan \(u = x^2\). Grafik menunjukkan fungsi asli, integral asli, fungsi setelah substitusi U, dan integral setelah substitusi U.

Implementasi ini memberikan pemahaman tentang bagaimana melakukan substitusi U pada integral dan bagaimana hal itu dapat membantu menyederhanakan proses integrasi.