一个mathematica程序添加作图语句Clear[x,y,n,h,S1,S2,S3,S4,i];y[1] = 0; h = 0.1;n = 100Do[x[i] = 1.0 + (i - 1)*h,{i,1,n + 1}]f[x_,y_] = 2.5-0.8 y;Do[{S1 = f[x[i],y[i]],S2 = f[x[i] + h/2,y[i] + h*S1/2],S3 = f[x[i] + h/2,y[i] + h*S2/2],S4 = f[x
Clear[x,y,n,h,S1,S2,S3,S4,i];
y[1] = 0; h = 0.1;
n = 100
Do[x[i] = 1.0 + (i - 1)*h,{i,1,n + 1}]
f[x_,y_] = 2.5-0.8 y;
Do[{S1 = f[x[i],y[i]],S2 = f[x[i] + h/2,y[i] + h*S1/2],
S3 = f[x[i] + h/2,y[i] + h*S2/2],S4 = f[x[i] + h,y[i] + h*S3],
y[i + 1] = y[i] + (S1 + 2 S2 + 2 S3 + S4)*h/6},{i,1,n}]
Do[Print[x[i]," ",y[i]],{i,1,n + 1}]
需要在后面做出图形,求问需要添加的语句.
你要是想画出 x 与 y 的图像可以用 ListPlot 函数,需要添加的语句如下:
ListPlot[Table[{x[i], y[i]}, {i, n + 1}]]输出图像:
要想将点连接起来可以加上选项 Joined .
更多图像选项及细节调整,请参考函数 ListPlot 的用法及例子.
I`m afraid I don`t have enough money for the car 2020-05-16 …
than you one year i'm older 12连词成句我觉得少一个i'm如果有就是i 2020-05-16 …
谁能帮我看下这个程序问题出在哪?function[variancebsbkbnsigma]=tra 2020-06-21 …
matlab 得到一个矩阵M(:,:),能否执行语句的条件是M中从小到大的数的排列:M(i,j)从 2020-06-27 …
matlab图像处理,提取图片的高频分量!我是这样写的:function gOK=laplace( 2020-06-27 …
19、当一年内复利m次时,其名义利率r与实际利率i之间的关系是(A).A.i=(1r/m)m-1B 2020-07-26 …
定语从句M:MengYi,I’vegotastomachache1won’tgoaway.Wher 2020-07-27 …
(m^2+i)(1+mi)要更仔细的讲解求M?更仔细讲解=m^2+m^3i+i-m=m^2-m+( 2020-07-30 …
在线等.数学题.已知复数z1=(m方-2m+3)-mi.z2=2m+(m方+m-1)i.i是虚数单 2020-08-02 …
英语题(连词成句,改错)连词成句things,making,I,list,doing,of,a,I' 2020-10-30 …