Sound.SC3.Data.Math.Bourke

http://paulbourke.net/

Documentation

h_transform_2 :: Num t => t -> ((t, t) -> (t, t)) -> (t, t) -> (t, t)

2-element h transform.

h_transform_3 :: Num t => t -> ((t, t, t) -> (t, t, t)) -> (t, t, t) -> (t, t, t)

3-element h transform.

lorenz :: Num t => t -> t -> t -> (t, t, t) -> (t, t, t)

http://paulbourke.net/fractals/lorenz/

lorenz_h :: Num t => t -> t -> t -> t -> (t, t, t) -> (t, t, t)

http://paulbourke.net/fractals/lorenz/

import Sound.SC3.Plot 

let l = iterate (lorenz_h 0.01 10 28 (8/3)) (0.1,0.0,0.0)
in plot_p3_ln [take 5000 l]

let {l = iterate (lorenz_h 0.01 10 28 (8/3)) (0.1,0.0,0.0)
    ;f (x,_,z) = (x,z)}
in plot_p2_ln [take 15000 (map f l)]

rossler :: Num t => t -> t -> t -> (t, t, t) -> (t, t, t)

http://paulbourke.net/fractals/rossler/

rossler_h :: Num t => t -> t -> t -> t -> (t, t, t) -> (t, t, t)

http://paulbourke.net/fractals/rossler/

plot_p3_ln [take 5000 (iterate (rossler_h 0.02 0.2 0.2 5.7) (0.1,0,0))]

peter_de_jong :: Floating t => t -> t -> t -> t -> (t, t) -> (t, t)

http://paulbourke.net/fractals/peterdejong/

let pdj a b c d =
  let vw x = plot_p2_pt [take 15000 x]
  in vw (iterate (peter_de_jong a b c d) (-0.72,-0.64))

pdj 1.4 (-2.3) 2.4 (-2.1)
pdj 2.01 (-2.53) 1.61 (-0.33)
pdj (-2.7) (-0.09) (-0.86) (-2.2)
pdj (-2.24) 0.43 (-0.65) (-2.43)
pdj (-2.0) (-2.0) (-1.2) 2.0

clifford :: Floating t => t -> t -> t -> t -> (t, t) -> (t, t)

http://paulbourke.net/fractals/clifford/

let clf a b c d =
  let vw x = plot_p2_pt [take 12500 x]
  in vw (iterate (clifford a b c d) (-0.72,-0.64))

clf (-1.4) (1.6) (1.0) (0.7)
clf (1.1) (-1.0) (1.0) (1.5) 
clf (1.6) (-0.6) (-1.2) (1.6)
clf (1.7) (1.7) (0.6) (1.2)