Dosen Pengampu : Prof . Dr. Suhartono, M.Kom
Lembaga : Universitas Islam Negeri Maulana Malik Ibrahim Malang
Fakultas : Sains dan Teknologi
Jurusan : Teknik Informatika
Kelas : (C) Kalkulus
NIM : 230605110078
Invers fungsi adalah suatu fungsi yang berlawanan arah dengan fungsi aslinya. Jika suatu fungsi \(f(x)\) memetakan elemen-elemen dari himpunan \(A\) ke himpunan \(B\), maka invers fungsi dari \(f\), dilambangkan dengan \(f^-1\), memetakan elemen-elemen dari \(B\) kembali ke \(A\). Dengan kata lain, jika \(y = f(x)\), maka \(x = f^-1(y).\)
Syarat agar suatu fungsi memiliki invers adalah bahwa fungsi tersebut harus bersifat satu-satu (injektif) dan terbatas ke kanan (surjektif) di dalam domain dan kodomain yang relevan.
berikut merupakan contoh program sederhana dari penerapan invers fungsi di R
# Fungsi untuk menghitung nilai invers fungsi kuadrat
inverse_quadratic <- function(y) {
# Mencari nilai x yang memenuhi persamaan y = x^2
# Dalam kasus ini, kita ambil akar kuadrat dari y
x <- sqrt(y)
return(x)
}
# Contoh penggunaan
# Fungsi kuadrat: y = x^2
original_value <- 4
# Menghitung nilai invers
inverse_value <- inverse_quadratic(original_value)
# Menampilkan hasil
cat("Original Value:", original_value, "\n")
## Original Value: 4
cat("Inverse Value:", inverse_value, "\n")
## Inverse Value: 2
kemudian berikutnya di sertakan contoh grafik sederhana dari penerapan fungsi invers di R, seperti contoh berikut :
library(ggplot2)
# Fungsi kuadrat
quadratic_function <- function(x) {
return(x^2)
}
# Fungsi invers kuadrat
inverse_quadratic <- function(y) {
return(sqrt(y))
}
# Membuat data frame untuk plot
x_values <- seq(0, 5, length.out = 100) # Rentang nilai x
data <- data.frame(x = x_values, y = quadratic_function(x_values))
# Membuat plot
plot <- ggplot(data, aes(x, y)) +
geom_line(color = "blue", linewidth = 1) + # Grafik fungsi kuadrat
geom_abline(intercept = 0, slope = 1, linetype = "dashed", color = "red") + # Garis identitas
geom_text(aes(x = 2, y = 4, label = "y = x^2"), hjust = 1.5, vjust = 1.5, color = "blue") + # Label fungsi kuadra
geom_text(aes(x = 2.5, y = 3, label = "y = x"), hjust = -0.5, vjust = 0, color = "red") + # Label garis identitas
labs(title = "Grafik Fungsi Kuadrat", x = "x", y = "y") +
theme_minimal()
# Menampilkan plot
print(plot)