Quantcast

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.







198 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 dclnlngn
  7. dclnlngn reblogged this from purplebugjuice
  8. curiositybender reblogged this from visualizingmath and added:
    Cool playground for hue.
  9. dannyrock2me reblogged this from visualizingmath
  10. yupmmhmmok13 reblogged this from visualizingmath
  11. persephone977 reblogged this from visualizingmath
  12. frankdeath reblogged this from visualizingmath
  13. selfhelpforthefuture reblogged this from visualizingmath
  14. artyougladididart reblogged this from iams3ason
  15. morphississ reblogged this from visualizingmath
  16. balancingshitonmyhead reblogged this from visualizingmath
  17. duckhop reblogged this from visualizingmath