


下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、这一段代码源自何雅玲的格子BOLTZMANN法的理论及应用其后面源代码,经过调试可用,输出文件可以导入到TECPLO冲。使用时,在VISUALSTUDIO中新建一个C+C程,代码赋值进去调试即可。#include<iostream>#include<cmath>#include<cstdlib>#include<iomanip>#include<fstream>#include<sstream>#include<string>usingnamespacestd;constintQ=9;/D2Q9模型consti
2、ntNX=256;/X方向constintNY=256;/Y方向constdoubleU=0.1;/顶盖速度inteQ2=0,0,1,0,0,1,-1,0,0,-1,1,1,-1,1,-1,-1,1,-1;doublewQ=4.0/9,1.0/9,1.0/9,1.0/9,1.0/9,1.0/36,1.0/36,1.0/36,1.0/36;doublerhoNX+1NY+1,uNX+1NY+12,u0NX+1NY+12,fNX+1NY+1Q,FNX+1NY+1Q;inti,j,k,ip,jp,n;doublec,Re,dx,dy,Lx,Ly,dt,rho0,P0,tau_f,niu,error;
3、voidinit();doublefeq(intk,doublerho,doubleu2);voidevolution();voidoutput(intm);voidError();intmain()usingnamespacestd;init();for(n=0;n+)evolution();if(n%100=0)Error();cout<<"The"<<n<<"thcomputationresult:"<<endl<<"Theu,vofpoint(NX/2,NY/2)is:&quo
4、t;<<setprecision(6)<<uNX/2NY/20<<","<<uNX/2NY/21<<endl;cout<<"Themaxrelativeerrorofuvis:"<<setiosflags(ios:scientific)<<error<<endl;if(n>=1000)(if(n%1000=0)output(n);if(error<1.0e-6)break;return0;voidinit()(dx=1.0;dy=1.0
5、;Lx=dx*double(NY);Ly=dy*double(NX);dt=dx;c=dx/dt;/1.0rho0=1.0;Re=1000;niu=U*Lx/Re;tau_f=3.0*niu+0.5;std:cout<<"tau_f="<<tau_f<<endl;for(i=0;i<=NX;i+)/初始化for(j=0;j<=NY;j+)(uij0=0;uij1=0;rhoij=rho0;uiNY0=U;for(k=0;k<Q;k+)(fijk=feq(k,rhoij,uij);doublefeq(intk,double
6、rho,doubleu2)(doubleeu,uv,feq;eu=(ek0*u0+ek1*u1);uv=(u0*u0+u1*u1);feq=wk*rho*(1.0+3.0*eu+4.5*eu*eu-1.5*uv);returnfeq;voidevolution()for(i=1;i<NY;i+)演化for(j=1;j<NY;j+)for(k=0;k<Q;k+)ip=i-ek0;jp=j-ek1;Fijk=fipjpk+(feq(k,rhoipjp,uipjp)-fipjpk)/tau_f;for(i=1;i<NX;i+)/计算宏观量for(j=1;j<NY;j+)
7、u0ij0=uij0;u0ij1=uij1;rhoij=0;uij0=0;uij1=0;for(k=0;k<Q;k+)fijk=Fijk;rhoij+=fijk;uij0+=ek0*fijk;uij1+=ek1*fijk;uij0/=rhoij;uij1/=rhoij;/边界处理for(j=1;j<NY;j+)/左右边界for(k=0;k<Q;k+)rhoNXj=rhoNX-1j;fNXjk=feq(k,rhoNXj,uNXj)+fNX-1jk-feq(k,rhoNX-1j,uNX-1j);rho0j=rho1j;f0jk=feq(k,rho0j,u0j)+f1jk-feq(
8、k,rho1j,u1j);)for(i=0;i<=NX;i+)/上下边界for(k=0;k<Q;k+)rhoi0=rhoi1;fi0k=feq(k,rhoi0,ui0)+fi1k-feq(k,rhoi1,ui1);rhoiNY=rhoiNY-1;uiNY0=U;fiNYk=feq(k,rhoiNY,uiNY)+fiNY-1k-feq(k,rhoiNY-1,uiNY-1);)voidoutput(intm)/输出ostringstreamname;namev&avity'<<m<<.dat”;ofstreamout(name.str().c_s
9、tr();out<<"Title="LBMLidDrivenFlow"n"'VARIABLES="X","Y","U","V"n"<VZONET="BOX",I="<<NX+1<<,J="<<NY+1<<,F=POINT"<<endl;for(j=0;j<=NY;j+)for(i=0;i<=NX;i+)out<<double(i)/Lx<<""<<double(j)/Ly<<""<<uij0<<""<<uij1<<endl;)voidError()doubletemp1,temp2;temp1=0;temp2=0;for(i=1;i<NX;i+)for(j=1;j<NY;j+)tempi+=(uij0-u0ij0)*(uij0-u0ij0)+(uij1-u0ij1)*(u
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年社会工作者之中级社会工作法规与政策模考模拟试题(全优)
- 2025年投资项目管理师之宏观经济政策综合检测试卷B卷含答案
- 窗帘面料的智能遮光与室内光线管理特性研究与发展趋势考核试卷
- 种植园信息化管理考核试卷
- 糖料作物种植气候智慧农业考核试卷
- 机车车辆车载雨水收集系统配件考核试卷
- 自行车安全驾驶模拟培训考核试卷
- 粮食仓储智能化改造考核试卷
- 电能表的电网健康管理考核试卷
- 航空器电子战设备校准与修理考核试卷
- 青岛超银中学2022-2023学年七年级下学期阶段性调研地理试题【带答案】
- 2024年安徽省初中(八年级)学业水平考试初二会考生物+地理试卷真题
- 火针疗法在皮肤科:国际视角
- 4000m3d制药废水计算书
- 越剧古装衣介绍
- 宅基地确权委托书
- 人事行政工作成功典范总结
- 英国皇室文化课件
- 咯血个案护理
- 第6课+呵护花季+激扬青春【中职专用】《心理健康与职业生涯规划》(高教版2023基础模块)
- 博士生入学复试面试报告个人简历介绍(完美版)模板两篇
评论
0/150
提交评论