Question

用mathematica画出一个火炬（或冰淇淋）,并计算其体积.

Answer 1

给你一个冰激凌别客气

t1 = ParametricPlot3D[{u*Cos[v], u*Sin[v],

3 - u + 2 Sin[u^2]/u^2}, {v, 0, 2 Pi}, {u, 0, 4}];

t2 = ParametricPlot3D[{u*Cos[v], u*Sin[v], -13 + 3 u}, {v, 0,

2 Pi}, {u, 0, 4}];

Show[t1, t2, PlotRange -> {-14, 5}]