Mercurial > hg > weather-synthesis-prototyping

annotate SwordLogInterp/freqCalcCyl4HiFi.pd @ 268:333d4defb767

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Work done: Calculate the propeller azimuth in relation to the direction of flight Calculate the angle between the propeller in flight and the observer, stationary at the origin Calculate the correct value of pan, stipulating that the observer is at the origin facing in the positive x direction, or North.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Sat, 28 Jan 2017 15:46:50 +0000
parents 8fae36f1df0b
children
rev   line source
r@194 1 #N canvas 36 69 1370 784 10;
r@194 2 #X text 587 178 Mass Density of Air;
r@194 3 #X obj 709 179 *~ 1.225;
r@194 4 #X obj 709 254 /~ 1.81e-05;
r@194 5 #X obj 709 209 *~ 1;
r@194 6 #X obj 709 372 /~ 1;
r@194 7 #X obj 709 348 *~;
r@194 8 #X obj 223 63 inlet;
r@194 9 #X text 742 298 Reynolds Number;
r@194 10 #X text 589 365 Strouhal Number;
r@194 11 #X text 739 234 Viscosity;
r@194 12 #X obj 230 86 s \$0-diameter;
r@194 13 #X obj 770 178 r \$0-diameter;
r@194 14 #X obj 777 353 r \$0-diameter;
r@194 15 #X obj 709 396 s~ \$0-myFreq;
r@194 16 #X obj 1052 334 *~;
r@194 17 #X obj 722 278 s~ \$0-myRey;
r@194 18 #X obj 636 57 inlet;
r@194 19 #X floatatom 581 126 8 0 0 0 - - -;
r@194 20 #X text 673 415 Calculates the frequency;
r@194 21 #X text 674 427 based on the physics of;
r@194 22 #X obj 354 469 r \$0-diameter;
r@194 23 #X text 294 352 Calculates the gain of the dipole source;
r@194 24 #X text 459 37 Azimuth;
r@194 25 #X text 641 39 Pan;
r@194 26 #X text 533 41 Elevation;
r@194 27 #X text 384 42 Distance;
r@194 28 #X text 218 42 Diameter;
r@194 29 #X obj 709 319 newStrou;
r@194 30 #X floatatom 223 107 0 0 0 0 - - -;
r@194 31 #X obj 1052 403 throw~ l;
r@194 32 #X obj 1079 381 throw~ r;
r@194 33 #X obj 1052 359 fcpan;
r@194 34 #X obj 430 329 s~ \$0-dragDiGain;
r@194 35 #X obj 313 329 s~ \$0-liftDiGain;
r@194 36 #X obj 294 404 r~ \$0-str;
r@194 37 #X obj 294 580 s~ \$0-liftNoiseGain;
r@194 38 #X obj 609 350 s~ \$0-str;
r@194 39 #X obj 636 126 s \$0-thisPan;
r@194 40 #X obj 1052 190 r~ \$0-liftNoiseGain;
r@194 41 #X obj 1079 334 r \$0-thisPan;
r@194 42 #X text 1033 164 Noise spectrum calculation;
r@194 43 #X obj 1067 282 hip~;
r@194 44 #X obj 1067 237 rpole~ 0.99;
r@194 45 #X obj 350 205 r \$0-diameter;
r@194 46 #X obj 313 163 r~ \$0-str;
r@194 47 #X text 285 599 Calculates the gain of the wake;
r@194 48 #N canvas 1021 287 444 428 corrLen 0;
r@194 49 #X obj 103 71 inlet~;
r@194 50 #X obj 88 200 outlet~;
r@194 51 #X obj 88 143 *~;
r@194 52 #X obj 124 93 sig~ -0.245;
r@194 53 #X obj 103 119 pow~;
r@194 54 #X text 234 22 Y = 10^b . X^m;
r@194 55 #X text 235 40 b = 1.536;
r@194 56 #X text 235 56 m = -0.245;
r@194 57 #X text 80 297 Equation of line derived from Norberg 2001;
r@194 58 #X obj 88 169 max~ 1;
r@194 59 #X obj 88 46 sig~ 44.67;
r@194 60 #X connect 0 0 4 0;
r@194 61 #X connect 2 0 9 0;
r@194 62 #X connect 3 0 4 1;
r@194 63 #X connect 4 0 2 1;
r@194 64 #X connect 9 0 1 0;
r@194 65 #X connect 10 0 2 0;
r@194 66 #X restore 761 65 pd corrLen Calc;
r@194 67 #X obj 761 42 r~ \$0-myRey;
r@194 68 #X obj 761 89 s~ \$0-myCor;
r@194 69 #X obj 371 224 r~ \$0-myCor;
r@194 70 #X obj 1067 309 hip~;
r@194 71 #X obj 335 448 r~ \$0-myCor;
r@194 72 #X obj 636 81 max 0.01;
r@194 73 #X obj 636 104 min 0.99;
r@194 74 #N canvas 93 119 976 679 Dipoles 0;
r@194 75 #X obj 131 67 r~ \$0-myFreq;
r@194 76 #X obj 225 178 r~ \$0-liftDiGain;
r@194 77 #X obj 389 58 r~ \$0-myFreq;
r@194 78 #X obj 528 138 r~ \$0-liftDiGain;
r@194 79 #X obj 528 159 *~ 0.6;
r@194 80 #X obj 657 57 r~ \$0-myFreq;
r@194 81 #X obj 798 130 r~ \$0-liftDiGain;
r@194 82 #X obj 657 81 *~ 5;
r@194 83 #X obj 389 82 *~ 3;
r@194 84 #X obj 258 385 r~ \$0-myFreq;
r@194 85 #X obj 371 472 r~ \$0-dragDiGain;
r@194 86 #X obj 258 407 *~ 2;
r@194 87 #X obj 528 385 r~ \$0-myFreq;
r@194 88 #X obj 658 447 r~ \$0-dragDiGain;
r@194 89 #X obj 528 413 *~ 4;
r@194 90 #X obj 658 470 *~ 0.125;
r@194 91 #X obj 210 199 *~;
r@194 92 #X obj 210 264 throw~ l;
r@194 93 #X obj 237 241 throw~ r;
r@194 94 #X obj 210 220 fcpan;
r@194 95 #X obj 210 108 vcf~ 3;
r@194 96 #X obj 237 198 r \$0-thisPan;
r@194 97 #X obj 210 67 r~ \$0-thisNoise;
r@194 98 #X obj 480 192 *~;
r@194 99 #X obj 480 257 throw~ l;
r@194 100 #X obj 507 234 throw~ r;
r@194 101 #X obj 480 213 fcpan;
r@194 102 #X obj 480 116 vcf~ 3;
r@194 103 #X obj 507 191 r \$0-thisPan;
r@194 104 #X obj 480 68 r~ \$0-thisNoise;
r@194 105 #X obj 750 183 *~;
r@194 106 #X obj 750 248 throw~ l;
r@194 107 #X obj 777 225 throw~ r;
r@194 108 #X obj 750 204 fcpan;
r@194 109 #X obj 750 107 vcf~ 3;
r@194 110 #X obj 777 182 r \$0-thisPan;
r@194 111 #X obj 750 65 r~ \$0-thisNoise;
r@194 112 #X obj 798 152 *~ 0.1;
r@194 113 #X obj 338 505 *~;
r@194 114 #X obj 338 570 throw~ l;
r@194 115 #X obj 365 547 throw~ r;
r@194 116 #X obj 338 526 fcpan;
r@194 117 #X obj 338 429 vcf~ 3;
r@194 118 #X obj 365 504 r \$0-thisPan;
r@194 119 #X obj 338 385 r~ \$0-thisNoise;
r@194 120 #X obj 612 503 *~;
r@194 121 #X obj 612 568 throw~ l;
r@194 122 #X obj 639 545 throw~ r;
r@194 123 #X obj 612 524 fcpan;
r@194 124 #X obj 612 427 vcf~ 3;
r@194 125 #X obj 639 502 r \$0-thisPan;
r@194 126 #X obj 612 385 r~ \$0-thisNoise;
r@194 127 #X text 273 27 Generates the sound associated with the lift dipole.
r@194 128 ;
r@194 129 #X text 296 353 Generates the sound associated with the drag dipole.
r@194 130 ;
r@194 131 #X obj 270 87 r \$0-Qval;
r@194 132 #X obj 530 92 r \$0-Qval;
r@194 133 #X obj 800 87 r \$0-Qval;
r@194 134 #X obj 658 406 r \$0-Qval;
r@194 135 #X obj 383 407 r \$0-Qval;
r@194 136 #X obj 210 158 *~ 1;
r@194 137 #X obj 480 159 *~ 1;
r@194 138 #X obj 750 154 *~ 1;
r@194 139 #X obj 612 469 *~ 1;
r@194 140 #X obj 338 472 *~ 1;
r@194 141 #X floatatom 277 122 5 0 0 0 - - -;
r@194 142 #X obj 210 134 vcf~ 3;
r@194 143 #X obj 480 138 vcf~ 3;
r@194 144 #X obj 750 131 vcf~ 3;
r@194 145 #X obj 612 448 vcf~ 3;
r@194 146 #X obj 338 450 vcf~ 3;
r@194 147 #X connect 0 0 20 1;
r@194 148 #X connect 0 0 65 1;
r@194 149 #X connect 1 0 16 1;
r@194 150 #X connect 2 0 8 0;
r@194 151 #X connect 3 0 4 0;
r@194 152 #X connect 4 0 23 1;
r@194 153 #X connect 5 0 7 0;
r@194 154 #X connect 6 0 37 0;
r@194 155 #X connect 7 0 34 1;
r@194 156 #X connect 7 0 67 1;
r@194 157 #X connect 8 0 27 1;
r@194 158 #X connect 8 0 66 1;
r@194 159 #X connect 9 0 11 0;
r@194 160 #X connect 10 0 38 1;
r@194 161 #X connect 11 0 42 1;
r@194 162 #X connect 11 0 69 1;
r@194 163 #X connect 12 0 14 0;
r@194 164 #X connect 13 0 15 0;
r@194 165 #X connect 14 0 49 1;
r@194 166 #X connect 14 0 68 1;
r@194 167 #X connect 15 0 45 1;
r@194 168 #X connect 16 0 19 0;
r@194 169 #X connect 19 0 17 0;
r@194 170 #X connect 19 1 18 0;
r@194 171 #X connect 20 0 65 0;
r@194 172 #X connect 21 0 19 1;
r@194 173 #X connect 22 0 20 0;
r@194 174 #X connect 23 0 26 0;
r@194 175 #X connect 26 0 24 0;
r@194 176 #X connect 26 1 25 0;
r@194 177 #X connect 27 0 66 0;
r@194 178 #X connect 28 0 26 1;
r@194 179 #X connect 29 0 27 0;
r@194 180 #X connect 30 0 33 0;
r@194 181 #X connect 33 0 31 0;
r@194 182 #X connect 33 1 32 0;
r@194 183 #X connect 34 0 67 0;
r@194 184 #X connect 35 0 33 1;
r@194 185 #X connect 36 0 34 0;
r@194 186 #X connect 37 0 30 1;
r@194 187 #X connect 38 0 41 0;
r@194 188 #X connect 41 0 39 0;
r@194 189 #X connect 41 1 40 0;
r@194 190 #X connect 42 0 69 0;
r@194 191 #X connect 43 0 41 1;
r@194 192 #X connect 44 0 42 0;
r@194 193 #X connect 45 0 48 0;
r@194 194 #X connect 48 0 46 0;
r@194 195 #X connect 48 1 47 0;
r@194 196 #X connect 49 0 68 0;
r@194 197 #X connect 50 0 48 1;
r@194 198 #X connect 51 0 49 0;
r@194 199 #X connect 54 0 20 2;
r@194 200 #X connect 54 0 64 0;
r@194 201 #X connect 54 0 65 2;
r@194 202 #X connect 55 0 27 2;
r@194 203 #X connect 55 0 66 2;
r@194 204 #X connect 56 0 34 2;
r@194 205 #X connect 56 0 67 2;
r@194 206 #X connect 57 0 49 2;
r@194 207 #X connect 57 0 68 2;
r@194 208 #X connect 58 0 42 2;
r@194 209 #X connect 58 0 69 2;
r@194 210 #X connect 59 0 16 0;
r@194 211 #X connect 60 0 23 0;
r@194 212 #X connect 61 0 30 0;
r@194 213 #X connect 62 0 45 0;
r@194 214 #X connect 63 0 38 0;
r@194 215 #X connect 65 0 59 0;
r@194 216 #X connect 66 0 60 0;
r@194 217 #X connect 67 0 61 0;
r@194 218 #X connect 68 0 62 0;
r@194 219 #X connect 69 0 63 0;
r@194 220 #X restore 649 504 pd Dipoles;
r@194 221 #X obj 893 49 noise~;
r@194 222 #X obj 893 72 s~ \$0-thisNoise;
r@194 223 #X obj 1067 214 r~ \$0-thisNoise;
r@194 224 #X text 674 440 the object and environment;
r@194 225 #N canvas 308 58 1027 635 StBandwidth 0;
r@194 226 #X obj 460 365 swap 1;
r@194 227 #X obj 460 391 /;
r@194 228 #X obj 460 342 / 100;
r@194 229 #X obj 461 434 outlet;
r@194 230 #X text 437 453 Q value;
r@194 231 #X obj 531 -36 r~ \$0-myRey;
r@194 232 #X obj 477 -36 r myMet;
r@194 233 #X obj 477 -14 snapshot~;
r@194 234 #X obj 203 164 spigot;
r@194 235 #X obj 219 187 spigot;
r@194 236 #X obj 236 140 > 0;
r@194 237 #X obj 219 233 + 0.9797;
r@194 238 #X obj 219 208 * 4.624e-05;
r@194 239 #X obj 602 150 spigot;
r@194 240 #X obj 618 173 spigot;
r@194 241 #X obj 651 149 < 1e+06;
r@194 242 #X obj 618 216 * 1.227e-10;
r@194 243 #X obj 618 196 *;
r@194 244 #X obj 690 215 * -8.553e-05;
r@194 245 #X obj 618 261 + 16.5;
r@194 246 #X obj 618 238 +;
r@194 247 #X text -84 298 First section of the Reynolds number - DeltaF/F relationship
r@194 248 is linear and did not appear to be reliant on current TU values;
r@194 249 #X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
r@194 250 is linear and did not appear to be reliant on current TU values;
r@194 251 #X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
r@194 252 is also linear but depends on TU Value;
r@194 253 #X obj 461 412 max 0.005;
r@194 254 #X obj 635 126 > 193260;
r@194 255 #X obj 252 163 < 193260;
r@194 256 #X connect 0 0 1 0;
r@194 257 #X connect 0 1 1 1;
r@194 258 #X connect 1 0 24 0;
r@194 259 #X connect 2 0 0 0;
r@194 260 #X connect 5 0 7 0;
r@194 261 #X connect 6 0 7 0;
r@194 262 #X connect 7 0 15 0;
r@194 263 #X connect 7 0 13 0;
r@194 264 #X connect 7 0 10 0;
r@194 265 #X connect 7 0 8 0;
r@194 266 #X connect 7 0 25 0;
r@194 267 #X connect 7 0 26 0;
r@194 268 #X connect 8 0 9 0;
r@194 269 #X connect 9 0 12 0;
r@194 270 #X connect 10 0 8 1;
r@194 271 #X connect 11 0 2 0;
r@194 272 #X connect 12 0 11 0;
r@194 273 #X connect 13 0 14 0;
r@194 274 #X connect 14 0 18 0;
r@194 275 #X connect 14 0 17 1;
r@194 276 #X connect 14 0 17 0;
r@194 277 #X connect 15 0 14 1;
r@194 278 #X connect 16 0 20 0;
r@194 279 #X connect 17 0 16 0;
r@194 280 #X connect 18 0 20 1;
r@194 281 #X connect 19 0 2 0;
r@194 282 #X connect 20 0 19 0;
r@194 283 #X connect 24 0 3 0;
r@194 284 #X connect 25 0 13 1;
r@194 285 #X connect 26 0 9 1;
r@194 286 #X restore 994 71 pd StBandwidth;
r@194 287 #X obj 994 94 s \$0-Qval;
r@194 288 #X obj 1153 257 r myMet;
r@194 289 #X obj 1143 278 snapshot~;
r@194 290 #X obj 1143 237 r~ \$0-myFreq;
r@194 291 #X text 133 41 Source Speed;
r@194 292 #X obj 388 61 inlet~;
r@194 293 #X obj 460 60 inlet~;
r@194 294 #X obj 534 59 inlet~;
r@194 295 #X obj 542 82 s~ \$0-elev;
r@194 296 #X obj 467 82 s~ \$0-azim;
r@194 297 #X obj 393 84 s~ \$0-dist;
r@194 298 #X obj 120 65 inlet~;
r@194 299 #X obj 52 88 /~ 343.56;
r@194 300 #X obj 52 111 s~ \$0-MY_MACH;
r@194 301 #X obj 391 245 r~ \$0-dist;
r@194 302 #X obj 410 266 r~ \$0-elev;
r@194 303 #X obj 430 285 r~ \$0-azim;
r@194 304 #N canvas 205 88 1238 721 GoldfreqGainSword 0;
r@194 305 #N canvas 759 125 286 294 pow6 0;
r@194 306 #X obj 47 67 *~;
r@194 307 #X obj 76 67 *~;
r@194 308 #X obj 76 35 inlet~;
r@194 309 #X obj 47 163 outlet~;
r@194 310 #X obj 136 184 snapshot~;
r@194 311 #X obj 136 159 metro 100;
r@194 312 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 313 1;
r@194 314 #X floatatom 136 211 10 0 0 0 - - -;
r@194 315 #X obj 216 210 outlet;
r@194 316 #X obj 136 111 loadbang;
r@194 317 #X obj 106 67 *~;
r@194 318 #X obj 47 93 *~;
r@194 319 #X obj 47 118 *~;
r@194 320 #X obj 372 202 *;
r@194 321 #X obj 372 228 *;
r@194 322 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@194 323 -1 -1 0 1;
r@194 324 #X floatatom 374 288 10 0 0 0 - - -;
r@194 325 #X obj 303 20 t f b;
r@194 326 #X floatatom 455 55 5 0 0 0 - - -;
r@194 327 #X obj 372 260 *;
r@194 328 #X obj 400 202 *;
r@194 329 #X msg 303 -4 6;
r@194 330 #X obj 434 201 *;
r@194 331 #X connect 0 0 11 0;
r@194 332 #X connect 1 0 11 1;
r@194 333 #X connect 2 0 0 0;
r@194 334 #X connect 2 0 0 1;
r@194 335 #X connect 2 0 1 1;
r@194 336 #X connect 2 0 10 0;
r@194 337 #X connect 2 0 10 1;
r@194 338 #X connect 2 0 1 0;
r@194 339 #X connect 4 0 7 0;
r@194 340 #X connect 4 0 8 0;
r@194 341 #X connect 5 0 4 0;
r@194 342 #X connect 6 0 5 0;
r@194 343 #X connect 9 0 6 0;
r@194 344 #X connect 10 0 12 1;
r@194 345 #X connect 11 0 12 0;
r@194 346 #X connect 12 0 4 0;
r@194 347 #X connect 12 0 3 0;
r@194 348 #X connect 13 0 14 0;
r@194 349 #X connect 14 0 19 0;
r@194 350 #X connect 15 0 13 0;
r@194 351 #X connect 15 0 13 1;
r@194 352 #X connect 15 0 18 0;
r@194 353 #X connect 15 0 20 0;
r@194 354 #X connect 15 0 20 1;
r@194 355 #X connect 17 0 13 0;
r@194 356 #X connect 17 0 13 1;
r@194 357 #X connect 17 0 20 0;
r@194 358 #X connect 17 0 20 1;
r@194 359 #X connect 17 0 22 0;
r@194 360 #X connect 17 0 22 1;
r@194 361 #X connect 17 1 13 0;
r@194 362 #X connect 17 1 20 0;
r@194 363 #X connect 17 1 22 0;
r@194 364 #X connect 19 0 16 0;
r@194 365 #X connect 20 0 14 1;
r@194 366 #X connect 21 0 17 0;
r@194 367 #X connect 22 0 19 1;
r@194 368 #X restore 219 150 pd pow6;
r@194 369 #X obj 173 152 *~;
r@194 370 #X obj 219 176 *~;
r@194 371 #X text 587 57 Distance;
r@194 372 #X text 724 548 Calculates Drag Dipole gain;
r@194 373 #X text 48 531 Calculates Lift Dipole gain;
r@194 374 #X obj 173 112 inlet~;
r@194 375 #X obj 219 116 inlet~;
r@194 376 #X text 328 170 Diameter;
r@194 377 #X obj 291 169 inlet;
r@194 378 #X obj 219 590 outlet~;
r@194 379 #X obj 758 523 outlet~;
r@194 380 #X text 311 262 Length;
r@194 381 #X obj 219 289 *~ 1;
r@194 382 #X obj 234 469 /~ 360;
r@194 383 #X obj 234 518 *~;
r@194 384 #X obj 219 541 *~;
r@194 385 #X text 74 112 Strouhal number;
r@194 386 #X text 266 211 Corr Length;
r@194 387 #X obj 219 348 *~ 2.50663;
r@194 388 #X obj 219 238 *~ 1.225;
r@194 389 #X text 93 234 Mass Density of Air;
r@194 390 #X text 145 343 Sqrt(2xpi);
r@194 391 #X obj 332 470 /~ 360;
r@194 392 #X obj 332 516 *~;
r@194 393 #X obj 332 492 cos~;
r@194 394 #X obj 219 567 *~;
r@194 395 #X text 362 210 Speed of Sound to power 3;
r@194 396 #X obj 525 213 cos~;
r@194 397 #X obj 525 236 *~;
r@194 398 #X obj 473 237 sig~ 1;
r@194 399 #X obj 510 267 -~;
r@194 400 #N canvas 1150 227 286 289 pow4 0;
r@194 401 #X obj 47 67 *~;
r@194 402 #X obj 76 67 *~;
r@194 403 #X obj 76 35 inlet~;
r@194 404 #X obj 47 163 outlet~;
r@194 405 #X obj 136 184 snapshot~;
r@194 406 #X obj 136 159 metro 100;
r@194 407 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 408 1;
r@194 409 #X floatatom 136 211 10 0 0 0 - - -;
r@194 410 #X obj 216 210 outlet;
r@194 411 #X obj 136 111 loadbang;
r@194 412 #X obj 47 93 *~;
r@194 413 #X connect 0 0 10 0;
r@194 414 #X connect 1 0 10 1;
r@194 415 #X connect 2 0 0 0;
r@194 416 #X connect 2 0 0 1;
r@194 417 #X connect 2 0 1 1;
r@194 418 #X connect 2 0 1 0;
r@194 419 #X connect 4 0 7 0;
r@194 420 #X connect 4 0 8 0;
r@194 421 #X connect 5 0 4 0;
r@194 422 #X connect 6 0 5 0;
r@194 423 #X connect 9 0 6 0;
r@194 424 #X connect 10 0 3 0;
r@194 425 #X connect 10 0 4 0;
r@194 426 #X restore 510 290 pd pow4;
r@194 427 #X obj 411 322 *~;
r@194 428 #X obj 219 385 /~;
r@194 429 #X obj 133 375 s~ \$0-aGainG;
r@194 430 #X obj 872 246 r~ \$0-aGainG;
r@194 431 #X obj 758 498 *~ 0.1;
r@194 432 #X obj 723 340 +~ 90;
r@194 433 #X obj 723 363 /~ 360;
r@194 434 #X obj 723 409 *~;
r@194 435 #X obj 723 385 sin~;
r@194 436 #X obj 773 359 /~ 360;
r@194 437 #X obj 773 405 *~;
r@194 438 #X obj 773 381 cos~;
r@194 439 #X obj 758 436 *~;
r@194 440 #X text 763 56 Azimuth;
r@194 441 #X text 662 58 Elevation;
r@194 442 #X text 892 335 Speed of Sound to power 3;
r@194 443 #X obj 872 423 /~;
r@194 444 #X text 595 191 Remember - Goldstein moves cylinder;
r@194 445 #X obj 525 194 /~ 360;
r@194 446 #X obj 758 475 *~;
r@194 447 #X obj 478 95 s~ \$0-thisColL;
r@194 448 #X obj 270 150 r~ \$0-thisColL;
r@194 449 #X obj 270 190 *~ 1;
r@194 450 #X obj 219 210 *~;
r@194 451 #X obj 478 72 inlet~;
r@194 452 #X obj 234 495 sin~;
r@194 453 #X obj 219 317 /~ 400;
r@194 454 #X text -53 316 Scale factor to bring in line with CFD calcs;
r@194 455 #X obj 559 214 r~ \$0-MY_MACH;
r@194 456 #X obj 567 73 inlet~;
r@194 457 #X obj 665 76 inlet~;
r@194 458 #X obj 767 74 inlet~;
r@194 459 #X obj 670 99 s~ \$0-this_elev;
r@194 460 #X obj 574 95 s~ \$0-thisDist;
r@194 461 #X obj 525 166 r~ \$0-this_elev;
r@194 462 #X obj 411 135 r~ \$0-thisDist;
r@194 463 #X obj 411 161 *~;
r@194 464 #X obj 411 191 *~ 4.05513e+07;
r@194 465 #X obj 411 244 *~ 32;
r@194 466 #X obj 234 443 r~ \$0-this_elev;
r@194 467 #X obj 723 273 r~ \$0-this_elev;
r@194 468 #X obj 887 292 *~;
r@194 469 #X obj 887 317 *~ 4.05513e+07;
r@194 470 #X obj 887 370 *~ 32;
r@194 471 #X obj 887 268 r~ \$0-thisDist;
r@194 472 #X text 273 110 Source speed;
r@194 473 #X obj 240 263 r bladeLen;
r@194 474 #X obj 774 99 s~ \$0-gain_azim;
r@194 475 #X obj 332 444 r~ \$0-gain_azim;
r@194 476 #X obj 773 294 r~ \$0-gain_azim;
r@194 477 #X connect 0 0 2 0;
r@194 478 #X connect 1 0 2 1;
r@194 479 #X connect 2 0 56 0;
r@194 480 #X connect 6 0 1 0;
r@194 481 #X connect 6 0 1 1;
r@194 482 #X connect 7 0 0 0;
r@194 483 #X connect 9 0 55 1;
r@194 484 #X connect 13 0 59 0;
r@194 485 #X connect 14 0 58 0;
r@194 486 #X connect 15 0 16 1;
r@194 487 #X connect 16 0 26 0;
r@194 488 #X connect 19 0 34 0;
r@194 489 #X connect 19 0 35 0;
r@194 490 #X connect 20 0 13 0;
r@194 491 #X connect 23 0 25 0;
r@194 492 #X connect 24 0 26 1;
r@194 493 #X connect 25 0 24 0;
r@194 494 #X connect 25 0 24 1;
r@194 495 #X connect 26 0 10 0;
r@194 496 #X connect 28 0 29 0;
r@194 497 #X connect 29 0 31 1;
r@194 498 #X connect 30 0 31 0;
r@194 499 #X connect 31 0 32 0;
r@194 500 #X connect 32 0 33 1;
r@194 501 #X connect 33 0 34 1;
r@194 502 #X connect 34 0 16 0;
r@194 503 #X connect 36 0 49 0;
r@194 504 #X connect 37 0 11 0;
r@194 505 #X connect 38 0 39 0;
r@194 506 #X connect 39 0 41 0;
r@194 507 #X connect 40 0 45 0;
r@194 508 #X connect 41 0 40 0;
r@194 509 #X connect 41 0 40 1;
r@194 510 #X connect 42 0 44 0;
r@194 511 #X connect 43 0 45 1;
r@194 512 #X connect 44 0 43 0;
r@194 513 #X connect 44 0 43 1;
r@194 514 #X connect 45 0 52 0;
r@194 515 #X connect 49 0 52 1;
r@194 516 #X connect 51 0 28 0;
r@194 517 #X connect 52 0 37 0;
r@194 518 #X connect 54 0 55 0;
r@194 519 #X connect 55 0 56 1;
r@194 520 #X connect 56 0 20 0;
r@194 521 #X connect 57 0 53 0;
r@194 522 #X connect 58 0 15 0;
r@194 523 #X connect 58 0 15 1;
r@194 524 #X connect 59 0 19 0;
r@194 525 #X connect 61 0 29 1;
r@194 526 #X connect 62 0 66 0;
r@194 527 #X connect 63 0 65 0;
r@194 528 #X connect 64 0 80 0;
r@194 529 #X connect 67 0 51 0;
r@194 530 #X connect 68 0 69 0;
r@194 531 #X connect 68 0 69 1;
r@194 532 #X connect 69 0 70 0;
r@194 533 #X connect 70 0 71 0;
r@194 534 #X connect 71 0 33 0;
r@194 535 #X connect 72 0 14 0;
r@194 536 #X connect 73 0 38 0;
r@194 537 #X connect 74 0 75 0;
r@194 538 #X connect 75 0 76 0;
r@194 539 #X connect 76 0 49 1;
r@194 540 #X connect 77 0 74 0;
r@194 541 #X connect 77 0 74 1;
r@194 542 #X connect 79 0 13 1;
r@194 543 #X connect 81 0 23 0;
r@194 544 #X connect 82 0 42 0;
r@194 545 #X restore 313 307 pd GoldfreqGainSword;
r@194 546 #N canvas 300 30 1006 797 GoldnoiseGainSword 0;
r@194 547 #X text -21037 364 Mass Density of Air \, squared;
r@194 548 #X text -20777 412 Distance;
r@194 549 #N canvas 759 125 235 275 pow8 0;
r@194 550 #X obj 47 67 *~;
r@194 551 #X obj 76 67 *~;
r@194 552 #X obj 76 35 inlet~;
r@194 553 #X obj 47 147 outlet~;
r@194 554 #X obj 128 146 snapshot~;
r@194 555 #X obj 128 121 metro 100;
r@194 556 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 557 1;
r@194 558 #X floatatom 128 173 10 0 0 0 - - -;
r@194 559 #X obj 128 73 loadbang;
r@194 560 #X obj 47 93 *~;
r@194 561 #X obj 47 121 *~;
r@194 562 #X connect 0 0 9 0;
r@194 563 #X connect 1 0 9 1;
r@194 564 #X connect 2 0 0 0;
r@194 565 #X connect 2 0 0 1;
r@194 566 #X connect 2 0 1 1;
r@194 567 #X connect 2 0 1 0;
r@194 568 #X connect 4 0 7 0;
r@194 569 #X connect 5 0 4 0;
r@194 570 #X connect 6 0 5 0;
r@194 571 #X connect 8 0 6 0;
r@194 572 #X connect 9 0 10 0;
r@194 573 #X connect 9 0 10 1;
r@194 574 #X connect 10 0 3 0;
r@194 575 #X connect 10 0 4 0;
r@194 576 #X restore -20846 224 pd pow8;
r@194 577 #X obj -20846 195 inlet~;
r@194 578 #X obj -20807 286 inlet;
r@194 579 #X obj -20861 617 outlet~;
r@194 580 #X text -20858 648 Gain proportional to windspeed to power 8 for spectrum
r@194 581 ;
r@194 582 #X text -20771 287 Diameter;
r@194 583 #X text -21027 627 Calculates wake gain;
r@194 584 #X text -20423 235 Azimuth;
r@194 585 #X text -20367 235 Elevation;
r@194 586 #X obj -20422 296 s~ \$0-this_azim;
r@194 587 #X obj -20861 371 *~ 1.225;
r@194 588 #X obj -20587 239 r~ \$0-this_azim;
r@194 589 #N canvas 759 125 250 309 pow5 0;
r@194 590 #X obj 47 67 *~;
r@194 591 #X obj 76 35 inlet~;
r@194 592 #X obj 47 170 outlet~;
r@194 593 #X obj 136 173 snapshot~;
r@194 594 #X obj 136 148 metro 100;
r@194 595 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 596 1;
r@194 597 #X floatatom 136 200 10 0 0 0 - - -;
r@194 598 #X obj 136 100 loadbang;
r@194 599 #X obj 47 87 *~;
r@194 600 #X obj 47 118 *~;
r@194 601 #X connect 0 0 8 0;
r@194 602 #X connect 0 0 8 1;
r@194 603 #X connect 1 0 0 0;
r@194 604 #X connect 1 0 0 1;
r@194 605 #X connect 1 0 9 1;
r@194 606 #X connect 3 0 6 0;
r@194 607 #X connect 4 0 3 0;
r@194 608 #X connect 5 0 4 0;
r@194 609 #X connect 7 0 5 0;
r@194 610 #X connect 8 0 9 0;
r@194 611 #X connect 9 0 2 0;
r@194 612 #X connect 9 0 3 0;
r@194 613 #X restore -20705 475 pd pow5;
r@194 614 #X obj -20705 451 sig~ 343.56;
r@194 615 #N canvas 875 261 250 309 pow5 0;
r@194 616 #X obj 47 67 *~;
r@194 617 #X obj 76 35 inlet~;
r@194 618 #X obj 47 170 outlet~;
r@194 619 #X obj 136 173 snapshot~;
r@194 620 #X obj 136 148 metro 100;
r@194 621 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@194 622 1;
r@194 623 #X floatatom 136 200 10 0 0 0 - - -;
r@194 624 #X obj 136 100 loadbang;
r@194 625 #X obj 47 87 *~;
r@194 626 #X obj 47 118 *~;
r@194 627 #X connect 0 0 8 0;
r@194 628 #X connect 0 0 8 1;
r@194 629 #X connect 1 0 0 0;
r@194 630 #X connect 1 0 0 1;
r@194 631 #X connect 1 0 9 1;
r@194 632 #X connect 3 0 6 0;
r@194 633 #X connect 4 0 3 0;
r@194 634 #X connect 5 0 4 0;
r@194 635 #X connect 7 0 5 0;
r@194 636 #X connect 8 0 9 0;
r@194 637 #X connect 9 0 2 0;
r@194 638 #X connect 9 0 3 0;
r@194 639 #X restore -20670 401 pd pow5;
r@194 640 #X obj -20624 216 /~ 360;
r@194 641 #X obj -20624 243 cos~;
r@194 642 #X obj -20624 349 *~;
r@194 643 #X obj -20670 348 sig~ 1;
r@194 644 #X obj -20670 375 -~;
r@194 645 #X obj -20705 322 sig~ 3.1416;
r@194 646 #X obj -20705 347 *~;
r@194 647 #X obj -20720 299 sig~ 16;
r@194 648 #X obj -20720 371 *~;
r@194 649 #X obj -20720 429 *~;
r@194 650 #X obj -20720 502 *~;
r@194 651 #X obj -20777 530 *~;
r@194 652 #X obj -20861 574 /~;
r@194 653 #X obj -20624 194 -~;
r@194 654 #X text -20533 187 Angle goes with the flow in Goldstein hence 90 -
r@194 655 theta so that theta is same angle as dipole angles.;
r@194 656 #X obj -20624 149 sig~ 180;
r@194 657 #X obj -20894 195 inlet~;
r@194 658 #X obj -20894 222 *~;
r@194 659 #X obj -20828 253 inlet~;
r@194 660 #X obj -20828 312 *~ 1;
r@194 661 #X obj -20861 251 *~;
r@194 662 #X obj -20861 347 *~;
r@194 663 #X obj -20861 444 *~ 1;
r@194 664 #X obj -20861 528 *~ 2.50663;
r@194 665 #X text -20782 254 Corrolation Length;
r@194 666 #X text -20806 371 Length;
r@194 667 #X obj -20587 285 cos~;
r@194 668 #X obj -20861 595 *~ 1;
r@194 669 #X obj -20587 262 /~ 360;
r@194 670 #X obj -20624 306 *~;
r@194 671 #X obj -20861 488 /~ 400;
r@194 672 #X text -21131 486 Scale factor to bring in line with CFD calcs;
r@194 673 #X text -20929 530 Sqrt(2*pi);
r@194 674 #X obj -20609 328 r~ \$0-MY_MACH;
r@194 675 #X obj -20809 392 r bladeLen;
r@194 676 #X obj -20422 252 inlet~;
r@194 677 #X obj -20366 252 inlet~;
r@194 678 #X obj -20777 433 inlet~;
r@194 679 #X obj -20777 459 *~;
r@194 680 #X text -20847 176 Source speed;
r@194 681 #X obj -20366 274 s~ \$0-wake_elev;
r@194 682 #X obj -20609 172 r~ \$0-wake_elev;
r@194 683 #X connect 2 0 37 1;
r@194 684 #X connect 3 0 2 0;
r@194 685 #X connect 4 0 36 1;
r@194 686 #X connect 12 0 39 0;
r@194 687 #X connect 13 0 45 0;
r@194 688 #X connect 14 0 27 1;
r@194 689 #X connect 15 0 14 0;
r@194 690 #X connect 16 0 26 1;
r@194 691 #X connect 17 0 18 0;
r@194 692 #X connect 18 0 46 0;
r@194 693 #X connect 19 0 21 1;
r@194 694 #X connect 20 0 21 0;
r@194 695 #X connect 21 0 16 0;
r@194 696 #X connect 22 0 23 0;
r@194 697 #X connect 22 0 23 1;
r@194 698 #X connect 23 0 25 1;
r@194 699 #X connect 24 0 25 0;
r@194 700 #X connect 25 0 26 0;
r@194 701 #X connect 26 0 27 0;
r@194 702 #X connect 27 0 28 1;
r@194 703 #X connect 28 0 29 1;
r@194 704 #X connect 29 0 44 0;
r@194 705 #X connect 30 0 17 0;
r@194 706 #X connect 32 0 30 0;
r@194 707 #X connect 33 0 34 0;
r@194 708 #X connect 33 0 34 1;
r@194 709 #X connect 34 0 37 0;
r@194 710 #X connect 35 0 36 0;
r@194 711 #X connect 36 0 38 1;
r@194 712 #X connect 37 0 38 0;
r@194 713 #X connect 38 0 12 0;
r@194 714 #X connect 39 0 47 0;
r@194 715 #X connect 40 0 29 0;
r@194 716 #X connect 43 0 46 1;
r@194 717 #X connect 44 0 5 0;
r@194 718 #X connect 45 0 43 0;
r@194 719 #X connect 46 0 19 0;
r@194 720 #X connect 47 0 40 0;
r@194 721 #X connect 50 0 19 1;
r@194 722 #X connect 51 0 39 1;
r@194 723 #X connect 52 0 11 0;
r@194 724 #X connect 53 0 57 0;
r@194 725 #X connect 54 0 55 0;
r@194 726 #X connect 54 0 55 1;
r@194 727 #X connect 55 0 28 0;
r@194 728 #X connect 58 0 30 1;
r@194 729 #X restore 294 552 pd GoldnoiseGainSword;
r@194 730 #X obj 417 531 r~ \$0-elev;
r@194 731 #X obj 396 510 r~ \$0-azim;
r@194 732 #X obj 376 490 r~ \$0-dist;
r@194 733 #X obj 332 184 r~ \$0-sourceSpeed;
r@194 734 #X obj 120 85 s~ \$0-sourceSpeed;
r@194 735 #X obj 709 151 r~ \$0-sourceSpeed;
r@194 736 #X obj 314 426 r~ \$0-sourceSpeed;
r@194 737 #X obj 776 330 r~ \$0-sourceSpeed;
r@194 738 #X connect 1 0 3 0;
r@194 739 #X connect 2 0 15 0;
r@194 740 #X connect 2 0 27 0;
r@194 741 #X connect 3 0 2 0;
r@194 742 #X connect 4 0 13 0;
r@194 743 #X connect 5 0 4 0;
r@194 744 #X connect 6 0 10 0;
r@194 745 #X connect 6 0 28 0;
r@194 746 #X connect 11 0 3 1;
r@194 747 #X connect 12 0 4 1;
r@194 748 #X connect 14 0 31 0;
r@194 749 #X connect 16 0 52 0;
r@194 750 #X connect 20 0 78 3;
r@194 751 #X connect 27 0 36 0;
r@194 752 #X connect 27 0 5 0;
r@194 753 #X connect 31 0 29 0;
r@194 754 #X connect 31 1 30 0;
r@194 755 #X connect 34 0 78 0;
r@194 756 #X connect 38 0 14 0;
r@194 757 #X connect 39 0 31 1;
r@194 758 #X connect 41 0 50 0;
r@194 759 #X connect 42 0 41 0;
r@194 760 #X connect 43 0 77 2;
r@194 761 #X connect 44 0 77 0;
r@194 762 #X connect 46 0 48 0;
r@194 763 #X connect 47 0 46 0;
r@194 764 #X connect 49 0 77 3;
r@194 765 #X connect 50 0 14 1;
r@194 766 #X connect 51 0 78 2;
r@194 767 #X connect 52 0 53 0;
r@194 768 #X connect 53 0 17 0;
r@194 769 #X connect 53 0 37 0;
r@194 770 #X connect 55 0 56 0;
r@194 771 #X connect 57 0 42 0;
r@194 772 #X connect 59 0 60 0;
r@194 773 #X connect 61 0 62 0;
r@194 774 #X connect 62 0 41 1;
r@194 775 #X connect 62 0 50 1;
r@194 776 #X connect 63 0 62 0;
r@194 777 #X connect 65 0 70 0;
r@194 778 #X connect 66 0 69 0;
r@194 779 #X connect 67 0 68 0;
r@194 780 #X connect 71 0 72 0;
r@194 781 #X connect 71 0 83 0;
r@194 782 #X connect 72 0 73 0;
r@194 783 #X connect 74 0 77 4;
r@194 784 #X connect 75 0 77 5;
r@194 785 #X connect 76 0 77 6;
r@194 786 #X connect 77 0 33 0;
r@194 787 #X connect 77 1 32 0;
r@194 788 #X connect 78 0 35 0;
r@194 789 #X connect 79 0 78 6;
r@194 790 #X connect 80 0 78 5;
r@194 791 #X connect 81 0 78 4;
r@194 792 #X connect 82 0 77 1;
r@194 793 #X connect 84 0 1 0;
r@194 794 #X connect 85 0 78 1;
r@194 795 #X connect 86 0 5 1;