matlab画西瓜程序,科学吃西瓜

function SolvePde_FrozenWatermelon

% 把西瓜放冰箱里,多长时间才能冰透?

% 求解冰镇西瓜过程中的温度扩散问题(热传导方程)

%       1   ∂T     1   ∂        ∂

%      ---.---- = ---.----( r2.----)

%       a   ∂t     r2  ∂r       ∂r

%

%   初始条件:

%            t = 0, 0 ≤ r ≤ R, T = T0

%   边值条件:

%            t > 0, r = 0, ∂T/∂r = 0

%            t > 0, r = R, h(T - Tinf) = -k.∂T/∂r

%

%   1. 假设西瓜的外形是一个半径为R的完美的球体

%   2. 假设西瓜没有瓜皮,没有瓜籽,瓜瓤也是完全均匀的,其密度、导热能力、比热容

%      全是均匀的,一切物性参数都不随温度变化而变化

%   3. 冰箱是一个恒温为Tinf ℃的环境

%

%   August 4  2017, editted by ZhongHua-Xie, Tianjin University of Science and Technology.

% 相关参数

h = 5;        % 西瓜与静止冷空气的对流换热系数 [w/(㎡.K)]

k = 0.48;     % 西瓜的导热系数 [w/(m.K)]

p = 918;      % 西瓜的密度 [kg/m3]

Cp = 3990;    % 热容 [J/(kg.K)]

a = k/(p*Cp); % 西瓜的热扩散系数 [㎡/s]

T0 = 32;      % 初始温度 [℃]

Tinf = 6;     % 终极温度 [℃]

m = 2;                                     % 方程中的m参数

r = linspace(0,9,50)/100;                  % 定义距离向量r

t = linspace(0,10,50)*3600;                % 定义时间向量t

Td = pdepe(m,@pdefun,@pdeic,@pdebc,r,t);   % 方程求解

% 结果可视化

figure;

surf(r*100,t/3600,Td);                     % 绘制温度T关于距离r和时间t的三维曲面

colorbar;

zlim([min(Td(:))-2,max(Td(:))+2]);

title('T(r,t)');

xlabel('Distance r');

ylabel('Time t')

view(116,33);

text(8,-0.5,34.5,'开始冷藏','FontSize',18,'Rotation',40)

text(0,5,26,'瓜心','FontSize',18)

text(7,2,10.5,'瓜皮','FontSize',18)

% 绘制西瓜等效切面温度扩散动画

num = size(Td,2);

thetai = linspace(0,2*pi,50);

[R,Theta] = meshgrid(r,thetai);

X = 100*R.*cos(Theta);

Y = 100*R.*sin(Theta);

Tdi = ones(size(thetai'))*Td(1,:);

X_bac = linspace(min(X(:))-1,max(X(:))+1,50);

Y_bac = linspace(min(Y(:))-1,max(Y(:))+1,50);

[X_bac,Y_bac] = meshgrid(X_bac,Y_bac);

figure;

% 绘制背景温度面

surf(X_bac,Y_bac,Tinf*ones(size(X_bac)),'FaceColor','interp','EdgeColor','none');

hold on;

% 绘制零时刻西瓜等效温度切面

hs = surf(X,Y,Tdi,'FaceColor','interp','EdgeColor','none');

axis equal;

axis([min(X_bac(:)),max(X_bac(:)),min(Y_bac(:)),max(Y_bac(:))])

xlabel('X');

ylabel('Y');

caxis([Tinf,max(Td(:))]);

colorbar;

view(2);

ht = title(['冷藏',num2str(t(1)/3600,'%2.1f'),'小时后']);

% filename = '冰镇西瓜温度扩散动画.gif';

% f = getframe(gcf);

% IM = frame2im(f);

% [IM,map] = rgb2ind(IM,256);

% imwrite(IM,map,filename,'gif', 'Loopcount',inf,'DelayTime',0.2);

for i = 2:num

Tdi = ones(size(thetai'))*Td(i,:);

set(hs,'ZData',Tdi);

set(ht,'String',['冷藏',num2str(t(i)/3600,'%2.1f'),'小时后']);

pause(0.2);

%     f = getframe(gcf);

%     IM = frame2im(f);

%     [IM,map] = rgb2ind(IM,256);

%     imwrite(IM,map,filename,'gif','WriteMode','append','DelayTime',0.2);

end

function [c,f,s] = pdefun(r,t,T,dT)

% 偏微分方程函数

c = 1/a;

f = dT;

s = 0;

end

function u0 = pdeic(r)

% 初始条件函数

u0 = T0;

end

function [pa,qa,pb,qb] = pdebc(ra,Ta,rb,Tb,t)

% 边值条件函数

pa = 0;

qa = 1;

pb = h*(Tb - Tinf);

qb = k;

end

end

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值