PROJECT R 19 - MATRIKS (2)

jumlah_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)
}

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

perkalian_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)
}

perkalian_matriks_kompleks <- function(M1, M2) {
  if (ncol(M1) != nrow(M2)) {
    stop("Jumlah kolom matriks pertama tidak sama dengan jumlah baris matriks kedua")
  }
  
  hasil <- matrix(numeric(nrow(M1) * ncol(M2)), nrow = nrow(M1), ncol = ncol(M2))
  for (i in 1:nrow(M1)) {
    for (j in 1:ncol(M2)) {
      for (k in 1:ncol(M1)) {
        hasil[i, j] <- hasil[i, j] + M1[i, k] * M2[k, j]
      }
    }
  }
  
  return(hasil)
}

v1 <- c(2+3i, 4-2i, 1+5i)
v2 <- c(1-2i, 3+4i, 5-1i)
hasil_jumlah <- jumlah_vektor_kompleks(v1, v2)
print(hasil_jumlah)

## [1] 3+1i 7+2i 6+4i

a <- 2+1i
hasil_perkalian_skalar <- perkalian_skalar_vektor_kompleks(a, v1)
print(hasil_perkalian_skalar)

## [1]  1+ 8i 10+ 0i -3+11i

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

## [1] -14+ 1i   6+32i

M1 <- matrix(c(2+3i, 1-2i, 4+2i, 1+1i), nrow = 2, byrow = TRUE)
M2 <- matrix(c(3-1i, 2+2i, 1+5i, 4-3i), nrow = 2, byrow = TRUE)
hasil_perkalian_matriks <- perkalian_matriks_kompleks(M1, M2)
print(hasil_perkalian_matriks)

##        [,1]   [,2]
## [1,] 20+10i -4- 1i
## [2,] 10+ 8i 11+13i

Kode di atas menyediakan beberapa fungsi untuk melakukan operasi hitung pada persamaan aljabar linear yang melibatkan vektor kompleks dan matriks kompleks. Fungsi-fungsi tersebut termasuk penjumlahan vektor kompleks, perkalian skalar dengan vektor kompleks, perkalian matriks kompleks dengan vektor kompleks, dan perkalian dua matriks kompleks. Contoh penggunaan fungsi-fungsi tersebut juga disertakan di dalam kode.