Mercurial > hg > weather-synthesis-prototyping

annotate scene demo/freqCalcCyl3No_D3Mach.pd @ 171:b685e1278d47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wind - TI Model just doesn't seem to add much according to Norberg 1989. Removed. One noise source used throughout model as the compact model is correlated. Reduces computational requirements,.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 05 Feb 2016 18:51:00 +0000
parents
children e14dc303db68
rev   line source
r@171 1 #N canvas 0 22 1370 784 10;
r@171 2 #X text 587 178 Mass Density of Air;
r@171 3 #X obj 709 179 *~ 1.225;
r@171 4 #X obj 709 254 /~ 1.81e-05;
r@171 5 #X obj 709 209 *~ 1;
r@171 6 #X obj 709 372 /~ 1;
r@171 7 #X obj 709 348 *~;
r@171 8 #X obj 223 63 inlet;
r@171 9 #X text 742 298 Reynolds Number;
r@171 10 #X text 589 365 Strouhal Number;
r@171 11 #X obj 388 61 inlet;
r@171 12 #X text 739 234 Viscosity;
r@171 13 #X obj 230 86 s \$0-diameter;
r@171 14 #X obj 770 178 r \$0-diameter;
r@171 15 #X obj 777 353 r \$0-diameter;
r@171 16 #X obj 120 85 s~ \$0-windSpeed;
r@171 17 #X obj 776 330 r~ \$0-windSpeed;
r@171 18 #X obj 709 151 r~ \$0-windSpeed;
r@171 19 #X obj 709 396 s~ \$0-myFreq;
r@171 20 #X obj 120 65 vd~ varwind;
r@171 21 #X obj 1052 334 *~;
r@171 22 #X obj 722 278 s~ \$0-myRey;
r@171 23 #X obj 636 57 inlet;
r@171 24 #X floatatom 581 126 8 0 0 0 - - -;
r@171 25 #X text 673 415 Calculates the frequency;
r@171 26 #X text 674 427 based on the physics of;
r@171 27 #X obj 307 404 r~ \$0-windSpeed;
r@171 28 #X obj 347 466 r \$0-diameter;
r@171 29 #X obj 460 60 inlet;
r@171 30 #X obj 534 59 inlet;
r@171 31 #X floatatom 388 108 5 0 0 0 - - -;
r@171 32 #X floatatom 460 106 5 0 0 0 - - -;
r@171 33 #X floatatom 535 103 5 0 0 0 - - -;
r@171 34 #X text 293 367 Calculates the gain of the dipole source;
r@171 35 #X text 459 37 Azimuth;
r@171 36 #X text 641 39 Pan;
r@171 37 #X text 533 41 Elevation;
r@171 38 #X text 384 42 Distance;
r@171 39 #X text 218 42 Diameter;
r@171 40 #X text 133 41 Wind Speed;
r@171 41 #X obj 315 60 inlet;
r@171 42 #X floatatom 315 104 5 0 0 0 - - -;
r@171 43 #X text 311 41 Length;
r@171 44 #X obj 709 319 newStrou;
r@171 45 #X floatatom 223 107 5 0 0 0 - - -;
r@171 46 #X obj 1052 403 throw~ l;
r@171 47 #X obj 1079 381 throw~ r;
r@171 48 #X obj 1052 359 fcpan;
r@171 49 #X obj 325 83 s \$0-leng;
r@171 50 #X obj 393 84 s \$0-dist;
r@171 51 #X obj 400 331 s~ \$0-dragDiGain;
r@171 52 #X obj 313 352 s~ \$0-liftDiGain;
r@171 53 #X obj 294 385 r~ \$0-str;
r@171 54 #X obj 333 444 r \$0-leng;
r@171 55 #X obj 360 487 r \$0-dist;
r@171 56 #X obj 294 580 s~ \$0-liftNoiseGain;
r@171 57 #X obj 609 350 s~ \$0-str;
r@171 58 #X obj 636 126 s \$0-thisPan;
r@171 59 #X obj 1088 258 r \$0-contFreq;
r@171 60 #X obj 1052 178 r~ \$0-liftNoiseGain;
r@171 61 #X obj 1079 334 r \$0-thisPan;
r@171 62 #X obj 731 66 inlet;
r@171 63 #X obj 803 65 inlet;
r@171 64 #X obj 877 64 inlet;
r@171 65 #X floatatom 731 113 5 0 0 0 - - -;
r@171 66 #X floatatom 803 111 5 0 0 0 - - -;
r@171 67 #X floatatom 878 108 5 0 0 0 - - -;
r@171 68 #X obj 736 89 s \$0-rotaX;
r@171 69 #X obj 810 87 s \$0-rotaY;
r@171 70 #X obj 885 87 s \$0-rotaZ;
r@171 71 #X text 727 47 X Rotation;
r@171 72 #X text 797 46 Y Rotation;
r@171 73 #X text 872 45 Z Rotation;
r@171 74 #X text 1033 152 Noise spectrum calculation;
r@171 75 #X obj 1067 282 hip~;
r@171 76 #X obj 1067 237 rpole~ 0.99;
r@171 77 #X obj 321 163 r~ \$0-windSpeed;
r@171 78 #X obj 339 202 r \$0-diameter;
r@171 79 #X obj 313 142 r~ \$0-str;
r@171 80 #X obj 331 183 r \$0-leng;
r@171 81 #X obj 356 241 r \$0-dist;
r@171 82 #N canvas 205 143 1238 721 GoldfreqGain 0;
r@171 83 #N canvas 759 125 286 294 pow6 0;
r@171 84 #X obj 47 67 *~;
r@171 85 #X obj 76 67 *~;
r@171 86 #X obj 76 35 inlet~;
r@171 87 #X obj 47 163 outlet~;
r@171 88 #X obj 136 184 snapshot~;
r@171 89 #X obj 136 159 metro 100;
r@171 90 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 91 1;
r@171 92 #X floatatom 136 211 10 0 0 0 - - -;
r@171 93 #X obj 216 210 outlet;
r@171 94 #X obj 136 111 loadbang;
r@171 95 #X obj 106 67 *~;
r@171 96 #X obj 47 93 *~;
r@171 97 #X obj 47 118 *~;
r@171 98 #X obj 372 202 *;
r@171 99 #X obj 372 228 *;
r@171 100 #X obj 382 22 hsl 128 15 0 10 0 0 empty empty empty -2 -8 0 10 -262144
r@171 101 -1 -1 0 1;
r@171 102 #X floatatom 374 288 10 0 0 0 - - -;
r@171 103 #X obj 303 20 t f b;
r@171 104 #X floatatom 455 55 5 0 0 0 - - -;
r@171 105 #X obj 372 260 *;
r@171 106 #X obj 400 202 *;
r@171 107 #X msg 303 -4 6;
r@171 108 #X obj 434 201 *;
r@171 109 #X connect 0 0 11 0;
r@171 110 #X connect 1 0 11 1;
r@171 111 #X connect 2 0 0 0;
r@171 112 #X connect 2 0 0 1;
r@171 113 #X connect 2 0 1 1;
r@171 114 #X connect 2 0 10 0;
r@171 115 #X connect 2 0 10 1;
r@171 116 #X connect 2 0 1 0;
r@171 117 #X connect 4 0 7 0;
r@171 118 #X connect 4 0 8 0;
r@171 119 #X connect 5 0 4 0;
r@171 120 #X connect 6 0 5 0;
r@171 121 #X connect 9 0 6 0;
r@171 122 #X connect 10 0 12 1;
r@171 123 #X connect 11 0 12 0;
r@171 124 #X connect 12 0 4 0;
r@171 125 #X connect 12 0 3 0;
r@171 126 #X connect 13 0 14 0;
r@171 127 #X connect 14 0 19 0;
r@171 128 #X connect 15 0 13 0;
r@171 129 #X connect 15 0 13 1;
r@171 130 #X connect 15 0 18 0;
r@171 131 #X connect 15 0 20 0;
r@171 132 #X connect 15 0 20 1;
r@171 133 #X connect 17 0 13 0;
r@171 134 #X connect 17 0 13 1;
r@171 135 #X connect 17 0 20 0;
r@171 136 #X connect 17 0 20 1;
r@171 137 #X connect 17 0 22 0;
r@171 138 #X connect 17 0 22 1;
r@171 139 #X connect 17 1 13 0;
r@171 140 #X connect 17 1 20 0;
r@171 141 #X connect 17 1 22 0;
r@171 142 #X connect 19 0 16 0;
r@171 143 #X connect 20 0 14 1;
r@171 144 #X connect 21 0 17 0;
r@171 145 #X connect 22 0 19 1;
r@171 146 #X restore 219 42 pd pow6;
r@171 147 #X obj 173 32 *~;
r@171 148 #X obj 219 68 *~;
r@171 149 #X obj 404 137 *;
r@171 150 #X text 533 2 Distance;
r@171 151 #X floatatom 513 62 5 0 0 0 - - -;
r@171 152 #X text 724 595 Calculates Drag Dipole gain;
r@171 153 #X text 48 647 Calculates Lift Dipole gain;
r@171 154 #X obj 173 -8 inlet~;
r@171 155 #X obj 219 -35 inlet~;
r@171 156 #X text 328 62 Diameter;
r@171 157 #X obj 291 61 inlet;
r@171 158 #X obj 513 18 inlet;
r@171 159 #X obj 219 667 outlet~;
r@171 160 #X obj 758 570 outlet~;
r@171 161 #X obj 240 159 inlet;
r@171 162 #X text 278 154 Length;
r@171 163 #X obj 219 185 *~ 1;
r@171 164 #X obj 234 416 sig~;
r@171 165 #X obj 322 438 sig~;
r@171 166 #X obj 234 468 /~ 360;
r@171 167 #X obj 234 517 *~;
r@171 168 #X obj 219 540 *~;
r@171 169 #X obj 814 19 inlet;
r@171 170 #X obj 913 21 inlet;
r@171 171 #X obj 1009 24 inlet;
r@171 172 #X floatatom 814 66 5 0 0 0 - - -;
r@171 173 #X floatatom 913 67 5 0 0 0 - - -;
r@171 174 #X floatatom 1010 68 5 0 0 0 - - -;
r@171 175 #X text 810 0 X Rotation;
r@171 176 #X text 907 2 Y Rotation;
r@171 177 #X text 1004 5 Z Rotation;
r@171 178 #X obj 819 42 s \$0-this_rotaX;
r@171 179 #X obj 920 43 s \$0-thisrotaY;
r@171 180 #X obj 1017 47 s \$0-thisrotaZ;
r@171 181 #X text 74 -8 Strouhal number;
r@171 182 #X text 269 -35 Wind speed;
r@171 183 #X text 266 103 Corr Length;
r@171 184 #X obj 219 225 *~ 2.50663;
r@171 185 #X obj 219 130 *~ 1.225;
r@171 186 #X text 93 126 Mass Density of Air;
r@171 187 #X text 147 227 Sqrt(2xpi);
r@171 188 #X obj 322 466 /~ 360;
r@171 189 #X obj 322 512 *~;
r@171 190 #X obj 322 488 cos~;
r@171 191 #X obj 219 579 *~;
r@171 192 #X obj 404 167 * 4.05513e+07;
r@171 193 #X text 355 186 Speed of Sound to power 3;
r@171 194 #X obj 404 220 * 32;
r@171 195 #X obj 553 189 r SIG_MACH;
r@171 196 #X obj 518 189 cos~;
r@171 197 #X obj 518 212 *~;
r@171 198 #X obj 466 213 sig~ 1;
r@171 199 #X obj 503 243 -~;
r@171 200 #N canvas 1150 227 286 289 pow4 0;
r@171 201 #X obj 47 67 *~;
r@171 202 #X obj 76 67 *~;
r@171 203 #X obj 76 35 inlet~;
r@171 204 #X obj 47 163 outlet~;
r@171 205 #X obj 136 184 snapshot~;
r@171 206 #X obj 136 159 metro 100;
r@171 207 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 208 1;
r@171 209 #X floatatom 136 211 10 0 0 0 - - -;
r@171 210 #X obj 216 210 outlet;
r@171 211 #X obj 136 111 loadbang;
r@171 212 #X obj 47 93 *~;
r@171 213 #X connect 0 0 10 0;
r@171 214 #X connect 1 0 10 1;
r@171 215 #X connect 2 0 0 0;
r@171 216 #X connect 2 0 0 1;
r@171 217 #X connect 2 0 1 1;
r@171 218 #X connect 2 0 1 0;
r@171 219 #X connect 4 0 7 0;
r@171 220 #X connect 4 0 8 0;
r@171 221 #X connect 5 0 4 0;
r@171 222 #X connect 6 0 5 0;
r@171 223 #X connect 9 0 6 0;
r@171 224 #X connect 10 0 3 0;
r@171 225 #X connect 10 0 4 0;
r@171 226 #X restore 503 266 pd pow4;
r@171 227 #X obj 404 248 sig~;
r@171 228 #X obj 404 298 *~;
r@171 229 #X obj 219 346 /~;
r@171 230 #X obj 133 287 s~ \$0-aGainG;
r@171 231 #X obj 872 246 r~ \$0-aGainG;
r@171 232 #X obj 758 512 *~ 0.1;
r@171 233 #X obj 723 340 +~ 90;
r@171 234 #X obj 723 363 /~ 360;
r@171 235 #X obj 723 409 *~;
r@171 236 #X obj 723 385 sin~;
r@171 237 #X obj 773 359 /~ 360;
r@171 238 #X obj 773 405 *~;
r@171 239 #X obj 773 381 cos~;
r@171 240 #X obj 758 436 *~;
r@171 241 #X text 709 1 Azimuth;
r@171 242 #X text 608 3 Elevation;
r@171 243 #X obj 611 21 inlet;
r@171 244 #X obj 713 19 inlet;
r@171 245 #X floatatom 611 68 5 0 0 0 - - -;
r@171 246 #X floatatom 713 68 5 0 0 0 - - -;
r@171 247 #X obj 322 417 r \$0-this_azim;
r@171 248 #X obj 234 394 r \$0-this_elev;
r@171 249 #X obj 773 314 r \$0-this_azim;
r@171 250 #X obj 723 256 r \$0-this_elev;
r@171 251 #X obj 723 280 sig~;
r@171 252 #X obj 773 336 sig~;
r@171 253 #X obj 518 141 sig~;
r@171 254 #X obj 557 139 r~ plotElev;
r@171 255 #X obj 245 439 r~ plotElev;
r@171 256 #X obj 139 628 s~ plotOPF;
r@171 257 #X obj 676 574 s~ plotOPD;
r@171 258 #X obj 616 44 s \$0-this_elev;
r@171 259 #X obj 720 44 s \$0-this_azim;
r@171 260 #X obj 518 117 r \$0-this_elev;
r@171 261 #X obj 520 40 s \$0-thisDist;
r@171 262 #X obj 887 268 r \$0-thisDist;
r@171 263 #X obj 404 111 r \$0-thisDist;
r@171 264 #X obj 887 292 *;
r@171 265 #X obj 887 317 * 4.05513e+07;
r@171 266 #X text 892 335 Speed of Sound to power 3;
r@171 267 #X obj 887 370 * 32;
r@171 268 #X obj 887 398 sig~;
r@171 269 #X obj 872 423 /~;
r@171 270 #X text 588 167 Remember - Goldstein moves cylinder;
r@171 271 #X obj 757 289 r~ plotElev;
r@171 272 #X floatatom 359 169 5 0 0 0 - - -;
r@171 273 #X obj 518 170 /~ 360;
r@171 274 #X obj 758 475 *~;
r@171 275 #X obj 424 40 s~ \$0-thisColL;
r@171 276 #X obj 270 42 r~ \$0-thisColL;
r@171 277 #X obj 270 82 *~ 1;
r@171 278 #X obj 219 102 *~;
r@171 279 #X obj 424 17 inlet~;
r@171 280 #X obj 219 11 sig~;
r@171 281 #X floatatom 265 13 5 0 0 0 - - -;
r@171 282 #X obj 234 494 sin~;
r@171 283 #X floatatom 357 -7 5 0 0 0 - - -;
r@171 284 #X obj 219 -11 average~ 4096;
r@171 285 #N canvas 801 264 426 401 aveTimeCal 0;
r@171 286 #X text 224 38 Elevation;
r@171 287 #X obj 226 56 r \$0-elev;
r@171 288 #X floatatom 240 81 5 0 0 0 - - -;
r@171 289 #X obj 205 17 r~ MY_MACH;
r@171 290 #X obj 226 135 cos;
r@171 291 #X obj 226 107 * 0.01745;
r@171 292 #X obj 205 158 *~ 1;
r@171 293 #X obj 161 131 sig~ 1;
r@171 294 #X obj 161 185 -~;
r@171 295 #X obj 121 104 r~ \$0-myFreq;
r@171 296 #X obj 106 82 sig~ 6.28318;
r@171 297 #X obj 106 128 /~;
r@171 298 #X obj 106 219 *~;
r@171 299 #X obj 36 204 r myMet;
r@171 300 #X obj 106 242 snapshot~;
r@171 301 #X floatatom 44 283 0 0 0 0 - - -;
r@171 302 #X obj 106 263 * 44100;
r@171 303 #X obj 106 292 outlet;
r@171 304 #X connect 1 0 2 0;
r@171 305 #X connect 1 0 5 0;
r@171 306 #X connect 3 0 6 0;
r@171 307 #X connect 4 0 6 1;
r@171 308 #X connect 5 0 4 0;
r@171 309 #X connect 6 0 8 1;
r@171 310 #X connect 7 0 8 0;
r@171 311 #X connect 8 0 12 1;
r@171 312 #X connect 9 0 11 1;
r@171 313 #X connect 10 0 11 0;
r@171 314 #X connect 11 0 12 0;
r@171 315 #X connect 12 0 14 0;
r@171 316 #X connect 13 0 14 0;
r@171 317 #X connect 14 0 16 0;
r@171 318 #X connect 16 0 15 0;
r@171 319 #X connect 16 0 17 0;
r@171 320 #X restore 348 -33 pd aveTimeCal;
r@171 321 #X connect 0 0 2 0;
r@171 322 #X connect 1 0 2 1;
r@171 323 #X connect 2 0 106 0;
r@171 324 #X connect 3 0 46 0;
r@171 325 #X connect 3 0 100 0;
r@171 326 #X connect 8 0 1 0;
r@171 327 #X connect 8 0 1 1;
r@171 328 #X connect 9 0 112 0;
r@171 329 #X connect 11 0 105 1;
r@171 330 #X connect 12 0 5 0;
r@171 331 #X connect 12 0 89 0;
r@171 332 #X connect 15 0 17 1;
r@171 333 #X connect 17 0 38 0;
r@171 334 #X connect 18 0 20 0;
r@171 335 #X connect 19 0 42 0;
r@171 336 #X connect 20 0 110 0;
r@171 337 #X connect 21 0 22 1;
r@171 338 #X connect 22 0 45 0;
r@171 339 #X connect 23 0 26 0;
r@171 340 #X connect 23 0 32 0;
r@171 341 #X connect 24 0 27 0;
r@171 342 #X connect 24 0 33 0;
r@171 343 #X connect 25 0 28 0;
r@171 344 #X connect 25 0 34 0;
r@171 345 #X connect 38 0 57 0;
r@171 346 #X connect 38 0 58 0;
r@171 347 #X connect 39 0 17 0;
r@171 348 #X connect 42 0 44 0;
r@171 349 #X connect 43 0 45 1;
r@171 350 #X connect 44 0 43 0;
r@171 351 #X connect 44 0 43 1;
r@171 352 #X connect 45 0 84 0;
r@171 353 #X connect 45 0 13 0;
r@171 354 #X connect 46 0 48 0;
r@171 355 #X connect 48 0 55 0;
r@171 356 #X connect 49 0 51 1;
r@171 357 #X connect 50 0 51 0;
r@171 358 #X connect 51 0 53 1;
r@171 359 #X connect 52 0 53 0;
r@171 360 #X connect 53 0 54 0;
r@171 361 #X connect 54 0 56 1;
r@171 362 #X connect 55 0 56 0;
r@171 363 #X connect 56 0 57 1;
r@171 364 #X connect 57 0 22 0;
r@171 365 #X connect 59 0 97 0;
r@171 366 #X connect 60 0 85 0;
r@171 367 #X connect 60 0 14 0;
r@171 368 #X connect 61 0 62 0;
r@171 369 #X connect 62 0 64 0;
r@171 370 #X connect 63 0 68 0;
r@171 371 #X connect 64 0 63 0;
r@171 372 #X connect 64 0 63 1;
r@171 373 #X connect 65 0 67 0;
r@171 374 #X connect 66 0 68 1;
r@171 375 #X connect 67 0 66 0;
r@171 376 #X connect 67 0 66 1;
r@171 377 #X connect 68 0 102 0;
r@171 378 #X connect 71 0 73 0;
r@171 379 #X connect 71 0 86 0;
r@171 380 #X connect 72 0 74 0;
r@171 381 #X connect 72 0 87 0;
r@171 382 #X connect 75 0 19 0;
r@171 383 #X connect 76 0 18 0;
r@171 384 #X connect 77 0 80 0;
r@171 385 #X connect 78 0 79 0;
r@171 386 #X connect 79 0 61 0;
r@171 387 #X connect 80 0 65 0;
r@171 388 #X connect 81 0 101 0;
r@171 389 #X connect 88 0 81 0;
r@171 390 #X connect 90 0 92 0;
r@171 391 #X connect 90 0 92 1;
r@171 392 #X connect 91 0 3 0;
r@171 393 #X connect 91 0 3 1;
r@171 394 #X connect 92 0 93 0;
r@171 395 #X connect 93 0 95 0;
r@171 396 #X connect 95 0 96 0;
r@171 397 #X connect 96 0 97 1;
r@171 398 #X connect 97 0 102 1;
r@171 399 #X connect 101 0 50 0;
r@171 400 #X connect 102 0 60 0;
r@171 401 #X connect 104 0 105 0;
r@171 402 #X connect 105 0 106 1;
r@171 403 #X connect 106 0 39 0;
r@171 404 #X connect 107 0 103 0;
r@171 405 #X connect 108 0 0 0;
r@171 406 #X connect 110 0 21 0;
r@171 407 #X connect 110 0 21 1;
r@171 408 #X connect 112 0 108 0;
r@171 409 #X connect 112 0 109 0;
r@171 410 #X connect 113 0 112 0;
r@171 411 #X connect 113 0 111 0;
r@171 412 #X restore 313 307 pd GoldfreqGain;
r@171 413 #N canvas 272 58 1006 797 GoldnoiseGain 0;
r@171 414 #X text -21029 240 Mass Density of Air \, squared;
r@171 415 #X obj -20777 456 *;
r@171 416 #X text -20777 409 Distance;
r@171 417 #N canvas 759 125 235 275 pow8 0;
r@171 418 #X obj 47 67 *~;
r@171 419 #X obj 76 67 *~;
r@171 420 #X obj 76 35 inlet~;
r@171 421 #X obj 47 147 outlet~;
r@171 422 #X obj 128 146 snapshot~;
r@171 423 #X obj 128 121 metro 100;
r@171 424 #X obj 128 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 425 1;
r@171 426 #X floatatom 128 173 10 0 0 0 - - -;
r@171 427 #X obj 128 73 loadbang;
r@171 428 #X obj 47 93 *~;
r@171 429 #X obj 47 121 *~;
r@171 430 #X connect 0 0 9 0;
r@171 431 #X connect 1 0 9 1;
r@171 432 #X connect 2 0 0 0;
r@171 433 #X connect 2 0 0 1;
r@171 434 #X connect 2 0 1 1;
r@171 435 #X connect 2 0 1 0;
r@171 436 #X connect 4 0 7 0;
r@171 437 #X connect 5 0 4 0;
r@171 438 #X connect 6 0 5 0;
r@171 439 #X connect 8 0 6 0;
r@171 440 #X connect 9 0 10 0;
r@171 441 #X connect 9 0 10 1;
r@171 442 #X connect 10 0 3 0;
r@171 443 #X connect 10 0 4 0;
r@171 444 #X restore -20846 69 pd pow8;
r@171 445 #X obj -20846 4 inlet~;
r@171 446 #X obj -20801 123 inlet;
r@171 447 #X obj -20777 430 inlet;
r@171 448 #X obj -20846 710 outlet~;
r@171 449 #X text -20785 63 Gain proportional to windspeed to power 8 for spectrum
r@171 450 ;
r@171 451 #X text -20765 124 Diameter;
r@171 452 #X obj -20754 633 loadbang;
r@171 453 #X obj -20754 654 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@171 454 1 1;
r@171 455 #X obj -20754 672 metro 10;
r@171 456 #X obj -20754 693 snapshot~;
r@171 457 #X floatatom -20754 713 8 0 0 0 - - -;
r@171 458 #X text -20798 -5 Wind speed;
r@171 459 #X text -21027 643 Calculates wake gain;
r@171 460 #X text -20399 16 Azimuth;
r@171 461 #X obj -20398 33 inlet;
r@171 462 #X obj -20398 56 sig~;
r@171 463 #X obj -20342 33 inlet;
r@171 464 #X obj -20342 56 sig~;
r@171 465 #X text -20343 16 Elevation;
r@171 466 #X floatatom -20304 57 5 0 0 0 - - -;
r@171 467 #X floatatom -20434 58 5 0 0 0 - - -;
r@171 468 #X obj -20398 96 s~ \$0-this_azim;
r@171 469 #X obj -20342 77 s~ \$0-this_elev;
r@171 470 #X obj -20846 243 *~ 1.225;
r@171 471 #X obj -20511 100 r~ \$0-this_azim;
r@171 472 #N canvas 759 125 250 309 pow5 0;
r@171 473 #X obj 47 67 *~;
r@171 474 #X obj 76 35 inlet~;
r@171 475 #X obj 47 170 outlet~;
r@171 476 #X obj 136 173 snapshot~;
r@171 477 #X obj 136 148 metro 100;
r@171 478 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 479 1;
r@171 480 #X floatatom 136 200 10 0 0 0 - - -;
r@171 481 #X obj 136 100 loadbang;
r@171 482 #X obj 47 87 *~;
r@171 483 #X obj 47 118 *~;
r@171 484 #X connect 0 0 8 0;
r@171 485 #X connect 0 0 8 1;
r@171 486 #X connect 1 0 0 0;
r@171 487 #X connect 1 0 0 1;
r@171 488 #X connect 1 0 9 1;
r@171 489 #X connect 3 0 6 0;
r@171 490 #X connect 4 0 3 0;
r@171 491 #X connect 5 0 4 0;
r@171 492 #X connect 7 0 5 0;
r@171 493 #X connect 8 0 9 0;
r@171 494 #X connect 9 0 2 0;
r@171 495 #X connect 9 0 3 0;
r@171 496 #X restore -20680 508 pd pow5;
r@171 497 #X obj -20680 484 sig~ 343.56;
r@171 498 #N canvas 875 261 250 309 pow5 0;
r@171 499 #X obj 47 67 *~;
r@171 500 #X obj 76 35 inlet~;
r@171 501 #X obj 47 170 outlet~;
r@171 502 #X obj 136 173 snapshot~;
r@171 503 #X obj 136 148 metro 100;
r@171 504 #X obj 136 126 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@171 505 1;
r@171 506 #X floatatom 136 200 10 0 0 0 - - -;
r@171 507 #X obj 136 100 loadbang;
r@171 508 #X obj 47 87 *~;
r@171 509 #X obj 47 118 *~;
r@171 510 #X connect 0 0 8 0;
r@171 511 #X connect 0 0 8 1;
r@171 512 #X connect 1 0 0 0;
r@171 513 #X connect 1 0 0 1;
r@171 514 #X connect 1 0 9 1;
r@171 515 #X connect 3 0 6 0;
r@171 516 #X connect 4 0 3 0;
r@171 517 #X connect 5 0 4 0;
r@171 518 #X connect 7 0 5 0;
r@171 519 #X connect 8 0 9 0;
r@171 520 #X connect 9 0 2 0;
r@171 521 #X connect 9 0 3 0;
r@171 522 #X restore -20645 434 pd pow5;
r@171 523 #X obj -20599 284 /~ 360;
r@171 524 #X obj -20599 311 cos~;
r@171 525 #X obj -20584 333 r SIG_MACH;
r@171 526 #X obj -20584 357 sig~;
r@171 527 #X obj -20599 382 *~;
r@171 528 #X obj -20645 381 sig~ 1;
r@171 529 #X obj -20645 408 -~;
r@171 530 #X obj -20680 355 sig~ 3.1416;
r@171 531 #X obj -20680 380 *~;
r@171 532 #X obj -20695 332 sig~ 16;
r@171 533 #X obj -20695 404 *~;
r@171 534 #X obj -20695 462 *~;
r@171 535 #X obj -20695 535 *~;
r@171 536 #X obj -20777 483 sig~;
r@171 537 #X obj -20777 567 *~;
r@171 538 #X obj -20846 611 /~;
r@171 539 #X obj -20509 248 r~ plotElev;
r@171 540 #X obj -20913 710 s~ plotOPN;
r@171 541 #X obj -20599 262 -~;
r@171 542 #X text -20547 269 Angle goes with the flow in Goldstein hence 90 -
r@171 543 theta so that theta is same angle as dipole angles.;
r@171 544 #X obj -20599 217 sig~ 180;
r@171 545 #X obj -20536 221 r~ \$0-this_elev;
r@171 546 #X obj -20916 56 inlet~;
r@171 547 #X obj -20916 83 *~;
r@171 548 #X obj -20822 90 inlet~;
r@171 549 #X obj -20822 148 *~ 1;
r@171 550 #X obj -20846 170 *~;
r@171 551 #X obj -20846 194 *~;
r@171 552 #X obj -20821 273 inlet;
r@171 553 #X obj -20847 308 *~ 1;
r@171 554 #X obj -20848 343 *~ 2.50663;
r@171 555 #X text -20776 91 Corrolation Length;
r@171 556 #X text -20781 272 Length;
r@171 557 #X obj -20846 26 average~ 64;
r@171 558 #X obj -20846 48 sig~;
r@171 559 #X floatatom -20708 20 5 0 0 0 - - -;
r@171 560 #N canvas 801 264 426 401 aveTimeCal 0;
r@171 561 #X text 224 38 Elevation;
r@171 562 #X obj 226 56 r \$0-elev;
r@171 563 #X floatatom 240 81 5 0 0 0 - - -;
r@171 564 #X obj 205 17 r~ MY_MACH;
r@171 565 #X obj 226 135 cos;
r@171 566 #X obj 226 107 * 0.01745;
r@171 567 #X obj 205 158 *~ 1;
r@171 568 #X obj 161 131 sig~ 1;
r@171 569 #X obj 161 185 -~;
r@171 570 #X obj 121 104 r~ \$0-myFreq;
r@171 571 #X obj 106 82 sig~ 6.28318;
r@171 572 #X obj 106 128 /~;
r@171 573 #X obj 106 219 *~;
r@171 574 #X obj 36 204 r myMet;
r@171 575 #X obj 106 242 snapshot~;
r@171 576 #X floatatom 44 283 0 0 0 0 - - -;
r@171 577 #X obj 106 263 * 44100;
r@171 578 #X obj 106 292 outlet;
r@171 579 #X connect 1 0 2 0;
r@171 580 #X connect 1 0 5 0;
r@171 581 #X connect 3 0 6 0;
r@171 582 #X connect 4 0 6 1;
r@171 583 #X connect 5 0 4 0;
r@171 584 #X connect 6 0 8 1;
r@171 585 #X connect 7 0 8 0;
r@171 586 #X connect 8 0 12 1;
r@171 587 #X connect 9 0 11 1;
r@171 588 #X connect 10 0 11 0;
r@171 589 #X connect 11 0 12 0;
r@171 590 #X connect 12 0 14 0;
r@171 591 #X connect 13 0 14 0;
r@171 592 #X connect 14 0 16 0;
r@171 593 #X connect 16 0 15 0;
r@171 594 #X connect 16 0 17 0;
r@171 595 #X restore -20717 -6 pd aveTimeCal;
r@171 596 #X obj -20846 643 *~ 0.5;
r@171 597 #X connect 1 0 45 0;
r@171 598 #X connect 3 0 58 0;
r@171 599 #X connect 4 0 65 0;
r@171 600 #X connect 5 0 57 1;
r@171 601 #X connect 6 0 1 0;
r@171 602 #X connect 6 0 1 1;
r@171 603 #X connect 10 0 11 0;
r@171 604 #X connect 11 0 12 0;
r@171 605 #X connect 12 0 13 0;
r@171 606 #X connect 13 0 14 0;
r@171 607 #X connect 18 0 19 0;
r@171 608 #X connect 18 0 24 0;
r@171 609 #X connect 19 0 25 0;
r@171 610 #X connect 20 0 21 0;
r@171 611 #X connect 20 0 23 0;
r@171 612 #X connect 21 0 26 0;
r@171 613 #X connect 27 0 61 0;
r@171 614 #X connect 29 0 44 1;
r@171 615 #X connect 30 0 29 0;
r@171 616 #X connect 31 0 43 1;
r@171 617 #X connect 32 0 33 0;
r@171 618 #X connect 33 0 36 0;
r@171 619 #X connect 34 0 35 0;
r@171 620 #X connect 35 0 36 1;
r@171 621 #X connect 36 0 38 1;
r@171 622 #X connect 37 0 38 0;
r@171 623 #X connect 38 0 31 0;
r@171 624 #X connect 39 0 40 0;
r@171 625 #X connect 39 0 40 1;
r@171 626 #X connect 40 0 42 1;
r@171 627 #X connect 41 0 42 0;
r@171 628 #X connect 42 0 43 0;
r@171 629 #X connect 43 0 44 0;
r@171 630 #X connect 44 0 46 1;
r@171 631 #X connect 45 0 46 0;
r@171 632 #X connect 46 0 47 1;
r@171 633 #X connect 47 0 69 0;
r@171 634 #X connect 50 0 32 0;
r@171 635 #X connect 52 0 50 0;
r@171 636 #X connect 53 0 50 1;
r@171 637 #X connect 54 0 55 0;
r@171 638 #X connect 54 0 55 1;
r@171 639 #X connect 55 0 58 1;
r@171 640 #X connect 56 0 57 0;
r@171 641 #X connect 57 0 59 1;
r@171 642 #X connect 58 0 59 0;
r@171 643 #X connect 59 0 27 0;
r@171 644 #X connect 60 0 61 1;
r@171 645 #X connect 61 0 62 0;
r@171 646 #X connect 62 0 47 0;
r@171 647 #X connect 65 0 66 0;
r@171 648 #X connect 66 0 3 0;
r@171 649 #X connect 68 0 67 0;
r@171 650 #X connect 68 0 65 0;
r@171 651 #X connect 69 0 49 0;
r@171 652 #X connect 69 0 7 0;
r@171 653 #X connect 69 0 13 0;
r@171 654 #X restore 294 552 pd GoldnoiseGain;
r@171 655 #X text 285 599 Calculates the gain of the wake;
r@171 656 #X obj 467 82 s \$0-azim;
r@171 657 #X obj 542 82 s \$0-elev;
r@171 658 #X obj 365 262 r \$0-elev;
r@171 659 #X obj 373 283 r \$0-azim;
r@171 660 #X obj 373 506 r \$0-elev;
r@171 661 #X obj 387 524 r \$0-azim;
r@171 662 #N canvas 1021 287 444 428 corrLen 0;
r@171 663 #X obj 103 71 inlet~;
r@171 664 #X obj 88 200 outlet~;
r@171 665 #X obj 88 143 *~;
r@171 666 #X obj 124 93 sig~ -0.245;
r@171 667 #X obj 103 119 pow~;
r@171 668 #X text 234 22 Y = 10^b . X^m;
r@171 669 #X text 235 40 b = 1.536;
r@171 670 #X text 235 56 m = -0.245;
r@171 671 #X text 80 297 Equation of line derived from Norberg 2001;
r@171 672 #X obj 88 169 max~ 1;
r@171 673 #X obj 88 46 sig~ 44.67;
r@171 674 #X obj 229 190 r myMet;
r@171 675 #X obj 229 211 snapshot~;
r@171 676 #X floatatom 230 236 5 0 0 0 - - -;
r@171 677 #X connect 0 0 4 0;
r@171 678 #X connect 2 0 9 0;
r@171 679 #X connect 3 0 4 1;
r@171 680 #X connect 4 0 2 1;
r@171 681 #X connect 9 0 1 0;
r@171 682 #X connect 9 0 12 0;
r@171 683 #X connect 10 0 2 0;
r@171 684 #X connect 11 0 12 0;
r@171 685 #X connect 12 0 13 0;
r@171 686 #X restore 956 85 pd corrLen Calc;
r@171 687 #X obj 956 62 r~ \$0-myRey;
r@171 688 #X obj 956 109 s~ \$0-myCor;
r@171 689 #X obj 347 222 r~ \$0-myCor;
r@171 690 #X obj 1102 281 r \$0-contFreq;
r@171 691 #X obj 1067 309 hip~;
r@171 692 #X obj 320 424 r~ \$0-myCor;
r@171 693 #X obj 636 81 max 0.01;
r@171 694 #X obj 636 104 min 0.99;
r@171 695 #N canvas 93 119 976 679 Dipoles 0;
r@171 696 #X obj 76 62 r~ \$0-myFreq;
r@171 697 #X obj 91 107 r~ \$0-liftDiGain;
r@171 698 #X obj 76 88 osc~;
r@171 699 #X obj 76 261 throw~ l;
r@171 700 #X obj 103 238 throw~ r;
r@171 701 #X obj 76 195 *~;
r@171 702 #X obj 76 216 fcpan;
r@171 703 #X obj 103 195 r \$0-thisPan;
r@171 704 #X obj 353 69 r~ \$0-myFreq;
r@171 705 #X obj 368 154 r~ \$0-liftDiGain;
r@171 706 #X obj 353 114 osc~;
r@171 707 #X obj 353 268 throw~ l;
r@171 708 #X obj 380 245 throw~ r;
r@171 709 #X obj 353 202 *~;
r@171 710 #X obj 353 223 fcpan;
r@171 711 #X obj 380 202 r \$0-thisPan;
r@171 712 #X obj 368 176 *~ 0.6;
r@171 713 #X obj 621 62 r~ \$0-myFreq;
r@171 714 #X obj 636 147 r~ \$0-liftDiGain;
r@171 715 #X obj 621 107 osc~;
r@171 716 #X obj 621 261 throw~ l;
r@171 717 #X obj 648 238 throw~ r;
r@171 718 #X obj 621 195 *~;
r@171 719 #X obj 621 216 fcpan;
r@171 720 #X obj 648 195 r \$0-thisPan;
r@171 721 #X obj 621 86 *~ 5;
r@171 722 #X obj 353 93 *~ 3;
r@171 723 #X obj 72 345 r~ \$0-myFreq;
r@171 724 #X obj 72 399 osc~;
r@171 725 #X obj 72 544 throw~ l;
r@171 726 #X obj 99 521 throw~ r;
r@171 727 #X obj 72 478 *~;
r@171 728 #X obj 72 499 fcpan;
r@171 729 #X obj 99 478 r \$0-thisPan;
r@171 730 #X obj 87 418 r~ \$0-dragDiGain;
r@171 731 #X obj 72 373 *~ 2;
r@171 732 #X obj 351 344 r~ \$0-myFreq;
r@171 733 #X obj 351 398 osc~;
r@171 734 #X obj 351 543 throw~ l;
r@171 735 #X obj 378 520 throw~ r;
r@171 736 #X obj 351 477 *~;
r@171 737 #X obj 351 498 fcpan;
r@171 738 #X obj 378 477 r \$0-thisPan;
r@171 739 #X obj 366 417 r~ \$0-dragDiGain;
r@171 740 #X obj 351 372 *~ 4;
r@171 741 #X obj 366 446 *~ 0.125;
r@171 742 #X obj 210 199 *~;
r@171 743 #X obj 210 264 throw~ l;
r@171 744 #X obj 237 241 throw~ r;
r@171 745 #X obj 210 220 fcpan;
r@171 746 #X obj 210 130 *~ 0.5;
r@171 747 #X obj 210 108 vcf~ 3;
r@171 748 #X obj 237 198 r \$0-thisPan;
r@171 749 #X obj 210 81 r~ \$0-thisNoise;
r@171 750 #X obj 480 192 *~;
r@171 751 #X obj 480 257 throw~ l;
r@171 752 #X obj 507 234 throw~ r;
r@171 753 #X obj 480 213 fcpan;
r@171 754 #X obj 480 138 *~ 0.5;
r@171 755 #X obj 480 116 vcf~ 3;
r@171 756 #X obj 507 191 r \$0-thisPan;
r@171 757 #X obj 480 89 r~ \$0-thisNoise;
r@171 758 #X obj 750 183 *~;
r@171 759 #X obj 750 248 throw~ l;
r@171 760 #X obj 777 225 throw~ r;
r@171 761 #X obj 750 204 fcpan;
r@171 762 #X obj 750 129 *~ 0.5;
r@171 763 #X obj 750 107 vcf~ 3;
r@171 764 #X obj 777 182 r \$0-thisPan;
r@171 765 #X obj 750 80 r~ \$0-thisNoise;
r@171 766 #X obj 636 169 *~ 0.1;
r@171 767 #X obj 217 464 *~;
r@171 768 #X obj 217 529 throw~ l;
r@171 769 #X obj 244 506 throw~ r;
r@171 770 #X obj 217 485 fcpan;
r@171 771 #X obj 217 410 *~ 0.5;
r@171 772 #X obj 217 388 vcf~ 3;
r@171 773 #X obj 244 463 r \$0-thisPan;
r@171 774 #X obj 217 361 r~ \$0-thisNoise;
r@171 775 #X obj 491 462 *~;
r@171 776 #X obj 491 527 throw~ l;
r@171 777 #X obj 518 504 throw~ r;
r@171 778 #X obj 491 483 fcpan;
r@171 779 #X obj 491 408 *~ 0.5;
r@171 780 #X obj 491 386 vcf~ 3;
r@171 781 #X obj 518 461 r \$0-thisPan;
r@171 782 #X obj 491 359 r~ \$0-thisNoise;
r@171 783 #X text 273 27 Generates the sound associated with the lift dipole.
r@171 784 ;
r@171 785 #X text 175 312 Generates the sound associated with the drag dipole.
r@171 786 ;
r@171 787 #X connect 0 0 2 0;
r@171 788 #X connect 0 0 51 1;
r@171 789 #X connect 1 0 5 1;
r@171 790 #X connect 1 0 46 1;
r@171 791 #X connect 2 0 5 0;
r@171 792 #X connect 5 0 6 0;
r@171 793 #X connect 6 0 3 0;
r@171 794 #X connect 6 1 4 0;
r@171 795 #X connect 7 0 6 1;
r@171 796 #X connect 8 0 26 0;
r@171 797 #X connect 9 0 16 0;
r@171 798 #X connect 10 0 13 0;
r@171 799 #X connect 13 0 14 0;
r@171 800 #X connect 14 0 11 0;
r@171 801 #X connect 14 1 12 0;
r@171 802 #X connect 15 0 14 1;
r@171 803 #X connect 16 0 13 1;
r@171 804 #X connect 16 0 54 1;
r@171 805 #X connect 17 0 25 0;
r@171 806 #X connect 18 0 70 0;
r@171 807 #X connect 19 0 22 0;
r@171 808 #X connect 22 0 23 0;
r@171 809 #X connect 23 0 20 0;
r@171 810 #X connect 23 1 21 0;
r@171 811 #X connect 24 0 23 1;
r@171 812 #X connect 25 0 19 0;
r@171 813 #X connect 25 0 67 1;
r@171 814 #X connect 26 0 10 0;
r@171 815 #X connect 26 0 59 1;
r@171 816 #X connect 27 0 35 0;
r@171 817 #X connect 28 0 31 0;
r@171 818 #X connect 31 0 32 0;
r@171 819 #X connect 32 0 29 0;
r@171 820 #X connect 32 1 30 0;
r@171 821 #X connect 33 0 32 1;
r@171 822 #X connect 34 0 31 1;
r@171 823 #X connect 34 0 71 1;
r@171 824 #X connect 35 0 28 0;
r@171 825 #X connect 35 0 76 1;
r@171 826 #X connect 36 0 44 0;
r@171 827 #X connect 37 0 40 0;
r@171 828 #X connect 40 0 41 0;
r@171 829 #X connect 41 0 38 0;
r@171 830 #X connect 41 1 39 0;
r@171 831 #X connect 42 0 41 1;
r@171 832 #X connect 43 0 45 0;
r@171 833 #X connect 44 0 37 0;
r@171 834 #X connect 44 0 84 1;
r@171 835 #X connect 45 0 40 1;
r@171 836 #X connect 45 0 79 1;
r@171 837 #X connect 46 0 49 0;
r@171 838 #X connect 49 0 47 0;
r@171 839 #X connect 49 1 48 0;
r@171 840 #X connect 50 0 46 0;
r@171 841 #X connect 51 0 50 0;
r@171 842 #X connect 52 0 49 1;
r@171 843 #X connect 53 0 51 0;
r@171 844 #X connect 54 0 57 0;
r@171 845 #X connect 57 0 55 0;
r@171 846 #X connect 57 1 56 0;
r@171 847 #X connect 58 0 54 0;
r@171 848 #X connect 59 0 58 0;
r@171 849 #X connect 60 0 57 1;
r@171 850 #X connect 61 0 59 0;
r@171 851 #X connect 62 0 65 0;
r@171 852 #X connect 65 0 63 0;
r@171 853 #X connect 65 1 64 0;
r@171 854 #X connect 66 0 62 0;
r@171 855 #X connect 67 0 66 0;
r@171 856 #X connect 68 0 65 1;
r@171 857 #X connect 69 0 67 0;
r@171 858 #X connect 70 0 22 1;
r@171 859 #X connect 70 0 62 1;
r@171 860 #X connect 71 0 74 0;
r@171 861 #X connect 74 0 72 0;
r@171 862 #X connect 74 1 73 0;
r@171 863 #X connect 75 0 71 0;
r@171 864 #X connect 76 0 75 0;
r@171 865 #X connect 77 0 74 1;
r@171 866 #X connect 78 0 76 0;
r@171 867 #X connect 79 0 82 0;
r@171 868 #X connect 82 0 80 0;
r@171 869 #X connect 82 1 81 0;
r@171 870 #X connect 83 0 79 0;
r@171 871 #X connect 84 0 83 0;
r@171 872 #X connect 85 0 82 1;
r@171 873 #X connect 86 0 84 0;
r@171 874 #X restore 649 504 pd Dipoles;
r@171 875 #X obj 1088 69 noise~;
r@171 876 #X obj 1088 92 s~ \$0-thisNoise;
r@171 877 #X obj 1067 214 r~ \$0-thisNoise;
r@171 878 #X text 674 440 the object and environment;
r@171 879 #X connect 1 0 3 0;
r@171 880 #X connect 2 0 20 0;
r@171 881 #X connect 2 0 42 0;
r@171 882 #X connect 3 0 2 0;
r@171 883 #X connect 4 0 17 0;
r@171 884 #X connect 5 0 4 0;
r@171 885 #X connect 6 0 11 0;
r@171 886 #X connect 6 0 43 0;
r@171 887 #X connect 9 0 29 0;
r@171 888 #X connect 9 0 48 0;
r@171 889 #X connect 12 0 3 1;
r@171 890 #X connect 13 0 4 1;
r@171 891 #X connect 15 0 5 1;
r@171 892 #X connect 16 0 1 0;
r@171 893 #X connect 18 0 14 0;
r@171 894 #X connect 19 0 46 0;
r@171 895 #X connect 21 0 96 0;
r@171 896 #X connect 25 0 81 1;
r@171 897 #X connect 26 0 81 4;
r@171 898 #X connect 27 0 30 0;
r@171 899 #X connect 27 0 83 0;
r@171 900 #X connect 28 0 31 0;
r@171 901 #X connect 28 0 84 0;
r@171 902 #X connect 39 0 40 0;
r@171 903 #X connect 39 0 47 0;
r@171 904 #X connect 42 0 55 0;
r@171 905 #X connect 42 0 5 0;
r@171 906 #X connect 46 0 44 0;
r@171 907 #X connect 46 1 45 0;
r@171 908 #X connect 51 0 81 0;
r@171 909 #X connect 52 0 81 3;
r@171 910 #X connect 53 0 81 5;
r@171 911 #X connect 57 0 73 1;
r@171 912 #X connect 58 0 19 0;
r@171 913 #X connect 59 0 46 1;
r@171 914 #X connect 60 0 63 0;
r@171 915 #X connect 60 0 66 0;
r@171 916 #X connect 61 0 64 0;
r@171 917 #X connect 61 0 67 0;
r@171 918 #X connect 62 0 65 0;
r@171 919 #X connect 62 0 68 0;
r@171 920 #X connect 73 0 94 0;
r@171 921 #X connect 74 0 73 0;
r@171 922 #X connect 75 0 80 1;
r@171 923 #X connect 76 0 80 3;
r@171 924 #X connect 77 0 80 0;
r@171 925 #X connect 78 0 80 2;
r@171 926 #X connect 79 0 80 5;
r@171 927 #X connect 80 0 50 0;
r@171 928 #X connect 80 1 49 0;
r@171 929 #X connect 81 0 54 0;
r@171 930 #X connect 85 0 80 6;
r@171 931 #X connect 86 0 80 7;
r@171 932 #X connect 87 0 81 6;
r@171 933 #X connect 88 0 81 7;
r@171 934 #X connect 89 0 91 0;
r@171 935 #X connect 90 0 89 0;
r@171 936 #X connect 92 0 80 4;
r@171 937 #X connect 93 0 94 1;
r@171 938 #X connect 94 0 19 1;
r@171 939 #X connect 95 0 81 2;
r@171 940 #X connect 96 0 97 0;
r@171 941 #X connect 97 0 22 0;
r@171 942 #X connect 97 0 56 0;
r@171 943 #X connect 99 0 100 0;
r@171 944 #X connect 101 0 74 0;