Message Boards Message Boards

GROUPS:

Nice visualisations of complex functions similar to ComplexPlot

Posted 9 months ago
567 Views
|
0 Replies
|
2 Total Likes
|

First example:

Image[
 With[{s = N[2 Pi], r = N[Range[-4, 4, 8/299]]}, 
  Map[{Arg[#]/s, 
     1, (# Conjugate[#])^0.33 &[Times @@ Sin[s ReIm[#]]]} &, 
   Mod[#/LogGamma[Abs[#]^-10.5] (1 + I Sin[s/2 Abs[#]]), 2] &[
    Outer[Complex, r, r]], {2}]], ColorSpace -> "HSB"]

Here's the result:

enter image description here

Second example:

Image[
 With[{s = N[2 Pi], r = N[Range[4/3, -4/3, -8/1497]]}, 
  Map[{Arg[#]/s, 
     1, (# Conjugate[#])^0.33 &[Times @@ Sin[s ReIm[#]]]} &, 
   Mod[Log[(1 + Abs[#])/(1 - Abs[#])]^0.25 # (-0.5 + I 0.1 Abs[#]), 
      2] &[Outer[Complex, r, r]], {2}]], ColorSpace -> "HSB"]

Here's the result:

enter image description here

Sugesstion for Mathematica 13:

ComplexPlot could have the option ColorFunction -> "CyclicReIm" additionaly to the existing ColorFunction -> "CyclicReImLogAbs", then these above functions could be expressed directly in ComplexPlot.

Some more functions generated with the code above (coffee beans?):

enter image description here

somehow hypnotic:

enter image description here

and even more whisked:

enter image description here

and simple again:

enter image description here

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract