Mercurial > matrix-functions

view test/fun_cos @ 8:a587712dcf5f draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
funm_atom.m: rename fun_atom to funm_atom * funm_atom.m: rename fun_atom to funm_atom.
author Antonio Pino Robles <data.script93@gmail.com>
date Fri, 29 May 2015 09:48:36 +0200
parents 0aae72032c25
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)
%!
%!
%!
%!
%!
%!
%!