小工具

最新推荐文章于 2022-08-15 16:49:55 发布

Happy画板

最新推荐文章于 2022-08-15 16:49:55 发布

阅读量200

点赞数

分类专栏： Mathematica 文章标签： MMA

本文链接：https://blog.csdn.net/qq_34040902/article/details/77434371

版权

Mathematica 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

b =;
img = ImageResize[b, 500]
(*img=Rasterize["无滑动\n \
纯滚动",RasterSize\[Rule]600,ImageSize\[Rule]{500,365}]*)
a = ImageAdd[img, 
  RadialGradientImage[{Blue, Red, Darker@Green, Green, Blue}, 
   ImageDimensions[img]]]
Export["C:\\Users\\Administrator\\Desktop\\a.gif", {a, a, a, a, a}]

b = Show[SphericalPlot3D[1.25, {\[Theta], 0, Pi}, {\[Phi], 0, 2 Pi}, 
   RegionFunction -> PolyhedronData["Dodecahedron", "RegionFunction"],
    Mesh -> None, PlotRange -> All, Axes -> False], 
  Graphics3D[{Opacity[0.5], 
    PolyhedronData["Dodecahedron", "GraphicsComplex"]}]]

Export["C:\\Users\\Administrator\\Desktop\\a.gif", 
 Table[Show[b, ImageSize -> 360, Mesh -> None, Boxed -> False, 
   Axes -> False, 
   ViewPoint -> 
    3 {Sin[Pi t] Cos[2 Pi t], Sin[Pi t] Sin[2 Pi t], Cos[Pi t]}, 
   SphericalRegion -> True], {t, 0, 2 Pi, 2 Pi/100}], 
 "AnimationRepetitions" -> Infinity, "DisplayDurations" -> 0.2]