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
| %%Initialisation
clear all
clc
M=dlmread('chargement.txt');
h=0.005;
k=h;
n = 5000
%%i=M(1:6161,1);
%%j=M(1:6161,2);
xi=M(1:6161,3);
yj=M(1:6161,4);
f=M(1:6161,5);
u=zeros(6161,6161);
E=10^-5;
N=5000;
%%Conditions limites
u(1:6161,6161)=0;
u(1:6161,6161)=0;
u(1,1:6161)=0;
u(6161,1:6161)=0;
for l = 1:n
for i = 2:6161
for j = 2:6161
u(1,j) = 1/21 * ( 0.005 * f(1:61) - ( u(i+2,j) + u(i,j+2) + u(i,j-2) - 8*u(i+1,j) - 8*u(i-1,j) - 8*u(i,j+1) - 8*u(i,j-1) + 2*u(i+1,j+1) + 2*u(i+1,j+1) + 2*u(i-1,j) + 2*u(i-1,j-1)));
end
end
end |
Partager