User Portlet
| Discussions |
|---|
| Thank you. I find this way. Improve it plz!! a = ParametricPlot3D[{t, 1/2 (-1 + Abs[t] - Sqrt[1 - t^2]), v}, {t, -1, 1}, {v, 0, 3 + 1/2 (1 - Abs[t] - Sqrt[1 - t^2])}, PlotTheme -> "ThickSurface"] b = ParametricPlot3D[{ t,... |