- TI nspire
[TI-nspire] 행렬 LU 분해 = LU Decomposition = LU fatorization
1. LU 분해란?
행렬 A 를 Lower 행렬과 Upper 행렬의 곱으로 분해하는 것을 의미합니다.
A = L×U 를 만족하는 행렬 L과 행렬 U를 찾는 과정이라고 할 수 있습니다.
2. TI-nspire 에서의 LU 명령어
분명 책에서는 A를 그냥 L*U 로 분해하라고 했는데...
nspire 에서는 P*A = L*U 꼴로 지맘대로 변형하여 분해하기 때문에 답안지와 다른 풀이를 보여줄 수도 있습니다.
원하는 L × U = A
nspire 에서 바뀌어버린 1행과 2행
LU Matrix,lMatrix,uMatrix,pMatrix[,Tol]
ㄴ permutation matrix 를 보면 1행과 2행이 바뀐 상황
3. 팁 : 행이 섞이지 않게 만드는 방법
행렬을 LU 꼴로 분해하기 위해 반드시 P(Permutation)를 곱해서 행의 순서를 바꾸어야만 하는 경우도 있습니다만, 바꾸지 않고도 L*U 분해를 할 수 있음에도 TI 계산기에서 P를 이용해 행의 순서를 바꾸는 경우가 있습니다.
P를 활용한 LU분해도 틀린 답은 아니지만... 우리가 원하는 형태의 답은 아닐 수 있기 때문에 (필수적이지 않은!) Permutation 을 피해서, L*U 분해하는 방법을 찾아보겠습니다.
먼저 "TI의 LU명령에서 행이 바뀌는 원인"을 알아야 합니다. TI-nspire 에서는 LU 명령시에 1열을 비교하여 계수의 절대값이 큰 순서로 재배치합니다. (반드시 Permutation 이 일어나야 하는 경우도 결합하여 실행됩니다)
따라서, 행이 바뀌지 않기를 바란다면 특정 행의 요소 전부에 어떤 값을 곱하여 1열의 계수 절대값을 (원하는 순서대로) 내림차순으로 만들어야 합니다.
위의 예에서는 1행 1열의 계수와 2행 1열의 계수가 각각 2와 4로서 2행*1열의 절대값이 더 큰 상태입니다. 따라서 1행 전체를 3이상의 수를 곱하여 주면 크기순으로 정리가 됩니다. 그 다음에 LU 명령으로 분해하고 ⇒ 분해된 L'과 U'를 다시 적당히 가공하면 우리가 원하는 답이 도출됩니다.
<과정 1>
A행렬의 1행만을 10배로 만드는 행렬을 M 행렬이라고 하면, M × A = L' × U' 꼴로 분해
ㄴ 일단 순서가 바뀌지 않게 하는 것은 성공함.
<과정 2>
<과정1>은 M × A = L' × U' 꼴로 분해되었으니, 이를 A = L×U 로 재가공
A = (M-1 × L' × M) × (M-1 × U')
L = M-1 × L' × M
U = M-1 × U'
※ A= M-1 × L' × U' 의 간단한 꼴이 아닌 A= (M-1 × L' × M) × (M-1 × U') 와 같은 복잡한 식으로 만든 이유는 L의 대각성분을 1로 만들기 위함입니다.
그런데, 계수의 비교는 1열에서 끝나는 것이 아니고, 1열을 꼴로 만든 후, 2열의 계수를 다시 비교하게 됩니다. 따라서 (2행과 3행의) 2열끼리 계수도 내림차순이 되도록 m배 행렬을 잘 만들 필요가 있습니다.
위의 예제에서는 다행히도 문제가 발생하지는 않았습니다.
이 방법은 중간에 Pivot 이 0 이 되어서 반드시 Permutation 을 하여야 하는 경우까지 해결해 주진 않습니다.
댓글 3
-
-
-
1. 크라우트법
A=L×U 로 분해하는 또 다른 방법은 크라우트법(=Crout Method)이라고 불리는데, 위의 분해와 반대로 U의 대각행렬의 값에 1을 넣고, L의 대각행렬에 1이 아닌 값을 넣는 것입니다.
이 방법은 nspire 내부 기능으로 구현되어 있지 않으므로, 프로그램을 새로 만들어서 실행하거나, nspire의 LU 기능으로 구해진 값을 가공하여 얻어야 합니다.
2. 가공 방법
Nspire에 의한 분해를 A=L×U라고 하고, Crout Method 에 의한 분해를 A=L'×U' 라고 하면
- LU 명령으로 L과 U 를 구하고, U에서 대각행렬 D 를 찾아냄
- L' = L×D
- U' = D-1×U
ㄴ diag(diag(U)) 함수를 두번 돌린 이유는.... 해보시면 압니다.
-
-
-
LU 프로그램 (TI nspire의 LU 기능 사용하지 않음)
LU 분해는 주어진 정방행렬 A를 하삼각행렬 L(Lower triangular matrix)과 상삼각행렬 U(Upper triangular matrix)의 곱으로 분해하는 과정입니다.
즉, A = LU를 만족하는 L과 U를 찾는 것입니다.
알고리즘의 주요 단계는 다음과 같습니다:
1. 초기화:
- n x n 크기의 단위행렬 L을 생성합니다.
- n x n 크기의 0행렬 U를 생성합니다.2. 행렬 분해:
- i = 1부터 n까지 반복:
- j = 1부터 n까지 반복:
- U의 원소(i ≤ j인 경우)와 L의 원소(i > j인 경우)를 계산합니다.3. U 행렬 계산 (i ≤ j):
u[i,j] = a[i,j] - Σ(k=1 to i-1) l[i,k] * u[k,j]4. L 행렬 계산 (i > j):
l[i,j] = (a[i,j] - Σ(k=1 to j-1) l[i,k] * u[k,j]) / u[j,j]이 알고리즘을 코드에 적용하면 다음과 같습니다:
Define LibPub lunp(matrix)= Prgm :Local n,i,j,k,summ : :n:=dim(matrix)[1] :l:=identity(n) :u:=newMat(n,n) : :For i,1,n : For j,1,n : summ:=0 : For k,1,i-1 : summ:=summ+l[i,k]*u[k,j] : EndFor : If i≤j Then : u[i,j]:=matrix[i,j]-summ : Else : l[i,j]:=((matrix[i,j]-summ)/(u[j,j])) : EndIf : EndFor :EndFor : : :Disp "l=",l :Disp "u=",u :EndPrgm
이 과정을 통해:
1. U 행렬의 대각선 및 상삼각 부분이 채워집니다.
2. L 행렬의 하삼각 부분이 채워집니다 (대각선은 이미 1로 초기화되어 있음).각 단계에서 이전에 계산된 L과 U의 원소들을 사용하여 새로운 원소를 계산합니다. 이 과정이 모든 원소에 대해 반복되면, 최종적으로 A = LU를 만족하는 L과 U 행렬이 생성됩니다.
이 알고리즘의 핵심은 가우스 소거법과 유사하지만, 원래 행렬의 원소들을 L과 U에 적절히 분배하는 것입니다.
별도의 라이브러리로 만드는 것보다는
matrix 확장 라이브러리에 추가해 두는게 좋겠네요.
https://allcalc.org/1843
-
아래 링크의 행렬을 분해하여 보겠습니다.
http://blog.naver.com/mykepzzang/220147195141
1행, 2행, 3행의 1열 계수가 완전 역순으로 배열되어 있습니다.
1행과 3행을 각각 m1배, m3배 하여줍니다.
분해된 U와 M을 가공하여 원래의 Lower, Upper Matrix를 뽑아냅니다.