Homec4science
Diffusion SPClibs (feature/fft-split) Browse

spclibs/matlab/pde1dp_cmpl_pardiso.m
03540012fedefeature/fft-split

Last Change
Raw File

pde1dp_cmpl_pardiso.m
View Options

%
% @file pde1dp_cmpl_pardiso.m
%
% @brief
%
% @copyright
% Copyright (©) 2021 EPFL (Ecole Polytechnique Fédérale de Lausanne)
% SPC (Swiss Plasma Center)
%
% spclibs is free software: you can redistribute it and/or modify it under
% the terms of the GNU Lesser General Public License as published by the Free
% Software Foundation, either version 3 of the License, or (at your option)
% any later version.
%
% spclibs is distributed in the hope that it will be useful, but WITHOUT ANY
% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
% FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
%
% You should have received a copy of the GNU Lesser General Public License
% along with this program. If not, see <https://www.gnu.org/licenses/>.
%
% @authors
% (in alphabetical order)
% @author Trach-Minh Tran <trach-minh.tran@epfl.ch>
%
file='pde1dp_cmpl_pardiso.h5';
xgrid=hdf5read(file,'/xgrid');
nx = size(xgrid)-1;
rhs=h5Complex(file, '/rhs');
sol=h5Complex(file, '/sol');
cols=hdf5read(file, '/MAT/cols');
irow=hdf5read(file, '/MAT/irow');
val=h5Complex(file, '/MAT/val');
perm=hdf5read(file, '/MAT/perm');
cols=double(cols);
irow=double(irow);
perm=double(perm);
n = size(perm,1);
nnz=size(val,1);
rows = zeros(nnz,1);
for i=1:n
s = irow(i);
e = irow(i+1)-1;
rows(s:e) = i;
end
mat = sparse(rows,cols,val);
figure
subplot(121);
spy(mat);
subplot(122);
spy(mat(perm,perm));
x=hdf5read(file,'/x');
solana=h5Complex(file,'/solana');
solcal=h5Complex(file,'/solcal');
err=hdf5read(file, '/err');
figure
subplot(211)
plot(x, real(solana),x,imag(solana),x,real(solcal),'o',x, ...
imag(solcal), '*')
legend('Exact Real', 'Exact Imag', 'Calc. Real', 'Calc. Imag')
xlabel('X'); ylabel('SOL');
subplot(212)
plot(x, err, 'o-');
xlabel('X'); ylabel('|Error|')
grid on
c4science · Help