计算机数学基础1-2算法的编程实现.pptVIP

例12计算(b)的相应算法的N-S流程图为： Mathematica?计算程序为： y=0.; i=10; While[i31, y=1/(5i)-1/5y; i=i-1; Print[i,, , y]] 请读者在Mathematica环境中执行上述程序，察看相应的计算结果，并与相应的例子比较。同时，建议读者更改相应的初值，并作进一步的分析. 时椭圆的图形， 试画出当a取值分别为 以说明椭圆随a取值变化情况. 解 算法设计过程（逐步细化）. 由于Mathematica内 部定义了参数方程的画图功能函数，我们直接使 用，可给出如下的N-S流程图 图1-15 在此给出Mathematica程序如下： a=0.6; While[a=3,ParametricPlot[{a Cos[t],2 Sin[t]}, {t,0,2 Pi},PlotRange-{{-3,3},{-3,3}}]; a+=0.2] 如果没有定义ParametricPlot[ ]这个函数，则要编写相应代码. 例如，我们可以编写一个新的参数方程画图函数： paraplot[a_]:=ListPlot[Table[{a Cos[t],2 Sin[t]},