Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/freqCalcCyl3No_D3Mach.pd @ 181:4c6c8c511a48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
TestBed4 - VCFs doubled up on all dipoles and single osc at a magniture of 0.01 compared to the vcf signals.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Wed, 17 Feb 2016 16:40:48 +0000
parents 158d649c58c1
children 6ab985b939c2
rev   line source
r@180 1 #N canvas 66 171 1370 784 10;
r@171 2 #X text 587 178 Mass Density of Air;
r@171 3 #X obj 709 179 *~ 1.225;
r@171 4 #X obj 709 254 /~ 1.81e-05;
r@171 5 #X obj 709 209 *~ 1;
r@171 6 #X obj 709 372 /~ 1;
r@171 7 #X obj 709 348 *~;
r@171 8 #X obj 223 63 inlet;
r@171 9 #X text 742 298 Reynolds Number;
r@171 10 #X text 589 365 Strouhal Number;
r@171 11 #X obj 388 61 inlet;
r@171 12 #X text 739 234 Viscosity;
r@171 13 #X obj 230 86 s \$0-diameter;
r@171 14 #X obj 770 178 r \$0-diameter;
r@171 15 #X obj 777 353 r \$0-diameter;
r@171 16 #X obj 120 85 s~ \$0-windSpeed;
r@171 17 #X obj 776 330 r~ \$0-windSpeed;
r@171 18 #X obj 709 151 r~ \$0-windSpeed;
r@171 19 #X obj 709 396 s~ \$0-myFreq;
r@171 20 #X obj 120 65 vd~ varwind;
r@171 21 #X obj 1052 334 *~;
r@171 22 #X obj 722 278 s~ \$0-myRey;
r@171 23 #X obj 636 57 inlet;
r@171 24 #X floatatom 581 126 8 0 0 0 - - -;
r@171 25 #X text 673 415 Calculates the frequency;
r@171 26 #X text 674 427 based on the physics of;
r@171 27 #X obj 307 404 r~ \$0-windSpeed;
r@171 28 #X obj 347 466 r \$0-diameter;
r@171 29 #X obj 460 60 inlet;
r@171 30 #X obj 534 59 inlet;
r@174 31 #X floatatom 388 108 0 0 0 0 - - -;
r@174 32 #X floatatom 460 106 0 0 0 0 - - -;
r@174 33 #X floatatom 535 103 0 0 0 0 - - -;
r@171 34 #X text 293 367 Calculates the gain of the dipole source;
r@171 35 #X text 459 37 Azimuth;
r@171 36 #X text 641 39 Pan;
r@171 37 #X text 533 41 Elevation;
r@171 38 #X text 384 42 Distance;
r@171 39 #X text 218 42 Diameter;
r@171 40 #X text 133 41 Wind Speed;
r@171 41 #X obj 315 60 inlet;
r@171 42 #X floatatom 315 104 5 0 0 0 - - -;
r@171 43 #X text 311 41 Length;
r@171 44 #X obj 709 319 newStrou;
r@174 45 #X floatatom 223 107 0 0 0 0 - - -;
r@171 46 #X obj 1052 403 throw~ l;
r@171 47 #X obj 1079 381 throw~ r;
r@171 48 #X obj 1052 359 fcpan;
r@171 49 #X obj 325 83 s \$0-leng;
r@171 50 #X obj 393 84 s \$0-dist;
r@171 51 #X obj 400 331 s~ \$0-dragDiGain;
r@171 52 #X obj 313 352 s~ \$0-liftDiGain;
r@171 53 #X obj 294 385 r~ \$0-str;
r@171 54 #X obj 333 444 r \$0-leng;
r@171 55 #X obj 360 487 r \$0-dist;
r@171 56 #X obj 294 580 s~ \$0-liftNoiseGain;
r@171 57 #X obj 609 350 s~ \$0-str;
r@171 58 #X obj 636 126 s \$0-thisPan;
r@171 59 #X obj 1088 258 r \$0-contFreq;
r@171 60 #X obj 1052 178 r~ \$0-liftNoiseGain;
r@171 61 #X obj 1079 334 r \$0-thisPan;
r@171 62 #X obj 731 66 inlet;
r@171 63 #X obj 803 65 inlet;
r@171 64 #X obj 877 64 inlet;
r@171 65 #X floatatom 731 113 5 0 0 0 - - -;
r@171 66 #X floatatom 803 111 5 0 0 0 - - -;
r@171 67 #X floatatom 878 108 5 0 0 0 - - -;
r@171 68 #X obj 736 89 s \$0-rotaX;
r@171 69 #X obj 810 87 s \$0-rotaY;
r@171 70 #X obj 885 87 s \$0-rotaZ;
r@171 71 #X text 727 47 X Rotation;
r@171 72 #X text 797 46 Y Rotation;
r@171 73 #X text 872 45 Z Rotation;
r@171 74 #X text 1033 152 Noise spectrum calculation;
r@171 75 #X obj 1067 282 hip~;
r@171 76 #X obj 1067 237 rpole~ 0.99;
r@171 77 #X obj 321 163 r~ \$0-windSpeed;
r@171 78 #X obj 339 202 r \$0-diameter;
r@171 79 #X obj 313 142 r~ \$0-str;
r@171 80 #X obj 331 183 r \$0-leng;
r@171 81 #X obj 356 241 r \$0-dist;
r@174 82 #N canvas 205 88 1238 721 GoldfreqGain 0;
r@171 83 #N canvas 759 125 286 294 pow6 0;
r@171 84 #X obj 47 67 *~;
r@171 85 #X obj 76 67 *~;
r@171 86 #X obj 76 35 inlet~;
r@171 87 #X obj 47 163 outlet~;
r@171 88 #X obj 136 184 snapshot~;
r@171 89 #X obj 136 159 metro 100;
r@171 90 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 91 1;
r@171 92 #X floatatom 136 211 10 0 0 0 - - -;
r@171 93 #X obj 216 210 outlet;
r@171 94 #X obj 136 111 loadbang;
r@171 95 #X obj 106 67 *~;
r@171 96 #X obj 47 93 *~;
r@171 97 #X obj 47 118 *~;
r@171 98 #X obj 372 202 *;
r@171 99 #X obj 372 228 *;
r@171 100 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@171 101 -1 -1 0 1;
r@171 102 #X floatatom 374 288 10 0 0 0 - - -;
r@171 103 #X obj 303 20 t f b;
r@171 104 #X floatatom 455 55 5 0 0 0 - - -;
r@171 105 #X obj 372 260 *;
r@171 106 #X obj 400 202 *;
r@171 107 #X msg 303 -4 6;
r@171 108 #X obj 434 201 *;
r@171 109 #X connect 0 0 11 0;
r@171 110 #X connect 1 0 11 1;
r@171 111 #X connect 2 0 0 0;
r@171 112 #X connect 2 0 0 1;
r@171 113 #X connect 2 0 1 1;
r@171 114 #X connect 2 0 10 0;
r@171 115 #X connect 2 0 10 1;
r@171 116 #X connect 2 0 1 0;
r@171 117 #X connect 4 0 7 0;
r@171 118 #X connect 4 0 8 0;
r@171 119 #X connect 5 0 4 0;
r@171 120 #X connect 6 0 5 0;
r@171 121 #X connect 9 0 6 0;
r@171 122 #X connect 10 0 12 1;
r@171 123 #X connect 11 0 12 0;
r@171 124 #X connect 12 0 4 0;
r@171 125 #X connect 12 0 3 0;
r@171 126 #X connect 13 0 14 0;
r@171 127 #X connect 14 0 19 0;
r@171 128 #X connect 15 0 13 0;
r@171 129 #X connect 15 0 13 1;
r@171 130 #X connect 15 0 18 0;
r@171 131 #X connect 15 0 20 0;
r@171 132 #X connect 15 0 20 1;
r@171 133 #X connect 17 0 13 0;
r@171 134 #X connect 17 0 13 1;
r@171 135 #X connect 17 0 20 0;
r@171 136 #X connect 17 0 20 1;
r@171 137 #X connect 17 0 22 0;
r@171 138 #X connect 17 0 22 1;
r@171 139 #X connect 17 1 13 0;
r@171 140 #X connect 17 1 20 0;
r@171 141 #X connect 17 1 22 0;
r@171 142 #X connect 19 0 16 0;
r@171 143 #X connect 20 0 14 1;
r@171 144 #X connect 21 0 17 0;
r@171 145 #X connect 22 0 19 1;
r@174 146 #X restore 219 150 pd pow6;
r@174 147 #X obj 173 140 *~;
r@174 148 #X obj 219 176 *~;
r@174 149 #X obj 411 161 *;
r@174 150 #X text 587 13 Distance;
r@174 151 #X floatatom 567 73 5 0 0 0 - - -;
r@171 152 #X text 724 595 Calculates Drag Dipole gain;
r@175 153 #X text 48 531 Calculates Lift Dipole gain;
r@174 154 #X obj 173 100 inlet~;
r@175 155 #X obj 219 13 inlet~;
r@174 156 #X text 328 170 Diameter;
r@174 157 #X obj 291 169 inlet;
r@174 158 #X obj 567 29 inlet;
r@175 159 #X obj 219 551 outlet~;
r@171 160 #X obj 758 570 outlet~;
r@174 161 #X obj 240 263 inlet;
r@174 162 #X text 278 258 Length;
r@174 163 #X obj 219 289 *~ 1;
r@175 164 #X obj 234 430 /~ 360;
r@175 165 #X obj 234 479 *~;
r@175 166 #X obj 219 502 *~;
r@174 167 #X obj 868 30 inlet;
r@174 168 #X obj 967 32 inlet;
r@174 169 #X obj 1063 35 inlet;
r@174 170 #X floatatom 868 77 5 0 0 0 - - -;
r@174 171 #X floatatom 967 78 5 0 0 0 - - -;
r@174 172 #X floatatom 1064 79 5 0 0 0 - - -;
r@174 173 #X text 864 11 X Rotation;
r@174 174 #X text 961 13 Y Rotation;
r@174 175 #X text 1058 16 Z Rotation;
r@174 176 #X obj 873 53 s \$0-this_rotaX;
r@174 177 #X obj 974 54 s \$0-thisrotaY;
r@174 178 #X obj 1071 58 s \$0-thisrotaZ;
r@174 179 #X text 74 100 Strouhal number;
r@175 180 #X text 149 37 Wind speed;
r@174 181 #X text 266 211 Corr Length;
r@174 182 #X obj 219 313 *~ 2.50663;
r@174 183 #X obj 219 238 *~ 1.225;
r@174 184 #X text 93 234 Mass Density of Air;
r@174 185 #X text 147 315 Sqrt(2xpi);
r@175 186 #X obj 281 457 /~ 360;
r@175 187 #X obj 281 503 *~;
r@175 188 #X obj 281 479 cos~;
r@175 189 #X obj 219 528 *~;
r@174 190 #X obj 411 191 * 4.05513e+07;
r@174 191 #X text 362 210 Speed of Sound to power 3;
r@174 192 #X obj 411 244 * 32;
r@174 193 #X obj 560 213 r SIG_MACH;
r@174 194 #X obj 525 213 cos~;
r@174 195 #X obj 525 236 *~;
r@174 196 #X obj 473 237 sig~ 1;
r@174 197 #X obj 510 267 -~;
r@171 198 #N canvas 1150 227 286 289 pow4 0;
r@171 199 #X obj 47 67 *~;
r@171 200 #X obj 76 67 *~;
r@171 201 #X obj 76 35 inlet~;
r@171 202 #X obj 47 163 outlet~;
r@171 203 #X obj 136 184 snapshot~;
r@171 204 #X obj 136 159 metro 100;
r@171 205 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 206 1;
r@171 207 #X floatatom 136 211 10 0 0 0 - - -;
r@171 208 #X obj 216 210 outlet;
r@171 209 #X obj 136 111 loadbang;
r@171 210 #X obj 47 93 *~;
r@171 211 #X connect 0 0 10 0;
r@171 212 #X connect 1 0 10 1;
r@171 213 #X connect 2 0 0 0;
r@171 214 #X connect 2 0 0 1;
r@171 215 #X connect 2 0 1 1;
r@171 216 #X connect 2 0 1 0;
r@171 217 #X connect 4 0 7 0;
r@171 218 #X connect 4 0 8 0;
r@171 219 #X connect 5 0 4 0;
r@171 220 #X connect 6 0 5 0;
r@171 221 #X connect 9 0 6 0;
r@171 222 #X connect 10 0 3 0;
r@171 223 #X connect 10 0 4 0;
r@174 224 #X restore 510 290 pd pow4;
r@174 225 #X obj 411 272 sig~;
r@174 226 #X obj 411 322 *~;
r@171 227 #X obj 219 346 /~;
r@174 228 #X obj 133 375 s~ \$0-aGainG;
r@171 229 #X obj 872 246 r~ \$0-aGainG;
r@171 230 #X obj 758 512 *~ 0.1;
r@171 231 #X obj 723 340 +~ 90;
r@171 232 #X obj 723 363 /~ 360;
r@171 233 #X obj 723 409 *~;
r@171 234 #X obj 723 385 sin~;
r@171 235 #X obj 773 359 /~ 360;
r@171 236 #X obj 773 405 *~;
r@171 237 #X obj 773 381 cos~;
r@171 238 #X obj 758 436 *~;
r@174 239 #X text 763 12 Azimuth;
r@174 240 #X text 662 14 Elevation;
r@174 241 #X obj 665 32 inlet;
r@174 242 #X obj 767 30 inlet;
r@174 243 #X floatatom 665 79 5 0 0 0 - - -;
r@174 244 #X floatatom 767 79 5 0 0 0 - - -;
r@175 245 #X obj 773 294 r \$0-this_azim;
r@174 246 #X obj 670 55 s \$0-this_elev;
r@174 247 #X obj 774 55 s \$0-this_azim;
r@175 248 #X obj 525 129 r \$0-this_elev;
r@174 249 #X obj 574 51 s \$0-thisDist;
r@171 250 #X obj 887 268 r \$0-thisDist;
r@174 251 #X obj 411 135 r \$0-thisDist;
r@171 252 #X obj 887 292 *;
r@171 253 #X obj 887 317 * 4.05513e+07;
r@171 254 #X text 892 335 Speed of Sound to power 3;
r@171 255 #X obj 887 370 * 32;
r@171 256 #X obj 887 398 sig~;
r@171 257 #X obj 872 423 /~;
r@174 258 #X text 595 191 Remember - Goldstein moves cylinder;
r@174 259 #X floatatom 366 193 5 0 0 0 - - -;
r@174 260 #X obj 525 194 /~ 360;
r@171 261 #X obj 758 475 *~;
r@174 262 #X obj 478 51 s~ \$0-thisColL;
r@174 263 #X obj 270 150 r~ \$0-thisColL;
r@174 264 #X obj 270 190 *~ 1;
r@174 265 #X obj 219 210 *~;
r@174 266 #X obj 478 28 inlet~;
r@174 267 #X floatatom 265 121 5 0 0 0 - - -;
r@175 268 #X obj 234 456 sin~;
r@175 269 #X floatatom 277 41 5 0 0 0 - - -;
r@171 270 #N canvas 801 264 426 401 aveTimeCal 0;
r@171 271 #X text 224 38 Elevation;
r@171 272 #X obj 226 56 r \$0-elev;
r@171 273 #X floatatom 240 81 5 0 0 0 - - -;
r@171 274 #X obj 205 17 r~ MY_MACH;
r@171 275 #X obj 226 135 cos;
r@171 276 #X obj 226 107 * 0.01745;
r@171 277 #X obj 205 158 *~ 1;
r@171 278 #X obj 161 131 sig~ 1;
r@171 279 #X obj 161 185 -~;
r@171 280 #X obj 121 104 r~ \$0-myFreq;
r@171 281 #X obj 106 82 sig~ 6.28318;
r@171 282 #X obj 106 128 /~;
r@171 283 #X obj 106 219 *~;
r@171 284 #X obj 36 204 r myMet;
r@171 285 #X obj 106 242 snapshot~;
r@171 286 #X floatatom 44 283 0 0 0 0 - - -;
r@171 287 #X obj 106 263 * 44100;
r@171 288 #X obj 106 292 outlet;
r@171 289 #X connect 1 0 2 0;
r@171 290 #X connect 1 0 5 0;
r@171 291 #X connect 3 0 6 0;
r@171 292 #X connect 4 0 6 1;
r@171 293 #X connect 5 0 4 0;
r@171 294 #X connect 6 0 8 1;
r@171 295 #X connect 7 0 8 0;
r@171 296 #X connect 8 0 12 1;
r@171 297 #X connect 9 0 11 1;
r@171 298 #X connect 10 0 11 0;
r@171 299 #X connect 11 0 12 0;
r@171 300 #X connect 12 0 14 0;
r@171 301 #X connect 13 0 14 0;
r@171 302 #X connect 14 0 16 0;
r@171 303 #X connect 16 0 15 0;
r@171 304 #X connect 16 0 17 0;
r@175 305 #X restore 268 15 pd aveTimeCal;
r@175 306 #X obj 219 59 average~ 1000;
r@175 307 #X obj 219 122 line~;
r@175 308 #X obj 525 173 line~;
r@175 309 #X obj 723 273 r \$0-this_elev;
r@175 310 #X obj 723 317 line~;
r@175 311 #X msg 723 295 \$1 5;
r@175 312 #X msg 525 151 \$1 5;
r@175 313 #X obj 773 338 line~;
r@175 314 #X msg 773 316 \$1 5;
r@175 315 #X obj 281 389 r \$0-this_azim;
r@175 316 #X obj 234 362 r \$0-this_elev;
r@175 317 #X obj 234 406 line~;
r@175 318 #X msg 234 384 \$1 5;
r@175 319 #X obj 281 433 line~;
r@175 320 #X msg 281 411 \$1 5;
r@175 321 #X msg 219 100 \$1 5;
r@171 322 #X connect 0 0 2 0;
r@171 323 #X connect 1 0 2 1;
r@175 324 #X connect 2 0 93 0;
r@175 325 #X connect 3 0 44 0;
r@175 326 #X connect 3 0 87 0;
r@171 327 #X connect 8 0 1 0;
r@171 328 #X connect 8 0 1 1;
r@175 329 #X connect 9 0 99 0;
r@175 330 #X connect 11 0 92 1;
r@171 331 #X connect 12 0 5 0;
r@175 332 #X connect 12 0 77 0;
r@171 333 #X connect 15 0 17 1;
r@175 334 #X connect 17 0 36 0;
r@175 335 #X connect 18 0 96 0;
r@175 336 #X connect 19 0 20 1;
r@175 337 #X connect 20 0 43 0;
r@175 338 #X connect 21 0 24 0;
r@175 339 #X connect 21 0 30 0;
r@175 340 #X connect 22 0 25 0;
r@175 341 #X connect 22 0 31 0;
r@171 342 #X connect 23 0 26 0;
r@171 343 #X connect 23 0 32 0;
r@175 344 #X connect 36 0 55 0;
r@175 345 #X connect 36 0 56 0;
r@175 346 #X connect 37 0 17 0;
r@175 347 #X connect 40 0 42 0;
r@175 348 #X connect 41 0 43 1;
r@175 349 #X connect 42 0 41 0;
r@175 350 #X connect 42 0 41 1;
r@175 351 #X connect 43 0 13 0;
r@175 352 #X connect 44 0 46 0;
r@175 353 #X connect 46 0 53 0;
r@175 354 #X connect 47 0 49 1;
r@175 355 #X connect 48 0 49 0;
r@171 356 #X connect 49 0 51 1;
r@171 357 #X connect 50 0 51 0;
r@175 358 #X connect 51 0 52 0;
r@175 359 #X connect 52 0 54 1;
r@171 360 #X connect 53 0 54 0;
r@175 361 #X connect 54 0 55 1;
r@175 362 #X connect 55 0 20 0;
r@175 363 #X connect 57 0 85 0;
r@175 364 #X connect 58 0 14 0;
r@175 365 #X connect 59 0 60 0;
r@175 366 #X connect 60 0 62 0;
r@175 367 #X connect 61 0 66 0;
r@175 368 #X connect 62 0 61 0;
r@175 369 #X connect 62 0 61 1;
r@175 370 #X connect 63 0 65 0;
r@175 371 #X connect 64 0 66 1;
r@175 372 #X connect 65 0 64 0;
r@175 373 #X connect 65 0 64 1;
r@175 374 #X connect 66 0 89 0;
r@175 375 #X connect 69 0 71 0;
r@175 376 #X connect 69 0 74 0;
r@175 377 #X connect 70 0 72 0;
r@175 378 #X connect 70 0 75 0;
r@175 379 #X connect 73 0 107 0;
r@175 380 #X connect 76 0 105 0;
r@175 381 #X connect 78 0 80 0;
r@175 382 #X connect 78 0 80 1;
r@175 383 #X connect 79 0 3 0;
r@175 384 #X connect 79 0 3 1;
r@175 385 #X connect 80 0 81 0;
r@175 386 #X connect 81 0 83 0;
r@175 387 #X connect 83 0 84 0;
r@175 388 #X connect 84 0 85 1;
r@175 389 #X connect 85 0 89 1;
r@175 390 #X connect 88 0 48 0;
r@175 391 #X connect 89 0 58 0;
r@174 392 #X connect 91 0 92 0;
r@174 393 #X connect 92 0 93 1;
r@175 394 #X connect 93 0 37 0;
r@175 395 #X connect 94 0 90 0;
r@175 396 #X connect 96 0 19 0;
r@175 397 #X connect 96 0 19 1;
r@175 398 #X connect 98 0 97 0;
r@175 399 #X connect 98 0 99 0;
r@175 400 #X connect 99 0 95 0;
r@175 401 #X connect 99 0 114 0;
r@175 402 #X connect 100 0 0 0;
r@175 403 #X connect 101 0 88 0;
r@175 404 #X connect 102 0 104 0;
r@175 405 #X connect 103 0 59 0;
r@175 406 #X connect 104 0 103 0;
r@175 407 #X connect 105 0 101 0;
r@175 408 #X connect 106 0 63 0;
r@174 409 #X connect 107 0 106 0;
r@175 410 #X connect 108 0 113 0;
r@175 411 #X connect 109 0 111 0;
r@175 412 #X connect 110 0 18 0;
r@175 413 #X connect 111 0 110 0;
r@175 414 #X connect 112 0 40 0;
r@175 415 #X connect 113 0 112 0;
r@175 416 #X connect 114 0 100 0;
r@171 417 #X restore 313 307 pd GoldfreqGain;
r@180 418 #N canvas 363 49 1006 797 GoldnoiseGain 0;
r@174 419 #X text -21037 364 Mass Density of Air \, squared;
r@175 420 #X obj -20777 459 *;
r@175 421 #X text -20777 412 Distance;
r@171 422 #N canvas 759 125 235 275 pow8 0;
r@171 423 #X obj 47 67 *~;
r@171 424 #X obj 76 67 *~;
r@171 425 #X obj 76 35 inlet~;
r@171 426 #X obj 47 147 outlet~;
r@171 427 #X obj 128 146 snapshot~;
r@171 428 #X obj 128 121 metro 100;
r@171 429 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 430 1;
r@171 431 #X floatatom 128 173 10 0 0 0 - - -;
r@171 432 #X obj 128 73 loadbang;
r@171 433 #X obj 47 93 *~;
r@171 434 #X obj 47 121 *~;
r@171 435 #X connect 0 0 9 0;
r@171 436 #X connect 1 0 9 1;
r@171 437 #X connect 2 0 0 0;
r@171 438 #X connect 2 0 0 1;
r@171 439 #X connect 2 0 1 1;
r@171 440 #X connect 2 0 1 0;
r@171 441 #X connect 4 0 7 0;
r@171 442 #X connect 5 0 4 0;
r@171 443 #X connect 6 0 5 0;
r@171 444 #X connect 8 0 6 0;
r@171 445 #X connect 9 0 10 0;
r@171 446 #X connect 9 0 10 1;
r@171 447 #X connect 10 0 3 0;
r@171 448 #X connect 10 0 4 0;
r@174 449 #X restore -20846 224 pd pow8;
r@175 450 #X obj -20846 137 inlet~;
r@174 451 #X obj -20807 286 inlet;
r@175 452 #X obj -20777 433 inlet;
r@174 453 #X obj -20861 617 outlet~;
r@174 454 #X text -20858 648 Gain proportional to windspeed to power 8 for spectrum
r@171 455 ;
r@174 456 #X text -20771 287 Diameter;
r@175 457 #X text -20847 118 Wind speed;
r@174 458 #X text -21027 627 Calculates wake gain;
r@171 459 #X text -20399 16 Azimuth;
r@171 460 #X obj -20398 33 inlet;
r@171 461 #X obj -20342 33 inlet;
r@171 462 #X text -20343 16 Elevation;
r@171 463 #X floatatom -20304 57 5 0 0 0 - - -;
r@175 464 #X floatatom -20470 58 5 0 0 0 - - -;
r@175 465 #X obj -20398 117 s~ \$0-this_azim;
r@175 466 #X obj -20342 95 s~ \$0-this_elev;
r@174 467 #X obj -20861 371 *~ 1.225;
r@180 468 #X obj -20587 239 r~ \$0-this_azim;
r@171 469 #N canvas 759 125 250 309 pow5 0;
r@171 470 #X obj 47 67 *~;
r@171 471 #X obj 76 35 inlet~;
r@171 472 #X obj 47 170 outlet~;
r@171 473 #X obj 136 173 snapshot~;
r@171 474 #X obj 136 148 metro 100;
r@171 475 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 476 1;
r@171 477 #X floatatom 136 200 10 0 0 0 - - -;
r@171 478 #X obj 136 100 loadbang;
r@171 479 #X obj 47 87 *~;
r@171 480 #X obj 47 118 *~;
r@171 481 #X connect 0 0 8 0;
r@171 482 #X connect 0 0 8 1;
r@171 483 #X connect 1 0 0 0;
r@171 484 #X connect 1 0 0 1;
r@171 485 #X connect 1 0 9 1;
r@171 486 #X connect 3 0 6 0;
r@171 487 #X connect 4 0 3 0;
r@171 488 #X connect 5 0 4 0;
r@171 489 #X connect 7 0 5 0;
r@171 490 #X connect 8 0 9 0;
r@171 491 #X connect 9 0 2 0;
r@171 492 #X connect 9 0 3 0;
r@174 493 #X restore -20705 475 pd pow5;
r@174 494 #X obj -20705 451 sig~ 343.56;
r@171 495 #N canvas 875 261 250 309 pow5 0;
r@171 496 #X obj 47 67 *~;
r@171 497 #X obj 76 35 inlet~;
r@171 498 #X obj 47 170 outlet~;
r@171 499 #X obj 136 173 snapshot~;
r@171 500 #X obj 136 148 metro 100;
r@171 501 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 502 1;
r@171 503 #X floatatom 136 200 10 0 0 0 - - -;
r@171 504 #X obj 136 100 loadbang;
r@171 505 #X obj 47 87 *~;
r@171 506 #X obj 47 118 *~;
r@171 507 #X connect 0 0 8 0;
r@171 508 #X connect 0 0 8 1;
r@171 509 #X connect 1 0 0 0;
r@171 510 #X connect 1 0 0 1;
r@171 511 #X connect 1 0 9 1;
r@171 512 #X connect 3 0 6 0;
r@171 513 #X connect 4 0 3 0;
r@171 514 #X connect 5 0 4 0;
r@171 515 #X connect 7 0 5 0;
r@171 516 #X connect 8 0 9 0;
r@171 517 #X connect 9 0 2 0;
r@171 518 #X connect 9 0 3 0;
r@174 519 #X restore -20670 401 pd pow5;
r@180 520 #X obj -20624 216 /~ 360;
r@180 521 #X obj -20624 243 cos~;
r@174 522 #X obj -20624 349 *~;
r@174 523 #X obj -20670 348 sig~ 1;
r@174 524 #X obj -20670 375 -~;
r@174 525 #X obj -20705 322 sig~ 3.1416;
r@174 526 #X obj -20705 347 *~;
r@174 527 #X obj -20720 299 sig~ 16;
r@174 528 #X obj -20720 371 *~;
r@174 529 #X obj -20720 429 *~;
r@174 530 #X obj -20720 502 *~;
r@174 531 #X obj -20777 530 *~;
r@174 532 #X obj -20861 574 /~;
r@180 533 #X obj -20624 194 -~;
r@180 534 #X text -20533 187 Angle goes with the flow in Goldstein hence 90 -
r@171 535 theta so that theta is same angle as dipole angles.;
r@180 536 #X obj -20624 149 sig~ 180;
r@180 537 #X obj -20609 172 r~ \$0-this_elev;
r@174 538 #X obj -20916 137 inlet~;
r@174 539 #X obj -20916 164 *~;
r@174 540 #X obj -20828 253 inlet~;
r@174 541 #X obj -20828 312 *~ 1;
r@174 542 #X obj -20861 251 *~;
r@174 543 #X obj -20861 347 *~;
r@175 544 #X obj -20809 392 inlet;
r@174 545 #X obj -20861 444 *~ 1;
r@174 546 #X obj -20861 528 *~ 2.50663;
r@174 547 #X text -20782 254 Corrolation Length;
r@175 548 #X text -20806 371 Length;
r@175 549 #X obj -20846 159 average~ 64;
r@174 550 #X floatatom -20757 165 5 0 0 0 - - -;
r@171 551 #N canvas 801 264 426 401 aveTimeCal 0;
r@171 552 #X text 224 38 Elevation;
r@171 553 #X obj 226 56 r \$0-elev;
r@171 554 #X floatatom 240 81 5 0 0 0 - - -;
r@171 555 #X obj 205 17 r~ MY_MACH;
r@171 556 #X obj 226 135 cos;
r@171 557 #X obj 226 107 * 0.01745;
r@171 558 #X obj 205 158 *~ 1;
r@171 559 #X obj 161 131 sig~ 1;
r@171 560 #X obj 161 185 -~;
r@171 561 #X obj 121 104 r~ \$0-myFreq;
r@171 562 #X obj 106 82 sig~ 6.28318;
r@171 563 #X obj 106 128 /~;
r@171 564 #X obj 106 219 *~;
r@171 565 #X obj 36 204 r myMet;
r@171 566 #X obj 106 242 snapshot~;
r@171 567 #X floatatom 44 283 0 0 0 0 - - -;
r@171 568 #X obj 106 263 * 44100;
r@171 569 #X obj 106 292 outlet;
r@171 570 #X connect 1 0 2 0;
r@171 571 #X connect 1 0 5 0;
r@171 572 #X connect 3 0 6 0;
r@171 573 #X connect 4 0 6 1;
r@171 574 #X connect 5 0 4 0;
r@171 575 #X connect 6 0 8 1;
r@171 576 #X connect 7 0 8 0;
r@171 577 #X connect 8 0 12 1;
r@171 578 #X connect 9 0 11 1;
r@171 579 #X connect 10 0 11 0;
r@171 580 #X connect 11 0 12 0;
r@171 581 #X connect 12 0 14 0;
r@171 582 #X connect 13 0 14 0;
r@171 583 #X connect 14 0 16 0;
r@171 584 #X connect 16 0 15 0;
r@171 585 #X connect 16 0 17 0;
r@174 586 #X restore -20766 139 pd aveTimeCal;
r@175 587 #X obj -20846 203 line~;
r@175 588 #X msg -20846 181 \$1 5;
r@175 589 #X obj -20342 75 line~;
r@175 590 #X msg -20342 53 \$1 5;
r@175 591 #X obj -20777 502 line~;
r@175 592 #X msg -20777 480 \$1 5;
r@175 593 #X obj -20398 86 line~;
r@175 594 #X msg -20398 64 \$1 5;
r@180 595 #X obj -20587 285 cos~;
r@180 596 #X obj -20861 595 *~ 1;
r@180 597 #X obj -20587 262 /~ 360;
r@180 598 #X obj -20624 306 *~;
r@180 599 #X obj -20609 326 /~ 343.56;
r@180 600 #X connect 1 0 61 0;
r@180 601 #X connect 3 0 46 1;
r@180 602 #X connect 4 0 53 0;
r@180 603 #X connect 5 0 45 1;
r@171 604 #X connect 6 0 1 0;
r@171 605 #X connect 6 0 1 1;
r@175 606 #X connect 13 0 17 0;
r@180 607 #X connect 13 0 63 0;
r@175 608 #X connect 14 0 16 0;
r@180 609 #X connect 14 0 59 0;
r@180 610 #X connect 20 0 49 0;
r@180 611 #X connect 21 0 66 0;
r@180 612 #X connect 22 0 35 1;
r@175 613 #X connect 23 0 22 0;
r@180 614 #X connect 24 0 34 1;
r@175 615 #X connect 25 0 26 0;
r@180 616 #X connect 26 0 67 0;
r@180 617 #X connect 27 0 29 1;
r@180 618 #X connect 28 0 29 0;
r@180 619 #X connect 29 0 24 0;
r@175 620 #X connect 30 0 31 0;
r@180 621 #X connect 30 0 31 1;
r@180 622 #X connect 31 0 33 1;
r@171 623 #X connect 32 0 33 0;
r@180 624 #X connect 33 0 34 0;
r@171 625 #X connect 34 0 35 0;
r@180 626 #X connect 35 0 36 1;
r@180 627 #X connect 36 0 37 1;
r@180 628 #X connect 37 0 65 0;
r@180 629 #X connect 38 0 25 0;
r@180 630 #X connect 40 0 38 0;
r@180 631 #X connect 41 0 38 1;
r@180 632 #X connect 42 0 43 0;
r@180 633 #X connect 42 0 43 1;
r@180 634 #X connect 43 0 46 0;
r@175 635 #X connect 44 0 45 0;
r@180 636 #X connect 45 0 47 1;
r@175 637 #X connect 46 0 47 0;
r@180 638 #X connect 47 0 20 0;
r@180 639 #X connect 48 0 49 1;
r@180 640 #X connect 49 0 50 0;
r@180 641 #X connect 50 0 37 0;
r@180 642 #X connect 53 0 57 0;
r@180 643 #X connect 55 0 54 0;
r@180 644 #X connect 55 0 53 0;
r@180 645 #X connect 56 0 3 0;
r@180 646 #X connect 56 0 68 0;
r@175 647 #X connect 57 0 56 0;
r@180 648 #X connect 58 0 19 0;
r@180 649 #X connect 59 0 58 0;
r@180 650 #X connect 60 0 36 0;
r@180 651 #X connect 61 0 60 0;
r@180 652 #X connect 62 0 18 0;
r@180 653 #X connect 63 0 62 0;
r@180 654 #X connect 64 0 67 1;
r@180 655 #X connect 65 0 7 0;
r@180 656 #X connect 66 0 64 0;
r@180 657 #X connect 67 0 27 0;
r@180 658 #X connect 68 0 27 1;
r@171 659 #X restore 294 552 pd GoldnoiseGain;
r@171 660 #X text 285 599 Calculates the gain of the wake;
r@171 661 #X obj 467 82 s \$0-azim;
r@171 662 #X obj 542 82 s \$0-elev;
r@171 663 #X obj 365 262 r \$0-elev;
r@171 664 #X obj 373 283 r \$0-azim;
r@175 665 #X obj 387 531 r \$0-elev;
r@175 666 #X obj 373 508 r \$0-azim;
r@171 667 #N canvas 1021 287 444 428 corrLen 0;
r@171 668 #X obj 103 71 inlet~;
r@171 669 #X obj 88 200 outlet~;
r@171 670 #X obj 88 143 *~;
r@171 671 #X obj 124 93 sig~ -0.245;
r@171 672 #X obj 103 119 pow~;
r@171 673 #X text 234 22 Y = 10^b . X^m;
r@171 674 #X text 235 40 b = 1.536;
r@171 675 #X text 235 56 m = -0.245;
r@171 676 #X text 80 297 Equation of line derived from Norberg 2001;
r@171 677 #X obj 88 169 max~ 1;
r@171 678 #X obj 88 46 sig~ 44.67;
r@171 679 #X obj 229 190 r myMet;
r@171 680 #X obj 229 211 snapshot~;
r@171 681 #X floatatom 230 236 5 0 0 0 - - -;
r@171 682 #X connect 0 0 4 0;
r@171 683 #X connect 2 0 9 0;
r@171 684 #X connect 3 0 4 1;
r@171 685 #X connect 4 0 2 1;
r@171 686 #X connect 9 0 1 0;
r@171 687 #X connect 9 0 12 0;
r@171 688 #X connect 10 0 2 0;
r@171 689 #X connect 11 0 12 0;
r@171 690 #X connect 12 0 13 0;
r@171 691 #X restore 956 85 pd corrLen Calc;
r@171 692 #X obj 956 62 r~ \$0-myRey;
r@171 693 #X obj 956 109 s~ \$0-myCor;
r@171 694 #X obj 347 222 r~ \$0-myCor;
r@171 695 #X obj 1102 281 r \$0-contFreq;
r@171 696 #X obj 1067 309 hip~;
r@171 697 #X obj 320 424 r~ \$0-myCor;
r@171 698 #X obj 636 81 max 0.01;
r@171 699 #X obj 636 104 min 0.99;
r@181 700 #N canvas 93 119 976 679 Dipoles 1;
r@171 701 #X obj 76 62 r~ \$0-myFreq;
r@171 702 #X obj 91 107 r~ \$0-liftDiGain;
r@171 703 #X obj 76 88 osc~;
r@171 704 #X obj 76 261 throw~ l;
r@171 705 #X obj 103 238 throw~ r;
r@171 706 #X obj 76 216 fcpan;
r@171 707 #X obj 103 195 r \$0-thisPan;
r@171 708 #X obj 353 69 r~ \$0-myFreq;
r@181 709 #X obj 368 135 r~ \$0-liftDiGain;
r@171 710 #X obj 353 114 osc~;
r@181 711 #X obj 353 285 throw~ l;
r@181 712 #X obj 380 262 throw~ r;
r@181 713 #X obj 353 180 *~;
r@181 714 #X obj 353 240 fcpan;
r@181 715 #X obj 380 220 r \$0-thisPan;
r@181 716 #X obj 368 157 *~ 0.6;
r@171 717 #X obj 621 62 r~ \$0-myFreq;
r@181 718 #X obj 636 125 r~ \$0-liftDiGain;
r@171 719 #X obj 621 107 osc~;
r@181 720 #X obj 621 280 throw~ l;
r@181 721 #X obj 648 257 throw~ r;
r@181 722 #X obj 621 173 *~;
r@181 723 #X obj 621 235 fcpan;
r@181 724 #X obj 648 214 r \$0-thisPan;
r@171 725 #X obj 621 86 *~ 5;
r@171 726 #X obj 353 93 *~ 3;
r@171 727 #X obj 72 345 r~ \$0-myFreq;
r@171 728 #X obj 72 399 osc~;
r@171 729 #X obj 72 544 throw~ l;
r@171 730 #X obj 99 521 throw~ r;
r@181 731 #X obj 72 443 *~;
r@171 732 #X obj 72 499 fcpan;
r@171 733 #X obj 99 478 r \$0-thisPan;
r@171 734 #X obj 87 418 r~ \$0-dragDiGain;
r@171 735 #X obj 72 373 *~ 2;
r@171 736 #X obj 351 344 r~ \$0-myFreq;
r@171 737 #X obj 351 398 osc~;
r@171 738 #X obj 351 543 throw~ l;
r@171 739 #X obj 378 520 throw~ r;
r@181 740 #X obj 351 436 *~;
r@171 741 #X obj 351 498 fcpan;
r@171 742 #X obj 378 477 r \$0-thisPan;
r@181 743 #X obj 385 392 r~ \$0-dragDiGain;
r@171 744 #X obj 351 372 *~ 4;
r@181 745 #X obj 385 415 *~ 0.125;
r@171 746 #X obj 210 199 *~;
r@171 747 #X obj 210 264 throw~ l;
r@171 748 #X obj 237 241 throw~ r;
r@171 749 #X obj 210 220 fcpan;
r@171 750 #X obj 210 108 vcf~ 3;
r@171 751 #X obj 237 198 r \$0-thisPan;
r@180 752 #X obj 210 67 r~ \$0-thisNoise;
r@171 753 #X obj 480 192 *~;
r@171 754 #X obj 480 257 throw~ l;
r@171 755 #X obj 507 234 throw~ r;
r@171 756 #X obj 480 213 fcpan;
r@171 757 #X obj 480 116 vcf~ 3;
r@171 758 #X obj 507 191 r \$0-thisPan;
r@180 759 #X obj 480 68 r~ \$0-thisNoise;
r@171 760 #X obj 750 183 *~;
r@171 761 #X obj 750 248 throw~ l;
r@171 762 #X obj 777 225 throw~ r;
r@171 763 #X obj 750 204 fcpan;
r@171 764 #X obj 750 107 vcf~ 3;
r@171 765 #X obj 777 182 r \$0-thisPan;
r@180 766 #X obj 750 65 r~ \$0-thisNoise;
r@181 767 #X obj 636 147 *~ 0.1;
r@171 768 #X obj 217 464 *~;
r@171 769 #X obj 217 529 throw~ l;
r@171 770 #X obj 244 506 throw~ r;
r@171 771 #X obj 217 485 fcpan;
r@171 772 #X obj 217 388 vcf~ 3;
r@171 773 #X obj 244 463 r \$0-thisPan;
r@180 774 #X obj 217 344 r~ \$0-thisNoise;
r@171 775 #X obj 491 462 *~;
r@171 776 #X obj 491 527 throw~ l;
r@171 777 #X obj 518 504 throw~ r;
r@171 778 #X obj 491 483 fcpan;
r@171 779 #X obj 491 386 vcf~ 3;
r@171 780 #X obj 518 461 r \$0-thisPan;
r@180 781 #X obj 491 344 r~ \$0-thisNoise;
r@171 782 #X text 273 27 Generates the sound associated with the lift dipole.
r@171 783 ;
r@171 784 #X text 175 312 Generates the sound associated with the drag dipole.
r@171 785 ;
r@180 786 #X obj 243 88 r \$0-Qval;
r@180 787 #X obj 513 94 r \$0-Qval;
r@180 788 #X obj 783 86 r \$0-Qval;
r@180 789 #X obj 524 364 r \$0-Qval;
r@180 790 #X obj 250 366 r \$0-Qval;
r@180 791 #X obj 210 158 *~ 1;
r@181 792 #X obj 480 159 *~ 1;
r@181 793 #X obj 750 154 *~ 1;
r@181 794 #X obj 491 428 *~ 1;
r@181 795 #X obj 217 431 *~ 1;
r@180 796 #X floatatom 277 122 5 0 0 0 - - -;
r@180 797 #X obj 210 134 vcf~ 3;
r@181 798 #X obj 76 145 *~;
r@181 799 #X obj 480 138 vcf~ 3;
r@181 800 #X obj 750 131 vcf~ 3;
r@181 801 #X obj 491 407 vcf~ 3;
r@181 802 #X obj 217 409 vcf~ 3;
r@181 803 #X obj 76 174 *~ 0.01;
r@181 804 #X obj 352 199 *~ 0.01;
r@181 805 #X obj 621 193 *~ 0.01;
r@181 806 #X obj 351 457 *~ 0.01;
r@181 807 #X obj 72 462 *~ 0.01;
r@171 808 #X connect 0 0 2 0;
r@181 809 #X connect 0 0 49 1;
r@181 810 #X connect 0 0 94 1;
r@181 811 #X connect 1 0 45 1;
r@181 812 #X connect 1 0 95 1;
r@181 813 #X connect 2 0 95 0;
r@181 814 #X connect 5 0 3 0;
r@181 815 #X connect 5 1 4 0;
r@181 816 #X connect 6 0 5 1;
r@181 817 #X connect 7 0 25 0;
r@181 818 #X connect 8 0 15 0;
r@181 819 #X connect 9 0 12 0;
r@181 820 #X connect 12 0 101 0;
r@181 821 #X connect 13 0 10 0;
r@181 822 #X connect 13 1 11 0;
r@181 823 #X connect 14 0 13 1;
r@181 824 #X connect 15 0 12 1;
r@181 825 #X connect 15 0 52 1;
r@181 826 #X connect 16 0 24 0;
r@181 827 #X connect 17 0 66 0;
r@181 828 #X connect 18 0 21 0;
r@181 829 #X connect 21 0 102 0;
r@181 830 #X connect 22 0 19 0;
r@181 831 #X connect 22 1 20 0;
r@181 832 #X connect 23 0 22 1;
r@181 833 #X connect 24 0 18 0;
r@181 834 #X connect 24 0 63 1;
r@181 835 #X connect 24 0 97 1;
r@181 836 #X connect 25 0 9 0;
r@181 837 #X connect 25 0 56 1;
r@181 838 #X connect 25 0 96 1;
r@181 839 #X connect 26 0 34 0;
r@181 840 #X connect 27 0 30 0;
r@181 841 #X connect 30 0 104 0;
r@181 842 #X connect 31 0 28 0;
r@181 843 #X connect 31 1 29 0;
r@181 844 #X connect 32 0 31 1;
r@181 845 #X connect 33 0 30 1;
r@181 846 #X connect 33 0 67 1;
r@181 847 #X connect 34 0 27 0;
r@181 848 #X connect 34 0 71 1;
r@181 849 #X connect 34 0 99 1;
r@181 850 #X connect 35 0 43 0;
r@181 851 #X connect 36 0 39 0;
r@181 852 #X connect 39 0 103 0;
r@181 853 #X connect 40 0 37 0;
r@181 854 #X connect 40 1 38 0;
r@181 855 #X connect 41 0 40 1;
r@181 856 #X connect 42 0 44 0;
r@181 857 #X connect 43 0 36 0;
r@181 858 #X connect 43 0 78 1;
r@181 859 #X connect 43 0 98 1;
r@181 860 #X connect 44 0 39 1;
r@181 861 #X connect 44 0 74 1;
r@181 862 #X connect 45 0 48 0;
r@181 863 #X connect 48 0 46 0;
r@181 864 #X connect 48 1 47 0;
r@181 865 #X connect 49 0 94 0;
r@181 866 #X connect 50 0 48 1;
r@181 867 #X connect 51 0 49 0;
r@181 868 #X connect 52 0 55 0;
r@181 869 #X connect 55 0 53 0;
r@181 870 #X connect 55 1 54 0;
r@181 871 #X connect 56 0 96 0;
r@181 872 #X connect 57 0 55 1;
r@181 873 #X connect 58 0 56 0;
r@181 874 #X connect 59 0 62 0;
r@181 875 #X connect 62 0 60 0;
r@181 876 #X connect 62 1 61 0;
r@181 877 #X connect 63 0 97 0;
r@181 878 #X connect 64 0 62 1;
r@181 879 #X connect 65 0 63 0;
r@181 880 #X connect 66 0 21 1;
r@181 881 #X connect 66 0 59 1;
r@181 882 #X connect 67 0 70 0;
r@181 883 #X connect 70 0 68 0;
r@181 884 #X connect 70 1 69 0;
r@181 885 #X connect 71 0 99 0;
r@181 886 #X connect 72 0 70 1;
r@181 887 #X connect 73 0 71 0;
r@181 888 #X connect 74 0 77 0;
r@181 889 #X connect 77 0 75 0;
r@181 890 #X connect 77 1 76 0;
r@181 891 #X connect 78 0 98 0;
r@181 892 #X connect 79 0 77 1;
r@181 893 #X connect 80 0 78 0;
r@181 894 #X connect 83 0 49 2;
r@181 895 #X connect 83 0 93 0;
r@181 896 #X connect 83 0 94 2;
r@181 897 #X connect 84 0 56 2;
r@181 898 #X connect 84 0 96 2;
r@181 899 #X connect 85 0 63 2;
r@181 900 #X connect 85 0 97 2;
r@181 901 #X connect 86 0 78 2;
r@181 902 #X connect 86 0 98 2;
r@181 903 #X connect 87 0 71 2;
r@181 904 #X connect 87 0 99 2;
r@181 905 #X connect 88 0 45 0;
r@181 906 #X connect 89 0 52 0;
r@181 907 #X connect 90 0 59 0;
r@181 908 #X connect 91 0 74 0;
r@181 909 #X connect 92 0 67 0;
r@181 910 #X connect 94 0 88 0;
r@181 911 #X connect 95 0 100 0;
r@181 912 #X connect 96 0 89 0;
r@181 913 #X connect 97 0 90 0;
r@181 914 #X connect 98 0 91 0;
r@181 915 #X connect 99 0 92 0;
r@181 916 #X connect 100 0 5 0;
r@181 917 #X connect 101 0 13 0;
r@181 918 #X connect 102 0 22 0;
r@181 919 #X connect 103 0 40 0;
r@181 920 #X connect 104 0 31 0;
r@171 921 #X restore 649 504 pd Dipoles;
r@171 922 #X obj 1088 69 noise~;
r@171 923 #X obj 1088 92 s~ \$0-thisNoise;
r@171 924 #X obj 1067 214 r~ \$0-thisNoise;
r@171 925 #X text 674 440 the object and environment;
r@174 926 #X obj 881 424 r myMet;
r@174 927 #X obj 881 444 snapshot~;
r@174 928 #X floatatom 881 467 0 0 0 0 - - -;
r@181 929 #N canvas 405 141 1027 635 StBandwidth 1;
r@180 930 #X obj 444 142 inlet;
r@180 931 #X obj 460 365 swap 1;
r@180 932 #X obj 460 391 /;
r@181 933 #X floatatom 534 431 0 0 0 0 - - -;
r@180 934 #X obj 460 342 / 100;
r@181 935 #X obj 461 434 outlet;
r@180 936 #X text 437 453 Q value;
r@180 937 #X obj 531 -36 r~ \$0-myRey;
r@180 938 #X obj 477 -36 r myMet;
r@180 939 #X obj 477 -14 snapshot~;
r@180 940 #X obj 203 164 spigot;
r@180 941 #X obj 219 187 spigot;
r@180 942 #X obj 236 140 > 0;
r@180 943 #X obj 252 163 < 145021;
r@180 944 #X obj 219 233 + 0.9797;
r@180 945 #X floatatom 194 270 0 0 0 0 - - -;
r@180 946 #X obj 219 208 * 4.624e-05;
r@180 947 #N canvas 249 105 810 724 linearCalc 0;
r@180 948 #X obj 240 36 inlet;
r@180 949 #X obj 248 579 outlet;
r@180 950 #X floatatom 263 126 0 0 0 0 - - -;
r@180 951 #X obj 240 59 * 38.7462;
r@180 952 #X obj 240 81 + 0.6254;
r@180 953 #X text 223 3 Peak dependant on TU value;
r@180 954 #X obj 339 146 inlet;
r@180 955 #X obj 215 435 < 193260;
r@180 956 #X obj 182 458 spigot;
r@180 957 #X obj 308 457 spigot;
r@180 958 #X obj 338 433 > 193260;
r@180 959 #X obj 125 164 - 7.685;
r@180 960 #X obj 125 187 / 48293;
r@180 961 #X obj 140 210 - 145021;
r@180 962 #X obj 125 255 *;
r@180 963 #X obj 125 278 + 7.685;
r@180 964 #X floatatom 81 327 0 0 0 0 - - -;
r@180 965 #X floatatom 123 486 0 0 0 0 - - -;
r@180 966 #X obj 426 221 - 193260;
r@180 967 #X obj 411 150 swap 2.95;
r@180 968 #X obj 411 174 -;
r@180 969 #X obj 411 197 / 50060;
r@180 970 #X obj 411 267 *;
r@180 971 #X obj 140 232 t f b;
r@180 972 #X obj 411 302 +;
r@180 973 #X obj 370 273 t f b;
r@180 974 #X floatatom 409 328 0 0 0 0 - - -;
r@180 975 #X obj 426 242 t f b;
r@180 976 #X floatatom 336 491 0 0 0 0 - - -;
r@180 977 #X obj 240 102 min 200;
r@180 978 #X text 328 56 Calculates the peak value of DeltaF / F depending on
r@180 979 the TU values. The higher the TU the higher the DeltaF/F value. A limit
r@180 980 of 200 has been made as the value is a % and bandwidth greater than
r@180 981 200% would invlove -ve frequencies;
r@180 982 #X text -9 102 Linear up slope of the second section;
r@180 983 #X text 478 174 Linear down slope of the second section;
r@180 984 #X text 391 391 Peak of the DeltaF / F was found to be at a Reynolds
r@180 985 number of 193260;
r@180 986 #X connect 0 0 3 0;
r@180 987 #X connect 3 0 4 0;
r@180 988 #X connect 4 0 29 0;
r@180 989 #X connect 6 0 10 0;
r@180 990 #X connect 6 0 7 0;
r@180 991 #X connect 6 0 18 0;
r@180 992 #X connect 6 0 13 0;
r@180 993 #X connect 7 0 8 1;
r@180 994 #X connect 8 0 17 0;
r@180 995 #X connect 8 0 1 0;
r@180 996 #X connect 9 0 28 0;
r@180 997 #X connect 9 0 1 0;
r@180 998 #X connect 10 0 9 1;
r@180 999 #X connect 11 0 12 0;
r@180 1000 #X connect 12 0 14 0;
r@180 1001 #X connect 13 0 23 0;
r@180 1002 #X connect 14 0 15 0;
r@180 1003 #X connect 15 0 16 0;
r@180 1004 #X connect 15 0 8 0;
r@180 1005 #X connect 18 0 27 0;
r@180 1006 #X connect 19 0 20 0;
r@180 1007 #X connect 19 1 20 1;
r@180 1008 #X connect 20 0 21 0;
r@180 1009 #X connect 21 0 22 0;
r@180 1010 #X connect 22 0 24 0;
r@180 1011 #X connect 23 0 14 1;
r@180 1012 #X connect 23 1 14 0;
r@180 1013 #X connect 24 0 26 0;
r@180 1014 #X connect 24 0 9 0;
r@180 1015 #X connect 25 0 24 1;
r@180 1016 #X connect 25 1 24 0;
r@180 1017 #X connect 27 0 22 1;
r@180 1018 #X connect 27 1 22 0;
r@180 1019 #X connect 29 0 2 0;
r@180 1020 #X connect 29 0 19 0;
r@180 1021 #X connect 29 0 25 0;
r@180 1022 #X connect 29 0 11 0;
r@180 1023 #X restore 444 164 pd linearCalc;
r@180 1024 #X floatatom 384 206 0 0 0 0 - - -;
r@180 1025 #X obj 477 188 > 145021;
r@180 1026 #X obj 493 211 < 243320;
r@180 1027 #X obj 444 212 spigot;
r@180 1028 #X obj 460 235 spigot;
r@180 1029 #X obj 602 150 spigot;
r@180 1030 #X obj 618 173 spigot;
r@180 1031 #X obj 635 126 > 243320;
r@180 1032 #X obj 651 149 < 1e+06;
r@180 1033 #X obj 618 216 * 1.227e-10;
r@180 1034 #X obj 618 196 *;
r@180 1035 #X obj 690 215 * -8.553e-05;
r@180 1036 #X obj 618 261 + 16.5;
r@180 1037 #X obj 618 238 +;
r@180 1038 #X floatatom 640 291 0 0 0 0 - - -;
r@180 1039 #X floatatom 565 18 0 0 0 0 - - -;
r@180 1040 #X floatatom 475 260 0 0 0 0 - - -;
r@180 1041 #X text -84 298 First section of the Reynolds number - DeltaF/F relationship
r@180 1042 is linear and did not appear to be reliant on current TU values;
r@180 1043 #X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
r@180 1044 is linear and did not appear to be reliant on current TU values;
r@180 1045 #X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
r@180 1046 is also linear but depends on TU Value;
r@181 1047 #X obj 461 412 max 0.005;
r@181 1048 #X floatatom 412 438 0 0 0 0 - - -;
r@180 1049 #X connect 0 0 17 0;
r@180 1050 #X connect 1 0 2 0;
r@180 1051 #X connect 1 1 2 1;
r@180 1052 #X connect 2 0 3 0;
r@181 1053 #X connect 2 0 38 0;
r@180 1054 #X connect 4 0 1 0;
r@180 1055 #X connect 7 0 9 0;
r@180 1056 #X connect 8 0 9 0;
r@180 1057 #X connect 9 0 25 0;
r@180 1058 #X connect 9 0 26 0;
r@180 1059 #X connect 9 0 23 0;
r@180 1060 #X connect 9 0 19 0;
r@180 1061 #X connect 9 0 20 0;
r@180 1062 #X connect 9 0 17 1;
r@180 1063 #X connect 9 0 13 0;
r@180 1064 #X connect 9 0 12 0;
r@180 1065 #X connect 9 0 10 0;
r@180 1066 #X connect 9 0 33 0;
r@180 1067 #X connect 10 0 11 0;
r@180 1068 #X connect 11 0 16 0;
r@180 1069 #X connect 12 0 10 1;
r@180 1070 #X connect 13 0 11 1;
r@180 1071 #X connect 14 0 15 0;
r@180 1072 #X connect 14 0 4 0;
r@180 1073 #X connect 16 0 14 0;
r@180 1074 #X connect 17 0 18 0;
r@180 1075 #X connect 17 0 21 0;
r@180 1076 #X connect 19 0 21 1;
r@180 1077 #X connect 20 0 22 1;
r@180 1078 #X connect 21 0 22 0;
r@180 1079 #X connect 22 0 4 0;
r@180 1080 #X connect 22 0 34 0;
r@180 1081 #X connect 23 0 24 0;
r@180 1082 #X connect 24 0 28 0;
r@180 1083 #X connect 24 0 28 1;
r@180 1084 #X connect 24 0 29 0;
r@180 1085 #X connect 25 0 23 1;
r@180 1086 #X connect 26 0 24 1;
r@180 1087 #X connect 27 0 31 0;
r@180 1088 #X connect 28 0 27 0;
r@180 1089 #X connect 29 0 31 1;
r@180 1090 #X connect 30 0 32 0;
r@180 1091 #X connect 30 0 4 0;
r@180 1092 #X connect 31 0 30 0;
r@181 1093 #X connect 38 0 5 0;
r@181 1094 #X connect 38 0 39 0;
r@180 1095 #X restore 1189 91 pd StBandwidth;
r@180 1096 #X obj 1189 67 inlet;
r@180 1097 #X obj 1189 114 s \$0-Qval;
r@171 1098 #X connect 1 0 3 0;
r@171 1099 #X connect 2 0 20 0;
r@171 1100 #X connect 2 0 42 0;
r@181 1101 #X connect 2 0 104 0;
r@171 1102 #X connect 3 0 2 0;
r@171 1103 #X connect 4 0 17 0;
r@171 1104 #X connect 5 0 4 0;
r@171 1105 #X connect 6 0 11 0;
r@171 1106 #X connect 6 0 43 0;
r@171 1107 #X connect 9 0 29 0;
r@171 1108 #X connect 9 0 48 0;
r@171 1109 #X connect 12 0 3 1;
r@171 1110 #X connect 13 0 4 1;
r@171 1111 #X connect 15 0 5 1;
r@171 1112 #X connect 16 0 1 0;
r@171 1113 #X connect 18 0 14 0;
r@171 1114 #X connect 19 0 46 0;
r@171 1115 #X connect 21 0 96 0;
r@171 1116 #X connect 25 0 81 1;
r@171 1117 #X connect 26 0 81 4;
r@171 1118 #X connect 27 0 30 0;
r@171 1119 #X connect 27 0 83 0;
r@171 1120 #X connect 28 0 31 0;
r@171 1121 #X connect 28 0 84 0;
r@171 1122 #X connect 39 0 40 0;
r@171 1123 #X connect 39 0 47 0;
r@171 1124 #X connect 42 0 55 0;
r@171 1125 #X connect 42 0 5 0;
r@171 1126 #X connect 46 0 44 0;
r@171 1127 #X connect 46 1 45 0;
r@171 1128 #X connect 51 0 81 0;
r@171 1129 #X connect 52 0 81 3;
r@171 1130 #X connect 53 0 81 5;
r@171 1131 #X connect 57 0 73 1;
r@171 1132 #X connect 58 0 19 0;
r@171 1133 #X connect 59 0 46 1;
r@171 1134 #X connect 60 0 63 0;
r@171 1135 #X connect 60 0 66 0;
r@171 1136 #X connect 61 0 64 0;
r@171 1137 #X connect 61 0 67 0;
r@171 1138 #X connect 62 0 65 0;
r@171 1139 #X connect 62 0 68 0;
r@171 1140 #X connect 73 0 94 0;
r@171 1141 #X connect 74 0 73 0;
r@171 1142 #X connect 75 0 80 1;
r@171 1143 #X connect 76 0 80 3;
r@171 1144 #X connect 77 0 80 0;
r@171 1145 #X connect 78 0 80 2;
r@171 1146 #X connect 79 0 80 5;
r@171 1147 #X connect 80 0 50 0;
r@171 1148 #X connect 80 1 49 0;
r@171 1149 #X connect 81 0 54 0;
r@171 1150 #X connect 85 0 80 6;
r@171 1151 #X connect 86 0 80 7;
r@175 1152 #X connect 87 0 81 7;
r@175 1153 #X connect 88 0 81 6;
r@171 1154 #X connect 89 0 91 0;
r@171 1155 #X connect 90 0 89 0;
r@171 1156 #X connect 92 0 80 4;
r@171 1157 #X connect 93 0 94 1;
r@171 1158 #X connect 94 0 19 1;
r@171 1159 #X connect 95 0 81 2;
r@171 1160 #X connect 96 0 97 0;
r@171 1161 #X connect 97 0 22 0;
r@171 1162 #X connect 97 0 56 0;
r@171 1163 #X connect 99 0 100 0;
r@171 1164 #X connect 101 0 74 0;
r@174 1165 #X connect 103 0 104 0;
r@174 1166 #X connect 104 0 105 0;
r@180 1167 #X connect 106 0 108 0;
r@180 1168 #X connect 107 0 106 0;