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 p4stel-g0t-h
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