%Name-Nitesh Kumar Jha %roll No.-173612 % Solution of 2D Equation by Explicit Method
%Name-Nitesh Kumar Jha %roll No.-173612 % Solution of 2D Equation by Explicit Method
%Roll no.-173612
% solution of 2D equation by explicit method
clear all
clc
N=100
M=100;
L=100;
H=100;
Dx=.25;
Dy=.25;
prompt7='enter the alue of alpha=';
alpha=input(prompt7);
%calculation of deltax
deltaX=L/(N-1);
%calculation of deltaY
deltaY=H/(M-1);
%calculation of deltaTx
deltaTx=Dx*square(deltaX)/alpha;
%calculation of deltaTy
deltaTy=Dy*square(deltaY)/alpha;
prompt8='enter the alue of time';
T=input(prompt8);
%calution of no. of iteration
K=T/deltaTx;
%lets start calculation the matrix
Told=zeros(N,M);
Tnew=zeros(N,M);
Told(1:N,1)=100;
Told(1:N,M)=0;
Told(1,1:M)=100;
Told(N,1:M)=0;
Tnew(1:N,1)=100;
Tnew(1:N,M)=0;
Tnew(1,1:M)=100;
Tnew(N,1:M)=0;
p=1:100;
o=1:100;
for i=1:100
for j=2:M-1
for k=2:N-1
Tnew(j,k)=Told(j,k)+deltaX*(Told(j-1,k)-
2*Told(j,k)+Told(j+1,k))+deltaY*(Told(j,k-1)-2*Told(j,k)+Told(j,k+1));
end
end
Told=Tnew;
end
surf(o,p,Tnew)