blob: 49d21cbd720beaa64e249b99645426fd1692b304 (
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
|
#N canvas 15 126 887 588 12;
#X obj 189 166 line~;
#X obj 42 187 cos~;
#X graph graph1 0 -1.02 882 1.02 633 508 833 378;
#X array pulse-output 882 float 0;
#X pop;
#X floatatom 71 317 0 0 0;
#N canvas 159 26 495 266 output 0;
#X obj 338 160 t b;
#X obj 338 110 f;
#X obj 338 60 inlet;
#X text 344 29 mute;
#X obj 338 185 f;
#X msg 425 178 0;
#X msg 338 85 bang;
#X obj 338 135 moses 1;
#X obj 425 153 t b f;
#X obj 397 117 moses 1;
#X obj 83 148 dbtorms;
#X obj 397 92 r master-lvl;
#X obj 83 42 r master-lvl;
#X obj 338 210 s master-lvl;
#X obj 22 181 inlet~;
#X obj 199 41 inlet;
#X text 199 18 level;
#X obj 199 100 s master-lvl;
#X msg 96 65 set \$1;
#X obj 96 89 outlet;
#X msg 214 64 \; pd dsp 1;
#X obj 83 194 line~;
#X obj 22 212 *~;
#X obj 22 241 dac~;
#X obj 83 171 pack 0 50;
#X text 20 158 audio;
#X text 93 110 show level;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 2 0 6 0;
#X connect 4 0 13 0;
#X connect 5 0 13 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 7 1 8 0;
#X connect 8 0 5 0;
#X connect 9 1 4 1;
#X connect 10 0 24 0;
#X connect 11 0 1 1;
#X connect 11 0 9 0;
#X connect 12 0 10 0;
#X connect 12 0 18 0;
#X connect 14 0 22 0;
#X connect 15 0 17 0;
#X connect 15 0 20 0;
#X connect 18 0 19 0;
#X connect 21 0 22 1;
#X connect 22 0 23 0;
#X connect 22 0 23 1;
#X connect 24 0 21 0;
#X restore 42 345 pd output;
#X msg 118 319 MUTE;
#X obj 189 142 pack 0 50;
#X floatatom 189 41 0 0 0;
#X text 598 545 updated for Pd version 0.26;
#X obj 43 114 -~ 0.5;
#X obj 43 140 *~;
#X obj 189 67 / 10;
#X obj 189 91 moses 0;
#X msg 189 115 0;
#X obj 42 163 clip~ -0.5 0.5;
#X obj 42 289 hip~ 5;
#X graph graph1 0 0 128 500 503 285 759 155;
#X array spectrum 128 float 0;
#X pop;
#X text 184 23 bandwidth;
#X obj 115 267 tabwrite~ pulse-output;
#X msg 105 229 bang;
#X text 143 226 <-- click to graph;
#X obj 189 191 +~ 1;
#N canvas 204 17 358 238 fft 0;
#X obj 46 48 inlet~;
#X obj 159 181 tabwrite~ spectrum;
#X obj 159 145 inlet;
#X obj 46 78 rfft~;
#X obj 46 111 *~;
#X obj 77 111 *~;
#X obj 46 141 sqrt~;
#X obj 191 45 block~ 1024 1;
#X connect 0 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 3 1 5 0;
#X connect 3 1 5 1;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X restore 53 267 pd fft;
#X obj 43 90 phasor~ 172.266;
#X obj 42 211 +~ 1;
#X text 63 1 PULSE SPECTRUM MEASUREMENT;
#X text 16 377 Here is a measured amplitude spectrum for the pulse
train. Nutice that \, other than a smallish spillover \, the energy
sits in one "lobe" whose changing width justifies our calling the squeeze
factor the "bandwidth.";
#X text 16 442 The spectrum is in units of amplitude. THe sidelobes
\, although they look small \, are actually only about 34 dB down.
You can design more complicated pulse trains \, little Blackman window
functions \, which control the sidelobes much better.;
#X text 17 518 The spectrum measurement is done in the "pd fft" subwindow
\, but see the "FFT examples" for information about that.;
#X text 501 291 0;
#X text 749 288 5512;
#X text 633 511 ---- 0.02 seconds ----;
#X text 160 319 <-- output;
#X connect 0 0 21 0;
#X connect 1 0 24 0;
#X connect 3 0 4 1;
#X connect 4 0 3 0;
#X connect 5 0 4 2;
#X connect 6 0 0 0;
#X connect 7 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 12 1 6 0;
#X connect 13 0 6 0;
#X connect 14 0 1 0;
#X connect 15 0 4 0;
#X connect 19 0 18 0;
#X connect 19 0 22 1;
#X connect 21 0 10 1;
#X connect 23 0 9 0;
#X connect 24 0 22 0;
#X connect 24 0 15 0;
#X connect 24 0 18 0;
|
