lisa.pizzo/LisaPizzoExercises
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ex6: I tried with exacmple C

Browse source
This commit is contained in:
Gundolf Haase 2026-01-15 15:01:32 +01:00
commit 7bb12631aa
4 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Sheet6/Ex6C.m
View file

@ -30,9 +30,16 @@ for it = 1:nIter
%Jump in convection-diffusion flux
Jl = -ul + p*u(j);
Jr = -ur + p*u(j);
% GH
% JL = (u(j)-u(j-1))/(x(j)-x(j-1))*(x(j)-x(j-1));
% JR = (u(j+1)-u(j))/(x(j+1)-x(j))*(x(j+1)-x(j));
% HG
eta(j) = abs(Jr - Jl);
%GH eta(j) = abs(Jr - Jl)*sqrt((x(j)-x(j-1))*(x(j+1)-x(j)));
%GH eta(j) = abs(Jr - Jl)*sqrt(max((x(j)-x(j-1)),(x(j+1)-x(j))));
end
x = r_adapt(x, eta);
%
end
end
@ -41,3 +48,8 @@ plot(x,u,'-o','LineWidth',1.5)
xlabel('x'), ylabel('u')
title(['Ex6C, r-adaptivity, Péclet p = ',num2str(p)])
grid on
% GH
hold on
fplot(@(x) (exp(p*x)-1)/(exp(p)-1),[0,1])
% Finalize the plot with the exact solution for comparison
legend('Numerical Solution', 'Exact Solution', 'Location', 'Best');