30 lines
842 B
Mathematica
30 lines
842 B
Mathematica
|
function varargout = gammainc(varargin)
|
||
|
|
%GAMMAINC (overloaded)
|
||
|
|
|
||
|
|
if nargin ~= 2
|
||
|
|
error('Not enough input arguments.');
|
||
|
|
end
|
||
|
|
|
||
|
|
switch class(varargin{1})
|
||
|
|
case 'double'
|
||
|
|
|
||
|
|
if isa(varargin{2},'sdpvar')
|
||
|
|
varargout{1} = InstantiateElementWise('gammainc_a',varargin{2:-1:1});
|
||
|
|
else
|
||
|
|
error('gammainc only supported for one SDPVAR arguments')
|
||
|
|
end
|
||
|
|
|
||
|
|
case 'sdpvar'
|
||
|
|
|
||
|
|
if isa(varargin{2},'double')
|
||
|
|
if varargin{2}<0
|
||
|
|
error('A must be real and non-negative');
|
||
|
|
end
|
||
|
|
varargout{1} = InstantiateElementWise('gammainc_x',varargin{:});
|
||
|
|
else
|
||
|
|
error('gammainc only supported for one SDPVAR arguments')
|
||
|
|
end
|
||
|
|
|
||
|
|
otherwise
|
||
|
|
error('SDPVAR/GAMMAINC called with strange argument?');
|
||
|
|
end
|