如何用网格绘制这样的球体

Question

我想用这样的网格重新创建一个球，前后使用不同的样式。

我试着用网格着色，但网格线看起来太粗了，我可以把网格画得更小吗？

n=40；参数图3D[{Sin[u]Cos[v]，Sin[u]Sin[v]，PlotStyle->指令[FaceForm[Cyan，Gray]]，网格样式->无，网格着色->{{自动，自动}，{无，自动}}，网格->{范围[0.，Pi，Pi/n]，休息@范围[0.，2 Pi，2 Pi/n]}，方框->假，轴->假，图像大小->大]

Answer 1

jj=扁平@桌子[{i，i+.03}，{i，0，\[Pi]，\[Pi]/50}]；kk=扁平@桌子[{i，i+.1}，{i，0，2\[Pi]，2\[Pi]/50}]；ParametricPlot3D[｛Sin[u]Cos[v]，Sin[u]Sin[v]，Cos[u]}，｛u，0，Pi}，{v，0，2 Pi}、PlotStyle->指令[FaceForm[Cyan，Gray]]，网格样式->无，网格着色->{{自动，自动}，{无，自动}}，网格->{jj，kk}，方框->假，轴->假，图像大小->大]

Answer 2

• 除此之外网格方法，这里我们提供了一种区域方法。
• 我们在参数中构造了一些孔{u，v}域。d日是皮带的厚度（顶部、底部、左侧和右侧的厚度为第二天)
• 0<d<最小值[（xmax-xmin）/m，（ymax-ymin）/n]。

清除[“全局`*”]；{{xmin，xmax}，{ymin，ymax}}={{0，π}，}；{m，n}={19，17}；d=.3分钟[（xmax-xmin）/m，（ymax-ymin）/n]；x=（xmax-xmin）/m-d；y=（ymax-ymin）/n-d；datax=累计@平展@连接[{xmin，d/2}，表[{x，d}，m-1]，{x，d/2}]；regx=网格区域[List/@datax，行/@分区[范围[2]，长度@datax], 2, 2]];datay=累计@平展@连接[｛ymin，d/2｝，表[｛y，d｝，n-1]，｛y，d/2｝]；regy=网格区域[List/@datay，行/@分区[范围[2]，长度@datay], 2, 2]];矩形=边界离散区域[矩形[{xmin，ymin}，{xmax，ymax}]]；reg=区域差异[矩形，区域产品[regx，regy]]

参数图3D[{Sin[u]Cos[v]，Sin[u]Sin[v]、Cos[u]}，{u，v}∈reg，PlotStyle->Directive[FaceForm[青色，灰色]]，Mesh->无，方框->假，轴->假，图像大小->大，绘图范围->全部]

• 这个数据x,数据可以设置为网格。

参数图3D[{Sin[u]Cos[v]，Sin[u]Sin[v]、Cos[u]}，{u，xmin，xmax}，{v，ymin，ymax}，PlotStyle->指令[FaceForm[Cyan，Gray]]，网格->{datax，datay}，网格样式->无，网格着色->{{无，自动}，{自动，自动}}，方框->假，轴->假，图像大小->大，绘图范围->全部]

• 通过@eldo测试示例

清除[“全局`*”]；{{xmin，xmax}，{ymin，ymax}}={{-2，2}，}-2，}}；{m，n}={19，17}；d=.3分钟[（xmax-xmin）/m，（ymax-ymin）/n]；x=（xmax-xmin）/m-d；y=（ymax-ymin）/n-d；datax=累加@平展@连接[{xmin，d/2}，表[{x，d}，m-1]，{x，d/2}]；regx=网格区域[List/@datax，行/@分区[范围[2]，长度@datax], 2, 2]];datay=累计@平展@连接[{ymin，d/2}，表[{y，d}，n-1]，{y，d/2}]；regy=网格区域[List/@datay，线/@分区[Range[2，长度@datay], 2, 2]];矩形=边界离散区域[矩形[{xmin，ymin}，{xmax，ymax}]]；reg=区域差异[矩形，区域产品[regx，regy]]enneper={u-（u^3/3）+uv^2，v-（v^3/3，u^2-v^2}；plot1=ParametricPlot3D[enneper，{u，v}\[Element]reg，ImageSize（图像大小）->Large（大），Lighting（照明）->“ThreePoint”（三点），Mesh（网格）->None（无），绘图点->64，PlotStyle->指令[FaceForm[Red，较深@绿色]]]; plot2=参数图3D[enneper，{u，-2，2}，{v，-2，2]，ImageSize->Large，照明->“ThreePoint”，网格样式->无，网格着色->{{无，自动}，{自动，自动}}，网格->{datax，datay}，绘图点->64，PlotStyle->指令[FaceForm[Red，较深@绿色]]];{绘图1，绘图2}

Answer 3

使用kglr的答案杰纳的花

网格带的宽度

w=1/3；

网格带数

n=25；

网格=重新缩放[#，MinMax@#，｛0，2 Pi｝]&@累加[Flatten@ConstantArray[{1，w}，n]]；参数化三维绘图[{正弦[u]余弦[v]，正弦[u]正弦[v]、余弦[u]}，{u，0，Pi}，{v，0，2Pi}，框选->假，轴->假，网格样式->无，网格着色->{{自动，自动}，{无，自动}}，网格->{Mesh，Rest@Mesh}，图像大小->大，PlotStyle->指令[FaceForm[Cyan，Gray]]]

w=1/10；n=5；网格=重缩放[#，最小最大@#，{0，2 Pi}]&@累加[Flatten@ConstantArray[{1，w}，n]]；参数化三维绘图[{Sin[u]Cos[v]，Sin[u]Sin[v]，Cos[u]}，{u，0，Pi}，{v，0，2Pi}，框选->假，轴->假，照明->“ThreePoint”，网格样式->无，网格着色->{{自动，自动}，{无，自动}}，网格->{Mesh，Rest@Mesh}，图像大小->大，绘图点->64，PlotStyle->指令[FaceForm[Darker@Red，Yellow]]

网格也适用于更复杂的曲面，其中普通网格指令会产生粗糙的边界。

enneper={u-（u^3/3）+uv^2，v-（v^3/3”）+u^2v，u^2-v^2}；网格=重缩放[#，最小最大@#，{-2，2}]&@累加[Flatten@ConstantArray[{1，1/2}，15]]；参数图3D[enneper，{u，-2，2}，{v，-2，2]，图像大小->大，照明->“ThreePoint”，网格样式->无，网格着色->｛｛自动，自动｝，｛无，自动｝｝，网格->{Mesh，Rest@Mesh}，绘图点->64，PlotStyle->指令[FaceForm[Red，Darker@Green]]]