function T
for i=1:16
T(i,1)=30;
end
for j=1:12
T(1,j)=30;
end
for p=6:16
for q=6:12
T(p,q)=0;
end
end
T(16,2:5)=[24,18,12,6];
T(2:5,12)=[24,18,12,6];
while 1
for i=2:15
for j=2:5
eps=1;
temp=T(i,j);
T(i,j)=(T(i-1,j)+T(i+1,j)+T(i,j-1)+T(i,j+1))./4;
eps=T(i,j)-temp;
end
end
if eps<1e-8
break;
end
end
while 1
for i=2:5
for j=2:11
eps=1;
temp=T(16,j);
T(16,j)=(2.*T(15,j)+T(16,j-1)+T(16,j+1))./4;
eps=T(16,j)-temp;
end
end
if eps<1e-8
break;
end
end
while 1
for i=2:5
temp=T(i,12);
T(i,12)=(2.*T(i,11)+T(i-1,12)+T(i+1,12))./4;
eps=T(i,12)-temp;
end
if eps<1e-8
break;
end
end
pcolor(T');shading interp
figure,contour(T',10);
end
for i=1:16
T(i,1)=30;
end
for j=1:12
T(1,j)=30;
end
for p=6:16
for q=6:12
T(p,q)=0;
end
end
T(16,2:5)=[24,18,12,6];
T(2:5,12)=[24,18,12,6];
while 1
for i=2:15
for j=2:5
eps=1;
temp=T(i,j);
T(i,j)=(T(i-1,j)+T(i+1,j)+T(i,j-1)+T(i,j+1))./4;
eps=T(i,j)-temp;
end
end
if eps<1e-8
break;
end
end
while 1
for i=2:5
for j=2:11
eps=1;
temp=T(16,j);
T(16,j)=(2.*T(15,j)+T(16,j-1)+T(16,j+1))./4;
eps=T(16,j)-temp;
end
end
if eps<1e-8
break;
end
end
while 1
for i=2:5
temp=T(i,12);
T(i,12)=(2.*T(i,11)+T(i-1,12)+T(i+1,12))./4;
eps=T(i,12)-temp;
end
if eps<1e-8
break;
end
end
pcolor(T');shading interp
figure,contour(T',10);
end