=====================================================

Nama Mahasiswa : Ecofah Raditya Daniswara

NIM : 220605110155

Kelas : C

Mata Kuliah : Linear Algebra

Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

library(matlib)

Matriks A

A <- matrix(c(1, 2, 3, 4), nrow = 2, byrow = TRUE)
print("Matriks A:")
## [1] "Matriks A:"
print(A)
##      [,1] [,2]
## [1,]    1    2
## [2,]    3    4

Matriks B

B <- matrix(c(5, 6, 7, 8), nrow = 2, byrow = TRUE)
print("Matriks B:")
## [1] "Matriks B:"
print(B)
##      [,1] [,2]
## [1,]    5    6
## [2,]    7    8

Penjumlahan

C <- A + B
print("Penjumlahan matriks A dan B:")
## [1] "Penjumlahan matriks A dan B:"
print(C)
##      [,1] [,2]
## [1,]    6    8
## [2,]   10   12

Pengurangan

D <- A - B
print("Pengurangan matriks A dan B:")
## [1] "Pengurangan matriks A dan B:"
print(D)
##      [,1] [,2]
## [1,]   -4   -4
## [2,]   -4   -4

Perkalian

E <- A %*% B
print("Perkalian matriks A dan B:")
## [1] "Perkalian matriks A dan B:"
print(E)
##      [,1] [,2]
## [1,]   19   22
## [2,]   43   50

Transpose

F <- t(A)
print("Transpose matriks A:")
## [1] "Transpose matriks A:"
print(F)
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

Determinan

det_A <- det(A)
print("Determinan matriks A:")
## [1] "Determinan matriks A:"
print(det_A)
## [1] -2

Invers

inv_A <- solve(A)
print("Invers matriks A:")
## [1] "Invers matriks A:"
print(inv_A)
##      [,1] [,2]
## [1,] -2.0  1.0
## [2,]  1.5 -0.5