您的位置: 首页 > 作业答案 > 其他 > mathematica的画图问题mathematica8里输好后执行没有显示,为什么?a = {Sin[1], 2 Sin[1/2], 3 Sin[1/3]};Do[a = Append[a, i Sin[1/i]]; ListPlot[a, PlotRange -> {0, 2}, PlotStyle -> PointSize[0.018]], {i, 4, 20}]

mathematica的画图问题mathematica8里输好后执行没有显示,为什么?a = {Sin[1], 2 Sin[1/2], 3 Sin[1/3]};Do[a = Append[a, i Sin[1/i]]; ListPlot[a, PlotRange -> {0, 2}, PlotStyle -> PointSize[0.018]], {i, 4, 20}]

分类: 作业答案 • 2021-12-18 21:49:34

问题描述：

mathematica的画图问题
mathematica8里输好后执行没有显示,为什么?
a = {Sin[1], 2 Sin[1/2], 3 Sin[1/3]};
Do[a = Append[a, i Sin[1/i]];
ListPlot[a, PlotRange -> {0, 2}, PlotStyle -> PointSize[0.018]], {i,
4, 20}]

答

首先要加载Graphics`ImplicitPlot`函数库加载方法为：<<Graphics`ImplicitPlot` 有以下的命令： ImplicitPlot[eqn,{x,xmin,xmax}] 先用Solve命令求解，再

答

Do只执行过程,结果在内核中有,但不在笔记本中打印出来,加一个Print可以显示a = {Sin[1],2 Sin[1/2],3 Sin[1/3]};Do[a = Append[a,i Sin[1/i]];Print@ListPlot[a,PlotRange -> {0,2},PlotStyle -> PointSize[0.018]],...

mathematica的画图问题mathematica8里输好后执行没有显示,为什么?a = {Sin[1], 2 Sin[1/2], 3 Sin[1/3]};Do[a = Append[a, i Sin[1/i]]; ListPlot[a, PlotRange -> {0, 2}, PlotStyle -> PointSize[0.018]], {i, 4, 20}]

相关推荐