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

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

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

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

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

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

全部展开

e＝1＋1/2!＋1/3!＋……直至无穷。
“自然律”是e 及由e经过一定变换和复合的形式。e是“自然律”的精髓，在数学上它是函数：
(1+1/x)^x
当X趋近无穷时的极限。
人们在研究一些实际问题，如物体的冷却、细胞的繁殖、放射性元素的衰变时，都要研究
(1+1/x)^x
X的X次方，当X趋近无穷时的极限。正是这种从无限变化中获得的有限，从两个相反方向发展（当X趋向正无穷大的时，上式的极限等于e=2.71828……，当X趋向负无穷大时候，上式的结果也等于e=2.71828……）得来的共同形式，充分体现了宇宙的形成、发展及衰亡的最本质的东西。有一个数列可以精确等于e，就是e＝1＋1/2!＋1/3!＋……直至无穷。已知n次根号下a>n次根号下b n为奇数 比较a^与b^大小 syms a t
x=a*(t-sin(t));
y=a*(1-cos(t));
dx=diff(x,'t')
Area=int(y*dx,'t',0,2*pi)
结果：
dx =a*(1-cos(t))
Area =3*pi*a^2

收起

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