【求助】mma 画圆盘面的网格画出来少一根线求解答 - mathematica吧

level 3

莫斯科饱胃战😫 楼主

2020年03月01日 14点03分 1

level 3

莫斯科饱胃战😫 楼主

Sur4 = ParametricPlot3D[{x4, y4, z4}, {\[Xi]4, (\[Lambda]a \[Eta])/(
1 - \[Eta]), \[Lambda]b/(1 - \[Eta])}, {\[Theta]4, 0, 2 \[Pi]},
Boxed -> False, Axes -> {False, False, False},
PlotStyle -> Lighter[Cyan], Mesh -> {20, 80},
MeshStyle -> {{Opacity[1]}, {Opacity[1]}},
ImageSize -> {300, 300}];

2020年03月01日 14点03分 2

吧务

level 10

asdasd1dsadsa

你试着把theta范围调大过吗
话说代码要贴全啊……

2020年03月01日 15点03分 3

莫斯科饱胃战😫

绘图部分全部代码贴在下面了

2020年03月01日 15点03分

level 3

莫斯科饱胃战😫 楼主

zz4 = 0;
UUr4 = 0; UU\[Theta]4 = u\[Theta]fit[\[Xi]4]; UUz4 = 0;
ur4 = H UUr4 Cos[nn \[Pi] zz4/length]; u\[Theta]4 =
H UU\[Theta]4 Cos[nn \[Pi] zz4/length]; uz4 =
H UUz4 Sin[nn \[Pi] zz4/length];
\[Theta]\[Theta]4 = \[Theta]4 + u\[Theta]4/(H \[Xi]4);
x4 = (H \[Xi]4 + ur4 ) Cos[\[Theta]\[Theta]4]; y4 = (H \[Xi]4 +
ur4) Sin[\[Theta]\[Theta]4]; z4 = zz4 + uz4;
Sur4 = ParametricPlot3D[{x4, y4, z4}, {\[Xi]4, (\[Lambda]a \[Eta])/(
1 - \[Eta]), \[Lambda]b/(1 - \[Eta])}, {\[Theta]4, 0, 2 \[Pi]},
Boxed -> False, Axes -> {False, False, False},
PlotStyle -> Lighter[Cyan], Mesh -> {10, 80},
MeshStyle -> {{Opacity[1]}, {Opacity[1]}},
ImageSize -> {300, 300}]; Show[Sur4, PlotRange -> All]

2020年03月01日 15点03分 4