mathematica中对定义的函数作运算举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H} 其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义H,然后在用DSolve解这个方程组的时候会引用H.求问怎

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 03:21:39
mathematica中对定义的函数作运算举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H}其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义

mathematica中对定义的函数作运算举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H} 其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义H,然后在用DSolve解这个方程组的时候会引用H.求问怎
mathematica中对定义的函数作运算
举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H} 其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义H,然后在用DSolve解这个方程组的时候会引用H.求问怎样实现?

mathematica中对定义的函数作运算举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H} 其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义H,然后在用DSolve解这个方程组的时候会引用H.求问怎
H = x1[t]^2 + x2[t]^2;
equ = {D[x1[t],t] == x1[t] + H,D[x2[t],t] == x1[t]*x2[t] - H};
sol = DSolve[equ,{x1,x2},t]
但这样求不出来 这可能这方程组没有解析解
你可以尝试数值解法 带入x1 ,x2的初始值,在一定范围的t内求数值解 就是
H = x1[t]^2 + x2[t]^2;
equ = {D[x1[t],t] == x1[t] + H,D[x2[t],t] == x1[t]*x2[t] - H,x1[0] == -0.1,x2[0] == 0.1};
sol = NDSolve[equ,{x1,x2},{t,0,5}]
Plot[{sol[[1,1,2]][t],sol[[1,2,2]][t]},{t,0,5},PlotRange -> All]
这里假设 x1[0] == -0.1,x2[0] == 0.1,并画出了t在[0,5]之间的值
你改变下初始条件 你可以看到这方程增长很快 经常趋向无穷大

这样?:
h := x[t]^2 + x[t] y[t]
DSolve[{x'[t] == x[t] + h, y'[t] == x[t] y[t] - h}, {x[t], y[t]}, t]
不过你这个方程好像不能DSolve……

mathematica中如何在定义的函数中输出图形 mathematica的多元函数怎么定义? mathematica中对定义的函数作运算举个简单的例子:我要解一个微分方程组{dx1/dt=x1+H,dx2/dt=x1*x2-H} 其中H=x1^2+x1*x2,而x1,x2都是t的函数.我要先定义H,然后在用DSolve解这个方程组的时候会引用H.求问怎 一个Mathematica函数定义问题 在mathematica中如何在特定的位置,对函数进行标注 mathematica中怎么定义函数在某个单点的值?what if i want change the value of a point? Mathematica 隐函数求导Mathematica 9.0 中如何键入得到隐函数 y=1-xe^y 对x的导数? Mathematica里面的延迟定义函数和即时定义函数由什么区别? mathematica 定义函数我想在mathematica中定义一个分段函数,应该怎么弄啊?对于不同情况函数值不一样,是否需要应用If语句? mathematica函数画图 在mathematica中对(x-1)^{2/3}(x+1)^{1/3}画图 怎么 出不来 [-1,1]的图? mathematica定义一个函数对任意n画正n边形,n从3到20? 关于Mathematica中的函数定义问题我在Mathematica中需要定义一个函数:D[(x-a)^r,{x,a}]=Gamma[r+1]/Gamma[-a+r+1]*(x-a)^(r-a).请问应该如何编写语言?使得出现多阶导数的时候让Mathematica直接用Gamma函数计算? mathematica中分段函数怎么定义?如题:比如怎么定义这样一个函数:g[x]=x,0 用mathematica编出 定义函数,对任意N画出一个正N边形,用它做一个从3到20边形的图 在mathematica中,如何对一段函数进行傅里叶变换,需要用到单位阶跃信号吗如升余弦脉冲信号的傅里叶变换 请问mathematica 中如何定义矩阵? mathematica 中如何定义多个正变量 Mathematica如何以函数为变量定义一个函数?