annotate test/fun_cos @ 4:0aae72032c25 draft

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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
1 %!test
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
2 %! A = rand (5,5);
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
3 %! [P,lambda] = eig (A); # A = P * lambda / P
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
4 %! D = diag(cos (diag (lambda)));
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
5 %! B = P * D / P;
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
6 %! cosA = myfunm (A,@cos);
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
7 %! assert(cosA,B,1e-9)
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
8 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
9 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
10 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
11 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
12 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
13 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
14 %!
0aae72032c25 Added files described in changeset d24a00dabdc2.
Antonio Pino Robles <data.script93@gmail.com>
parents:
diff changeset
15