41 lines
897 B
Mathematica
41 lines
897 B
Mathematica
|
function Y=trapz(X,I,dummy)
|
||
|
|
%TRAPZ (overloaded)
|
||
|
|
|
||
|
|
try
|
||
|
|
n = X.dim(1);
|
||
|
|
m = X.dim(2);
|
||
|
|
if nargin==1
|
||
|
|
Y = X;
|
||
|
|
if n==1 || m==1
|
||
|
|
% Spezialized code...
|
||
|
|
Y.basis = trapz(Y.basis,1);
|
||
|
|
Y.dim(1) = 1;
|
||
|
|
Y.dim(2) = 1;
|
||
|
|
temp = 1;
|
||
|
|
else
|
||
|
|
% Standard case
|
||
|
|
|
||
|
|
temp = trapz(reshape(X.basis(:,1),n,m));
|
||
|
|
Y.basis = kron(speye(m),ones(1,n))*X.basis;
|
||
|
|
|
||
|
|
end
|
||
|
|
else
|
||
|
|
Y = X;
|
||
|
|
temp = trapz(reshape(X.basis(:,1),n,m),I);
|
||
|
|
Y.basis = temp(:);
|
||
|
|
for i = 1:length(Y.lmi_variables)
|
||
|
|
temp = trapz(reshape(X.basis(:,i+1),n,m),I);
|
||
|
|
Y.basis(:,i+1) = temp(:);
|
||
|
|
end
|
||
|
|
end
|
||
|
|
catch
|
||
|
|
error(lasterr)
|
||
|
|
end
|
||
|
|
Y.dim(1) = size(temp,1);
|
||
|
|
Y.dim(2) = size(temp,2);
|
||
|
|
% Reset info about conic terms
|
||
|
|
Y.conicinfo = [0 0];
|
||
|
|
Y.extra.opname = '';
|
||
|
|
Y = flush(Y);
|
||
|
|
Y = clean(Y);
|