Microsoft MVP성태의 닷넷 이야기
Math: 20. Matlab/Octave로 Gram-Schmidt 정규 직교 집합 구하는 방법 [링크 복사], [링크+제목 복사],
조회: 21402
글쓴 사람
정성태 (techsharer at outlook.com)
홈페이지
첨부 파일
 
(연관된 글이 1개 있습니다.)

Matlab/Octave로 Gram-Schmidt 정규 직교 집합 구하는 방법

a 행렬을 정의하고,

a = [1,1,0; 0,1,2; 1,2,1]'
a =

   1   0   1
   1   1   2
   0   2   1

matlab/octave로 QR 분해하면 다음과 같은 결과가 나옵니다.

[q,r] = qr(a)
q =

  -0.70711   0.23570   0.66667
  -0.70711  -0.23570  -0.66667
  -0.00000  -0.94281   0.33333

r =

  -1.41421  -0.70711  -2.12132
   0.00000  -2.12132  -1.17851
   0.00000   0.00000  -0.33333

참고로, wolframalpha 웹 사이트에서 확인하면 실수 계산 값이 아닌 분수 형태의 값으로 구할 수 있습니다. (단지, 부호가 반대입니다.)

gram schmidt {{1,0,1},{1,1,2},{0,2,1}}
; http://m.wolframalpha.com/input/?i=gram+schmidt+%7B%7B1%2C1%2C0%7D%2C%7B0%2C1%2C2%7D%2C%7B1%2C2%2C1%7D%7D&x=0&y=0

1/sqrt(2), -1/(3*sqrt(2)), -2/3
1/sqrt(2), 1/(3*sqrt(2)) , 2/3
0        , 2*sqrt(2) / 3 , -1/3

여기서, Q 결괏값은 직교 행렬로 Xi * Xj = 0 (i != j)인 조건을 만족합니다. 검증은 다음과 같이 쉽게 할 수 있습니다.

# a1 = [-0.70711, -0.70711, 0]
# a2 = [0.23570, -0.23570, -0.94281]
# a3 = [0.66667, -0.66667, 0.33333]

a1 = q(:,1)'
a2 = q(:,2)'
a3 = q(:,3)'

>> dot(a1, a2)
ans = 0
>> dot(a2, a3)
ans = 1.3807e-006  // 실수 계산 값의 오차 누적으로 인한 것일 뿐 0 값임!
>> dot(a3, a1)
ans = 0

또한, Q 결괏값은 정규 직교 행렬이기 때문에 Xi * Xj = 1 (i == j)인 조건을 만족하고, 이는 norm의 값이 1이므로 다음과 같이 검증할 수 있습니다.

>> dot(a1,a1)
ans =  1.0000
>> norm(a1)
ans =  1.0000

// 이하 a2, a3에 대해서도 동일한 결괏값

QR 분해의 Q 행렬은 Gram-Schmidt 정규 직교화 과정에 해당하기 때문에 다음과 같이 수작업으로도 구할 수 있습니다.

a1 = [1,1,0]

na1 = norm(a1)
ea1 = a1 / na1 // 계산 값: 0.70711, 0.70711, 0

a2 = [0,1,2]
_a2 = a2 - dot(a2,ea1) * ea1

n_a2 = norm(_a2)
ea2 = _a2 / n_a2 // 계산 값: -0.23570   0.23570   0.94281

a3 = [1,2,1]
_a3 = a3 - dot(a3,ea1) * ea1 - dot(a3,ea2) * ea2

n_a3 = norm(_a3)
ea3 = _a3 / n_a3 // 계산 값: -0.66667   0.66667  -0.33333

재미있는 것은, 직접 계산한 값의 경우에도 부호는 wolframalpha의 것과 같은 반면 matlab/octave의 QR 함수와는 반대입니다. (혹시 이 이유를 알고 계신 분은 덧글 부탁드립니다. ^^)

실제로 이런 수작업을 별도의 함수로 구현하고 그것이 matlab/octave의 qr 함수와 같다는 것을 다음의 문서에서 정리하고 있습니다.

The Gram-Schmidt process in Matlab
; https://www.math.purdue.edu/~wang838/teaching/GramSchmidt.pdf




기왕 해본 김에 octave 명령어도 알아볼 겸, 정규 직교 집합을 시각화해보겠습니다.

a1 = [1,1,0]'
a2 = [0,1,2]'
a3 = [1,2,1]'

a = [a1 a2 a3]
[q,r] = qr(a)

ad1 = quiver3(0,0,0,-q(1),-q(2),-q(3))
hold on
ad2 = quiver3(0,0,0,-q(4),-q(5),-q(6))
hold on
ad3 = quiver3(0,0,0,-q(7),-q(8),-q(9))
hold on

axis equal

text(-q(1),-q(2),-q(3), 'ad1')
text(-q(4),-q(5),-q(6), 'ad2')
text(-q(7),-q(8),-q(9), 'ad3')

그럼, 다음과 같은 결과를 얻을 수 있고 "Rotate" 기능을 이용해 마우스로 이리저리 돌려 보면 3개의 벡터가 직교하고 있음을 눈으로 쉽게 확인할 수 있습니다.

gramschmidt_1.png




[이 글에 대해서 여러분들과 의견을 공유하고 싶습니다. 틀리거나 미흡한 부분 또는 의문 사항이 있으시면 언제든 댓글 남겨주십시오.]

[연관 글]






[최초 등록일: ]
[최종 수정일: 4/6/2023]

Creative Commons License
이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.
by SeongTae Jeong, mailto:techsharer at outlook.com

비밀번호

댓글 작성자
 




... 121  122  123  124  125  126  127  128  129  130  131  132  [133]  134  135  ...
NoWriterDateCnt.TitleFile(s)
1764정성태9/30/201423730오류 유형: 243. 파일 삭제가 안 되는 경우 - The action can't be comleted because the file is open in System
1763정성태9/30/201425256.NET Framework: 468. PDB 파일을 연동해 소스 코드 라인 정보를 알아내는 방법파일 다운로드1
1762정성태9/30/201426073.NET Framework: 467. 닷넷에서 EIP/RIP 레지스터 값을 구하는 방법 [1]파일 다운로드1
1761정성태9/29/201423207.NET Framework: 466. 윈도우 운영체제의 보안 그룹 이름 및 설명 문자열을 바꾸는 방법파일 다운로드1
1760정성태9/28/201421226.NET Framework: 465. ICorProfilerInfo::GetILToNativeMapping 메서드가 0x80131358을 반환하는 경우
1759정성태9/27/201432516개발 환경 구성: 240. Visual C++ / x64 환경에서 inline-assembly를 매크로 어셈블리로 대체하는 방법파일 다운로드1
1758정성태9/23/201439132개발 환경 구성: 239. 원격 데스크톱 접속(RDP)을 기존의 콘솔 모드처럼 사용하는 방법 [1]
1757정성태9/23/201419747오류 유형: 242. Lync로 모임 참여 시 소리만 들리지 않는 경우 - 두 번째 이야기
1756정성태9/23/201428898기타: 48. NVidia 제품의 과다한 디스크 사용 [2]
1755정성태9/22/201435722오류 유형: 241. Unity Web Player를 설치해도 여전히 설치하라는 화면이 나오는 경우 [4]
1754정성태9/22/201426039VC++: 80. 내 컴퓨터에서 C++ AMP 코드가 실행이 될까요? [1]
1753정성태9/22/201421855오류 유형: 240. Lync로 세미나 참여 시 소리만 들리지 않는 경우 [1]
1752정성태9/21/201441981Windows: 100. 윈도우 8 - RDP 연결을 이용해 VNC처럼 사용자 로그온 화면을 공유하는 방법 [5]
1751정성태9/20/201440075.NET Framework: 464. 프로세스 간 통신 시 소켓 필요 없이 간단하게 Pipe를 열어 통신하는 방법 [1]파일 다운로드1
1750정성태9/20/201425317.NET Framework: 463. PInvoke 호출을 이용한 비동기 파일 작업파일 다운로드1
1749정성태9/20/201425069.NET Framework: 462. 커널 객체를 위한 null DACL 생성 방법파일 다운로드1
1748정성태9/19/201426605개발 환경 구성: 238. [Synergy] 여러 컴퓨터에서 키보드, 마우스 공유
1747정성태9/19/201429880오류 유형: 239. psexec 실행 오류 - The system cannot find the file specified.
1746정성태9/18/201426879.NET Framework: 461. .NET EXE 파일을 닷넷 프레임워크 버전에 상관없이 실행할 수 있을까요? - 두 번째 이야기 [6]파일 다운로드1
1745정성태9/17/201424410개발 환경 구성: 237. 리눅스 Integration Services 버전 업그레이드 하는 방법 [1]
1744정성태9/17/201432302.NET Framework: 460. GetTickCount / GetTickCount64와 0x7FFE0000 주솟값 [4]파일 다운로드1
1743정성태9/16/201422086오류 유형: 238. 설치 오류 - Failed to get size of pseudo bundle
1742정성태8/27/201428427개발 환경 구성: 236. Hyper-V에 설치한 리눅스 VM의 VHD 크기 늘리는 방법 [2]
1741정성태8/26/201422530.NET Framework: 459. GetModuleHandleEx로 알아보는 .NET 메서드의 DLL 모듈 관계파일 다운로드1
1740정성태8/25/201433937.NET Framework: 458. 닷넷 GC가 순환 참조를 해제할 수 있을까요? [2]파일 다운로드1
1739정성태8/24/201427744.NET Framework: 457. 교착상태(Dead-lock) 해결 방법 - Lock Leveling [2]파일 다운로드1
... 121  122  123  124  125  126  127  128  129  130  131  132  [133]  134  135  ...