UC知道mathematica 题 求解 (200分) (能做多少做多少)
来源：百度知道 编辑：UC知道 时间：2024/09/21 15:32:24
求高手 急需!!!
1. 求数列
X(n)=1+1/(2^3)+1/(3^3)...+1/(n^3)的极限，当|X(n)-X(n+1)<10^(-5)时停止。
2. 求数列
X(1)=2,X(n)=根号下(2+根号下(X(n-1)))的极限，画出函数列散点图。
3. 定义函数计算
x(t)=a(cost)^3,y(t)=a(sint)^3 所围区域的面积。
4. 定义函数f(x)，输出矩阵f(5)形式为:
* * * * *
* 0 0 0 *
* 0 * 0 *
* 0 0 0 *
* * * * *
其中x为奇数。
5．定义函数g(k),输出矩阵g(5)的形式：
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
6．图示说明行列式性质：
在二维空间中,det(a,b)=det(a+cb,b)
7．动态演示马鞍面由直纹面的生成过程。附马鞍面由直纹面生成命令。
Graphics3D[Prepend[Table[Line[{{(t-2)/2,(t+2)/2,-2t},{(t+2)/2,(t-2)/2,2t}}],{t,-2,2,0.05}],Red],PlotRange{{-1,1},{-1,1},{-1,1}},BoxedFalse]
能做多少做多少 谢谢!!!
1. 求数列
X(n)=1+1/(2^3)+1/(3^3)...+1/(n^3)的极限，当|X(n)-X(n+1)<10^(-5)时停止。
2. 求数列
X(1)=2,X(n)=根号下(2+根号下(X(n-1)))的极限，画出函数列散点图。
3. 定义函数计算
x(t)=a(cost)^3,y(t)=a(sint)^3 所围区域的面积。
4. 定义函数f(x)，输出矩阵f(5)形式为:
* * * * *
* 0 0 0 *
* 0 * 0 *
* 0 0 0 *
* * * * *
其中x为奇数。
5．定义函数g(k),输出矩阵g(5)的形式：
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9
6．图示说明行列式性质：
在二维空间中,det(a,b)=det(a+cb,b)
7．动态演示马鞍面由直纹面的生成过程。附马鞍面由直纹面生成命令。
Graphics3D[Prepend[Table[Line[{{(t-2)/2,(t+2)/2,-2t},{(t+2)/2,(t-2)/2,2t}}],{t,-2,2,0.05}],Red],PlotRange{{-1,1},{-1,1},{-1,1}},BoxedFalse]
能做多少做多少 谢谢!!!
花了近一个小时,终于做了,第六题不会数学就没做,辛苦死了!!!!!
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