



下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
1、這一段代碼源自何雅玲的格子BOLTZMANN法的理論及應(yīng)用其后面源代碼,經(jīng)過調(diào)試可用,輸出文件可以導(dǎo)入到 TECPLO中。使用時,在 VISUAL STUDIO中新建一個 C+工程,代碼賦 值進去調(diào)試即可。#include#include#include #include #include #include #include using namespace std;const int Q=9;/D2Q9 模型const int NX=256;/X 方向const int NY=256;/Y 方向const double U=0.1;/ 頂蓋速度int eQ2=0,0,1,0,0,1,-1,0,
2、0,-1,1,1,-1,1,-1,-1,1,-1;double wQ=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 rhoNX+1NY+1,uNX+1NY+12,u0NX+1NY+12,fNX+1NY+1Q,FNX+1NY+1Q; int i,j,k,ip,jp,n;double c,Re,dx,dy,Lx,Ly,dt,rho0,P0,tau_f,niu,error;void init();double feq( int k, double rho, double u2);void evolution();vo
3、id output( int m);void Error();int main()using namespacestd;init();for (n=0;n+)evolution();if (n%100=0)Error();cout The nth computation result: endl The u,v of point(NX/2,NY/2) is: setprecision(6)uNX/2NY/20, uNX/2NY/21endl;cout The max relative error of uvis: setiosflags(ios:scientific)error=1000)if
4、 (n%1000=0) output(n);if (error1.0e-6) break ;return 0;void init()dx=1.0;dy=1.0;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_fendl;for (i=0;i=NX;i+) / 初始化for (j=0;j=NY;j+)uij0=0;uij1=0;rhoij=rho0;uiNY0=U;for (k=0;kQ;k+)fi
5、jk=feq(k,rhoij,uij);double feq( int k, double rho, double u2)double eu,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); return feq;void evolution()for (i=1;iNY;i+) / 演化for (j=1;jNY;j+)for (k=0;kQ;k+)ip=i-ek0;jp=j-ek1;Fijk=fipjpk+(feq(k,rhoipjp,uipjp)-fipjpk)/tau_f
6、;for (i=1;iNX;i+) / 計算宏觀量for (j=1;jNY;j+)u0ij0=uij0;u0ij1=uij1;rhoij=0;uij0=0;uij1=0;for (k=0;kQ;k+)fijk=Fijk;rhoij+=fijk;uij0+=ek0*fijk;uij1+=ek1*fijk;uij0/=rhoij;uij1/=rhoij;/ 邊界處理for (j=1;jNY;j+) / 左右邊界for (k=0;kQ;k+)rhoNXj=rhoNX-1j;fNXjk=feq(k,rhoNXj,uNXj)+fNX-1jk-feq(k,rhoNX-1j,uNX-1j);rho0j=rh
7、o1j;f0jk=feq(k,rho0j,u0j)+f1jk-feq(k,rho1j,u1j);for (i=0;i=NX;i+) / 上下邊界for (k=0;kQ;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);void output( int m) / 輸出ostringstream name;namecavity_ m.dat ;ofstream out(na
8、me.str().c_str();ZONEout Title=LBM Lid Driven FlownVARIABLES = X,Y,U,VnT=BOX,I= NX+1,J= NY+1,F=POINT endl;for (j=0;j=NY;j+)for (i=0;i=NX;i+)outdouble (i)/Lx double (j)/Ly uij0 uij1endl;void Error()double temp1,temp2;temp1=0;temp2=0;for (i=1;iNX;i+)for (j=1;jNY;j+) temp1 +=(uij0-u0ij0)*(uij0-u0ij0)+(uij1-u0ij1)*(uij1- u0ij1);temp2 +=(uij0*uij
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 福建藝考生高考數(shù)學(xué)試卷
- 高一聯(lián)考期末數(shù)學(xué)試卷
- 肌理畫課件兒童創(chuàng)意
- 肉羊的飼養(yǎng)管理技術(shù)
- 肝病的癥狀與診斷方法課件
- 2025年03月浙江嘉興市海寧市人民醫(yī)院招聘1人筆試歷年專業(yè)考點(難、易錯點)附帶答案詳解
- 2025年浙江醫(yī)療衛(wèi)生招聘溫州醫(yī)科大學(xué)附屬第二醫(yī)院招聘特殊專業(yè)技術(shù)崗位106人筆試歷年專業(yè)考點(難、易錯點)附帶答案詳解
- 食品采購加工培訓(xùn)課件
- 智能城市運輸創(chuàng)投項目計劃書
- 2025至2030軌道軸箱行業(yè)市場深度研究與戰(zhàn)略咨詢分析報告
- 2025年貴州省公務(wù)員錄用考試《行測》真題及答案解析
- 第一單元:三視圖的判斷、確認與繪制專項練習(xí)-2023-2024學(xué)年五年級數(shù)學(xué)下冊典型例題系列(原卷版)人教版
- 楊梅承包合同協(xié)議書
- 腳手架新型材料性能與應(yīng)用
- 物理光學(xué)知到智慧樹期末考試答案題庫2025年山東理工大學(xué)
- 2024年新滬科版七年級上冊數(shù)學(xué)教學(xué)課件 第1章 有理數(shù) 1.2 數(shù)軸、相反數(shù)和絕對值 第1課時 數(shù)軸
- 《高一物理力學(xué)進階:動力學(xué)與能量學(xué)教學(xué)教案》
- 總監(jiān)理工程師作業(yè)指導(dǎo)書
- GA/T 2160-2024法庭科學(xué)資金數(shù)據(jù)檢驗規(guī)程
- 2025年全國高壓電工證(復(fù)審)理論考試試題(1000題)附答案
- 2024北京西城區(qū)五年級(下)期末語文試題及答案
評論
0/150
提交評論