TakeHome Exam Test Scripts

% P1: Tests Problem 1

clc
randn('seed',0)
n = 8;
E = eye(n,n); E(n:-1:1,:) = E;
A = randn(n,n); A = A + A'; A = A + E*A*E;
[Q,D] = Problem1(A)
ErrorQ = norm(Q'*Q - eye(n,n))
ErrorD = norm(Q'*A*Q - D)


% P2: Tests Problem 2

clc
randn('seed',0)
n = 9;
E = eye(n,n); E(n:-1:1,:) = E;
A = randn(n,n); A = A + A'; A = A + E*A*E;
[Q,D] = Problem2(A)
ErrorQ = norm(Q'*Q - eye(n,n))
ErrorD = norm(Q'*A*Q - D)
<\pre>