Cody

# Problem 2130. Orthonormal matrix

Solution 1795274

Submitted on 22 Apr 2019 by Uche Okpara
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

### Test Suite

Test Status Code Input and Output
1   Pass
a=[1 0 0 ;0 1 0;0 0 1] tf = 1; assert(isequal(ortho_normal(a),tf))

a = 1 0 0 0 1 0 0 0 1 nr = 3 nc = 3

2   Pass
a=[0 0 1 0;0 1 0 0;1 0 0 0;0 0 0 1] tf = 1; assert(isequal(ortho_normal(a),tf))

a = 0 0 1 0 0 1 0 0 1 0 0 0 0 0 0 1 nr = 4 nc = 4

3   Pass
a=eye(20) k=a; p=a; a(:,1)=k(:,end); a(:,end)=k(:,1); a(:,5)=p(:,9); a(:,9)=p(:,5) tf = 1; assert(isequal(ortho_normal(a),tf))

a = 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 a = 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 nr = 20 nc = 20

4   Pass
a=[1 0 1 0;0 1 0 0;1 0 0 0;0 0 0 1] tf = 0; assert(isequal(ortho_normal(a),tf))

a = 1 0 1 0 0 1 0 0 1 0 0 0 0 0 0 1 nr = 4 nc = 4

5   Pass
a=[0 0 2 0;0 1 0 0;1 0 -1 0;0 0 0 1] tf = 0; assert(isequal(ortho_normal(a),tf))

a = 0 0 2 0 0 1 0 0 1 0 -1 0 0 0 0 1 nr = 4 nc = 4

6   Pass
a=[1 2 3 ;1 1 5;3 0 1] tf = 0; assert(isequal(ortho_normal(a),tf))

a = 1 2 3 1 1 5 3 0 1 nr = 3 nc = 3

7   Pass
a =[1 0 0 ;0 0 0; 0 0 0] tf = 0; assert(isequal(ortho_normal(a),tf))

a = 1 0 0 0 0 0 0 0 0 nr = 3 nc = 3