PROJECT R 17 - PERSAMAAN ALJABAR LINEAR (4)

Mendefinisikan fungsi untuk menambahkan dua vektor kompleks

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

Mendefinisikan fungsi untuk mengalikan skalar dengan vektor kompleks

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

Mendefinisikan fungsi untuk mengalikan matriks kompleks dengan vektor kompleks

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

Menambahkan dua vektor kompleks

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

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

Mengalikan skalar dengan vektor kompleks

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

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

Mengalikan matriks kompleks dengan vektor kompleks

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] -14+ 1i   6+32i

Pada contoh di atas, terdapat tiga fungsi utama:

1. tambah_vektor_kompleks untuk menambahkan dua vektor kompleks.
2. skalar_vektor_kompleks untuk mengalikan skalar dengan vektor kompleks.
3. matriks_vektor_kompleks untuk mengalikan matriks kompleks dengan vektor kompleks.

Contoh penggunaan fungsi-fungsi tersebut ditunjukkan dengan melakukan operasi penjumlahan vektor kompleks, perkalian skalar dengan vektor kompleks, dan perkalian matriks kompleks dengan vektor kompleks. Hasil dari setiap operasi dicetak menggunakan fungsi print.