Mercurial > hg > weather-synthesis-prototyping

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