Mercurial > hg > weather-synthesis-prototyping

#N canvas 33 101 1084 699 10;
#X obj 178 39 inlet;
#X obj 590 18 inlet;
#X obj 178 61 s \$0-diameter;
#X floatatom 669 84 0 0 0 0 - - -;
#X obj 590 84 s \$0-thisPan;
#X obj 590 39 max 0.01;
#X obj 590 62 min 0.99;
#X text 684 168 Mass Density of Air;
#X obj 806 169 *~ 1.225;
#X obj 806 244 /~ 1.81e-05;
#X obj 806 212 *~ 1;
#X obj 806 393 /~ 1;
#X text 708 241 Reynolds Number;
#X text 686 355 Strouhal Number;
#X text 836 224 Viscosity;
#X obj 806 487 s~ \$0-myFreq;
#X text 770 506 Calculates the frequency;
#X text 771 518 based on the physics of;
#X obj 806 309 newStrou;
#X obj 706 340 s~ \$0-str;
#X text 771 531 the object and environment;
#N canvas 718 209 1027 635 StBandwidth 0;
#X obj 460 365 swap 1;
#X obj 460 391 /;
#X obj 460 342 / 100;
#X obj 461 434 outlet;
#X text 437 453 Q value;
#X obj 477 -36 r myMet;
#X obj 477 -14 snapshot~;
#X obj 203 164 spigot;
#X obj 219 187 spigot;
#X obj 236 140 > 0;
#X obj 219 233 + 0.9797;
#X obj 219 208 * 4.624e-05;
#X obj 602 150 spigot;
#X obj 618 173 spigot;
#X obj 651 149 < 1e+06;
#X obj 618 216 * 1.227e-10;
#X obj 618 196 *;
#X obj 690 215 * -8.553e-05;
#X obj 618 261 + 16.5;
#X obj 618 238 +;
#X text -84 298 First section of the Reynolds number - DeltaF/F relationship
is linear and did not appear to be reliant on current TU values;
#X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
is linear and did not appear to be reliant on current TU values;
#X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
is also linear but depends on TU Value;
#X obj 461 412 max 0.005;
#X obj 635 126 > 193260;
#X obj 252 163 < 193260;
#X obj 531 -36 inlet~;
#X floatatom 374 443 0 0 0 0 - - -;
#X connect 0 0 1 0;
#X connect 0 1 1 1;
#X connect 1 0 23 0;
#X connect 2 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 6 0 12 0;
#X connect 6 0 9 0;
#X connect 6 0 7 0;
#X connect 6 0 24 0;
#X connect 6 0 25 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 7 1;
#X connect 10 0 2 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 17 0;
#X connect 13 0 16 1;
#X connect 13 0 16 0;
#X connect 14 0 13 1;
#X connect 15 0 19 0;
#X connect 16 0 15 0;
#X connect 17 0 19 1;
#X connect 18 0 2 0;
#X connect 19 0 18 0;
#X connect 23 0 3 0;
#X connect 23 0 27 0;
#X connect 24 0 12 1;
#X connect 25 0 8 1;
#X connect 26 0 6 0;
#X restore 824 265 pd StBandwidth;
#X obj 824 288 s \$0-Qval;
#N canvas 366 301 403 499 doppler 0;
#X obj 36 331 inlet~;
#X obj 36 469 outlet~;
#X floatatom 171 469 0 0 0 0 - - -;
#X obj 234 291 snapshot~;
#X floatatom 234 313 0 0 0 0 - - -;
#X obj 158 372 *~ -1;
#X obj 119 351 spigot~;
#X obj 44 361 sig~ 323.56;
#X obj 104 391 +~;
#X obj 89 413 /~;
#X obj 36 437 *~;
#X obj 281 269 r myMet;
#X text 28 8 Calculate the azimuth angle from the projected position
of the oberver in the plane of the sword. Peak position is when the
current azimuth is the same as the observer azimuth.;
#X obj 119 254 inlet~;
#X obj 171 446 snapshot~;
#X obj 171 422 r myMet;
#X obj 256 93 r obVertX;
#X obj 271 116 r obVertY;
#X obj 256 136 /;
#X obj 256 156 atan;
#X obj 256 206 + 90;
#X obj 256 179 * 57.2958;
#X obj 187 211 inlet~;
#X obj 140 281 /~ 360;
#X obj 140 303 cos~;
#X obj 119 324 *~;
#X obj 256 228 * -1;
#X obj 235 249 +~ 1;
#X obj 234 269 >~ 0;
#X connect 0 0 10 0;
#X connect 3 0 4 0;
#X connect 3 0 6 1;
#X connect 5 0 8 1;
#X connect 6 0 8 1;
#X connect 6 1 5 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 9 1;
#X connect 9 0 10 1;
#X connect 9 0 14 0;
#X connect 10 0 1 0;
#X connect 11 0 3 0;
#X connect 13 0 25 0;
#X connect 14 0 2 0;
#X connect 15 0 14 0;
#X connect 16 0 18 0;
#X connect 17 0 18 1;
#X connect 18 0 19 0;
#X connect 19 0 21 0;
#X connect 20 0 26 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 22 0 27 0;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 6 0;
#X connect 26 0 27 1;
#X connect 27 0 28 0;
#X connect 28 0 3 0;
#X restore 806 456 pd doppler;
#X obj 727 486 snapshot~;
#X floatatom 727 506 0 0 0 0 - - -;
#X obj 727 465 r myMet;
#X text 140 319 Calculates the gain of the dipole source;
#N canvas 121 75 1255 760 Dipoles 0;
#X obj 101 65 r~ \$0-myFreq;
#X obj 393 69 r~ \$0-myFreq;
#X obj 393 93 *~ 3;
#X obj 124 474 r~ \$0-myFreq;
#X obj 124 502 *~ 2;
#X obj 210 199 *~;
#X obj 210 220 fcpan;
#X obj 210 108 vcf~ 3;
#X obj 237 198 r \$0-thisPan;
#X obj 210 67 r~ \$0-thisNoise;
#X obj 480 293 *~;
#X obj 480 314 fcpan;
#X obj 480 116 vcf~ 3;
#X obj 507 292 r \$0-thisPan;
#X obj 480 68 r~ \$0-thisNoise;
#X obj 215 592 *~;
#X obj 215 613 fcpan;
#X obj 215 516 vcf~ 3;
#X obj 242 591 r \$0-thisPan;
#X obj 215 472 r~ \$0-thisNoise;
#X text 273 27 Generates the sound associated with the lift dipole.
;
#X text 173 440 Generates the sound associated with the drag dipole.
;
#X obj 270 87 r \$0-Qval;
#X obj 530 92 r \$0-Qval;
#X obj 260 494 r \$0-Qval;
#X floatatom 295 126 5 0 0 0 - - -;
#X obj 210 134 vcf~ 3;
#X obj 480 138 vcf~ 3;
#X obj 215 537 vcf~ 3;
#X obj 539 240 pow~;
#X obj 539 120 sig~ 10;
#X obj 560 163 /~ 2e-05;
#X obj 539 263 *~ 2e-05;
#X obj 560 213 *~ 0.6;
#X obj 560 190 log~ 10;
#X obj 632 166 sig~ 10;
#X obj 341 52 inlet~;
#X obj 438 392 inlet~;
#X obj 360 197 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 360 215 s GO;
#X obj 237 241 throw~ ar;
#X obj 210 264 throw~ al;
#X obj 480 358 throw~ al;
#X obj 507 335 throw~ ar;
#X obj 242 634 throw~ ar;
#X obj 215 657 throw~ al;
#X obj 617 327 outlet~;
#X obj 807 230 snapshot~;
#X floatatom 807 250 0 0 0 0 - - -;
#X obj 807 209 r myMet;
#X obj 728 288 snapshot~;
#X floatatom 728 308 0 0 0 0 - - -;
#X obj 728 267 r myMet;
#X obj 782 383 snapshot~;
#X floatatom 782 403 0 0 0 0 - - -;
#X obj 782 362 r myMet;
#X connect 0 0 7 1;
#X connect 0 0 26 1;
#X connect 1 0 2 0;
#X connect 2 0 12 1;
#X connect 2 0 27 1;
#X connect 3 0 4 0;
#X connect 4 0 17 1;
#X connect 4 0 28 1;
#X connect 5 0 6 0;
#X connect 6 0 41 0;
#X connect 6 1 40 0;
#X connect 7 0 26 0;
#X connect 8 0 6 1;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 42 0;
#X connect 11 1 43 0;
#X connect 12 0 27 0;
#X connect 13 0 11 1;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 45 0;
#X connect 16 1 44 0;
#X connect 17 0 28 0;
#X connect 18 0 16 1;
#X connect 19 0 17 0;
#X connect 22 0 7 2;
#X connect 22 0 25 0;
#X connect 22 0 26 2;
#X connect 23 0 12 2;
#X connect 23 0 27 2;
#X connect 24 0 17 2;
#X connect 24 0 28 2;
#X connect 26 0 5 0;
#X connect 27 0 10 0;
#X connect 28 0 15 0;
#X connect 29 0 32 0;
#X connect 30 0 29 0;
#X connect 31 0 34 0;
#X connect 31 0 47 0;
#X connect 32 0 10 1;
#X connect 32 0 46 0;
#X connect 32 0 53 0;
#X connect 33 0 29 1;
#X connect 34 0 33 0;
#X connect 35 0 34 1;
#X connect 36 0 5 1;
#X connect 36 0 31 0;
#X connect 36 0 50 0;
#X connect 37 0 15 1;
#X connect 38 0 39 0;
#X connect 47 0 48 0;
#X connect 49 0 47 0;
#X connect 50 0 51 0;
#X connect 52 0 50 0;
#X connect 53 0 54 0;
#X connect 55 0 53 0;
#X restore 218 374 pd Dipoles;
#X obj 827 190 r \$0-diameter;
#X obj 827 372 r \$0-diameter;
#X obj 205 142 r~ \$0-str;
#X obj 244 183 r \$0-diameter;
#X obj 11 28 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1
;
#X obj 11 81 s GO;
#X obj 737 51 s~ \$0-thisNoise;
#X obj 737 27 noise~;
#X obj 89 39 inlet~;
#X obj 89 62 s~ \$0-speed;
#X obj 806 144 r~ \$0-speed;
#X obj 224 163 r~ \$0-speed;
#X obj 834 415 r~ \$0-speed;
#X obj 806 351 *~;
#X obj 827 330 r~ \$0-speed;
#X obj 61 132 r~ \$0-speed;
#X obj 61 152 /~ 343;
#X obj 61 174 s~ \$0-mach;
#X obj 322 265 r~ \$0-mach;
#X obj 35 648 r~ \$0-mach;
#X obj 64 676 r~ \$0-speed;
#X obj 112 734 r \$0-diameter;
#N canvas 211 172 500 655 CavElevCorr 0;
#X obj 207 123 <~ 180;
#X obj 207 163 snapshot~;
#X obj 223 142 r myMet;
#X obj 168 184 spigot~;
#X obj 207 210 >~ 0;
#X obj 168 274 spigot~;
#X obj 207 252 snapshot~;
#X obj 223 231 r myMet;
#X obj 208 68 inlet~;
#X obj 207 341 outlet~;
#X obj 337 321 snapshot~;
#X floatatom 337 341 0 0 0 0 - - -;
#X obj 337 300 r myMet;
#X connect 0 0 1 0;
#X connect 1 0 3 1;
#X connect 2 0 1 0;
#X connect 3 1 4 0;
#X connect 3 1 5 0;
#X connect 4 0 6 0;
#X connect 5 1 9 0;
#X connect 5 1 10 0;
#X connect 6 0 5 1;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X connect 8 0 3 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X restore 858 42 pd CavElevCorr;
#X obj 270 59 s \$0-dist;
#X obj 263 206 r \$0-dist;
#X obj 270 36 inlet;
#X obj 92 700 r \$0-dist;
#X floatatom 189 82 0 0 0 0 - - -;
#X floatatom 283 83 0 0 0 0 - - -;
#X obj 352 32 inlet~;
#X obj 419 33 inlet~;
#X obj 352 56 s~ \$0-elev;
#X obj 283 225 r~ \$0-elev;
#X obj 302 246 r~ \$0-azim;
#X obj 863 435 r~ \$0-azim;
#X obj 131 764 r~ \$0-elev;
#X obj 419 55 s~ \$0-azim;
#N canvas 678 204 981 645 GoldfreqGainSword 0;
#N canvas 759 125 180 217 pow6 0;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 76 35 inlet~;
#X obj 47 141 outlet~;
#X obj 106 67 *~;
#X obj 47 93 *~;
#X obj 47 118 *~;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 0 0;
#X connect 2 0 0 1;
#X connect 2 0 1 1;
#X connect 2 0 4 0;
#X connect 2 0 4 1;
#X connect 2 0 1 0;
#X connect 4 0 6 1;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X restore 52 76 pd pow6;
#X obj -24 86 *~;
#X text 254 155 Distance;
#X text 542 503 Calculates Drag Dipole gain;
#X text -134 486 Calculates Lift Dipole gain;
#X obj -24 60 inlet~;
#X text 146 125 Diameter;
#X obj 109 124 inlet;
#X obj 37 616 outlet~;
#X obj 576 478 outlet~;
#X text 129 217 Length;
#X obj 37 244 *~ 1;
#X text -55 40 Strouhal number;
#X text 84 166 Corr Length;
#X obj 37 303 *~ 2.50663;
#X obj 37 193 *~ 1.225;
#X text -89 189 Mass Density of Air;
#X text -37 298 Sqrt(2xpi);
#X text 166 235 Speed of Sound to power 3;
#N canvas 682 161 158 182 pow4 0;
#X obj 76 35 inlet~;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 47 93 *~;
#X obj 47 117 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 2 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X restore 343 258 pd pow4;
#X obj 576 453 *~ 0.1;
#X text 421 14 Azimuth;
#X text 320 16 Elevation;
#X text 386 222 Remember - Goldstein moves cylinder;
#X obj 88 145 *~ 1;
#X obj 37 165 *~;
#X text 48 32 Source speed;
#X obj 58 218 r bladeLen;
#X obj 88 105 sig~ 7;
#X text 99 89 Set Corr Length;
#X text 494 13 Mach Number;
#X floatatom -51 404 0 0 0 0 - - -;
#X obj -51 384 snapshot~;
#X obj -51 364 r myMet;
#X obj 52 53 inlet~;
#X obj 37 131 *~;
#X obj 507 30 inlet~;
#X obj 343 116 sig~ 1;
#X obj 343 236 -~;
#X obj 37 340 /~;
#X obj 250 171 inlet;
#X obj 250 195 *;
#X obj 250 218 * 4.05513e+07;
#X obj 250 254 * 32;
#X obj 229 303 *~ 1;
#X obj 323 34 inlet~;
#X obj 425 32 inlet~;
#X obj 612 363 cos~;
#X obj 612 387 *~;
#X obj 597 408 *~;
#X obj 597 320 *~;
#X obj 597 296 sin~;
#X obj 612 342 /~ 360;
#X obj 597 274 /~ 360;
#X obj 597 251 +~ 90;
#X obj 121 429 /~ 360;
#X obj 58 430 /~ 360;
#X obj 58 451 sin~;
#X obj 121 451 cos~;
#X obj 58 474 *~;
#X obj 121 475 *~;
#X obj 37 522 *~;
#X obj 37 496 *~;
#X obj 373 170 /~ 360;
#X obj 373 191 cos~;
#X obj 358 213 *~;
#X obj 576 430 *~;
#X obj 36 561 *~ 10000;
#X connect 0 0 35 1;
#X connect 1 0 35 0;
#X connect 5 0 1 0;
#X connect 5 0 1 1;
#X connect 7 0 24 1;
#X connect 11 0 14 0;
#X connect 14 0 39 0;
#X connect 15 0 11 0;
#X connect 19 0 44 0;
#X connect 20 0 9 0;
#X connect 24 0 25 1;
#X connect 25 0 15 0;
#X connect 27 0 11 1;
#X connect 28 0 24 0;
#X connect 32 0 31 0;
#X connect 33 0 32 0;
#X connect 34 0 0 0;
#X connect 35 0 25 0;
#X connect 36 0 65 0;
#X connect 37 0 38 0;
#X connect 38 0 19 0;
#X connect 39 0 62 0;
#X connect 39 0 66 0;
#X connect 40 0 41 0;
#X connect 40 0 41 1;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 1;
#X connect 44 0 39 1;
#X connect 45 0 54 0;
#X connect 45 0 63 0;
#X connect 45 0 56 0;
#X connect 46 0 52 0;
#X connect 46 0 55 0;
#X connect 47 0 48 0;
#X connect 47 0 48 1;
#X connect 48 0 49 1;
#X connect 49 0 66 1;
#X connect 50 0 49 0;
#X connect 51 0 50 0;
#X connect 51 0 50 1;
#X connect 52 0 47 0;
#X connect 53 0 51 0;
#X connect 54 0 53 0;
#X connect 55 0 58 0;
#X connect 56 0 57 0;
#X connect 57 0 59 0;
#X connect 57 0 59 1;
#X connect 58 0 60 0;
#X connect 58 0 60 1;
#X connect 59 0 62 1;
#X connect 60 0 61 1;
#X connect 61 0 67 0;
#X connect 62 0 61 0;
#X connect 63 0 64 0;
#X connect 64 0 65 1;
#X connect 65 0 38 1;
#X connect 66 0 20 0;
#X connect 67 0 8 0;
#X connect 67 0 32 0;
#X restore 204 291 pd GoldfreqGainSword;
#X obj 383 538 *~;
#X obj 383 563 fcpan;
#X obj 453 333 s~ \$0-liftNoiseGain;
#X obj 383 394 r~ \$0-liftNoiseGain;
#X obj 410 538 r \$0-thisPan;
#X text 364 368 Noise spectrum calculation;
#X obj 398 486 hip~;
#X obj 398 441 rpole~ 0.99;
#X text 444 352 Calculates the gain of the wake;
#X obj 398 513 hip~;
#X obj 398 418 r~ \$0-thisNoise;
#X obj 484 461 r myMet;
#X obj 474 482 snapshot~;
#X obj 474 441 r~ \$0-myFreq;
#X obj 453 160 r~ \$0-str;
#X obj 494 201 r \$0-diameter;
#X obj 473 181 r~ \$0-speed;
#X obj 576 283 r~ \$0-mach;
#X obj 514 222 r \$0-dist;
#X obj 535 242 r~ \$0-elev;
#X obj 555 263 r~ \$0-azim;
#N canvas 455 88 797 667 GoldnoiseGainSword 0;
#X text -21258 312 Mass Density of Air \, squared;
#X text -20998 360 Distance;
#N canvas 759 125 235 275 pow8 0;
#X obj 76 35 inlet~;
#X obj 76 67 *~;
#X obj 47 67 *~;
#X obj 47 93 *~;
#X obj 47 121 *~;
#X obj 47 147 outlet~;
#X connect 0 0 1 1;
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 0 0 2 1;
#X connect 1 0 3 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X restore -21067 172 pd pow8;
#X obj -21028 234 inlet;
#X obj -21082 565 outlet~;
#X text -21079 596 Gain proportional to windspeed to power 8 for spectrum
;
#X text -20992 235 Diameter;
#X text -21248 575 Calculates wake gain;
#X text -20770 30 Azimuth;
#X text -20810 114 Elevation;
#X obj -21082 319 *~ 1.225;
#N canvas 759 125 250 309 pow5 0;
#X obj 47 67 *~;
#X obj 76 35 inlet~;
#X obj 47 170 outlet~;
#X obj 136 173 snapshot~;
#X obj 136 148 metro 100;
#X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 136 200 10 0 0 0 - - -;
#X obj 136 100 loadbang;
#X obj 47 87 *~;
#X obj 47 118 *~;
#X connect 0 0 8 0;
#X connect 0 0 8 1;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 9 1;
#X connect 3 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 7 0 5 0;
#X connect 8 0 9 0;
#X connect 9 0 2 0;
#X connect 9 0 3 0;
#X restore -20926 423 pd pow5;
#X obj -20926 399 sig~ 343.56;
#N canvas 875 261 250 309 pow5 0;
#X obj 47 67 *~;
#X obj 76 35 inlet~;
#X obj 47 170 outlet~;
#X obj 47 87 *~;
#X obj 47 118 *~;
#X connect 0 0 3 0;
#X connect 0 0 3 1;
#X connect 1 0 0 0;
#X connect 1 0 0 1;
#X connect 1 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 2 0;
#X restore -20891 349 pd pow5;
#X obj -20891 296 sig~ 1;
#X obj -20926 270 sig~ 3.1416;
#X obj -20926 295 *~;
#X obj -20941 247 sig~ 16;
#X obj -20941 319 *~;
#X obj -20941 377 *~;
#X obj -21082 79 inlet~;
#X obj -21082 106 *~;
#X obj -21049 260 *~ 1;
#X obj -21082 295 *~;
#X obj -21082 392 *~ 1;
#X obj -21082 476 *~ 2.50663;
#X text -21027 319 Length;
#X text -21150 478 Sqrt(2*pi);
#X obj -21030 340 r bladeLen;
#X text -21068 124 Source speed;
#X text -21159 436 Scale Factor;
#X text -20675 10 Mach Number;
#X obj -21049 201 sig~ 7;
#X text -21015 184 Set Corrolation Length;
#X obj -20720 103 sig~ 1;
#X obj -20705 130 sig~ 0.7;
#N canvas 927 234 183 208 pow4 0;
#X obj 76 35 inlet~;
#X obj 47 67 *~;
#X obj 76 67 *~;
#X obj 47 93 *~;
#X obj 47 120 outlet~;
#X connect 0 0 1 0;
#X connect 0 0 1 1;
#X connect 0 0 2 1;
#X connect 0 0 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X restore -20690 263 pd pow4;
#X obj -20657 324 /~ 4;
#X obj -20705 416 -~;
#X obj -20720 442 +~;
#X obj -20640 502 snapshot~;
#X obj -20640 479 r myMet;
#X floatatom -20640 527 0 0 0 0 - - -;
#X obj -20941 450 *~;
#X obj -21082 522 /~;
#X obj -21082 543 *~;
#X obj -21082 199 *~;
#X obj -21067 143 inlet~;
#X obj -20671 34 inlet~;
#X obj -20891 323 -~;
#X text -21095 58 Strouhal Number;
#X obj -20705 285 *~;
#X obj -20977 428 inlet;
#X obj -20977 451 *;
#X obj -20998 478 *~ 1;
#X obj -20657 303 +~ 3;
#X obj -20824 95 sig~ 180;
#X obj -20824 156 -~;
#X obj -20809 131 inlet~;
#X obj -20823 178 /~ 360;
#X obj -20809 232 /~ 360;
#X obj -20809 255 cos~;
#X obj -20823 205 cos~;
#X obj -20824 275 *~;
#X obj -20845 297 *~;
#X obj -20769 47 inlet~;
#X obj -20574 281 /~ 360;
#X obj -20574 304 sin~;
#X obj -20574 326 *~;
#X obj -20657 379 *~;
#X obj -20620 277 *~ 2;
#X obj -20620 300 sin~;
#X obj -20619 323 *~;
#X obj -20657 354 *~;
#X obj -21082 436 *~ 2000;
#X connect 2 0 46 1;
#X connect 3 0 22 1;
#X connect 10 0 24 0;
#X connect 11 0 43 1;
#X connect 12 0 11 0;
#X connect 13 0 19 1;
#X connect 14 0 49 0;
#X connect 15 0 16 0;
#X connect 15 0 16 1;
#X connect 16 0 18 1;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 43 0;
#X connect 20 0 21 0;
#X connect 20 0 21 1;
#X connect 21 0 46 0;
#X connect 22 0 23 1;
#X connect 23 0 10 0;
#X connect 24 0 74 0;
#X connect 25 0 44 0;
#X connect 28 0 24 1;
#X connect 32 0 22 0;
#X connect 34 0 39 0;
#X connect 35 0 51 0;
#X connect 35 0 55 0;
#X connect 36 0 51 1;
#X connect 37 0 73 0;
#X connect 38 0 39 1;
#X connect 39 0 45 1;
#X connect 40 0 42 0;
#X connect 41 0 40 0;
#X connect 43 0 54 0;
#X connect 44 0 45 0;
#X connect 45 0 4 0;
#X connect 45 0 40 0;
#X connect 46 0 23 0;
#X connect 47 0 2 0;
#X connect 48 0 64 0;
#X connect 49 0 13 0;
#X connect 51 0 38 0;
#X connect 52 0 53 0;
#X connect 52 0 53 1;
#X connect 53 0 54 1;
#X connect 54 0 44 1;
#X connect 55 0 37 0;
#X connect 56 0 57 0;
#X connect 57 0 59 0;
#X connect 58 0 57 1;
#X connect 59 0 62 0;
#X connect 59 0 70 0;
#X connect 60 0 61 0;
#X connect 61 0 63 1;
#X connect 62 0 36 0;
#X connect 62 0 63 0;
#X connect 63 0 64 1;
#X connect 64 0 49 1;
#X connect 65 0 60 0;
#X connect 65 0 66 0;
#X connect 66 0 67 0;
#X connect 67 0 68 1;
#X connect 67 0 68 0;
#X connect 68 0 69 1;
#X connect 69 0 38 1;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 71 0 72 1;
#X connect 72 0 73 1;
#X connect 73 0 69 0;
#X connect 74 0 25 0;
#X restore 452 304 pd GoldnoiseGainSword;
#X obj 410 585 throw~ ar;
#X obj 383 607 throw~ al;
#X obj 65 790 Cav_______D7Sig;
#X obj 240 728 r~ \$0-speed;
#X obj 267 749 r~ \$0-myFreq;
#X obj 285 774 *~ 3;
#N canvas 687 517 760 281 Plot-----------------Wrt 0;
#X obj 438 247 textfile;
#X msg 636 112 clear \, rewind;
#X obj 227 87 snapshot~;
#X floatatom 235 110 0 0 0 0 - - -;
#X obj 227 60 r myMet;
#X obj 214 37 inlet~;
#X msg 227 131 add2 \$1;
#X obj 49 89 snapshot~;
#X floatatom 57 112 0 0 0 0 - - -;
#X obj 49 62 r myMet;
#X obj 36 39 inlet~;
#X msg 49 133 add2 \$1;
#X obj -23 87 snapshot~;
#X floatatom -15 110 0 0 0 0 - - -;
#X obj -23 60 r myMet;
#X obj -36 37 inlet~;
#X msg 626 87 write Katana1.txt;
#X obj 455 87 snapshot~;
#X floatatom 463 110 0 0 0 0 - - -;
#X obj 455 60 r myMet;
#X obj 442 37 inlet~;
#X msg 455 131 add2 \$1;
#X obj 375 89 snapshot~;
#X floatatom 383 112 0 0 0 0 - - -;
#X obj 375 62 r myMet;
#X obj 362 39 inlet~;
#X msg 375 133 add2 \$1;
#X obj 303 87 snapshot~;
#X floatatom 311 110 0 0 0 0 - - -;
#X obj 303 60 r myMet;
#X obj 290 37 inlet~;
#X msg 303 131 add2 \$1;
#X obj 145 87 snapshot~;
#X floatatom 153 110 0 0 0 0 - - -;
#X obj 145 60 r myMet;
#X obj 132 37 inlet~;
#X msg 145 131 add2 \$1;
#X msg -23 131 add \$1;
#X obj 634 59 inlet;
#X obj 680 60 inlet;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 11 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 0 0;
#X connect 12 0 13 0;
#X connect 12 0 37 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 0 0;
#X connect 17 0 18 0;
#X connect 17 0 21 0;
#X connect 19 0 17 0;
#X connect 20 0 17 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 22 0 26 0;
#X connect 24 0 22 0;
#X connect 25 0 22 0;
#X connect 26 0 0 0;
#X connect 27 0 28 0;
#X connect 27 0 31 0;
#X connect 29 0 27 0;
#X connect 30 0 27 0;
#X connect 31 0 0 0;
#X connect 32 0 33 0;
#X connect 32 0 36 0;
#X connect 34 0 32 0;
#X connect 35 0 32 0;
#X connect 36 0 0 0;
#X connect 37 0 0 0;
#X connect 38 0 16 0;
#X connect 39 0 1 0;
#X restore 84 925 pd Plot-----------------Wrt;
#N canvas 127 311 885 272 Plot-----------------Wrt 0;
#X obj 431 236 textfile;
#X msg 471 98 clear \, rewind;
#X obj 220 76 snapshot~;
#X floatatom 228 99 0 0 0 0 - - -;
#X obj 220 49 r myMet;
#X obj 207 26 inlet~;
#X msg 220 120 add2 \$1;
#X obj 42 78 snapshot~;
#X floatatom 50 101 0 0 0 0 - - -;
#X obj 42 51 r myMet;
#X obj 29 28 inlet~;
#X obj 296 76 snapshot~;
#X floatatom 304 99 0 0 0 0 - - -;
#X obj 296 49 r myMet;
#X obj 283 26 inlet~;
#X msg 296 120 add2 \$1;
#X obj 138 76 snapshot~;
#X floatatom 146 99 0 0 0 0 - - -;
#X obj 138 49 r myMet;
#X obj 125 26 inlet~;
#X msg 138 120 add2 \$1;
#X msg 461 73 write Katana2.txt;
#X obj 459 35 inlet;
#X obj 505 36 inlet;
#X msg 42 122 add \$1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 24 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 0 15 0;
#X connect 13 0 11 0;
#X connect 14 0 11 0;
#X connect 15 0 0 0;
#X connect 16 0 17 0;
#X connect 16 0 20 0;
#X connect 18 0 16 0;
#X connect 19 0 16 0;
#X connect 20 0 0 0;
#X connect 21 0 0 0;
#X connect 22 0 21 0;
#X connect 23 0 1 0;
#X connect 24 0 0 0;
#X restore -38 944 pd Plot-----------------Wrt;
#X obj 224 817 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 266 822 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 127 311 885 272 Plot-----------------Wrt 0;
#X obj 431 236 textfile;
#X msg 663 97 clear \, rewind;
#X obj 220 76 snapshot~;
#X floatatom 228 99 0 0 0 0 - - -;
#X obj 220 49 r myMet;
#X obj 207 26 inlet~;
#X msg 220 120 add2 \$1;
#X obj 42 78 snapshot~;
#X floatatom 50 101 0 0 0 0 - - -;
#X obj 42 51 r myMet;
#X obj 29 28 inlet~;
#X obj 448 76 snapshot~;
#X floatatom 456 99 0 0 0 0 - - -;
#X obj 448 49 r myMet;
#X obj 435 26 inlet~;
#X msg 448 120 add2 \$1;
#X obj 368 78 snapshot~;
#X floatatom 376 101 0 0 0 0 - - -;
#X obj 368 51 r myMet;
#X obj 355 28 inlet~;
#X msg 368 122 add2 \$1;
#X obj 296 76 snapshot~;
#X floatatom 304 99 0 0 0 0 - - -;
#X obj 296 49 r myMet;
#X obj 283 26 inlet~;
#X msg 296 120 add2 \$1;
#X obj 138 76 snapshot~;
#X floatatom 146 99 0 0 0 0 - - -;
#X obj 138 49 r myMet;
#X obj 125 26 inlet~;
#X msg 138 120 add2 \$1;
#X obj 651 34 inlet;
#X obj 697 35 inlet;
#X msg 42 122 add \$1;
#X msg 653 72 write Katana3.txt;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 33 0;
#X connect 9 0 7 0;
#X connect 10 0 7 0;
#X connect 11 0 12 0;
#X connect 11 0 15 0;
#X connect 13 0 11 0;
#X connect 14 0 11 0;
#X connect 15 0 0 0;
#X connect 16 0 17 0;
#X connect 16 0 20 0;
#X connect 18 0 16 0;
#X connect 19 0 16 0;
#X connect 20 0 0 0;
#X connect 21 0 22 0;
#X connect 21 0 25 0;
#X connect 23 0 21 0;
#X connect 24 0 21 0;
#X connect 25 0 0 0;
#X connect 26 0 27 0;
#X connect 26 0 30 0;
#X connect 28 0 26 0;
#X connect 29 0 26 0;
#X connect 30 0 0 0;
#X connect 31 0 34 0;
#X connect 32 0 1 0;
#X connect 33 0 0 0;
#X connect 34 0 0 0;
#X restore 211 956 pd Plot-----------------Wrt;
#X text 13 627 Ignore the stuff below here;
#X floatatom 380 130 0 0 0 0 - - -;
#X obj 380 110 snapshot~;
#X obj 380 90 r myMet;
#X floatatom 478 120 0 0 0 0 - - -;
#X obj 478 100 snapshot~;
#X obj 478 80 r myMet;
#X obj 668 435 snapshot~;
#X floatatom 668 455 0 0 0 0 - - -;
#X obj 668 414 r myMet;
#X obj 940 403 snapshot~;
#X floatatom 940 423 0 0 0 0 - - -;
#X obj 940 382 r myMet;
#X connect 0 0 2 0;
#X connect 0 0 56 0;
#X connect 1 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 3 0;
#X connect 6 0 4 0;
#X connect 8 0 10 0;
#X connect 9 0 21 0;
#X connect 9 0 18 0;
#X connect 10 0 9 0;
#X connect 11 0 23 0;
#X connect 11 0 15 0;
#X connect 11 0 24 0;
#X connect 18 0 19 0;
#X connect 18 0 42 0;
#X connect 18 0 107 0;
#X connect 21 0 22 0;
#X connect 24 0 25 0;
#X connect 26 0 24 0;
#X connect 28 0 95 4;
#X connect 29 0 10 1;
#X connect 30 0 11 1;
#X connect 31 0 66 0;
#X connect 32 0 66 2;
#X connect 33 0 34 0;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 39 0 8 0;
#X connect 40 0 66 1;
#X connect 41 0 23 1;
#X connect 42 0 11 0;
#X connect 43 0 42 1;
#X connect 43 0 110 0;
#X connect 44 0 45 0;
#X connect 45 0 46 0;
#X connect 47 0 66 6;
#X connect 48 0 91 0;
#X connect 49 0 91 1;
#X connect 50 0 91 3;
#X connect 53 0 66 3;
#X connect 54 0 52 0;
#X connect 54 0 57 0;
#X connect 55 0 91 2;
#X connect 58 0 60 0;
#X connect 58 0 102 0;
#X connect 59 0 65 0;
#X connect 59 0 105 0;
#X connect 61 0 66 4;
#X connect 62 0 66 5;
#X connect 63 0 23 2;
#X connect 64 0 91 4;
#X connect 66 0 28 0;
#X connect 66 0 95 2;
#X connect 66 1 28 1;
#X connect 67 0 68 0;
#X connect 67 0 99 4;
#X connect 68 0 90 0;
#X connect 68 1 89 0;
#X connect 70 0 67 0;
#X connect 71 0 68 1;
#X connect 73 0 76 0;
#X connect 74 0 73 0;
#X connect 76 0 67 1;
#X connect 77 0 74 0;
#X connect 78 0 79 0;
#X connect 79 0 73 1;
#X connect 79 0 76 1;
#X connect 80 0 79 0;
#X connect 81 0 88 0;
#X connect 82 0 88 2;
#X connect 83 0 88 1;
#X connect 84 0 88 6;
#X connect 85 0 88 3;
#X connect 86 0 88 4;
#X connect 87 0 88 5;
#X connect 88 0 69 0;
#X connect 88 0 99 5;
#X connect 91 0 95 5;
#X connect 91 1 95 6;
#X connect 91 2 96 0;
#X connect 91 3 96 1;
#X connect 91 4 96 2;
#X connect 91 5 96 3;
#X connect 91 6 99 0;
#X connect 91 7 99 1;
#X connect 91 8 99 2;
#X connect 91 9 99 3;
#X connect 92 0 95 0;
#X connect 93 0 95 1;
#X connect 93 0 94 0;
#X connect 94 0 95 3;
#X connect 97 0 95 7;
#X connect 97 0 96 4;
#X connect 97 0 99 6;
#X connect 98 0 96 5;
#X connect 98 0 95 8;
#X connect 98 0 99 7;
#X connect 102 0 101 0;
#X connect 103 0 102 0;
#X connect 105 0 104 0;
#X connect 106 0 105 0;
#X connect 107 0 108 0;
#X connect 109 0 107 0;
#X connect 110 0 111 0;
#X connect 112 0 110 0;
author	Rod Selfridge <r.selfridge@qmul.ac.uk>
date	Sat, 11 Nov 2017 17:43:39 +0000
parents	45bb69569481
children