1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
class:: HenonN
summary:: Henon map chaotic generator
categories:: UGens>Generators>Chaotic
related:: Classes/HenonL, Classes/HenonC
description::
A non-interpolating sound generator based on the difference equation:
teletype::
x(n+2) = 1 - a * x(n+1)^2 + b * x(n)
::
This equation was discovered by French astronomer Michel Hénon while studying the orbits of stars in globular clusters.
sclang code translation:
code::
(
var a = 1.4, b = 0.3, x0 = 0, x1 = 1, size = 64;
plot(size.collect { var aux = 1 - (a * (x1 ** 2)) + (b * x0); x0 = x1; x1 = aux; aux });
)
::
classmethods::
method:: ar
argument:: freq
Iteration frequency in Hertz
argument:: a
Equation variable
argument:: b
Equation variable
argument:: x0
Initial value of x
argument:: x1
Second value of x
argument::mul
argument::add
examples::
code::
// default initial params
{ HenonN.ar(MouseX.kr(20, SampleRate.ir)) * 0.2 }.play(s);
// mouse-control of params
{ HenonN.ar(SampleRate.ir/4, MouseX.kr(1,1.4), MouseY.kr(0,0.3)) * 0.2 }.play(s);
// randomly modulate params
(
{ HenonN.ar(
SampleRate.ir/8,
LFNoise2.kr(1, 0.2, 1.2),
LFNoise2.kr(1, 0.15, 0.15)
) * 0.2 }.play(s);
)
// as a frequency control
{ SinOsc.ar(HenonN.ar(40, MouseX.kr(1,1.4), MouseY.kr(0,0.3))*800+900)*0.4 }.play(s);
::
|
