请用Mathematica制作椭球面的图形;

基于椭球面，改变椭球面的参数系数,制作10个形态各异的拓展图形 急急急急！@！！！！！！

参照我在前面的回答，
http://zhidao.baidu.com/question/115670757.html?si=6

下面专门给你写了个函数，一次性画出10个不同的随机椭球形。由于是随机的，每次生成的一组10个椭球都不一样。

f[a_, b_, c_] :=
ParametricPlot3D[{a*Sin[x1]Cos[x2], b*Sin[x1]Sin[x2], c*
Cos[x1]}, {x1, 0, Pi}, {x2, 0, 2 Pi}];
Table[{a, b, c} = {Random[Real, {0, 1}], Random[Real, {0, 1}], Random[Real, {
0, 1}]}; f[a, b, c], {i, 1, 10}]

直接复制粘贴运行。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/ff2v8f7m7.html