Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 14:07:31
Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出
xSIO@+>IZqj Y>RI(BJl,e K&fD89?m}{Ͻy/ VkԬmh${t5J/&L.m˓\I}w쯁f;Nfcf2TaUxOcVmRװ\똮'Mbm<ŪG?w΀K&GDw6 _wU>2c J•U[p.OH~ib3tA>)vHc?$2XdaTH6!XH9@J[B= i:2&і"jAX*j !yXÛB\Y&=(%,FQZJsW>y8qj H"T7m7 c+"@R8q;<|H`7Xac8V͂pAfz`a\ "SRP($#, oA fw";9aV$"0K("F.FBp[)PqᕞC )X ^M8FHK %5k5bK| NH7Ƿ ,(=?

Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出
Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?
我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出来.我目前想法是:固定x值,再遍历y.大循环是遍历x值.每一次给定x,以y为未知数可用NDSolve解微分方程,得到一组数据(fi,yi)(i为不同的f和y值),保存NDSolve的结果.最后等所有循环结束.提取出来之前保存的数据,画出等高图.
可是现在不知道如何提取NDSOlve的值>

Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出
实际上是可以用ContourPlot直接画NDSolve的结果的,举个例子吧:
s = NDSolve[{D[u[t,x],t] == D[u[t,x],x,x],u[0,x] == 0,
u[t,0] == Sin[t],u[t,5] == 0},u,{t,0,10},{x,0,5}]
DensityPlot[(u[t,x] /.s),{x,0,5},{t,0,10},PlotPoints -> 35,
ColorFunction -> Hue]
2步就搞定了.
另外,你如果真的想取出函数u[x,t]上面的点的话,这样做
data = Flatten[ Table[{x,t,(u[t,x] /.s)[[1]]},{t,0,10,0.1},{x,0,5,0.1}],1];
得到的结果是{xi,yi,f[xi,yi]}的形式的数组

Mathematica的NDsolve指令怎么用,这个问题是怎么处理的啊 mathematica解偏微分方程数值解,用s=NDSolve[.],如何从s中提出数值解,或者这个s是什么?我初次使用mathematica,我自己写了一个程序来解偏微分,为了验证程序的正确性,利用mathematica的NDSolve函数来解偏 Mathematica的NDSolve命令有多少种可选的差分方法?怎么快速查看它们的简要说明?如题.在NDSolve的帮助下面只简要的说明了可以用Method选项自选差分方法,可是,在哪里可以快速查看软件内部有哪些 Mathematica绘图我用NDSolve解出了一个位移随时间变化的函数.我希望以位移为横坐标,速度(也就是NDSolve解出来的函数的导数)为纵坐标画图,请问如何实现?Clear[Global`*];m1 = 7.3477*10^22; m2 = 5.97219* 【mathematica】微分方程求助出现NDSolve::ndsz At t=3.73777385.,step size is effectively zero; singularity or stiff system suspected.是什么意思 应该进行怎样的修改?s = NDSolve[{ D[M1[t], t] == 0.21 q[t] + 3 - M1[t]/(0.5 M1[t] mathematica中NDSolve函数问题,主要sol函数的问题.图片已上传.一开始是之前的变量有赋值,现在我在前面清除了所有之前的变量赋值.还是解决不了, mathematica微分方程,数值解,result = NDSolve[{y''[t] + 0.1 y'[t] == -Sin[y[t]],y[0] == 1,y'[0] == 0},y,{t,0,50}]Plot[y[x] /.result,{x,0,30}];想知道y[1]的值,即x=1时,y是多少,如何在mathematica里面表示? 懂mathematica的进! Mathematica图标的含义 Mathematica的NDSolve的插值函数里的具体数据如何提取保存?例如可不可以保存为一个Table或者List?我要用ContourPlot指令画一个等高线图.但是函数无法用f(x,y)表示.f必须解数值微分方程才能解出 mathematica中怎么把不同定义域的两张图像放在一起第一张图的代码:s = NDSolve[{Derivative[1][v][t] == (-115200 + 4 v[t] + v[t]^2)/3200 -y[t]/40,y'[t] == v[t],v[3.2467617010715495`] == -100.59038616773991`,y[3.2467617010715495`] mathematica求π的近似值 mathematica的问题mathematica 可以计算二重积分吗? mathematica 解微分方程组的问题,谢谢了R = 0.008;r = 0.0125;Y = 47.0*2.0*Pi;Z = 0.09;m = 0.08;k = 9.0;g = 9.8;f = 0.000586;e = 28;NDsolve[{R^2*y[t]*y'[t] + z[t]*z'[t] == 0, R^2*Y^2 + Z^2 == R^2*(Y[t])^2 + (z[t])^2, 0.5*m*(z'[t])^2 + 0. mathematica求解微分方程的数值解,做出图像,R = 0.008;Y = 47*2*3.14;z = 0.18;m = 0.14;k = 20;g = 10;f = 20;i = 0.143;e = 28;NDSolve[{0.5*m*(R^4 *y[t]^2 *y'[t]^2)/(R*Y^2 + z^2 - R*y[t]^2) + 0.5*i*y'[t]^2 + 0.5*k*(R*Y^2 + z^2 - R*y[t]^2) + 0 mathematica 解复杂的四元微分方程组NDsolve[{y1[x]*y2'[x] + y2[x]*y1'[x] == 0,3200*y1[x]*y2[x]*y3[x] == 0.075*y3'[x] + 4/3*25*10^-6*y2[x]*y2'[x],y1[x]*y2[x]*y2[x] == -y4[x] + 4/3*25*10^-6*y2'[x],y4[x] == y1[x]*461.76*y3[x],y1[0] == 67.99,y2[ 解释一下下面的mathematica程序的意义 Mathematica求 15的阶乘 的代码