1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| x1=x0(1:2:end,:);
x2=x0(2:2:end,:);
tic
for i=1:10000
%préallocation
[N,~]=size(x1);
xPoint1=zeros(N,1);
xPoint2=zeros(N,1);
%conditions limites
xPoint1(1)=x2(1);
xPoint2(1)=-eta(1)/mu(1)*max(x1(1)-x1(2),0)^(3/2)-x1(1)/mu(1);
xPoint1(N)=x2(N);
xPoint2(N)=eta(N-1)/mu(N)*max(x1(N-1)-x1(N),0)^(3/2)-x1(N)/mu(N);
%cas général
for n=2:N-1
xPoint1(n)=x2(n);
xPoint2(n)=eta(n-1)/mu(n)*max(x1(n-1)-x1(n),0)^(3/2)-eta(n)/mu(n)*max(x1(n)-x1(n+1),0)^(3/2)-x1(n)/mu(n);
end
end
toc
tic
for i=1:10000
xPoint1=x2;
xPoint2=eta(1:end-1)./mu(2:end-1).*max(x1(1:end-2)-x1(2:end-1),0).^(3/2)-eta(2:end)./mu(2:end-1).*max(x1(2:end-1)-x1(3:end),0).^(3/2)-x1(2:end-1)./mu(2:end-1);
xPoint2=[-eta(1)/mu(1)*max(x1(1)-x1(2),0)^(3/2)-x1(1)/mu(1);xPoint2;eta(end)/mu(end)*max(x1(end-1)-x1(end),0)^(3/2)-x1(end)/mu(end)];
end
toc |
Partager