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

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/15 08:40:46

mathematica 题 (200分) (能做多少做多少)
1.求数列
X(n)=1+1/(2^3)+1/(3^3)...+1/(n^3)的极限,当|X(n)-X(n+1)

花了近一个小时,终于做了,第六题不会数学就没做,辛苦死了!
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

mathematica 题 (200分) (能做多少做多少) 能做多少算多少。 7,9,10题.能做多少做多少. 3大题,能做多少做多少, 小学语文填空的题. 能做多少做多少. 4、5、6、7题,能做多少做多少, 能做多少做多少能做多少做多少, 能做多少就做多少～能做多少做多少能做多少做多少吧. 英语习题,能做多少做多少.