a = 1
b = 1.2
p=0.15
q=0.08
R = a*(1-Sin[t])
x = R * E^(-p*(t-Pi/2)^2)*Cos[t]
y = R *E^(-q*(t-Pi/2)^2)* Sin[t]
Show[{
ParametricPlot3D[{x*Cos[u],y,x*Sin[u]},{t,-Pi/2,3/2*Pi},{u,0,2Pi}, PlotStyle -> Red],
ParametricPlot3D[{1.4Cos[v],-0.69+0.05Cos[50*v],1.4Sin[v]},{v,0,2Pi},PlotStyle -> Orange],
ParametricPlot3D[{u*1.1Cos[v],-1,u*1.1Sin[v]},{u,0,1.2},{v,0,2Pi}],
ParametricPlot3D[{u*1.2Cos[v],2.5u-3.7,u*1.2Sin[v]},{u,1.05,1.2},{v,0,2Pi}]},
PlotRange -> All,
AxesOrigin -> {0, 0,0}]
(프로그램 언어: 매스매티카)
제가 직접 짠 애플파이입니다^^