blob: abcd590421886b93b0acbd756a7bd7562bf4b4f7 (
plain)
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
#N canvas 442 0 1152 729 12;
#X obj 184 130 mtx_< 2.5;
#X obj 385 142 mtx_>= 2.5;
#X obj 385 165 mtx_find;
#X obj 184 152 mtx_find;
#X obj 307 251 mtx_index;
#X obj 106 236 mtx_index;
#X obj 106 343 mtx_fill;
#X obj 82 427 mtx;
#X obj 80 41 t b a a a;
#X obj 567 198 mtx_zeros;
#X obj 567 151 mtx_size;
#X obj 567 175 pack;
#N canvas 0 0 897 561 smallx 0;
#X obj 240 -115 mtx_.^ 2;
#X obj 240 -73 mtx_+ 8.92003e-06;
#X obj 240 -93 mtx_* 0.249877;
#X obj 240 277 mtx_+;
#X obj 272 -48 mtx_.^ 4;
#X obj 304 1 mtx_.^ 6;
#X obj 338 47 mtx_.^ 8;
#X obj 370 98 mtx_.^ 10;
#X obj 402 144 mtx_.^ 12;
#X obj 272 -26 mtx_* -0.0153664;
#X obj 304 23 mtx_* 0.00152453;
#X obj 338 69 mtx_* -0.000134196;
#X obj 370 120 mtx_* 7.76875e-06;
#X obj 402 166 mtx_* -2.04329e-07;
#X obj 272 256 mtx_+;
#X obj 304 236 mtx_+;
#X obj 338 217 mtx_+;
#X obj 370 196 mtx_+;
#X obj 240 -158 t a a a a a a;
#X obj 240 302 mtx_exp;
#X obj 241 -181 inlet;
#X obj 240 333 outlet;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 19 0;
#X connect 4 0 9 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 7 0 12 0;
#X connect 8 0 13 0;
#X connect 9 0 14 0;
#X connect 10 0 15 0;
#X connect 11 0 16 0;
#X connect 12 0 17 0;
#X connect 13 0 17 1;
#X connect 14 0 3 1;
#X connect 15 0 14 1;
#X connect 16 0 15 1;
#X connect 17 0 16 1;
#X connect 18 0 0 0;
#X connect 18 1 4 0;
#X connect 18 2 5 0;
#X connect 18 3 6 0;
#X connect 18 4 7 0;
#X connect 18 5 8 0;
#X connect 19 0 21 0;
#X connect 20 0 18 0;
#X restore 106 260 pd smallx;
#X obj 307 105 t a a;
#X obj 106 102 t a a;
#N canvas 295 16 806 381 bigx 0;
#X obj 227 -132 inlet;
#X obj 226 132 outlet;
#X text 391 -110 exp(x)./sqrt(2*pi*x).*(1+1./(8*x));
#X obj 277 23 mtx_.^ 0.5;
#X obj 226 46 mtx_./;
#X obj 226 -25 mtx_exp;
#X obj 455 20 mtx_+ 1;
#X obj 455 -2 mtx_.^ -1;
#X obj 455 -24 mtx_* 8;
#X obj 226 80 mtx_.*;
#X obj 226 -49 t a a;
#X obj 337 -47 atan;
#X obj 337 -24 * 8;
#X obj 337 -93 loadbang;
#X obj 277 -1 mtx_* 1;
#X obj 226 -109 t a a;
#X msg 337 -70 1;
#X connect 0 0 15 0;
#X connect 3 0 4 1;
#X connect 4 0 9 0;
#X connect 5 0 4 0;
#X connect 6 0 9 1;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 1 0;
#X connect 10 0 5 0;
#X connect 10 1 14 0;
#X connect 11 0 12 0;
#X connect 12 0 14 1;
#X connect 13 0 16 0;
#X connect 14 0 3 0;
#X connect 15 0 10 0;
#X connect 15 1 8 0;
#X connect 16 0 11 0;
#X restore 307 275 pd bigx;
#X obj 80 18 inlet;
#X obj 82 456 outlet;
#X obj 463 165 mtx_size;
#X obj 307 225 spigot;
#X obj 237 177 mtx_size;
#X obj 106 204 spigot;
#X obj 184 177 t a a;
#X obj 184 205 spigot;
#X obj 385 223 spigot;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 18 0;
#X connect 2 0 24 0;
#X connect 3 0 22 0;
#X connect 4 0 15 0;
#X connect 5 0 12 0;
#X connect 6 0 7 1;
#X connect 7 0 17 0;
#X connect 8 0 7 0;
#X connect 8 1 14 0;
#X connect 8 2 13 0;
#X connect 8 3 10 0;
#X connect 9 0 6 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 9 0;
#X connect 12 0 6 0;
#X connect 13 0 19 0;
#X connect 13 1 1 0;
#X connect 14 0 21 0;
#X connect 14 1 0 0;
#X connect 15 0 6 0;
#X connect 16 0 8 0;
#X connect 18 1 19 1;
#X connect 18 1 24 1;
#X connect 19 0 4 0;
#X connect 20 1 21 1;
#X connect 20 1 23 1;
#X connect 21 0 5 0;
#X connect 22 0 23 0;
#X connect 22 1 20 0;
#X connect 23 0 5 1;
#X connect 23 0 6 2;
#X connect 24 0 6 2;
#X connect 24 0 4 1;
|
