UC知道那位大哥会弄mathematic2软件啊！！帮帮忙，急救啊！
来源：百度知道 编辑：UC知道 时间：2024/06/27 14:31:57
(1) 请用Mathematica制作椭球面的图形;
(2) 基于椭球面，改变椭球面的参数系数,制作10个形态各异的拓展图形。
例如（仅供参考）
第一组：
ParametricPlot3D[{Sin[u]Cos[k*v],Sin[u]Sin[v],Cos[u]},{u,0,Pi},{v,0,2Pi}]
第二组：
ParametricPlot3D[{Sin[u]Cos[v],Sin[u]Sin[p*v],Cos[u]},{u,0,Pi},{v,0,2Pi}]
第三组：
ParametricPlot3D[{Sin[u]Cos[k*v],Sin[u]Sin[v],Cos[q*]},{u,0,Pi},{v,0,2Pi}]
二、请完成下面两项工作：
（1）用Mathematica制作由 定义的曲面的图形。
（2）基于上面的图形，改变其参数系数制作10个形态各异的拓展图形。
三、请用Mathematica制作由 所表示的曲线的图形，并观察当 值变化时，曲线的变化。
四、已知 ，给出 的20次麦克老林多项式
要求：（1）写出的Mathematica程序，展示运行结果；
（2）在同一坐标系中绘制 及其20次麦克老林多项式的图形以示比较。
五、一个筒仓 由 平面上的半径为3的直圆柱与半径为5的球面构成，
计算 的体积 。
要求： (1) 做出 的图形
(2) 写出计算 体积的Mathematica程序;
(3) 求出 的值。
那问厉害点的人帮忙看看啊 ！！看能做出来吗！！！小弟我在这非常感谢啊！！
(2) 基于椭球面，改变椭球面的参数系数,制作10个形态各异的拓展图形。
例如（仅供参考）
第一组：
ParametricPlot3D[{Sin[u]Cos[k*v],Sin[u]Sin[v],Cos[u]},{u,0,Pi},{v,0,2Pi}]
第二组：
ParametricPlot3D[{Sin[u]Cos[v],Sin[u]Sin[p*v],Cos[u]},{u,0,Pi},{v,0,2Pi}]
第三组：
ParametricPlot3D[{Sin[u]Cos[k*v],Sin[u]Sin[v],Cos[q*]},{u,0,Pi},{v,0,2Pi}]
二、请完成下面两项工作：
（1）用Mathematica制作由 定义的曲面的图形。
（2）基于上面的图形，改变其参数系数制作10个形态各异的拓展图形。
三、请用Mathematica制作由 所表示的曲线的图形，并观察当 值变化时，曲线的变化。
四、已知 ，给出 的20次麦克老林多项式
要求：（1）写出的Mathematica程序，展示运行结果；
（2）在同一坐标系中绘制 及其20次麦克老林多项式的图形以示比较。
五、一个筒仓 由 平面上的半径为3的直圆柱与半径为5的球面构成，
计算 的体积 。
要求： (1) 做出 的图形
(2) 写出计算 体积的Mathematica程序;
(3) 求出 的值。
那问厉害点的人帮忙看看啊 ！！看能做出来吗！！！小弟我在这非常感谢啊！！
第一道题我在这儿回答了，
http://zhidao.baidu.com/question/115631898.html?si=7
第二、三、四道题看不到公式。
第五道题，第一问：
fig1 := ParametricPlot3D[{3 Cos[Theta], 3 Sin[Theta], z}, {Theta, 0, 2 Pi}, {
z, 0, 3}];
fig2 := ParametricPlot3D[{
r Cos[Theta], r Sin[Theta], 0}, {Theta, 0, 2 Pi}, {r, 0, 3}];
fig3 := ParametricPlot3D[{r Cos[Theta], r Sin[Theta], 3}, {Theta, 0, 2 Pi}, {
r, 0, 3}];
fig4 := ParametricPlot3D[{3*Sin[x1]Cos[x2], 3*Sin[x1]Sin[x2],
3*Cos[x1] + 6}, {x1, 0, Pi}, {x2, 0, 2 Pi}];
Show[fig1, fig2, fig3, fig4]
第二问：
\!\(\(V[h_, r1_, r2_] := Pi*r1\^2*h + 4\/3*Pi*r2\^2;\)\)
(在这儿显示是乱码，拷贝到Mathematica里将显示正常公式)
其中hr、r1、r2分别代表圆柱的高，圆柱半径，圆的半径。
运行一下程序会记住定义式，但是不会有任何输出结果。
第三问
运行过第二问的式子之后直接代入数计算就是了。比如