Mercurial > octave-nkf

comparison scripts/special-matrix/hadamard.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents efac34f78ea4
children 3140cb7a05a1
comparison
equal deleted inserted replaced
10634:60542efcfa2c 10635:d1978e7364ad
87 case 5 87 case 5
88 h = h20 (); 88 h = h20 ();
89 case 7 89 case 7
90 h = hnormalize (h28 ()); 90 h = hnormalize (h28 ());
91 otherwise 91 otherwise
92 error ("n must be 2^k*p, for p = 1, 12, 20 or 28"); 92 error ("hadamard: n must be 2^k*p, for p = 1, 12, 20 or 28");
93 endswitch 93 endswitch
94 94
95 ## Build H(2^k*n) from kron(H(2^k),H(n)). 95 ## Build H(2^k*n) from kron(H(2^k),H(n)).
96 h2 = [1,1;1,-1]; 96 h2 = [1,1;1,-1];
97 while (true) 97 while (true)