mathematica 题 (200分) (能做多少做多少)

花了近一个小时,终于做了,第六题不会数学就没做,辛苦死了!
1.求数列
X (n) = 1 + 1/(2^3) + 1/(3^3) ...+ 1/(n^3) 的极限,当 | X (n) - X (n + 1) < 10^(-5) 时停止.
n = 1; f[x_] := 1/x^3; s1 = 0; s2 = 1;
While[s2 - s1 >= 10^-5,n++; s1 = s2; s2 += f[n]];
Print["n=",n,"nX(n)=",N[s2]]
2.求数列
X (1) = 2,X (n) = 根号下 (2 + 根号下 (X (n - 1))) 的极限,画出函数列散点图.
x = 2;
list = Table[
N[Nest[Sqrt[2 + Sqrt[#]] &,x,i]],{i,20}];(*可以改变20的值*)
Last[list]
ListPlot[list,AxesOrigin -> {0,1.8},PlotRange -> {1.8,1.9}]
(*可以改变1 .8的值*)
3.定义函数计算
x (t) = a (cost)^3,y (t) = a (sint)^3 所围区域的面积.
Remove["Global`*"];
a = 1;
x[t_] := a (Cos[t])^3; y[t_] := a (Sin[t])^3;
ParametricPlot[{x[t],y[t]},{t,0,10}]
s = 4 !(
*SubsuperscriptBox[([Integral]),(0),(a)](a
SuperscriptBox[((Sin[ArcCos[
*RadicalBox[(x[t]/a),(3)]]])),(3)] [DifferentialD]t))
N[s]
4.定义函数f (x) ,输出矩阵f (5) 形式为 :
* * * * *
*0 0 0*
*0*0*
*0 0 0*
* * * * *其中x为奇数.
f[x_] := Module[{n = x,i,star},star = Table[Table["*",{x}],{x}];
Table[{star[[i,2]] = "0",star[[i,x - 1]] = "0"},{i,3,x - 2}];
Table[{star[[2,i]] = "0",star[[x - 1,i]] = "0"},{i,2,x - 1}];
star = Apply[StringJoin,star,1];
For[i = 1,i

e＝1＋1/2!＋1/3!＋……直至无穷。
“自然律”是e 及由e经过一定变换和复合的形式。e是“自然律”的精髓，在数学上它是函数：
(1+1/x)^x
当X趋近无穷时的极限。
人们在研究一些实际问题，如物体的冷却、细胞的繁殖、放射性元素的衰变时，都要研究
(1+1/x)^x
X的X次方，当X趋近无穷时的极限。正是这种从...

不要把家庭作业放上来咯，比我还懒

1)Integrate[4 [Pi] x^2 a/x, {x, r, R}]
得到： -2 a [Pi] r^2 + 2 a [Pi] R^2

有难度没个我看的懂的！！！！