模仿细胞的分裂--彩图,动态

stereohomology

已于 2023-07-05 08:54:51 修改

阅读量1.9k

点赞数

分类专栏：学习学习文章标签：可视化 domain coloring complex

于 2014-09-14 13:16:16 首次发布

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

版权

学习学习专栏收录该内容

670 篇文章 14 订阅

订阅专栏

发现一个数学过程可视化之后,跟细胞分裂很像;

ClearAll["Global`*"];
complexGrid = 
  Compile[{{max, _Real}, {n, _Integer}}, 
   Module[{r}, r = Range[-max, max, 2 max/(n - 1)];
    Outer[Plus, -I r, r]]];

complexHSB = 
  Compile[{{Z, _Complex, 2}}, 
   Module[{h, s, b, b2}, h = 0.5 + Arg[Z]/(2 Pi);
    s = Abs[Sin[2 Pi Abs[Z]]];
    b = Abs[Sin[2 Pi Im[Z]] Sin[2 Pi Re[Z]]]^0.25;
    b2 = 0.5 ((1 - s) + b + Sqrt[(1 - s - b)^2 + 0.01]);
    Transpose[{h, Sqrt[s], b2}, {3, 1, 2}]]];

domainImage[func_, max_: 2 Pi, n_: 700] := 
  ImageResize[
   ColorConvert[
    Image[complexHSB@func@complexGrid[max, 2 n], ColorSpace -> "HSB"],
     "RGB"], n];

domainPlot[func_, max_: Pi, n_: 500] := 
  ContourPlot[0, {x, -max, max}, {y, -max, max}, Contours -> {}, 
   RotateLabel -> False, 
   FrameLabel -> {"Re[z]", "Im[z]", 
     "Domain Colouring of " <> ToString@StandardForm@func@"z"}, 
   BaseStyle -> {FontFamily -> "Calibri", 14}, 
   Epilog -> 
    Inset[domainImage[func, max, n], {0, 0}, {Center, Center}, 
     2` max]];

list = Table[
   Manipulate[
    domainImage[(2 I)/(c - I #^2) &, Pi, 300], {{c, k}, 0, 5}], {k, 0,
     5, 0.1}];
Export["testDomainAgain.gif", list, "BackgroundColor" -> White, 
 "TransitionEffect" -> Background]