Mercurial > hg > octave-lyh

comparison src/DLD-FUNCTIONS/syl.cc @ 3372:f16c2ce14886

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-11-23 19:07:09 by jwe]
author jwe
date Tue, 23 Nov 1999 19:07:18 +0000
parents 38de16594cb4
children ab7fa5a8f23f
comparison
equal deleted inserted replaced
3371:86873384cd10 3372:f16c2ce14886
31 #include "gripes.h" 31 #include "gripes.h"
32 #include "oct-obj.h" 32 #include "oct-obj.h"
33 #include "utils.h" 33 #include "utils.h"
34 34
35 DEFUN_DLD (syl, args, nargout, 35 DEFUN_DLD (syl, args, nargout,
36 "X = syl (A, B, C): solve the Sylvester equation A X + X B + C = 0") 36 "-*- texinfo -*-
37 @deftypefn {Loadable Function} {@var{x} =} syl (@var{a}, @var{b}, @var{c})\n\
38 Solve the Sylvester equation\n\
39 @iftex\n\
40 @tex\n\
41 $$\n\
42 A X + X B + C = 0\n\
43 $$\n\
44 @end tex\n\
45 @end iftex\n\
46 @ifinfo\n\
47 \n\
48 @example\n\
49 A X + X B + C = 0\n\
50 @end example\n\
51 @end ifinfo\n\
52 using standard @sc{Lapack} subroutines. For example,\n\
53 \n\
54 @example\n\
55 @group\n\
56 syl ([1, 2; 3, 4], [5, 6; 7, 8], [9, 10; 11, 12])\n\
57 @result{} [ -0.50000, -0.66667; -0.66667, -0.50000 ]\n\
58 @end group\n\
59 @end example\n\
60 @end deftypefn")
37 { 61 {
38 octave_value_list retval; 62 octave_value_list retval;
39 63
40 int nargin = args.length (); 64 int nargin = args.length ();
41 65