21 |
if max(size(h)) ~= prod(size(h)) | prod(size(h)) ~= nx |
if max(size(h)) ~= prod(size(h)) | prod(size(h)) ~= nx |
22 |
error('H must have dimensions of size(X)'); |
error('H must have dimensions of size(X)'); |
23 |
end |
end |
24 |
ndims(squeeze(a)) |
%ndims(squeeze(a)) |
25 |
size(squeeze(a)) |
%size(squeeze(a)) |
26 |
if ndims(squeeze(a)) ~= 2 | sum(size(squeeze(a)) ~= [nx nz]) |
if ndims(squeeze(a)) ~= 2 | sum(size(squeeze(a)) ~= [nx nz]) |
27 |
error('A must have dimensions of size(X) x size(H)'); |
error('A must have dimensions of size(X) x size(H)'); |
28 |
end |
end |