Mathematica绘制冰激凌与蜡烛

  • A+
所属分类:数学与生活
摘要这一篇文章收集了两段代码,一段是使用mathematica绘制冰激凌,另一段是使用mathematica绘制蜡烛。

看到一个很有一个的代码,使用Mathematica绘制冰激凌和蜡烛,把他收集在这里。

绘制冰激凌

Graphics3D[{
  {Lighter[Brown], Cone[{{0, 0, 0}, {0, 0, -1}}, .25]},
  {Yellow, Sphere[{0, 0, .1}, .25]},
  {Pink, Sphere[{.15, 0, .2}, .26]},
  {Orange, Sphere[{-.1, 0, .25}, .25]}
  }, Boxed -> False]

绘制蜡烛

Candle[color_, Pos_] := {color, 
  Cylinder[{Pos, Pos + {0, 0, 0.1}}, 0.013], Black, Thick, 
  Line[{Pos + {0, 0, 0.1}, Pos + {0, 0, 0.12}}], Yellow, 
  EdgeForm[None], Sphere[Pos + {0, 0, 0.12}, 0.013], 
  Cone[{Pos + {0, 0, 0.121}, Pos + {0, 0, 0.16}}, 0.0127]}
Graphics3D[Candle[Red, {0, 0, 0}], Boxed -> False]

参考地址

How do you show a cone inside of a sphere?

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: