playing along with Elias Wegert in R:

X <- matrix(1:100,100,100)                  #grid
X <- X * complex(imaginary=.05) + t(X)/20    #twist & shout
X <- X - complex(real=2.5,imaginary=2.5)     #recentre
plot(X, col=hcl(h=55*Arg(sin(X)), c=Mod(sin(X))*40 ) ,        pch=46, cex=6)

Found it was useful to define these few functions:

arg <- function(z) (Arg(z)+pi)/2/pi*360     #for HCL colour input
ring <- function(C) C[.8 < Mod(C) &   Mod(C) < 1.2]        #focus on the unit circle
lev <- function(x) ceiling(log(x)) - log(x)
m <- function(z) lev(Mod(z))
plat <- function(domain, FUN) plot( domain, col= hcl( h=arg(FUN(domain)), l=70+m(domain)), pch=46, cex=1.5, main=substitute(FUN) )           #say it directly

NB, hcl's hue[0,360] so phase or arg needs to be matched to that.







201 notes

  1. chvaka reblogged this from isomorphismes
  2. analprolapso reblogged this from pwnparty
  3. pwnparty reblogged this from tetraghost
  4. zelig5000 reblogged this from cellular-automaton
  5. enki2 reblogged this from visualizingmath
  6. insecureliquor reblogged this from declanlangan
  7. curiositybender reblogged this from visualizingmath and added:
    Cool playground for hue.
  8. dannyrock2me reblogged this from visualizingmath
  9. yupmmhmmok13 reblogged this from visualizingmath
  10. persephone977 reblogged this from visualizingmath
  11. frankdeath reblogged this from visualizingmath
  12. selfhelpforthefuture reblogged this from visualizingmath
  13. artyougladididart reblogged this from iams3ason
  14. morphississ reblogged this from visualizingmath
  15. balancingshitonmyhead reblogged this from visualizingmath