Clear["Global`*"];
SetOptions[ParametricPlot3D, Axes -> False, Boxed -> False,
PlotRange -> All];
fy[x_] := Sqrt[1 - (x^2/4)];
latas = ParametricPlot3D[{t, fy[t], s}, {t, -2, 2}, {s, 0, .5},
PlotPoints -> 50];
latai = ParametricPlot3D[{t, -fy[t], s}, {t, -2, 2}, {s, 0, .5},
PlotPoints -> 50];
latab = ParametricPlot3D[{t, s, 0}, {t, -2, 2}, {s, -fy[t], fy[t]},
PlotPoints -> 50];
Show[{latai, latas, latab}]
David G. Stork
- 42.3k
- 3
- 37
- 106