Mathematica 解微分方程

……仔细一看,你写的是Dsolve啊喂,应该是DSolve,Mathematica是区分大小写的,边界条件里的中括号也错成小括号了.改完了再试试.再问：改好了，能解。但是解到后来就变成如图这种情况了&

其实你可以试着对你的这个方程用一下FullSimplify,你会发现变形出来的方程很明显是无解的.再问：谢谢，那怎样判断方程左边的多项式的正负呢？再答：对于你的这个式子的话，FullSimplify之

LinearSolve[M,b]{-2,0,0,3}应该就是这样

格式上的错误是,大括号有一对就可以了,不需要把初始条件和微分方程分割开来.然后,即使改了也是解不了的……要不是这个没有解析解,要不就是mathematica还不会解这个方程的解析解.（mathemat

f(x)≈f(x0)+f'(x0)(x-x0)=>当x绝对值很小时(1+x)^(1/n)≈1+x/n设函数f(x)=x^(-5),x0=1024,x=1010,x-x0=-12;f(1010)=f(1

不能.这是个超越方程,没有办法得到解析表达式的解.再举个例子.下面这个方程,Sin[x]==x是得不到解得.不是Mathematica功能不够,而是这个方程在数学上就没有解析解.类似的方程在Mathe

NSolve::nsmet:无法利用Solve现有的方法求解该系统.具体为什么我也不大懂,可能是方程本身是超越方程.试一下用FindRoot来解.一个在0附近（就是0）,一个在1.4附近.再问：可我试

eqns={x'[t]+y[t]==Cos[t],y'[t]==-x[t]+Sin[t]};sol=DSolve[eqns,{x,y},t]

首先,不符合基本语法.可以写成这样的形式：Solve[Cos@(6^(1/2)/3*(t+t3/2))*Sin@(6^(1/2)/3*t3/2)-Cos@(6^(1/2)/3*(t+t2+t3+t1/

首先,是NDSolve而不是NDsolve,Mathematica是区分大小写的.其次……其实你看看警告信息就该明白的——方程过定了,也就是,你给的方程数目过多了（两个未知数你给了三个方程）,试着去掉

好像没有.你可以转写成y',y''型的再用NSolve.当然,也可以用函数D表示导数（包括偏导数）,我想dy,dx形式的转写成用函数D表示要比转写成y',y''型方便.函数D可以在帮助查到.

你之前错将x[0]==x0写成过x[0]=x0吧.这导致了变量赋值.先执行一下Clear[x]再执行你的代码.

这样行不行再问：果然是大神啊！！请问，一个=和两个==有什么不同呢，之前没用过mathematica，一直用matlab，但是这次要求解析解，所以第一次尝试，很多语法都不太懂，谢谢啦~~

DSolve对偏微分方程的求解力是比较有限的.当然终究还是要实际尝试.如果解不出来就用NDSolve吧.

s=With[{a=1(*你设定的a值*)},NDSolve[{f'''[x]+0.5f[x]f''[x]==0,f[0]==0,f'[0]==a,f'[10]==1-a},f[x],{x,0,10(

=号才是赋值,->这个是替换,如果对z赋值了才画出的是一条直线,z=Solve[k*100+1==101,k]/.Rule->SetPlot[z,{x,-1,1}]当然也可以这样赋值z=Solve[k

是求逐差吧^_^#1[[2 ;; Length[#1]]] - #1[[1 ;; Length[#1] - 1]]&nb

挺难的,建议你发到学问社区上的mathematica小组,那高手挺多的

绘制由NDSolve求出的微分方程数值解曲线的命令Plot[Evaluate[y[x]/.solution],{x,a,b}]具体如：Plot[Evaluate[y[x]/.NDSolve[{y'[x

什么叫用变量替换验证啊……难道是这样?：eqn={x^2-y==1,x+y^2==0};sol=Solve[eqn,{x,y}]eqn/.N@sol再问：请问最后一句是什么意思再答：我以为你的”变量替