Project R15 Persamaan Linear Algebra(3)

tambah_vektor_kompleks <- function(v1, v2) {
  if (length(v1) != length(v2)) {
    stop("Jumlah elemen vektor tidak sama")
  }
  
  hasil <- numeric(length(v1))
  for (i in 1:length(v1)) {
    hasil[i] <- v1[i] + v2[i]
  }
  
  return(hasil)
}

skalar_vektor_kompleks <- function(a, v) {
  hasil <- numeric(length(v))
  for (i in 1:length(v)) {
    hasil[i] <- a * v[i]
  }
  
  return(hasil)
}

matriks_vektor_kompleks <- function(M, v) {
  if (ncol(M) != length(v)) {
    stop("Jumlah kolom matriks tidak sama dengan panjang vektor")
  }
  
  hasil <- numeric(nrow(M))
  for (i in 1:nrow(M)) {
    for (j in 1:length(v)) {
      hasil[i] <- hasil[i] + M[i, j] * v[j]
    }
  }
  
  return(hasil)
}

v1 <- c(9-2i, 1+8i, 1+5i)
v2 <- c(9-4i, 6-3i, 1+3i)
hasil_tambah <- tambah_vektor_kompleks(v1, v2)
print(hasil_tambah)

## [1] 18-6i  7+5i  2+8i

a <- 2+1i
hasil_skalar <- skalar_vektor_kompleks(a, v1)
print(hasil_skalar)

## [1] 20+ 5i -6+17i -3+11i

M <- matrix(c(1+2i, 3-1i, 0+4i, 2-2i, 1+1i, 5+3i), nrow = 2, byrow = TRUE)
hasil_matriks <- matriks_vektor_kompleks(M, v1)
print(hasil_matriks)

## [1]  4+43i -3+15i