早教吧作业答案频道 -->其他-->
一个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
题目详情
一个mathematica程序添加作图语句
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}]
需要在后面做出图形,求问需要添加的语句.
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 的用法及例子.
看了 一个mathematica程...的网友还看了以下:
等比数列S2=4,S4=20,除了用公式意外,怎嘛用S4,S4-S2,S2这样算 2020-03-31 …
已知数列{an}是等比数列,其前n项的和为Sn,a1+2a2=0,S4-S2=18(1)求数列{a 2020-05-13 …
如图,一个四边形花坛ABCD,被两条线段MN,EF分成四个部分,分别种上红、黄、紫、白四种花卉,种 2020-05-13 …
一个mathematica程序添加作图语句Clear[x,y,n,h,S1,S2,S3,S4,i] 2020-05-16 …
如图,一个四边形花坛ABCD,被两条线段MN,EF分成四个部分,分别种上红、黄、紫、白四种花卉,种 2020-06-13 …
已知S1=x,S2=3S1-2,S3=3S2-2,S4=3S3-2,…,S2017=3S2016- 2020-07-21 …
设等比数列an前n项和为Sn,若S4/S2=3,则S6/S4=? 2020-07-21 …
过圆C:(x-1)2+(y-1)2=1的圆心,作直线分别交x、y正半轴于点A、B,△AOB被圆分成 2020-07-26 …
等比数列{an}的前n项和为Sn,若s4/s2=3,s6/s4=? 2020-07-30 …
如图,四边形ABCD中,∠A、∠B、∠C、∠D的角平分线恰相交于一点P,记△APD、△APB、△B 2020-08-02 …