Mercurial > matrix-functions

view 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
line wrap: on
line source

%!test
%! A = rand (5,5);
%! [P,lambda] = eig (A); # A = P * lambda / P
%! D = diag(cos (diag (lambda))); 
%! B = P * D / P;
%! cosA = myfunm (A,@cos);
%! assert(cosA,B,1e-9)
%!
%!
%!
%!
%!
%!
%!