算命用琥珀水晶球

最新推荐文章于 2024-04-23 17:28:26 发布

stereohomology

最新推荐文章于 2024-04-23 17:28:26 发布

阅读量447

点赞数

分类专栏：学习学习

本文链接：https://blog.csdn.net/stereohomology/article/details/75639446

版权

学习学习专栏收录该内容

670 篇文章 14 订阅

订阅专栏

h = DensityPlot3D[
  Sin[x] Cos[y] Sin[z], {x, y, z} \[Element] Ball[{0, 0, 0}, 5], 
  PlotTheme -> "Classic", ColorFunction -> "Rainbow", Boxed -> False, 
  Axes -> False, PlotPoints -> 100]

rotateMeHarder1[g_, vertical_, viewpoint0_, center_List: {0, 0, 0}, 
  nframes_Integer: 15, opts : OptionsPattern[]] := 
 Module[{grlist}, 
  grlist = Table[Show[g, ViewVertical -> vertical,ViewVector -> {RotationMatrix[2 Pi/nframes i, vertical].(viewpoint0 - center) + center, center}, SphericalRegion -> True, opts], {i, 0, nframes - 1}]]

h01list = 
 rotateMeHarder1[h, {0, 0, 1}, {8, 8, 8}, {0, 0, 0}, 50, 
  ViewAngle -> 50 Degree]

Export["amber-crystallBall.gif", h01list, "TransparentColor" -> White, 
 "TransitionEffect" -> "Background", "DisplayDurations" -> 0.1, 
 "AnimationRepetitions" -> Infinity]

ListAnimate@h01list