[求助]谁能帮我写个mathematica的程序啊？

anyang119726

<DIV class=postcolor>哪位老大能帮我写下这两个问题的mathematica程序啊？
1.编制一维、二维、三维随机游动的程序，并将该随机游动程序可视化。对每个程序给出100步随机游动的可视化效果图。

2.试写出一函数normInfinity[A]，使其求一方阵A的无穷大范数。以normInfinity[]函数作为辅助函数，写出一函数conditionNumber[A]，用来输出A的条件数。使conditionNumber[]函数计算前10个希尔伯特矩阵的条件数。

我现在很急用的,请各位好心的朋友帮帮忙了!
我的邮箱是<a href="mailtanyang119726@sohu.com" target="_blank" ><FONT color=#000000>anyang119726@sohu.com</FONT></A> </DIV>

boldandy

<>n=20;While(n=n-1)&gt;=-6,ParametricPlot3D[n Sin[x]Sin[y],n Sin[x]Cos[y],n Sin[x],{x,-3,3},{y,-3,3}]</P><>注意字母的大小写哦~~~~</P>

boldandy

<>n=20;While(n=n-1)&gt;=-6,ParametricPlot3D[n Sin[x]Sin[y],n Sin[x]Cos[y],n Sin[x],{x,0,2Pi},{y,0,2Pi}]</P><>不好意思啊~~</P><>上面的错了啊 ~~~</P>