mathematica怎么解微分方程

如题所述

举报该文章

相关建议 2016-10-25

除了楼上那位说的以外，还需要修改以下几点。第一，求解微分定解问题是视问题不同是需要初始条件和边界条件的，你的这个，我试了下，补充两个初始条件的话即可解，当然可能还有其他可用的初始条件，你可以自己试试。第二，ParametricPlot这里，你在第一点之后，可以单独执行下y[t]/.solution试试，你会发现这样得到的是个列表。疑似参数绘图并不能这样塞列表，虽然这只是个单元素的列表。所以这里要把这个元素给提取出来，这里可以用First。综上所述，正确的代码是：sol=NDSolve[{Derivative[1][x][t]==0.03`x[t](1-x[t])-0.49608`x[t]y[t]-0.3816`x[t]^2y[t]-0.5724`x[t]y[t]^2,Derivative[1][y][t]==0.067`y[t]-1.04`y[t](-1.2`)y[t]^2-0.8`x[t]y[t],y[0]==0.01,x[0]==0.01},{x[t],y[t]},{t,0,10}]ParametricPlot[{First@(x[t]/.sol),First@(y[t]/.sol)},{t,0,10},PlotRange->All]当然，x[0]和y[0]是我随便赋的，你得依你的具体问题去赋值。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/4s7s2f8vqf7fvqs84p.html

其他看法

第1个回答 2016-10-25

你的软件安装有问题，我把你的输入验证了都可以有正确结果：In[1]:=DSolve[y'[x]+2x*y[x]==x*Exp[-x^2/2],y[x],x]Out[1]={{y[x]->E^(-(x^2/2))+E^-x^2C[1]}}In[2]:=DSolve[y'[x]+y[x]==aSin[x],y[x],x]Out[2]={{y[x]->E^-xC[1]+1/2a(-Cos[x]+Sin[x])}}In[3]:=DSolve[{y'[x]+y[x]==aSin[x],y[0]==0},y[x],x]Out[3]={{y[x]->-(1/2)aE^-x(-1+E^xCos[x]-E^xSin[x])}}本回答被提问者采纳

mathematica基础——解方程和微分方程(组)
Mathematica提供了多种解微分方程的方法，包括使用DSolve、DSolve[{eqn1,eqn2,…},{u1,u2,…},…]来求解微分方程组等。在使用DSolve时，确保正确添加变量参数，并注意方程组和偏微分方程的特定格式。此外，了解一些基本的函数，如Root函数，对于理解解的表示和性质至关重要。解决微分方程后，您可以通过...

如何用 mathematica 解常微分方程?
DSolve [eqns,y,x],在纯函数的形式下求解 NDSolve [eqns,y[x],{x,xmin,xmax}],求解常微分方程的数值解例如：解微分方程y ' (x)= ay(x) .In[1]:= DSolve[y’[x] = =a y[x],y[x],x]Out[1]= }} Mathematica帮助里都有的,写得很详细 ...

请教在Mathematica 如何进行微分方程求解?
输入：sol = First[DSolve[y'[x] - y[x] == 0, y, x]]y[x_] = y[x] \/. sol 输出：{y -> Function[{x}, E^x C[1]]} E^x C[1]这里因为没有给初始条件，输出中含有未定常数C[1]。如果定了初始条件，比方说输入：sol = First[DSolve[{y'[x] - y[x] == 0, y[...

如何用 mathematica 解常微分方程
手机版我的知道如何用 mathematica 解常微分方程搜索资料 我来答分享微信扫一扫新浪微博 QQ空间举报本地图片图片链接提交回答匿名回答自动保存中为你推荐:特别推荐老年人谣言传播力超年轻人6倍!Why? 白岩松:中国人还是“饿”点好! 牛奶与钙片,哪个更补钙? 为什么打哈欠传染,还会流泪?× 个...

mathematica怎么解微分方程
第一，求解微分定解问题是视问题不同是需要初始条件和边界条件的，你的这个，我试了下，补充两个初始条件的话即可解，当然可能还有其他可用的初始条件，你可以自己试试。第二，ParametricPlot这里，你在第一点之后，可以单独执行下y[t]\/.solution试试，你会发现这样得到的是个列表。疑似参数绘图并不能...

mathematica中怎么解隐式微分方程
在mathematica中输入：DSolve[x y'[x] - y[x] (Log[x y[x]] - 1) == 0, y[x], x]如图：

Mathematica解微分方程
首先，你的输入就错了，求二阶导数是2个单引号，像这样 DSolve[{Sin[y[x]] y''[x] == x, y[0] == 0}, y[x], x]第二，你是否记得你们上课的时候老师会有讲过，2阶微分方程需要2个初始条件，你只给了一个y[0]=0，是求不出特解来的，只有通解。第三，也是最本质的一点，就是...

用Mathematica求解微分方程!!紧急!!
利用Mathematica：code:DSolve[t'[v]==(m v)\/(P-f v),t[v],v]得到结果：t[v] -> C[1] + m (-(v\/f) - (P Log[P - f v])\/f^2)PS:由于尝试直接计算v[t]时出现如下提示：Solve::ifun: Inverse functions are being used by Solve, so some solutions may not be found;...

用mathematica解含积分的微分方程
Mathematica对积分微分方程没有直接支持，但是目测你这个方程可以通过适当的变换变成完全的微分方程。于是出血大放送地抄了一下你的代码，并且试着变了一下：exp = Integrate[Sqrt[1 + y'[x]^2], {x, 0, x}];eqn= D[Block[{exp}, Solve[(Sqrt[3]\/10 exp - y[x])\/(1 - x + 1\/10...

mathematica解一个微分方程,急!
首先，最明显的一点，你语法错了。把你的单独的T全部改成T[h, t]。然后，在Mathematica里最好不要用大写字母开头的自定义变量，这可能和Mathematica的内置函数撞车，当然，在你的代码里这并没引发问题。语法的问题就这些。然后是方程本身的问题……你为什么给了三个边界啊？一般而言在数值求解偏微分...

相似回答

大家正在搜