Return to Answer

My first time

Source Link

edit approved Mar 17, 2015 at 0:46

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}]

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}]

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}]

Source Link

created Mar 16, 2015 at 23:23

David G. Stork

42.3k
3
37
106

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}]