inst/%40sym/function_handle.m

21 %% @defmethod  @@sym function_handle (@var{f})
22 %% @defmethodx @@sym function_handle (@var{f1}, @dots{}, @var{fn})
23 %% @defmethodx @@sym function_handle (@dots{}, @var{param}, @var{value})
24 %% @defmethodx @@sym function_handle (@dots{}, 'vars', [@var{x} @dots{} @var{z}])
25 %% @defmethodx @@sym function_handle (@dots{}, 'file', @var{filename})
26 %% @defmethodx @@sym function_handle (@dots{}, 'outputs', [@var{o1} @dots{} @var{on}])
37 %% h = function_handle(f)
49 %% h = function_handle(x^2, 5*x, x);
61 %% h = function_handle(f, 'vars', [z y x])
76 %% h = function_handle(f, 'file', '')
91 function f = function_handle(varargin)  function
116         error('function_handle: your SymPy has no octave codegen');
119         error('function_handle: Some other error from SymPy code gen?  file a bug!');
166         error('function_handle: python codegen failed: %s', codestr)
182   %h = function_handle({x,y,z},'vars',{x y z})
192 %! h = function_handle(2*x);
193 %! assert(isa(h, 'function_handle'))
198 %! h = function_handle(2*x*y, x+y);
204 %! h = function_handle(2*x*y, 'vars', [x y]);
206 %! h = function_handle(2*x*y, x+y, 'vars', [x y]);
212 %! h = function_handle(2*x*y, x+y, 'vars', {x y});
215 %! h = function_handle(2*x*y, x+y, 'vars', {'x' 'y'});
221 %! h = function_handle(x*y, 12/y, 'vars', {y x});
224 %! h = function_handle(x*y, 12/y, 'vars', [y x]);
230 %! h = function_handle(x*y, 12/y, 'vars', {y x});
233 %! h = function_handle(x*y, 12/y, 'vars', [y x]);
240 %! h = function_handle(f);
243 %! h = function_handle(f);
248 %! h = function_handle(2*x*y, 'file', '');
249 %! assert(isa(h, 'function_handle'))
251 %! h = function_handle(2*x*y, 'vars', {x y}, 'file', '');
252 %! assert(isa(h, 'function_handle'))
266 %! f = function_handle(2*x*y, 2^x, 'vars', {x y z}, 'file', temp_file);
267 %! assert( isa(f, 'function_handle'))
291 %! f = function_handle(2*x*y, 2^x, 'vars', {x y z}, 'file', temp_file);
292 %! assert( isa(f, 'function_handle'))
311 %! h = function_handle(H, M, V);
330 %! h = function_handle(H, M, V, 'vars', {x y z}, 'file', temp_file);
331 %! assert( isa(h, 'function_handle'))
349 %! h = function_handle(f);
354 %! f = function_handle (x + 1i*sqrt (sym(3)));