Scribd
Upload
148 views12 pages

Heat Equation Matlab Code

This is technical manual of matlab to solve heat equation

Uploaded by

Sakil Mollah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
148 views12 pages

Heat Equation Matlab Code

This is technical manual of matlab to solve heat equation

Uploaded by

Sakil Mollah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 12

See discussions, stats, and author profiles for this publication at: https://www.researchgate.

net/publication/277009199

Matlab code to solve heat equation and notes

Research · May 2015


DOI: 10.13140/RG.2.1.5002.6400

CITATIONS READS
0 3,756

1 author:

Sabahat Qasim Khan


Riphah International University
13 PUBLICATIONS   11 CITATIONS   

SEE PROFILE

All content following this page was uploaded by Sabahat Qasim Khan on 21 May 2015.

The user has requested enhancement of the downloaded file.


5/21/2015 prog1

clc;
clear all;
close all;

% problem u_t = beat u_xx


% beta 4/pi^2
% exact solution
%
% u(x,t) = exp(-t) * sin(pi/2*x) + exp(-t/4)* sin(pi/4*x)
%

u =@(x,t) exp(-t).*sin(pi/2.*x)+exp(-t/4).*sin(pi/4.*x);

t0 = 0;
tn = 0.08;
x0 = 0;
xn = 4;

dx = 0.2;
dt = 0.04;

x = (x0:dx:xn)';
t = (t0:dt:tn)';

beta = 4/pi^2;
s = beta*dt/dx^2;

nx = (xn-x0)/dx;
nt = (tn-t0)/dt;

% we start indexing from zero

nx_int = nx-1; % number of interior points in spatial dim


nt_int = nt-1; % number of interior points in temporal dim

% construction of tridiagonal matrix

indx1 = ones(1,nx-2);
indx2 = ones(1,nx-1);
a1 = -s*indx1;
a2 = (1+2*s)*indx2;
a3 = -s*indx1;
A = full(gallery('tridiag',a1,a2,a3));

% boundary conditions
% U(0,k) = 0
% U(20,k) = 0

% initial condition

int_cond = @(x) sin(pi/4*x).*(1+2*cos(pi/4*x));


+
% A U(k 1) = U(k) + b

1/5
5/21/2015 prog1

U=zeros(nx+1,nt+1);
U_exact=zeros(nx+1,nt+1);

U(1,:)=0;
U(nx+1,:)=0;
U(:,1) = int_cond(x);

for k=1:nt_int+1
U(2:nx_int+1,k+1) = A\U(2:nx_int+1,k);
end

% exact solution construxtion

for k=1:nt+1
U_exact(1:nx+1,k) =u(x,t(k));
end

Numerical_sol = U
Analytical_sol = U_exact

figure(1)
mesh(t,x,U)
xlabel('Temporal dim')
ylabel('Spatial dim')
zlabel('Numerical sol')

figure(2)
mesh(t,x,U_exact)
xlabel('Temporal dim')
ylabel('Spatial dim')
zlabel('Analytical sol')

figure(3)
mesh(t,x,U_exact-U)
xlabel('Temporal dim')
ylabel('Spatial dim')
zlabel('Error in sol')

Numerical_sol =

0 0 0
0.4655 0.4521 0.4392
0.8968 0.8713 0.8467
1.2630 1.2277 1.1935
1.5388 1.4967 1.4561
1.7071 1.6620 1.6183
1.7601 1.7158 1.6730
1.7000 1.6603 1.6219

fi 2/5
5/21/2015 prog1

1.5388 1.5070 1.4761


1.2967 1.2752 1.2542
1.0000 0.9901 0.9803
0.6787 0.6807 0.6824
0.3633 0.3763 0.3886
0.0820 0.1041 0.1250
-0.1420 -0.1137 -0.0868
-0.2929 -0.2617 -0.2319
-0.3633 -0.3328 -0.3036
-0.3550 -0.3286 -0.3034
-0.2788 -0.2594 -0.2408
-0.1526 -0.1423 -0.1325
-0.0000 0 0

Analytical_sol =

0 0 0
0.4655 0.4518 0.4386
0.8968 0.8707 0.8455
1.2630 1.2268 1.1918
1.5388 1.4957 1.4541
1.7071 1.6609 1.6162
1.7601 1.7147 1.6709
1.7000 1.6594 1.6202
1.5388 1.5063 1.4748
1.2967 1.2748 1.2534
1.0000 0.9900 0.9802
0.6787 0.6810 0.6829
0.3633 0.3769 0.3896
0.0820 0.1048 0.1265
-0.1420 -0.1128 -0.0849
-0.2929 -0.2607 -0.2300
-0.3633 -0.3318 -0.3018
-0.3550 -0.3278 -0.3018
-0.2788 -0.2588 -0.2397
-0.1526 -0.1420 -0.1319
-0.0000 -0.0000 -0.0000

3/5
5/21/2015 prog1

4/5
5/21/2015 prog1

Published with MATLAB® R2014a

5/5
View publication stats

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy