Mercurial > octave-nkf

comparison src/g-builtins.cc @ 51:7806354a10d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-11 20:48:00 by jwe]
author jwe
date Wed, 11 Aug 1993 20:50:40 +0000
parents 80ea39e3c917
children e2c950dd96d2
comparison
equal deleted inserted replaced
50:6028dcac27ef 51:7806354a10d3
49 #include "f-balance.h" 49 #include "f-balance.h"
50 #include "f-colloc.h" 50 #include "f-colloc.h"
51 #include "f-dassl.h" 51 #include "f-dassl.h"
52 #include "f-det.h" 52 #include "f-det.h"
53 #include "f-eig.h" 53 #include "f-eig.h"
54 #include "f-expm.h"
54 #include "f-fft.h" 55 #include "f-fft.h"
55 #include "f-fsolve.h" 56 #include "f-fsolve.h"
56 #include "f-fsqp.h" 57 #include "f-fsqp.h"
57 #include "f-givens.h" 58 #include "f-givens.h"
58 #include "f-hess.h" 59 #include "f-hess.h"
479 builtin_expm (tree_constant *args, int nargin, int nargout) 480 builtin_expm (tree_constant *args, int nargin, int nargout)
480 { 481 {
481 tree_constant *retval = NULL_TREE_CONST; 482 tree_constant *retval = NULL_TREE_CONST;
482 483
483 if (nargin == 2) 484 if (nargin == 2)
484 retval = matrix_exp (args[1]); 485 DLD_BUILTIN (args, nargin, nargout, matrix_exp,
486 {
487 retval = new tree_constant [2];
488 retval[0] = matrix_exp (args[1]);
489 })
485 else 490 else
486 usage ("expm (A)"); 491 usage ("expm (A)");
487 492
488 return retval; 493 return retval;
489 } 494 }