实验8画出由旋转抛物面z=x+y2与上半球面=1+、-x2-y5相交所图成的几 何体的图形 程序 1=ParametricPlot3Dr*Cos[t], r"Sin[t), r2,t,, 2 P1,r, 0, 1) PlotPoints->301 g2=ParametricPlot3D Cos[t]Sin(r),sin(t]*Sin[r], cos[r]+1),(t,0, 2Pi), r, 0, P1/2) PlotPoints->301 Showel, g2]实验8 画出由旋转抛物面 与上半球面 相交所围成的几 何体的图形 程序： g1=ParametricPlot3D[{r*Cos[t],r*Sin[t],r^2},{t,0,2 Pi},{r,0,1}, PlotPoints->30]; g2=ParametricPlot3D[{Cos[t]*Sin[r],Sin[t]*Sin[r],Cos[r]+1},{t,0,2*Pi},{r,0,Pi/2}, PlotPoints->30]; Show[g1,g2];