-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrtest_fractals.mac
66 lines (66 loc) · 2.79 KB
/
rtest_fractals.mac
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
59
60
61
62
63
64
65
66
(kill (all), load (fractals), 0);
0;
mandelbrot_set(1,-1);
5;
mandelbrot_set(-7,9/2);
3;
mandelbrot_set(0,0);
30;
julia_set(-5,-5/2);
3;
julia_set(-45,sqrt(56));
2;
julia_sin(10,4);
3;
julia_sin(10,4.51);
3;
snowmap([3,2+3*%i,6-3*%i,%i],1);
[[3.0, 0.0], [2.666666666666667, 1.0],
[1.633974596215561, 1.211324865405187], [2.333333333333333, 2.0],
[2.0, 3.0], [3.333333333333333, 1.0],
[5.732050807568877, 1.154700538379251],
[4.666666666666667, - 1.0], [6.0, - 3.0],
[4.0, - 1.666666666666667], [1.845299461620749,
- 2.732050807568877], [2.0, - .3333333333333333], [0.0, 1.0]];
hilbertmap(2);
[[- 0.875, 0.875], [- 0.875, 0.625], [- 0.625, 0.625],
[- 0.625, 0.875], [- 0.375, 0.875], [- 0.125, 0.875],
[- 0.125, 0.625], [- 0.375, 0.625], [- 0.375, 0.375],
[- 0.125, 0.375], [- 0.125, 0.125], [- 0.375, 0.125],
[- 0.625, 0.125], [- 0.625, 0.375], [- 0.875, 0.375],
[- 0.875, 0.125], [- 0.875, - 0.125], [- 0.625, - 0.125],
[- 0.625, - 0.375], [- 0.875, - 0.375], [- 0.875, - 0.625],
[- 0.875, - 0.875], [- 0.625, - 0.875], [- 0.625, - 0.625],
[- 0.375, - 0.625], [- 0.375, - 0.875], [- 0.125, - 0.875],
[- 0.125, - 0.625], [- 0.125, - 0.375], [- 0.375, - 0.375],
[- 0.375, - 0.125], [- 0.125, - 0.125], [0.125, - 0.125],
[0.375, - 0.125], [0.375, - 0.375], [0.125, - 0.375],
[0.125, - 0.625], [0.125, - 0.875], [0.375, - 0.875],
[0.375, - 0.625], [0.625, - 0.625], [0.625, - 0.875],
[0.875, - 0.875], [0.875, - 0.625], [0.875, - 0.375],
[0.625, - 0.375], [0.625, - 0.125], [0.875, - 0.125],
[0.875, 0.125], [0.875, 0.375], [0.625, 0.375], [0.625, 0.125],
[0.375, 0.125], [0.125, 0.125], [0.125, 0.375], [0.375, 0.375],
[0.375, 0.625], [0.125, 0.625], [0.125, 0.875], [0.375, 0.875],
[0.625, 0.875], [0.625, 0.625], [0.875, 0.625], [0.875, 0.875]];
sierpinskimap(2);
[[0.75, 0.875], [0.625, 0.75], [0.375, 0.75],
[0.25, 0.875], [0.125, 0.75], [0.25, 0.625], [0.25, 0.375],
[0.125, 0.25], [- 0.125, 0.25], [- 0.25, 0.375], [- 0.25, 0.625],
[- 0.125, 0.75], [- 0.25, 0.875], [- 0.375, 0.75],
[- 0.625, 0.75], [- 0.75, 0.875], [- 0.875, 0.75],
[- 0.75, 0.625], [- 0.75, 0.375], [- 0.875, 0.25],
[- 0.75, 0.125], [- 0.625, 0.25], [- 0.375, 0.25],
[- 0.25, 0.125], [- 0.25, - 0.125], [- 0.375, - 0.25],
[- 0.625, - 0.25], [- 0.75, - 0.125], [- 0.875, - 0.25],
[- 0.75, - 0.375], [- 0.75, - 0.625], [- 0.875, - 0.75],
[- 0.75, - 0.875], [- 0.625, - 0.75], [- 0.375, - 0.75],
[- 0.25, - 0.875], [- 0.125, - 0.75], [- 0.25, - 0.625],
[- 0.25, - 0.375], [- 0.125, - 0.25], [0.125, - 0.25],
[0.25, - 0.375], [0.25, - 0.625], [0.125, - 0.75],
[0.25, - 0.875], [0.375, - 0.75], [0.625, - 0.75],
[0.75, - 0.875], [0.875, - 0.75], [0.75, - 0.625],
[0.75, - 0.375], [0.875, - 0.25], [0.75, - 0.125],
[0.625, - 0.25], [0.375, - 0.25], [0.25, - 0.125], [0.25, 0.125],
[0.375, 0.25], [0.625, 0.25], [0.75, 0.125], [0.875, 0.25],
[0.75, 0.375], [0.75, 0.625], [0.875, 0.75]];