library(pracma)
A <- matrix(c(1+2i, 3+4i, 5+6i, 7+8i, 9+10i, 11+12i), nrow = 2)
svd_result <- svd(A)
singular_values <- svd_result$d
print("Singular Values:")
## [1] "Singular Values:"
print(singular_values)
## [1] 25.448542  1.540043
plot(abs(singular_values), type = "b", xlab = "Indeks Singular Value", ylab = "Nilai Singular Value", main = "Grafik Singular Values")