问题描述:
一个关于mathematica解偏微分方程的问题,困扰我好久了,望高手伸出援手 5555~
我想求的只是一个简单的扩散函数关系,就是有一个一开始浓度为1的溶液(一维的),然后从时间t=0开始,左边的边界以与该处浓度成正比的速率流失溶质,想计算一定时间后浓度分布情况.代码如下,可是为啥算不出来啊 ,或者是算出来后图像一点都不合理 55555 好难受啊
NDSolve[{D[u[x,t],t] == D[u[x,t],x,x],
u[x,0] ==1,(D[u[x,t],x] /.x ->0) == u[0,t],
(D[u[x,t],x] /.x -> 5) == 0},
u,{x,0,5},{t,0,10}]
我想求的只是一个简单的扩散函数关系,就是有一个一开始浓度为1的溶液(一维的),然后从时间t=0开始,左边的边界以与该处浓度成正比的速率流失溶质,想计算一定时间后浓度分布情况.代码如下,可是为啥算不出来啊 ,或者是算出来后图像一点都不合理 55555 好难受啊
NDSolve[{D[u[x,t],t] == D[u[x,t],x,x],
u[x,0] ==1,(D[u[x,t],x] /.x ->0) == u[0,t],
(D[u[x,t],x] /.x -> 5) == 0},
u,{x,0,5},{t,0,10}]
问题解答:
我来补答展开全文阅读