电子产业一站式赋能平台

PCB联盟网

搜索
查看: 1770|回复: 0
收起左侧

一维非稳态导热,但是图为什么画不出来

[复制链接]

587

主题

981

帖子

5126

积分

四级会员

Rank: 4

积分
5126
发表于 2023-3-16 21:46:23 | 显示全部楼层 |阅读模式
clc;clear all;close all;%定义物性参数lambda=1;%导热系数rho=1;%密度cp=1;%比热容a=lambda/rho/cp;%导温系数%定义求解区域、单位网格长度、时间步长L=10;  %墙长度Nx=21;  %墙上网格数dx=L/(Nx-1);%单位网格长度dt=0.1;%时间步长Nt=500;%时间步数Fo=a*dt/dx^2;%网格Fo数if Fo<=0.5    disp('[有稳定解]')else     disp('[解发生震荡]')end%定义初始温度T=zeros(1,Nx);x=linspace(0,L,Nx);T(1,:)=0;t=0;%初始时刻for n=1:Nt    Told=T;    for i=2:Nx-1        T(i)=Fo.*(Told(i+1)+Told(i-1)+(1-2*Fo)).*Told(i);    end    %内热源项    Sx=round(5*Nx/L);%内热源所在位置     t=t+dt;    if (t<=5)    T(Sx)=T(Sx)+dt*100/rho/cp;    end%    T(1)=20; T(end)=40;%第一类边界条件      T(1)=T(2); T(end)=0;%第二类边界条件    plot(x,T);    set(gca,'ylim',[0,100]);    xlabel('墙长度');ylabel('温度');    title(sprintf('Time=%f seconds',t));    pause(0.1); end
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


联系客服 关注微信 下载APP 返回顶部 返回列表