应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » 其他 » 二维菲克定律微分方程求解？
51/1返回列表
查看: 1869  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 仿真EPI ，点击这里进行查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

gzb1220

新虫 (小有名气)

[求助] 二维菲克定律微分方程求解？ 已有1人参与

微分方程如图，如何求解呢？扩展到三维又如何求解呢？
二维菲克定律微分方程求解？
111.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-01-25 19:50:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gzb1220

新虫 (小有名气)
引用回帖:
2楼: Originally posted by onesupeng at 2014-01-28 06:52:38
方程的这个写法第一次看到，希望我理解的是对的，扩散方程

数值技术上说，如果是结构网格很容易就得到结果，下面是Fortran程序，希望对你有用。一共两个文件，main.f90和para.dat。你准备好之后在目录下建立Out和 ...

请问用哪个网格求解的？

[ 发自小木虫客户端 ]
赞一下 回复此楼
4楼2014-02-02 07:58:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

onesupeng

金虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
ben_ladeng: 金币+2, 请耐心等待楼主评分 2014-01-30 08:22:13
gzb1220: 金币+10, ★★★很有帮助, 谢谢，这段程序是不是通过差分法解出来的？ 2014-02-02 07:55:05
1592203609: 仿真EPI+1 2014-02-22 17:04:33
方程的这个写法第一次看到，希望我理解的是对的，扩散方程

数值技术上说，如果是结构网格很容易就得到结果，下面是Fortran程序，希望对你有用。一共两个文件，main.f90和para.dat。你准备好之后在目录下建立Out和Init，即可编译运行。结果在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)
!ÏÂÃæÊDzÎÊý
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
赞一下 回复此楼
长期招收博士生，参见http://fsl-unsw.com
2楼2014-01-28 06:52:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onesupeng

金虫 (职业作家)

【答案】应助回帖

!=============================================================
!==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人) 回复此楼
长期招收博士生，参见http://fsl-unsw.com
3楼2014-01-28 06:55:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

onesupeng

金虫 (职业作家)
矩形计算域正交网格
赞一下 回复此楼
长期招收博士生，参见http://fsl-unsw.com
5楼2014-02-02 09:50:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 国自然评审意见 +7 wangmingqi 2026-08-28 8/400 2026-08-28 18:42 by zhuzg0628
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +13 晴天加油 2026-08-26 14/700 2026-08-28 18:36 by huagongfeihu
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 有没有仍没收到信息的 +3 德尚中行 2026-08-27 3/150 2026-08-28 15:24 by rongshuxia
[教师之家] 导师吐槽：我怎么摊上了这么个极品研究生！ +8 苏东坡二世 2026-08-23 8/400 2026-08-28 14:41 by lkforward
[基金申请] 基金不中，共勉 +11 eulota 2026-08-26 11/550 2026-08-28 14:22 by 火星超人xi
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +4 gdd2018 2026-08-28 9/450 2026-08-28 14:22 by jklily
[基金申请] 基金未中，这种答复是模板吗？ +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 怎么看青基中了没有啊 +5 叶九微 2026-08-26 5/250 2026-08-27 10:35 by l_zh2008
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +7 process2012 2026-08-23 10/500 2026-08-26 19:23 by hmhminy
[基金申请] 2026年8月25日国自然放榜前突然收到列入评审专家邮件，有关系吗？ +25 木水思豆 2026-08-25 28/1400 2026-08-26 14:53 by draco1987
[基金申请] 能否退出参与的面上项目解除限项 +23 koalala 2026-08-24 26/1300 2026-08-26 14:29 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 今天务委会开完了，明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
[职场人生] 学生撞见辅导员送外卖，第二天全班都沉默了 +3 鲸鱼融金_浙江_� 2026-08-22 3/150 2026-08-26 09:01 by zzuzxg
[基金申请] 国合现在查不到了吗？ +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 在坚冰还盖着北海的时候，我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 明天应该可查了！？ +6 chengyan1220 2026-08-23 6/300 2026-08-25 19:45 by zfd97
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
关闭
请填处理意见
关闭