18 lines
377 B
Mathematica
18 lines
377 B
Mathematica
|
function [sys,values] = double(varargin)
|
||
|
|
% OBSOLETE. Use VALUE instead
|
||
|
|
|
||
|
|
% New syntax
|
||
|
|
switch nargout
|
||
|
|
case 0
|
||
|
|
double(value(varargin{:}))
|
||
|
|
case 1
|
||
|
|
sys = double(value(varargin{:}));
|
||
|
|
case 2
|
||
|
|
[sys,values] = value(varargin{:});
|
||
|
|
sys = double(sys);
|
||
|
|
values = double(values);
|
||
|
|
otherwise
|
||
|
|
error('Too many output arguments.');
|
||
|
|
end
|
||
|
|
|