Mercurial > matrix-functions

comparison test/fun_cos @ 4:0aae72032c25 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added files described in changeset d24a00dabdc2.
author Antonio Pino Robles <data.script93@gmail.com>
date Fri, 15 May 2015 20:30:21 +0200
parents
children
comparison
equal deleted inserted replaced
3:d24a00dabdc2 4:0aae72032c25
1 %!test
2 %! A = rand (5,5);
3 %! [P,lambda] = eig (A); # A = P * lambda / P
4 %! D = diag(cos (diag (lambda)));
5 %! B = P * D / P;
6 %! cosA = myfunm (A,@cos);
7 %! assert(cosA,B,1e-9)
8 %!
9 %!
10 %!
11 %!
12 %!
13 %!
14 %!
15