VEKTOR (5)

A <- matrix(c(2, 1, 1, 3), nrow = 2)

eigen_result <- eigen(A)

eigen_vectors <- eigen_result$vectors
print("Eigenvektor:")

## [1] "Eigenvektor:"

print(eigen_vectors)

##           [,1]       [,2]
## [1,] 0.5257311 -0.8506508
## [2,] 0.8506508  0.5257311

eigen_values <- eigen_result$values
print("Nilai Eigen:")

## [1] "Nilai Eigen:"

print(eigen_values)

## [1] 3.618034 1.381966

scalar <- 2
scaled_eigen_vectors <- scalar * eigen_vectors
print(paste("Eigenvektor yang dikalikan dengan skalar", scalar, ":"))

## [1] "Eigenvektor yang dikalikan dengan skalar 2 :"

print(scaled_eigen_vectors)

##          [,1]      [,2]
## [1,] 1.051462 -1.701302
## [2,] 1.701302  1.051462

product <- A %*% eigen_vectors
print("Hasil perkalian matriks dengan eigenvektor:")

## [1] "Hasil perkalian matriks dengan eigenvektor:"

print(product)

##          [,1]       [,2]
## [1,] 1.902113 -1.1755705
## [2,] 3.077684  0.7265425

diagonal_matrix <- diag(eigen_values)
print("Matriks diagonal dari nilai eigen:")

## [1] "Matriks diagonal dari nilai eigen:"

print(diagonal_matrix)

##          [,1]     [,2]
## [1,] 3.618034 0.000000
## [2,] 0.000000 1.381966