画一只超载鸡咩～ =￣ω￣=

jandan.m

ζ[x_] := (1 - x/10) Sqrt[1 - Abs[x^3]];
η[x_] := (1 - x/10) Sqrt[1 - Abs[x^2]];
Show[
  ParametricPlot3D[{{4/5 ζ[v] Cos[u], 4/5 ζ[v] Sin[u], v},
    {24/25 η[v] Cos[u], 1/2 η[-2 v] Sin[u],v - 1/6}},
    {u, 0, 2 π}, {v, -1, 1},
    PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1.2}}, Mesh -> None, 
    PlotStyle -> Directive[Yellow, Specularity[White, 20]]],
    
  Graphics3D[
    {
      Red, Specularity[White, 10], Cone[{{0, 0.5, 0.2}, {0, 1, 0.2}}, 0.2],
      Black, Specularity[White, 10], Ball[{{0.25, 0.7, 0.4}, {-0.25, 0.7, 0.4}}, 0.05]
    }],
      
  RegionPlot3D[z <= 0.15 Exp[-10 (y + 1/7)^2] Sin[30 y] + 1.1,
    {x, -0.05, 0.05}, {y, -0.4, 0.35}, {z, 0.5, 1.2}, Mesh -> None, PlotStyle -> Red]
]