作业帮 > 数学 > 作业

mathematica怎么画出散点图,折线图

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/17 03:12:25
mathematica怎么画出散点图,折线图
f[n_] := f[n - 1] + f[n - 2];
f[0] = 1; f[1] = 1;
g[n_] := f[n]/f[n + 1];
r[n_] := Log[f[n]];
t1 = Table[f[i],{i,0,15}];
p1 = ListPlot[t1,PlotStyle -> PointSize[0.01]];
t2 = Table[g[i],{i,0,15}];
p2 = ListPlot[t2,PlotStyle -> PointSize[0.01]];
t3 = Table[r[i],{i,0,15}];
p3 = ListPlot[t2,PlotStyle -> PointSize[0.01]];
Show[p1,p2,p3]哪里不对?
怎么画折线图?
你的p3里面应该是画t3的散点图而不是t2
折线图可用Line
再问: 哦,折线那个具体点呗