ParametricPlot3D[{(1 - Power[2/Pi z, (3)^-1])
Cos[t] + (2/Pi z)^1, (1 - Power[2/Pi z, (3)^-1]) Sin[t],
1 Sin[z]}, {t, -Pi, Pi}, {z, 0, Pi/2}, Axes -> None, Boxed -> False,
PlotRange -> All]
比楼上的好一点。其实就改些参数。
版权及免责声明
1、欢迎转载本网原创文章，转载敬请注明出处：侨谊留学（www.goesnet.org）；
2、本网转载媒体稿件旨在传播更多有益信息，并不代表同意该观点，本网不承担稿件侵权行为的连带责任；
3、在本网博客/论坛发表言论者，文责自负。
