求教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 - 16Solve[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[%, %%]

问题描述:

求教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[%, %%]

你到底是要问啥呢?如果你的问题是你注解里的那句话,那么,“/.”是个指令,名为ReplaceAll,Solve产生的是一个Rule(也就是由箭头“->”连接的东西)吧,这个和ReplaceAll连用,可以将前面式子里的相应量替换,在这里就是...