西安交通大学——温度场数值模拟(matlab)_第1页
西安交通大学——温度场数值模拟(matlab)_第2页
西安交通大学——温度场数值模拟(matlab)_第3页
西安交通大学——温度场数值模拟(matlab)_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、精选优质文档-倾情为你奉上温度场模拟matlab代码：clear,clc,clfL1=8;L2=8;N=9;M=9;% 边长为8cm的正方形划分为8*8的格子T0=500;Tw=100; % 初始和稳态温度a=0.05; % 导温系数tmax=600;dt=0.2; % 时间限10min和时间步长0.2sdx=L1/(M-1);dy=L2/(N-1);M1=a*dt/(dx2);M2=a*dt/(dy2);T=T0*ones(M,N);T1=T0*ones(M,N);t=0;l=0;k=0;Tc=zeros(1,600);% 中心点温度，每一秒采集一个点for i=1:9 for j=1:9

2、if(i=1|i=9|j=1|j=9) T(i,j)=Tw;% 边界点温度为100 else T(i,j)=T0; end endendif(2*M1+2*M2<=1) % 判断是否满足稳定性条件 while(t<tmax+dt) t=t+dt; k=k+1; for i=2:8 for j=2:8 T1(i,j)=M1*(T(i-1,j)+T(i+1,j)+M2*(T(i,j-1)+T(i,j+1)+(1-2*M1-2*M2)*T(i,j); end end for i=2:8 for j=2:8 T(i,j)=T1(i,j); end end if(k=5) l=l+1; Tc

3、(l)=T(5,5); k=0; end end i=1:9;j=1:9; x,y=meshgrid(i); figure(1); subplot(1,2,1); mesh(x,y,T(i,j)% 画出10min后的温度场 axis tight; xlabel('x','FontSize',14);ylabel('y','FontSize',14);zlabel('T/','FontSize',14) title('1min后二维温度场模拟图','FontSize',

4、18) subplot(1,2,2); C,H=contour(x,y,T(i,j); clabel(C,H);axis square; xlabel('x','FontSize',14);ylabel('y','FontSize',14); title('1min后模拟等温线图','FontSize',18) figure(2); xx=1:600; plot(xx,Tc,'k-','linewidth',2) xlabel('时间/s','FontSize',14);ylabel('温度/','FontSize',14);title('中心点的冷却曲线','FontSize',18

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论