程序和截图如下:
…………………………………………………………………………………………………………
nrange = 1;u = -Sum[1/Abs[x - n], {n, -nrange, nrange}];xrange = 1.4 nrange;Plot[u, {x, -xrange, xrange}, AxesOrigin -> {0, 0}]wave = -y''[x] + u*y[x] - y[x] == 0;DSolve[wave, y[x], x]
…………………………………………………………………………………………………………

…………………………………………………………………………………………………………
u的图像没有问题,主要是后面的DSolve,为啥解不出y[x]呢?
就算没有给边值也可以求出含有C[1],C[2]的形式吧~~可是我的 mathematica 8 一直在运行中~~我等了很久很久也没结果~~
然后我改过方程变成简单的y''[x]==0也不行啊~~~~
所以估计是我哪里写错了~~求高手指点啊~~
…………………………………………………………………………………………………………
nrange = 1;u = -Sum[1/Abs[x - n], {n, -nrange, nrange}];xrange = 1.4 nrange;Plot[u, {x, -xrange, xrange}, AxesOrigin -> {0, 0}]wave = -y''[x] + u*y[x] - y[x] == 0;DSolve[wave, y[x], x]
…………………………………………………………………………………………………………

…………………………………………………………………………………………………………
u的图像没有问题,主要是后面的DSolve,为啥解不出y[x]呢?

就算没有给边值也可以求出含有C[1],C[2]的形式吧~~可是我的 mathematica 8 一直在运行中~~我等了很久很久也没结果~~
然后我改过方程变成简单的y''[x]==0也不行啊~~~~

所以估计是我哪里写错了~~求高手指点啊~~
