library(matlib)

mendefinisikan dua matrix`

A <- matrix(c(1+2i, 2-3i, 0+4i, 5-2i), nrow=2, ncol=2)
B <- matrix(c(-1-2i, 3+1i, 2-1i, 0+2i), nrow=2, ncol=2)
print("Matriks A:")
## [1] "Matriks A:"
print(A)
##      [,1] [,2]
## [1,] 1+2i 0+4i
## [2,] 2-3i 5-2i
print("Matriks B:")
## [1] "Matriks B:"
print(B)
##       [,1] [,2]
## [1,] -1-2i 2-1i
## [2,]  3+1i 0+2i

Operasi penjumlahan matriks

C <- A + B
print("Hasil penjumlahan matriks A dan B:")
## [1] "Hasil penjumlahan matriks A dan B:"
print(C)
##      [,1] [,2]
## [1,] 0+0i 2+3i
## [2,] 5-2i 5+0i

Operasi pengurangan matriks

D <- A - B
print("Hasil pengurangan matriks A dan B:")
## [1] "Hasil pengurangan matriks A dan B:"
print(D)
##       [,1]  [,2]
## [1,]  2+4i -2+5i
## [2,] -1-4i  5-4i

Operasi perkalian matriks

E <- A %*% B
print("Hasil perkalian matriks A dan B:")
## [1] "Hasil perkalian matriks A dan B:"
print(E)
##       [,1]  [,2]
## [1,] -1+8i -4+3i
## [2,]  9-2i  5+2i

Operasi konjugasi pada matriks A

F <- Conj(A)
print("Hasil konjugasi matriks A:")
## [1] "Hasil konjugasi matriks A:"
print(F)
##      [,1] [,2]
## [1,] 1-2i 0-4i
## [2,] 2+3i 5+2i

Operasi transpose pada matriks B

G <- t(B)
print("Hasil transpose matriks B:")
## [1] "Hasil transpose matriks B:"
print(G)
##       [,1] [,2]
## [1,] -1-2i 3+1i
## [2,]  2-1i 0+2i
print("Matriks A:")
## [1] "Matriks A:"
print(A)
##      [,1] [,2]
## [1,] 1+2i 0+4i
## [2,] 2-3i 5-2i
print("Matriks B:")
## [1] "Matriks B:"
print(B)
##       [,1] [,2]
## [1,] -1-2i 2-1i
## [2,]  3+1i 0+2i