> A <- matrix(c(1,1,-1,
+ 0,2,0,
+ 0,0,2),byrow=T,ncol=3)
> D2 <- diag(2,3,3)
> gaussianElimination(A-D2,c(0,0,0))
[,1] [,2] [,3] [,4]
[1,] 1 -1 1 0
[2,] 0 0 0 0
[3,] 0 0 0 0
위 문제1번의 풀이입니다.
https://pastryofjsmath.tistory.com/82
고유방정식 repeat(),uniroot.all(),뉴튼랩슨법으로 고유값 구하기
f > A eigen(A)$values[1] 3.828427 2.000000 -1.828427위 고유값과 실제로 같은지 구해보자.> #초기값지정> x repeat{+ if(-x^3 +4*x^2 +3*x -14 x[1] -1.82842> repeat{+ if(-x^3 +4*x^2 +3*x -14>0) break+ x x[1] 2> > repeat{+ if(-x^3 +4*x^2 +3*x
pastryofjsmath.tistory.com
'선형대수학' 카테고리의 다른 글
| LA15) 대각화가능(diagonalize) (0) | 2025.03.07 |
|---|---|
| 고유방정식 repeat(),uniroot.all(),뉴튼랩슨법으로 고유값 구하기 (0) | 2025.02.18 |
| LA13) 고유값,고유벡터(eigen value,eigen vector)-1 (0) | 2025.02.18 |
| LA12) 선형변환(Linear Transformation)-6 (0) | 2025.02.18 |
| LA11) 선형변환(Linear Transformation)-5 (0) | 2025.02.18 |
