求教mathematica大神想把z=Sqrt[16-x^2-y^2]与z=x^2+y^2-16作在同一坐标系内Clea
求教mathematica大神
想把z=Sqrt[16-x^2-y^2]与z=x^2+y^2-16作在同一坐标系内
Clear[x, y, z, t, r, a, b]
x[r_, t_] := r Cos[t]
y[r_, t_] := r Sin[t]
z1[r_, t_] := Sqrt[16 - r^2]
z2[r_, t_] := r^2 - 16
Solve[z1[r, t] == z2[r, t], r]
r0 = r /. %[[2, 1]] (*这句什么意思,不懂,在书上看的*)
ParametricPlot3D[{ x[r, t], y[r, t], z1[r, t]}, {t, 0, 2 Pi}, {r, 0, r0}]
ParametricPlot3D[{ x[r, t], y[r, t], z2[r, t]}, {t, 0, 2 Pi}, {r, 0, r0}]
Show[%, %%]