mathematica 画出部分球面图形的有关代码

S球冠面积=2πR h
S球面面积=2πR 2 R
1) 画出3/4球面
3/4球面,对应的v = 5/6 π
ParametricPlot3D[{Sin[v]*Cos[u],Sin[v]*Sin[u],Cos[v]},{v,0,5/6 Pi},{u,0,2*Pi}]
2)画出上半球面的3/4部分
上半球面的3/4部分,对应的v = 1.31812
ParametricPlot3D[{Sin[v]*Cos[u],Sin[v]*Sin[u],Cos[v]},{v,0,1.31812},{u,0,2*Pi}]