Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/freqCalcCyl3No_D4Mach.pd @ 279:4d43740a209c

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