24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1131  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

花开时节0931

铁虫 (初入文坛)

[求助] 求助格子boltzmann方法模拟平板间气体流动 已有1人参与

空气以声速从平板间进入,平板厚度10微米,想采用格子boltzmann模拟气体流动,没学过C语言,边学边改。问题还是很大,毕业论文着急,求指导。不胜感激。
#include <cmath>
#include <iostream>
#include <cstdlib>
#include <iomanip>
#include <fstream>
#include <sstream>
#include <string>
using namespace std;
const int Q=9; //D2Q9模型
const int NX=120;//X方向
const int NY=40;//Y方向
//const double U=0.1; //顶盖速度
int e[Q][2]={{0,0},{1,0},{0,1},{-1,0},{0,-1},{1,1},{-1,1}, {-1,-1}, {1,-1}};
double w[Q]={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};
double rho[NX+1][NY+1],u[NX+1][NY+1][2],u0[NX+1][NY+1][2],f[NX+1][NY+1][Q],F[NX+1][NY+1][Q];
int i,j,k,ip,jp,n;
double c,Re,dx,dy,Lx,Ly,dt,rho0,P0,tau_f,niu,error,Kn;
void init();
double feq(int k,double rho,double u[2]);
double rhosum[NX][NY] = {0};
double Psum[NX][NY] = {0};

void evolution();
void output(int m) ;
void Error();
int main()
{
    using namespace std;
    init();
    for(n=0; ;n++)
    {
        evolution();
        if (n%1000==0)
        {
             Error();
             cout<<"the "<<n<<" th computation result:"<<endl<<
             "The u,v of point (NX/2,NY/2)is:" <<setprecision(6)
             <<u[NX/2][NY/2][0]<<","<<u[NX/2][NY/2][1]<<endl;
             cout<<"The max relative error of uv is: "
             <<setiosflags(ios::scientific)<< error <<endl;
             if(n>=100)
             {
                if(n%1000==0) output(n);
                if(error<1.0e-12) break;
             }
        }
    }
    return 0;
}
void init()
{
  dx=1.0;
  dy=1.0;
  P0=0.5;
  Lx=dx*double(NY);
  Ly=dy*double(NX);
  dt=dx;
  c=dx/dt;//1.0
  rho0=1.03;
  Kn=0.5;
  tau_f=8;
//tau_f=P0*Lx*Kn*sqrt(6/3.14)+0.5;
  //Re=8;
// niu=0.1*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++)
  {
        u[j][0]=0;
        u[j][1]=0;
        rho[j]=rho0;
        u[0][j][0]=0.57;
        for (k=0;k<Q;k++)
        {
            f[j][k]=feq(k,rho[j],u[j]);

        }
  }
}
double feq(int k,double rho,double u[2])//计算平衡态分布函数
{
     double eu,uv,feq;
     eu=(e[k][0]*u[0]+e[k][1]*u[1]);
     uv=(u[0]*u[0]+u[1]*u[1]);
     feq=w[k]*rho*(1.0+3.0*eu+4.5*eu*eu-1.5*uv);
     return feq;
}

void evolution()
{
for(i=1;i<NX;i++)//演化
for(j=1;j<NY;j++)
for(k=0;k<Q;k++)
{
      ip=i-e[k][0];
      jp=j-e[k][1];
      F[j][k]=f[ip][jp][k]+(feq(k,rho[ip][jp],
      u[ip][jp])-f[ip][jp][k])/tau_f;
}
         
for(i=1;i<NX;i++)//计算宏观量
  for(j=1;j<NY;j++)
  {
       u0[j][0]=u[j][0];
       u0[j][1]=u[j][1];
       rho[j]=0;
       u[j][0]=0;
       u[j][1]=0;
       for(k=0;k<Q;k++)
       {
           f[j][k]=F[j][k];
           rho[j]+=f[j][k];
           u[j][0]+=e[k][0]*f[j][k];
           u[j][1]+=e[k][1]*f[j][k];
                   rhosum[j] += f[j][k];                  
       }
           Psum[j] = rhosum[j] * c * c / 3;
       u[j][0]/=rho[j];
       u[j][1]/=rho[j];
   }
           
//边界处理
//左右边界  
  

for(i=0;i<=NX;i++)//上下边界
  for(k=0;k<Q;k++)
  {
       rho[0]=rho[1];
       f[0][k]=feq(k,rho[0],u[0])+f[1][k]
       -feq(k,rho[1],u[1]);
       rho[NY]=rho[NY-1];
       u[NY][0]=0;
       u[NY][1]=0;
           u[0][0]=0;
       u[0][1]=0;

       f[NY][k]=feq(k,rho[NY],u[NY])+f[NY-1]
       [k]-feq(k,rho[NY-1],u[NY-1]);
  }
}

void output(int m)//输出
{
      ostringstream name;
      name<<"cavity_"<< m<<".dat";
      ofstream out(name.str().c_str());
      out<<"Title=\"LBM Lid Driven Flow\"\n"<<
      "VARIABLES=\"X\",\"Y\", \"U\",\"V\",\"rhosum\",\"Psum\"\n"
      <<"ZONE T=\"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<<","<<u[j][0]<<","<<u[j][1]<<","<<rhosum[j]<<","<<Psum[j]<<"\n"
        <<endl;
      }
}
void Error()
{
     double temp1,temp2;
     temp1=0;
     temp2=0;
     for(i=1;i<NX;i++)
        for(j=1;j<NY;j++)
        {
             temp1+=(
             (u[j][0]-u0[j][0])*(u[j][0]-u0[j][0])
             +(u[j][1]-u0[j][1])*(u[j][1]-u0[j][1]));
              temp2+=
             (u[j][0]*u[j][0]+u[j][1]*u[j][1]);
                        
        }
    temp1=sqrt(temp1);
    temp2=sqrt(temp2);
    error=temp1/(temp2);
}
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

独孤694

至尊木虫 (知名作家)

【答案】应助回帖

感谢参与,应助指数 +1
你是根据何雅玲书里的程序改的?没细看,首先她程序里是不可压模型,速度要保证小于0.3马赫,而你的问题是可压流,目前最常用的可压模型是多速模型吧

发自小木虫Android客户端
人就得逼自己一把
3楼2015-11-24 23:39:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

老大读书

铜虫 (正式写手)

2楼2015-11-24 23:28:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

孤独的漫步

木虫 (小有名气)

为啥里面程序的‘ ’都没了。。。
你必须非常努力,才能看起来毫不费力
4楼2015-11-29 19:43:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

花开时节0931

铁虫 (初入文坛)

引用回帖:
2楼: Originally posted by 老大读书 at 2015-11-24 23:28:52
有什么问题

想请问下有没有压力驱动的程序参考,现在只会速度驱动
5楼2015-12-29 10:43:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 085408光电信息工程专硕355一志愿长春光机所调剂 +6 王ymaa 2026-04-13 6/300 2026-04-14 10:14 by 1005715100
[考研] 求调剂学校 +6 不会吃肉 2026-04-13 6/300 2026-04-14 08:36 by 木木mumu~
[考研] 人工智能320调剂08工类还有机会吗 +17 振—TZ 2026-04-10 18/900 2026-04-14 08:15 by Equinoxhua
[考研] 材料相关专业344求调剂双非工科学校或课题组 +19 hualkop 2026-04-12 20/1000 2026-04-14 07:02 by laoshidan
[考研] 271求调剂 +34 2261744733 2026-04-11 40/2000 2026-04-13 23:15 by pies112
[考研] 考研调剂 +11 长弓傲 2026-04-13 12/600 2026-04-13 22:48 by pies112
[考研] 0856专硕求调剂 希望是a区院校 +24 好好休息好不好 2026-04-09 27/1350 2026-04-13 22:22 by pies112
[找工作] 山东高校教师考核超级无底线,员工过不下去啦 +4 qut2026 2026-04-09 9/450 2026-04-12 00:54 by qut2026
[考研] 一志愿郑州大学 22408 305分求调剂 +5 安小满zzz 2026-04-08 5/250 2026-04-12 00:41 by 蓝云思雨
[考研] 调剂 +10 只叙离别辞 2026-04-09 12/600 2026-04-11 20:57 by 逆水乘风
[考研] 282,求调剂 +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by 猪会飞
[考研] 284求调剂 +9 让我上岸吧阿西 2026-04-09 11/550 2026-04-10 19:18 by 靖jing
[考研] 314求调剂 +18 xhhdjdjsjks 2026-04-09 19/950 2026-04-10 18:53 by HPUCZ
[考研] 085800 能源动力求调剂 +6 阿biu啊啊啊啊啊 2026-04-10 6/300 2026-04-10 15:03 by hemengdong
[考研] 348求调剂 +3 candyyyi 2026-04-09 3/150 2026-04-09 17:20 by 段伟艳
[考研] 考研求调剂 +4 雯??? 2026-04-08 4/200 2026-04-08 21:44 by 土木硕士招生
[考研] 生物学328分求调剂 +9 闪电kkl 2026-04-08 10/500 2026-04-08 21:42 by liuhuiying09
[考研] 313求调剂 +3 十六拾陆 2026-04-07 3/150 2026-04-07 23:20 by lbsjt
[考研] 316求调剂 +4 15318418673 2026-04-07 4/200 2026-04-07 22:12 by hemengdong
[考研] 一志愿西电085401求调剂 +4 sunw1306 2026-04-07 4/200 2026-04-07 16:40 by 啵啵啵0119
信息提示
请填处理意见