Mercurial > matrix-functions
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 |
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 |