版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門(mén)版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

本帖產(chǎn)生 1 個(gè) 仿真EPI ，點(diǎn)擊這里進(jìn)行查看

gzb1220

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 2317.8
散金: 65
帖子: 55
在線: 93.5小時(shí)
蟲(chóng)號(hào): 2318488
注冊(cè): 2013-03-04
專業(yè): 電子學(xué)與信息系統(tǒng)

[求助] 二維菲克定律微分方程求解？已有1人參與

微分方程如圖，如何求解呢？擴(kuò)展到三維又如何求解呢？

111.jpg

回復(fù)此樓

» 猜你喜歡

085601材料工程找調(diào)劑已經(jīng)有11人回復(fù)
總分293求調(diào)劑已經(jīng)有9人回復(fù)
334分一志愿武理材料求調(diào)劑已經(jīng)有5人回復(fù)
327求調(diào)劑已經(jīng)有6人回復(fù)
329求調(diào)劑已經(jīng)有10人回復(fù)
275求調(diào)劑已經(jīng)有15人回復(fù)
291求調(diào)劑已經(jīng)有6人回復(fù)
309求調(diào)劑已經(jīng)有7人回復(fù)
297求調(diào)劑已經(jīng)有11人回復(fù)
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷已經(jīng)有6人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

期望的求解問(wèn)題已經(jīng)有3人回復(fù)
求解擴(kuò)散方程問(wèn)題已經(jīng)有9人回復(fù)
二苯醚回收問(wèn)題求解已經(jīng)有6人回復(fù)
關(guān)于菲克第二定律中的數(shù)學(xué)求解問(wèn)題！已經(jīng)有4人回復(fù)

1樓 2014-01-25 19:50:03

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

回帖置頂 ( 共有1個(gè) )

onesupeng

金蟲(chóng) (職業(yè)作家)

仿真EPI: 11
應(yīng)助: 256 (大學(xué)生)
貴賓: 1.36
金幣: 2336.2
散金: 9228
紅花: 92
帖子: 4583
在線: 1303.8小時(shí)
蟲(chóng)號(hào): 394701
注冊(cè): 2007-06-07
專業(yè): 流體力學(xué)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感謝參與，應(yīng)助指數(shù) +1
ben_ladeng: 金幣+2, 請(qǐng)耐心等待樓主評(píng)分 2014-01-30 08:22:13
gzb1220: 金幣+10, ★★★很有幫助, 謝謝，這段程序是不是通過(guò)差分法解出來(lái)的？ 2014-02-02 07:55:05
1592203609: 仿真EPI+1 2014-02-22 17:04:33

方程的這個(gè)寫(xiě)法第一次看到，希望我理解的是對(duì)的，擴(kuò)散方程

數(shù)值技術(shù)上說(shuō)，如果是結(jié)構(gòu)網(wǎng)格很容易就得到結(jié)果，下面是Fortran程序，希望對(duì)你有用。一共兩個(gè)文件，main.f90和para.dat。你準(zhǔn)備好之后在目錄下建立Out和Init，即可編譯運(yùn)行。結(jié)果在Out里面，用Tecplot可以直接查看

!main.f90
!==================================================================
!==FDM diffusion equation======================================
!==\partial T /\partial t =(\partial^2 T /\partial x^2+ \partial^2 T /\partial y^2)
!========Initally developed by onesupeng===================================
!==============2010.2.2=========================================
!==========================================================
program main
include "./para.dat"
real*8::T1(nx,ny),T2(nx,ny),T3(nx,ny),Tnp1(nx,ny),Tnm1(nx,ny),right1(nx,ny),right2(nx,ny)
integer::i,j,nstep,nplot,ntime
character*8::title
PI=4.0*atan(1.0)
!ÏÂÃæÊÇ²ÎÊý
kappa=0.05
dx=Lx/(Nx-1)
dy=Ly/(Ny-1)
do i=1,Nx
do j=1,Nx
x(i,j)=0.0+(i-1)*dx
y(i,j)=0.0+(j-1)*dy
right1(i,j)=0.0
right2(i,j)=0.0
V(i,j)=0.0d0
U(i,j)=0.0d0
enddo
enddo
ds=2.0*PI/Ns
do i=1,ns
xs(i)=Lx/2+cos(2*PI/ns*(i-1))
ys(i)=Ly/2+sin(2*PI/ns*(i-1))
enddo
dt=0.00001
timestop=5.0
Nplot=100
nstep=1
open(unit=1,file='./Init/Init.dat')
write(1,*)'variables= "x" "Y"'
write(1,*)'ZONE F=POINT I=',Nx,' J=',Ny
do j=1,ny
do i=1,nx
  write(1,*)x(i,j),y(i,j)
enddo
enddo
write(1,*)'variables= "x" "Y"'
write(1,*)'ZONE F=POINT I=',Ns,' J=',1
do i=1,ns
  write(1,*)xs(i),ys(i)
enddo
close(1)
!stop
!Ê±¼äÑ»µ¿ªÊ¼
nstep=0
do while(dt*nstep.LE.timestop)
nstep=nstep+1
if(mod(nstep,10).eq.0)write(*,*)"nstep=",nstep

do i=1,ns
Tb(i)=1.0d0
enddo

!call ACTION1

do i=1+1,nx-1
do j=1+1,ny-1
right2(i,j)=right1(i,j)
right1(i,j)=(Tn(i+1,j)-2.0*Tn(i,j)+Tn(i-1,j))/dx**2+(Tn(i,j+1)-2.0*Tn(i,j)+Tn(i,j-1))/dy**2
enddo
enddo
if(Nstep.eq.1)then
do i=1+1,nx-1
do j=1+1,ny-1
Tnp1(i,j)=Tn(i,j)+right1(i,j)*dt
enddo
enddo
else
do i=1+1,nx-1
do j=1+1,ny-1
Tnp1(i,j)=Tn(i,j)+0.5*(3*right1(i,j)-right2(i,j))*dt
enddo
enddo
endif

do i=1,nx
  Tnp1(i,1)=1.0 !Tnp1(i,2)
  Tnp1(i,ny)=Tnp1(i,ny-1)
enddo
do j=1,ny
  Tnp1(1,j)=Tnp1(2,j)
  Tnp1(nx,j)=Tnp1(nx-1,j)
enddo

do i=1,nx
do j=1,ny
Tnm1(i,j)=Tn(i,j)
Tn(i,j)=Tnp1(i,j)
enddo
enddo

if(mod(nstep,nplot).eq.0)then
write(title,'(i8.8)')nstep
open(unit=1,file='./Out/out'//title//'.dat')
write(1,*)'variables= "x" "Y" "T"'
write(1,*)'ZONE F=POINT I=',Nx,' J=',Ny
do j=1,ny
do i=1,nx
  write(1,*)x(i,j),y(i,j),Tn(i,j)
enddo
enddo
write(1,*)'variables= "x" "Y" "Tn(i,j)"'
write(1,*)'ZONE F=POINT I=',Ns,' J=',1
do i=1,ns
  write(1,*)xs(i),ys(i),F(i)
enddo
close(1)
endif

enddo    !do

end

!para.dat

implicit none
integer,parameter::Nx=201,Ny=201
integer,parameter::Ns=314
real*8,parameter::Lx=10.0d0,Ly=10.0d0
real*8::kappa,PI
real*8::dt,timestop,dx,dy,ds
real*8::x(nx,ny),y(nx,ny),U(nx,ny),V(nx,ny),Fib(nx,ny)
real*8::xs(ns),ys(ns),F(ns),Tb(NS)
real*8::Tn(nx,ny)
common/para/kappa,PI,dt,timestop,dx,dy,ds
common/field/x,y,U,V,Fib,Tn
common/lag/xs,ys,F,Tb

贊一下

回復(fù)此樓

長(zhǎng)期招收博士生，參見(jiàn)http://fsl-unsw.com

2樓2014-01-28 06:52:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

普通回帖

onesupeng

金蟲(chóng) (職業(yè)作家)

仿真EPI: 11
應(yīng)助: 256 (大學(xué)生)
貴賓: 1.36
金幣: 2336.2
散金: 9228
紅花: 92
帖子: 4583
在線: 1303.8小時(shí)
蟲(chóng)號(hào): 394701
注冊(cè): 2007-06-07
專業(yè): 流體力學(xué)

【答案】應(yīng)助回帖

!=============================================================
!==LBM for convective-diffusion equation===================================
!==\partial T /\partial t =(\partial^2 T /\partial x^2+ \partial^2 T /\partial y^2)
!========Initally developed by Onesupeng================================
!============================2010.2.2===========================
!=============================================================
program main
include "./para.dat"
real*8::T1(nx,ny),T2(nx,ny),T3(nx,ny),Tnp1(nx,ny),Tnm1(nx,ny),right1(nx,ny),right2(nx,ny)
integer::i,j,nstep,nplot,ntime
character*8::title
PI=4.0*atan(1.0)
!
kappa=0.05
dx=Lx/(Nx-1)
dy=Ly/(Ny-1)
do i=1,Nx
do j=1,Nx
x(i,j)=0.0+(i-1)*dx
y(i,j)=0.0+(j-1)*dy
right1(i,j)=0.0
right2(i,j)=0.0
V(i,j)=0.0d0
U(i,j)=0.0d0
enddo
enddo
ds=2.0*PI/Ns
do i=1,ns
xs(i)=Lx/2+cos(2*PI/ns*(i-1))
ys(i)=Ly/2+sin(2*PI/ns*(i-1))
enddo
dt=0.00001
timestop=5.0
Nplot=100
nstep=1
open(unit=1,file='./Init/Init.dat')
write(1,*)'variables= "x" "Y"'
write(1,*)'ZONE F=POINT I=',Nx,' J=',Ny
do j=1,ny
do i=1,nx
  write(1,*)x(i,j),y(i,j)
enddo
enddo
write(1,*)'variables= "x" "Y"'
write(1,*)'ZONE F=POINT I=',Ns,' J=',1
do i=1,ns
  write(1,*)xs(i),ys(i)
enddo
close(1)
!stop
!
nstep=0
do while(dt*nstep.LE.timestop)
nstep=nstep+1
if(mod(nstep,10).eq.0)write(*,*)"nstep=",nstep

do i=1,ns
Tb(i)=1.0d0
enddo

!call ACTION1

do i=1+1,nx-1
do j=1+1,ny-1
right2(i,j)=right1(i,j)
right1(i,j)=(Tn(i+1,j)-2.0*Tn(i,j)+Tn(i-1,j))/dx**2+(Tn(i,j+1)-2.0*Tn(i,j)+Tn(i,j-1))/dy**2
enddo
enddo
if(Nstep.eq.1)then
do i=1+1,nx-1
do j=1+1,ny-1
Tnp1(i,j)=Tn(i,j)+right1(i,j)*dt
enddo
enddo
else
do i=1+1,nx-1
do j=1+1,ny-1
Tnp1(i,j)=Tn(i,j)+0.5*(3*right1(i,j)-right2(i,j))*dt
enddo
enddo
endif

do i=1,nx
  Tnp1(i,1)=1.0 !Tnp1(i,2)
  Tnp1(i,ny)=Tnp1(i,ny-1)
enddo
do j=1,ny
  Tnp1(1,j)=Tnp1(2,j)
  Tnp1(nx,j)=Tnp1(nx-1,j)
enddo

do i=1,nx
do j=1,ny
Tnm1(i,j)=Tn(i,j)
Tn(i,j)=Tnp1(i,j)
enddo
enddo

if(mod(nstep,nplot).eq.0)then
write(title,'(i8.8)')nstep
open(unit=1,file='./Out/out'//title//'.dat')
write(1,*)'variables= "x" "Y" "T"'
write(1,*)'ZONE F=POINT I=',Nx,' J=',Ny
do j=1,ny
do i=1,nx
  write(1,*)x(i,j),y(i,j),Tn(i,j)
enddo
enddo
write(1,*)'variables= "x" "Y" "Tn(i,j)"'
write(1,*)'ZONE F=POINT I=',Ns,' J=',1
do i=1,ns
  write(1,*)xs(i),ys(i),F(i)
enddo
close(1)
endif

enddo    !do

end

贊一下(1人)

回復(fù)此樓

長(zhǎng)期招收博士生，參見(jiàn)http://fsl-unsw.com

3樓2014-01-28 06:55:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

gzb1220

新蟲(chóng) (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 2317.8
散金: 65
帖子: 55
在線: 93.5小時(shí)
蟲(chóng)號(hào): 2318488
注冊(cè): 2013-03-04
專業(yè): 電子學(xué)與信息系統(tǒng)

引用回帖:

2樓: Originally posted by onesupeng at 2014-01-28 06:52:38
方程的這個(gè)寫(xiě)法第一次看到，希望我理解的是對(duì)的，擴(kuò)散方程

數(shù)值技術(shù)上說(shuō)，如果是結(jié)構(gòu)網(wǎng)格很容易就得到結(jié)果，下面是Fortran程序，希望對(duì)你有用。一共兩個(gè)文件，main.f90和para.dat。你準(zhǔn)備好之后在目錄下建立Out和 ...

請(qǐng)問(wèn)用哪個(gè)網(wǎng)格求解的？

[ 發(fā)自小木蟲(chóng)客戶端 ]

贊一下

回復(fù)此樓

4樓2014-02-02 07:58:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

onesupeng

金蟲(chóng) (職業(yè)作家)

仿真EPI: 11
應(yīng)助: 256 (大學(xué)生)
貴賓: 1.36
金幣: 2336.2
散金: 9228
紅花: 92
帖子: 4583
在線: 1303.8小時(shí)
蟲(chóng)號(hào): 394701
注冊(cè): 2007-06-07
專業(yè): 流體力學(xué)

矩形計(jì)算域正交網(wǎng)格

贊一下

回復(fù)此樓

長(zhǎng)期招收博士生，參見(jiàn)http://fsl-unsw.com

5樓2014-02-02 09:50:24

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 gzb1220 的主題更新

返回列表

普通表情龍兔虎貓

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 求調(diào)劑，一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +7	@taotao 2026-03-29	7/350	2026-03-29 12:03 by longlotian
[考研] 0856求調(diào)劑 +7	楒桉 2026-03-28	7/350	2026-03-29 08:28 by fmesaito
[考研] 321求調(diào)劑 +7	璞玉~~ 2026-03-25	8/400	2026-03-29 06:41 by 544594351
[考研] 食品工程專碩一志愿中海洋309求調(diào)劑 +4	小張zxy張 2026-03-26	8/400	2026-03-28 19:25 by lbsjt
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8	邱gl 2026-03-27	8/400	2026-03-28 12:42 by 唐沐兒
[考研] 藥學(xué)105500求調(diào)劑 +3	Ssun。。 2026-03-28	3/150	2026-03-28 11:24 by lxf170613
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-27	7/350	2026-03-28 07:43 by 熱情沙漠
[考研] 315分求調(diào)劑 +7	26考研上岸版26 2026-03-26	7/350	2026-03-28 04:05 by fmesaito
[考研] 求調(diào)劑 +4	零八# 2026-03-27	4/200	2026-03-27 18:07 by yu221
[考研] 266求調(diào)劑 +11	陽(yáng)陽(yáng)哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 0856調(diào)劑 +5	求求讓我有書(shū)讀?/a> 2026-03-26	6/300	2026-03-27 15:12 by caszguilin
[考研] 調(diào)劑推薦 +5	清酒714 2026-03-26	6/300	2026-03-27 11:12 by 不吃魚(yú)的貓
[考研] 085602 289分求調(diào)劑 +8	WWW西西弗斯 2026-03-24	8/400	2026-03-26 16:33 by 不吃魚(yú)的貓
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5	軒小寧—— 2026-03-26	5/250	2026-03-26 12:05 by i_cooler
[考研] 332求調(diào)劑 +6	032500 2026-03-25	6/300	2026-03-25 22:45 by 418490947
[考研] 334分一志愿武理-080500 材料求調(diào)劑 +4	李李不服輸 2026-03-25	4/200	2026-03-25 21:26 by 星空星月
[考研] 26考研-291分-廈門(mén)大學(xué)（085601）-柔性電子學(xué)院材料工程專業(yè)求調(diào)劑 +3	min3 2026-03-24	4/200	2026-03-25 18:22 by xcjcqu
[考研] 求b區(qū)院校調(diào)劑 +4	周56 2026-03-24	5/250	2026-03-25 17:12 by yishunmin
[考研] 085404電子信息284分求調(diào)劑 +4	13659058978 2026-03-24	4/200	2026-03-24 12:15 by syl20081243
[考研] 280分求調(diào)劑一志愿085802 +4	PUMPT 2026-03-22	7/350	2026-03-22 22:13 by 星空星月