请问如何令多张3D图边缘对齐且相接地排列？ - mathematica吧

level 6

光的暗礁楼主

如下图，令4张3D图照此顺序排列，且零平面相接。
用GraphicsGrid排列空白太大了零平面也不相连，用show直接在同一坐标上重叠了。

谢谢解答！

2023年11月29日 09点11分 1

level 6

光的暗礁楼主

函数代码：
W1 = 1/Sin[x] + 1/Cos[y]; W2 = 1/Sin[x] - 1/Cos[y]; W3 =
1/Sin[y] - 1/Cos[x]; W4 = 1/Sin[y] + 1/Cos[x];
F1 = Plot3D[W1, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> All,
Boxed -> False, Axes -> None];
F2 = Plot3D[W2, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> All,
Boxed -> False, Axes -> None];
F3 = Plot3D[W3, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> All,
Boxed -> False, Axes -> None];
F4 = Plot3D[W4, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotRange -> All,
Boxed -> False, Axes -> None];

2023年11月29日 09点11分 2

level 5

梁东林00

GraphicsGrid[{{F1, F2, F3, F4}}]

2023年11月29日 12点11分 3

光的暗礁

这样不对。首先顺序改变了，其次这个语句并没有使零平面相接，空白依旧会存在。

2023年11月29日 12点11分

光的暗礁

{{F1, F2}, {F3, F4}}就是为了使F1,F2在第一行，F3,F4在第二行。

2023年11月29日 12点11分

level 6

光的暗礁楼主

想达到如下的排列效果，零平面相连。

2023年11月29日 12点11分 4

level 8

qflwq

想到个邪招
W1[x_, y_] := 1/Sin[x] + 1/Cos[y]; W2[x_, y_] := 1/Sin[x] - 1/Cos[y];
W3[x_, y_] := 1/Sin[y] - 1/Cos[x]; W4[x_, y_] := 1/Sin[y] + 1/Cos[x];
F1 = Plot3D[W1[x + \[Pi], y - \[Pi]], {x, -2 Pi, 0}, {y, 0, 2 Pi},
PlotRange -> All, Boxed -> False, Axes -> None];
F2 = Plot3D[W2[x - \[Pi], y - \[Pi]], {x, 0, 2 Pi}, {y, 0, 2 Pi},
PlotRange -> All, Boxed -> False, Axes -> None];
F3 = Plot3D[W3[x + \[Pi], y + \[Pi]], {x, -2 Pi, 0}, {y, -2 Pi, 0},
PlotRange -> All, Boxed -> False, Axes -> None];
F4 = Plot3D[W4[x - \[Pi], y + \[Pi]], {x, 0, 2 Pi}, {y, -2 Pi, 0},
PlotRange -> All, Boxed -> False, Axes -> None];
Show[F1, F2, F3, F4]