Mercurial > hg > weather-synthesis-prototyping

annotate Propellor/freqCalcCyl7HiFi.pd @ 280:d6f3b97cae0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Second prop added with slightly different dimentions (Max - 0.1%)
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Thu, 02 Mar 2017 20:04:30 +0000
parents 4d43740a209c
children dfd88add4725
rev   line source
r@274 1 #N canvas 72 88 669 480 10;
r@274 2 #X obj 64 271 *~;
r@274 3 #X text 28 383 Calculates the frequency;
r@274 4 #X text 29 395 based on the physics of;
r@274 5 #X text 292 401 Calculates the gain of the dipole source;
r@274 6 #X text 419 318 Azimuth;
r@274 7 #X text 383 247 Elevation;
r@274 8 #X text 366 216 Distance;
r@274 9 #X text 330 156 Diameter;
r@280 10 #N canvas 93 119 486 347 Dipoles 0;
r@267 11 #X obj 210 217 *~;
r@267 12 #X obj 210 282 throw~ l;
r@267 13 #X obj 237 259 throw~ r;
r@267 14 #X obj 210 238 fcpan;
r@267 15 #X text 101 35 Generates the sound associated with the lift dipole.
r@267 16 ;
r@267 17 #X obj 210 108 vcf~ 10;
r@267 18 #X obj 210 131 vcf~ 10;
r@269 19 #X obj 284 95 r \$0-Qval;
r@272 20 #X floatatom 315 242 5 0 0 0 - - -;
r@272 21 #X obj 362 158 r myMet;
r@272 22 #X obj 362 178 snapshot~;
r@272 23 #X floatatom 362 199 0 0 0 0 - - -;
r@272 24 #X obj 210 67 inlet~;
r@272 25 #X obj 261 155 r broBoost;
r@272 26 #X obj 210 176 *~ 0.0001;
r@272 27 #X obj 225 196 inlet~;
r@272 28 #X obj 131 67 inlet~;
r@275 29 #N canvas 304 98 361 372 rangeLimit 0;
r@275 30 #X obj 285 58 inlet~;
r@275 31 #X obj 128 282 outlet~;
r@275 32 #X obj 103 60 sig~ 1;
r@275 33 #X obj 117 145 exp~;
r@275 34 #X obj 87 186 /~;
r@275 35 #X obj 102 166 +~;
r@275 36 #X obj 118 104 -~ 1;
r@275 37 #X obj 117 125 *~ 100;
r@275 38 #X obj 87 207 *~ -1;
r@275 39 #X obj 87 228 +~ 1;
r@275 40 #X obj 163 87 sig~ 1;
r@275 41 #X obj 173 173 exp~;
r@275 42 #X obj 143 214 /~;
r@275 43 #X obj 158 194 +~;
r@275 44 #X obj 173 130 -~ 1;
r@275 45 #X obj 173 151 *~ 1000;
r@275 46 #X obj 128 259 *~;
r@275 47 #X obj 173 108 /~ 15000;
r@275 48 #X obj 118 81 /~ 10;
r@275 49 #X connect 0 0 17 0;
r@275 50 #X connect 0 0 18 0;
r@275 51 #X connect 2 0 4 0;
r@275 52 #X connect 2 0 5 0;
r@275 53 #X connect 3 0 5 1;
r@275 54 #X connect 4 0 8 0;
r@275 55 #X connect 5 0 4 1;
r@275 56 #X connect 6 0 7 0;
r@275 57 #X connect 7 0 3 0;
r@275 58 #X connect 8 0 9 0;
r@275 59 #X connect 9 0 16 0;
r@275 60 #X connect 10 0 12 0;
r@275 61 #X connect 10 0 13 0;
r@275 62 #X connect 11 0 13 1;
r@275 63 #X connect 12 0 16 1;
r@275 64 #X connect 13 0 12 1;
r@275 65 #X connect 14 0 15 0;
r@275 66 #X connect 15 0 11 0;
r@275 67 #X connect 16 0 1 0;
r@275 68 #X connect 17 0 14 0;
r@275 69 #X connect 18 0 6 0;
r@275 70 #X restore 99 156 pd rangeLimit;
r@275 71 #X obj 133 205 *~;
r@275 72 #X obj 237 216 r centrePan;
r@272 73 #X connect 0 0 3 0;
r@272 74 #X connect 3 0 1 0;
r@272 75 #X connect 3 1 2 0;
r@275 76 #X connect 5 0 6 0;
r@275 77 #X connect 6 0 14 0;
r@275 78 #X connect 7 0 5 2;
r@275 79 #X connect 7 0 6 2;
r@275 80 #X connect 9 0 10 0;
r@272 81 #X connect 10 0 11 0;
r@275 82 #X connect 12 0 5 0;
r@275 83 #X connect 13 0 14 1;
r@275 84 #X connect 14 0 0 0;
r@275 85 #X connect 15 0 18 1;
r@275 86 #X connect 16 0 5 1;
r@275 87 #X connect 16 0 6 1;
r@275 88 #X connect 16 0 17 0;
r@275 89 #X connect 17 0 18 0;
r@275 90 #X connect 17 0 10 0;
r@275 91 #X connect 18 0 0 1;
r@275 92 #X connect 19 0 3 1;
r@275 93 #X connect 19 0 8 0;
r@274 94 #X restore 213 435 pd Dipoles;
r@274 95 #X obj 241 408 noise~;
r@274 96 #X text 29 408 the object and environment;
r@274 97 #X text 291 110 Source Speed;
r@274 98 #X obj 322 222 inlet~;
r@274 99 #X obj 270 137 inlet~;
r@274 100 #X obj 304 196 /~ 343.56;
r@269 101 #N canvas 39 56 1340 718 GoldfreqGain 0;
r@267 102 #N canvas 759 125 172 246 pow6 0;
r@267 103 #X obj 47 67 *~;
r@267 104 #X obj 76 67 *~;
r@267 105 #X obj 76 35 inlet~;
r@267 106 #X obj 47 163 outlet~;
r@267 107 #X obj 106 67 *~;
r@267 108 #X obj 47 93 *~;
r@267 109 #X obj 47 118 *~;
r@267 110 #X connect 0 0 5 0;
r@267 111 #X connect 1 0 5 1;
r@267 112 #X connect 2 0 0 0;
r@267 113 #X connect 2 0 0 1;
r@267 114 #X connect 2 0 1 1;
r@267 115 #X connect 2 0 4 0;
r@267 116 #X connect 2 0 4 1;
r@267 117 #X connect 2 0 1 0;
r@267 118 #X connect 4 0 6 1;
r@267 119 #X connect 5 0 6 0;
r@267 120 #X connect 6 0 3 0;
r@267 121 #X restore 218 82 pd pow6;
r@267 122 #X obj 218 123 *~;
r@267 123 #X text 587 13 Distance;
r@267 124 #X text 48 531 Calculates Lift Dipole gain;
r@267 125 #X obj 218 60 inlet~;
r@267 126 #X text 292 166 Diameter;
r@267 127 #X obj 219 618 outlet~;
r@267 128 #X text 298 252 Length;
r@267 129 #X obj 234 469 /~ 360;
r@267 130 #X obj 234 518 *~;
r@267 131 #X obj 219 541 *~;
r@267 132 #X text 74 100 Strouhal number;
r@267 133 #X text 216 46 Wind speed;
r@267 134 #X text 281 146 Corr Length;
r@267 135 #X text -86 235 Mass Density of Air;
r@267 136 #X text 108 242 Sqrt(2xpi);
r@267 137 #X obj 332 470 /~ 360;
r@267 138 #X obj 332 516 *~;
r@267 139 #X obj 332 492 cos~;
r@267 140 #X obj 219 567 *~;
r@267 141 #X obj 442 257 cos~;
r@267 142 #X obj 442 300 *~;
r@267 143 #X obj 427 196 sig~ 1;
r@267 144 #X obj 427 320 -~;
r@267 145 #N canvas 739 248 286 289 pow4 0;
r@267 146 #X obj 47 67 *~;
r@267 147 #X obj 76 67 *~;
r@267 148 #X obj 76 35 inlet~;
r@267 149 #X obj 47 163 outlet~;
r@267 150 #X obj 47 93 *~;
r@267 151 #X connect 0 0 4 0;
r@267 152 #X connect 1 0 4 1;
r@267 153 #X connect 2 0 0 0;
r@267 154 #X connect 2 0 0 1;
r@267 155 #X connect 2 0 1 1;
r@267 156 #X connect 2 0 1 0;
r@267 157 #X connect 4 0 3 0;
r@267 158 #X restore 427 340 pd pow4;
r@267 159 #X obj 412 360 *~;
r@267 160 #X obj 219 385 /~;
r@267 161 #X text 763 12 Azimuth;
r@267 162 #X text 662 14 Elevation;
r@267 163 #X text 512 235 Remember - Goldstein moves cylinder;
r@267 164 #X obj 442 238 /~ 360;
r@267 165 #X obj 219 210 *~;
r@267 166 #X obj 234 495 sin~;
r@267 167 #X obj 567 29 inlet~;
r@267 168 #X obj 665 32 inlet~;
r@267 169 #X obj 767 30 inlet~;
r@267 170 #X obj 411 155 *~;
r@267 171 #X obj 219 276 *~;
r@267 172 #X text -214 358 If adding additional signal at 0 degrees then you
r@267 173 will have to add it before you divid by distance - for all sources!
r@267 174 ;
r@267 175 #X obj 219 597 *~ 100000;
r@267 176 #X obj 234 146 sig~ 8;
r@267 177 #X text -154 219 Scale factor to bring in line with CFD calcs (divided
r@267 178 by 400);
r@267 179 #X obj 219 233 *~ 0.0076766;
r@267 180 #X text 340 105 Speed of Sound to power 3 x 32;
r@267 181 #X obj 411 175 *~ 1.29764e+09;
r@267 182 #X obj 233 102 sig~ 0.85;
r@267 183 #X obj 234 254 r~ length;
r@272 184 #X obj 457 278 inlet~;
r@279 185 #X obj 234 186 *~ 1;
r@279 186 #X obj 249 165 inlet;
r@267 187 #X connect 0 0 1 0;
r@267 188 #X connect 1 0 31 0;
r@267 189 #X connect 4 0 0 0;
r@267 190 #X connect 8 0 32 0;
r@267 191 #X connect 9 0 10 1;
r@267 192 #X connect 10 0 19 0;
r@267 193 #X connect 16 0 18 0;
r@267 194 #X connect 17 0 19 1;
r@267 195 #X connect 18 0 17 0;
r@267 196 #X connect 18 0 17 1;
r@279 197 #X connect 19 0 39 0;
r@267 198 #X connect 20 0 21 0;
r@267 199 #X connect 21 0 23 1;
r@267 200 #X connect 22 0 23 0;
r@267 201 #X connect 23 0 24 0;
r@267 202 #X connect 24 0 25 1;
r@267 203 #X connect 25 0 26 1;
r@267 204 #X connect 26 0 10 0;
r@267 205 #X connect 30 0 20 0;
r@279 206 #X connect 31 0 42 0;
r@267 207 #X connect 32 0 9 0;
r@267 208 #X connect 32 0 9 1;
r@267 209 #X connect 33 0 36 0;
r@267 210 #X connect 33 0 36 1;
r@267 211 #X connect 34 0 30 0;
r@267 212 #X connect 34 0 8 0;
r@267 213 #X connect 35 0 16 0;
r@279 214 #X connect 36 0 44 0;
r@272 215 #X connect 37 0 26 0;
r@279 216 #X connect 39 0 6 0;
r@279 217 #X connect 40 0 48 0;
r@279 218 #X connect 42 0 37 0;
r@279 219 #X connect 44 0 25 0;
r@279 220 #X connect 45 0 1 1;
r@279 221 #X connect 46 0 37 1;
r@279 222 #X connect 47 0 21 1;
r@279 223 #X connect 48 0 31 1;
r@279 224 #X connect 49 0 48 1;
r@274 225 #X restore 270 383 pd GoldfreqGain;
r@274 226 #X obj 64 242 sig~ 0.85;
r@272 227 #N canvas 161 91 608 545 doppler 0;
r@267 228 #X obj 91 27 inlet~;
r@280 229 #X obj 91 244 outlet~;
r@267 230 #X obj 121 47 sig~ 323.56;
r@280 231 #X obj 121 168 +~;
r@280 232 #X obj 106 190 /~;
r@280 233 #X obj 91 212 *~;
r@267 234 #X obj 136 90 delta~;
r@267 235 #X obj 136 111 *~ 44100;
r@272 236 #X obj 333 191 r myMet;
r@272 237 #X obj 333 211 snapshot~;
r@272 238 #X floatatom 333 232 0 0 0 0 - - -;
r@272 239 #X obj 136 69 inlet~;
r@280 240 #X obj 136 141 lop~ 1;
r@267 241 #X connect 0 0 5 0;
r@267 242 #X connect 2 0 3 0;
r@267 243 #X connect 2 0 4 0;
r@267 244 #X connect 3 0 4 1;
r@267 245 #X connect 4 0 5 1;
r@267 246 #X connect 5 0 1 0;
r@267 247 #X connect 6 0 7 0;
r@280 248 #X connect 7 0 12 0;
r@272 249 #X connect 8 0 9 0;
r@272 250 #X connect 9 0 10 0;
r@272 251 #X connect 11 0 6 0;
r@280 252 #X connect 12 0 3 1;
r@274 253 #X restore 64 330 pd doppler;
r@269 254 #N canvas 290 200 365 347 scatter 0;
r@269 255 #X obj 138 20 inlet~;
r@269 256 #X obj 125 272 outlet~;
r@269 257 #X obj 177 53 snapshot~;
r@269 258 #X obj 177 73 >= 0;
r@269 259 #X obj 138 94 spigot~;
r@269 260 #X obj 178 141 spigot~;
r@269 261 #X obj 125 163 spigot~;
r@269 262 #X obj 182 21 r myMet;
r@269 263 #X text -5 301 Limits the value of the elevation to 25 to replicate
r@269 264 the scatter that would occur in the propeller when on a plane.;
r@277 265 #X obj 125 140 min~ -5;
r@277 266 #X obj 178 115 max~ 5;
r@267 267 #X connect 0 0 2 0;
r@267 268 #X connect 0 0 4 0;
r@267 269 #X connect 2 0 3 0;
r@267 270 #X connect 3 0 4 1;
r@267 271 #X connect 3 0 5 1;
r@267 272 #X connect 3 0 6 1;
r@272 273 #X connect 4 0 9 0;
r@272 274 #X connect 4 1 10 0;
r@267 275 #X connect 5 1 1 0;
r@267 276 #X connect 6 0 1 0;
r@272 277 #X connect 7 0 2 0;
r@272 278 #X connect 9 0 6 0;
r@272 279 #X connect 10 0 5 0;
r@274 280 #X restore 339 272 pd scatter;
r@274 281 #X obj 488 174 *~ 1.225;
r@274 282 #X obj 488 220 /~ 1.81e-05;
r@274 283 #X text 508 239 Reynolds Number;
r@274 284 #X text 562 215 Viscosity;
r@269 285 #N canvas 308 58 1027 635 StBandwidth 0;
r@269 286 #X obj 460 365 swap 1;
r@269 287 #X obj 460 391 /;
r@269 288 #X obj 461 434 outlet;
r@269 289 #X text 437 453 Q value;
r@269 290 #X obj 477 -36 r myMet;
r@269 291 #X obj 477 -14 snapshot~;
r@269 292 #X obj 203 164 spigot;
r@269 293 #X obj 219 187 spigot;
r@269 294 #X obj 236 140 > 0;
r@269 295 #X obj 219 233 + 0.9797;
r@269 296 #X obj 219 208 * 4.624e-05;
r@269 297 #X obj 602 150 spigot;
r@269 298 #X obj 618 173 spigot;
r@269 299 #X obj 651 149 < 1e+06;
r@269 300 #X obj 618 216 * 1.227e-10;
r@269 301 #X obj 618 196 *;
r@269 302 #X obj 690 215 * -8.553e-05;
r@269 303 #X obj 618 261 + 16.5;
r@269 304 #X obj 618 238 +;
r@269 305 #X text -84 298 First section of the Reynolds number - DeltaF/F relationship
r@269 306 is linear and did not appear to be reliant on current TU values;
r@269 307 #X text 565 329 Third section of the Reynolds number - DeltaF/F relationship
r@269 308 is linear and did not appear to be reliant on current TU values;
r@269 309 #X text 114 -16 Middle section of Reynolds number - DeltaF/F relationship
r@269 310 is also linear but depends on TU Value;
r@269 311 #X obj 461 412 max 0.005;
r@269 312 #X obj 635 126 > 193260;
r@269 313 #X obj 252 163 < 193260;
r@269 314 #X floatatom 352 446 0 0 0 0 - - -;
r@269 315 #X floatatom 588 23 0 0 0 0 - - -;
r@272 316 #X obj 460 342 / 100;
r@272 317 #X obj 531 -36 inlet~;
r@277 318 #X msg 593 195 30;
r@269 319 #X connect 0 0 1 0;
r@269 320 #X connect 0 1 1 1;
r@272 321 #X connect 1 0 22 0;
r@272 322 #X connect 4 0 5 0;
r@272 323 #X connect 5 0 13 0;
r@272 324 #X connect 5 0 11 0;
r@272 325 #X connect 5 0 8 0;
r@269 326 #X connect 5 0 6 0;
r@272 327 #X connect 5 0 23 0;
r@272 328 #X connect 5 0 24 0;
r@272 329 #X connect 5 0 26 0;
r@269 330 #X connect 6 0 7 0;
r@272 331 #X connect 7 0 10 0;
r@272 332 #X connect 8 0 6 1;
r@272 333 #X connect 9 0 27 0;
r@272 334 #X connect 10 0 9 0;
r@272 335 #X connect 11 0 12 0;
r@275 336 #X connect 11 0 29 0;
r@272 337 #X connect 12 0 16 0;
r@272 338 #X connect 12 0 15 1;
r@272 339 #X connect 12 0 15 0;
r@272 340 #X connect 13 0 12 1;
r@272 341 #X connect 14 0 18 0;
r@272 342 #X connect 15 0 14 0;
r@272 343 #X connect 16 0 18 1;
r@272 344 #X connect 18 0 17 0;
r@272 345 #X connect 22 0 2 0;
r@272 346 #X connect 22 0 25 0;
r@272 347 #X connect 23 0 11 1;
r@272 348 #X connect 24 0 7 1;
r@272 349 #X connect 27 0 0 0;
r@275 350 #X connect 28 0 5 0;
r@275 351 #X connect 29 0 27 0;
r@274 352 #X restore 488 256 pd StBandwidth;
r@274 353 #X obj 488 279 s \$0-Qval;
r@274 354 #X floatatom 563 279 0 0 0 0 - - -;
r@274 355 #X obj 357 294 sig~ -90;
r@274 356 #X obj 339 248 inlet~;
r@275 357 #X obj 372 315 inlet~;
r@272 358 #N canvas 290 200 365 347 scatter 0;
r@272 359 #X obj 138 20 inlet~;
r@272 360 #X obj 125 272 outlet~;
r@272 361 #X obj 177 53 snapshot~;
r@272 362 #X obj 177 73 >= 0;
r@272 363 #X obj 138 94 spigot~;
r@272 364 #X obj 178 141 spigot~;
r@272 365 #X obj 125 163 spigot~;
r@272 366 #X obj 182 21 r myMet;
r@272 367 #X text -5 301 Limits the value of the elevation to 25 to replicate
r@272 368 the scatter that would occur in the propeller when on a plane.;
r@277 369 #X obj 125 140 min~ -5;
r@277 370 #X obj 178 115 max~ 5;
r@272 371 #X connect 0 0 2 0;
r@272 372 #X connect 0 0 4 0;
r@272 373 #X connect 2 0 3 0;
r@272 374 #X connect 3 0 4 1;
r@272 375 #X connect 3 0 5 1;
r@272 376 #X connect 3 0 6 1;
r@272 377 #X connect 4 0 9 0;
r@272 378 #X connect 4 1 10 0;
r@272 379 #X connect 5 1 1 0;
r@272 380 #X connect 6 0 1 0;
r@272 381 #X connect 7 0 2 0;
r@272 382 #X connect 9 0 6 0;
r@272 383 #X connect 10 0 5 0;
r@274 384 #X restore 357 361 pd scatter;
r@274 385 #X obj 357 340 +~;
r@275 386 #X obj 558 363 r myMet;
r@275 387 #X obj 558 383 snapshot~;
r@275 388 #X floatatom 558 403 0 0 0 0 - - -;
r@279 389 #X obj 287 167 inlet;
r@279 390 #X obj 488 198 *~ 1;
r@279 391 #X obj 64 295 /~ 1;
r@279 392 #X connect 0 0 36 0;
r@275 393 #X connect 9 0 8 1;
r@275 394 #X connect 12 0 15 3;
r@279 395 #X connect 12 0 17 1;
r@275 396 #X connect 13 0 14 0;
r@275 397 #X connect 13 0 15 0;
r@275 398 #X connect 13 0 0 1;
r@279 399 #X connect 13 0 19 0;
r@275 400 #X connect 14 0 15 2;
r@275 401 #X connect 15 0 8 2;
r@275 402 #X connect 16 0 0 0;
r@279 403 #X connect 17 0 8 0;
r@279 404 #X connect 18 0 15 4;
r@279 405 #X connect 19 0 35 0;
r@279 406 #X connect 20 0 23 0;
r@279 407 #X connect 23 0 24 0;
r@279 408 #X connect 23 0 25 0;
r@279 409 #X connect 26 0 30 0;
r@279 410 #X connect 27 0 18 0;
r@279 411 #X connect 28 0 30 1;
r@279 412 #X connect 28 0 29 0;
r@279 413 #X connect 29 0 15 5;
r@274 414 #X connect 31 0 32 0;
r@279 415 #X connect 32 0 33 0;
r@279 416 #X connect 34 0 35 1;
r@279 417 #X connect 34 0 15 1;
r@279 418 #X connect 34 0 36 1;
r@279 419 #X connect 35 0 20 0;
r@279 420 #X connect 36 0 17 0;
r@280 421 #X connect 36 0 32 0;