解不出来，大家看看我代码哪里有问题？
问题为：
我的代码为：
rst = NDSolve[
{
D[u[x,y,t],t] == D[u[x,y,t],x,x] + D[u[x,y,t],y,y]+u[x,y,t]*(1-u[x,y,t]),
(*边界条件*)
Derivative[1,0,0][u][0,y,t] == 0,
Derivative[1,0,0][u][1,y,t] == 0,
Derivative[0,1,0][u][x,0,t] == 0,
Derivative[0,1,0][u][x,1,t] == 0,
u[x,y,0] == 0.001 (*初始条件为二维脉冲函数，但是不知道怎么写*)
},
u,{x,0,100},{y,0,1},{t,0,1}
]
Plot3D[Evaluate[u[x,y,t]] /. rst /. x->1,y->1,{t,0,10}] (*作某个点的u关于t的变化图*)
错误提示：
NDSolve::bcedge: Boundary condition (u^(1,0,0))[1,y,t]==0 is not specified on a single edge of the boundary of the computational domain.
没看懂这个错误提示 有没有知道哪里错了~
另外，这个问题的纽曼边界条件用MM这么写对吗？初始条件为二维脉冲函数，只有(0,0,0)这个点为1，其余为0，不太好表达~~
谢谢~^--^

你代码里x和t两个参数的取值范围都搞反个屁了。
那个初始条件在mathematica里正好可以用DiscreteDelta[x,y]来表达（但是仍有问题，见下面评论）。
做一元函数的图应该是Plot；做图部分的Evaluate[]要把整个函数部分框起来。

修改后：
rst=NDSolve[{D[u[x,y,t],t]==D[u[x,y,t],x,x]+D[u[x,y,t],y,y]+u[x,y,t]*(1-u[x,y,t]),Derivative[1,0,0][u][0,y,t]==0,Derivative[1,0,0][u][1,y,t]==0,Derivative[0,1,0][u][x,0,t]==0,Derivative[0,1,0][u][x,1,t]==0,u[x,y,0]==DiscreteDelta[x,y]},u,{x,0,1},{y,0,1},{t,0,100}]
Plot[Evaluate[(u[x,y,t]/.rst)/.{x->1,y->1}],{t,0,10}]
但修改后仍有问题，仍然是初始条件和边界条件有冲突。这还需要人为构造初始或边界条件替换原有的。我就答这么多了。

不一致的边界条件
有一点很重要，您指定的边界条件要和初始条件及偏微分方程都一致. 若不是这种情况，NDSolve 会发出关于不一致性的警告信息. 这种情况下解可能不满足边界条件，甚至更糟的是可能会出现不稳定性.

把x,y的范围改为对称的，出现了新的提示。
x,y的范围均为[-1,1]，边界条件不变。
若：初始条件改为u(x,y,0)=x+y，则出现正常的图像。
若：初始条件仍然为Delta函数，不会出现bc和ic不一致的提示，但出现这样的提示，且一直显示程序正在运行：
NDSolve::mxsst: Using maximum number of grid points 100 allowed by the MaxPoints or MinStepSize options for independent variable x.
这句话的意思是：使用网格点数超过100？还是啥意思呢~？
(我知道NDSolve解PDE是采用将区域离散的方法的)

改动后的代码：
——————————————————————————
rst=NDSolve[{
D[u[x,y,t],t]==D[u[x,y,t],x,x]+D[u[x,y,t],y,y]+u[x,y,t]*(1-u[x,y,t]),
(*边界条件和初始条件*)
Derivative[1,0,0][u][-1,y,t]==0,
Derivative[1,0,0][u][1,y,t]==0,
Derivative[0,1,0][u][x,-1,t]==0,
Derivative[0,1,0][u][x,1,t]==0,
u[x,y,0]==DiscreteDelta[x,y]},
u,{x,-1,1},{y,-1,1},{t,0,100}]
Plot[Evaluate[(u[x,y,t]/.rst)/.{x->0.25,y->0.25}],{t,0,10}]

也许这里有解决办法，也许啦：
https://tieba.baidu.com/p/4126799131
楼主有空可以研究一下。我就不继续跟了。