annotate June/woSoFreq.pd @ 68:092c97c67ed5

Angles calculated and added for cable 3
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Wed, 17 Jun 2015 16:12:24 +0100
parents d8fd722c9ff0
children 9fbf39788338
rev   line source
r@62 1 #N canvas 642 52 1236 817 10;
r@58 2 #X text 181 156 Mass Density of Air;
r@58 3 #X text 115 130 Frequency (Hz);
r@58 4 #X obj 170 644 throw~ l;
r@58 5 #X obj 197 625 throw~ r;
r@58 6 #X obj 274 476 osc~;
r@58 7 #X obj 303 157 *~ 1.225;
r@58 8 #X obj 303 232 /~ 1.81e-05;
r@58 9 #X obj 273 335 *~ 0.198;
r@58 10 #X obj 303 187 *~ 1;
r@58 11 #X obj 273 395 /~ 1;
r@58 12 #X obj 125 79 snapshot~;
r@58 13 #X obj 125 32 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@58 14 1;
r@58 15 #X floatatom 125 105 10 0 0 0 - - -;
r@58 16 #X obj 234 251 sig~ 19.7;
r@58 17 #X obj 288 275 /~;
r@58 18 #X obj 234 275 sig~ 1;
r@58 19 #X obj 273 304 -~;
r@58 20 #X obj 273 364 *~;
r@58 21 #X obj 273 421 clip~ 0 20000;
r@58 22 #X obj 175 -110 inlet;
r@58 23 #X obj 205 104 outlet;
r@58 24 #X obj 125 6 loadbang;
r@58 25 #X text 365 33 Mass Density of Air \, squared;
r@58 26 #X text 662 18 Speed of Sound to power 2;
r@58 27 #N canvas 759 125 286 289 pow6 0;
r@58 28 #X obj 47 67 *~;
r@58 29 #X obj 76 67 *~;
r@58 30 #X obj 76 35 inlet~;
r@58 31 #X obj 47 163 outlet~;
r@58 32 #X obj 136 184 snapshot~;
r@58 33 #X obj 136 159 metro 100;
r@58 34 #X obj 136 137 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@58 35 1;
r@58 36 #X floatatom 136 211 10 0 0 0 - - -;
r@58 37 #X obj 216 210 outlet;
r@58 38 #X obj 136 111 loadbang;
r@58 39 #X obj 106 67 *~;
r@58 40 #X obj 47 93 *~;
r@58 41 #X obj 47 118 *~;
r@58 42 #X connect 0 0 11 0;
r@58 43 #X connect 1 0 11 1;
r@58 44 #X connect 2 0 0 0;
r@58 45 #X connect 2 0 0 1;
r@58 46 #X connect 2 0 1 1;
r@58 47 #X connect 2 0 10 0;
r@58 48 #X connect 2 0 10 1;
r@58 49 #X connect 2 0 1 0;
r@58 50 #X connect 4 0 7 0;
r@58 51 #X connect 4 0 8 0;
r@58 52 #X connect 5 0 4 0;
r@58 53 #X connect 6 0 5 0;
r@58 54 #X connect 9 0 6 0;
r@58 55 #X connect 10 0 12 1;
r@58 56 #X connect 11 0 12 0;
r@58 57 #X connect 12 0 4 0;
r@58 58 #X connect 12 0 3 0;
r@58 59 #X restore 548 -64 pd pow6;
r@58 60 #X text 144 225 Reynolds Number;
r@58 61 #X text 152 407 Strouhal Number;
r@58 62 #X obj 511 -51 *~;
r@58 63 #X obj 548 -26 *~;
r@58 64 #X obj 548 8 *~ 1;
r@58 65 #X obj 548 36 *~ 1.50063;
r@58 66 #X obj 626 -15 inlet;
r@58 67 #X obj 626 10 *;
r@58 68 #X obj 626 35 * 118033;
r@58 69 #X obj 548 71 /~ 1;
r@58 70 #X obj 569 139 inlet;
r@58 71 #X obj 569 239 cos;
r@58 72 #X obj 569 194 / 360;
r@58 73 #X obj 548 344 *~ 0.27;
r@58 74 #X obj 274 507 *~;
r@58 75 #X floatatom 586 291 5 0 0 0 - - -;
r@58 76 #X obj 569 263 *;
r@58 77 #X text 572 116 Azimuth;
r@58 78 #X text 625 -35 Distance;
r@58 79 #X obj 548 319 *~ 1;
r@58 80 #X text 333 212 Viscosity;
r@58 81 #X obj 76 454 *~ 2;
r@58 82 #X obj 76 481 osc~;
r@58 83 #X obj 76 517 *~;
r@58 84 #X obj 170 557 +~;
r@58 85 #X obj 548 369 *~ 1e-06;
r@58 86 #X obj 678 239 cos;
r@58 87 #X obj 678 194 / 360;
r@58 88 #X floatatom 705 290 5 0 0 0 - - -;
r@58 89 #X obj 678 263 *;
r@58 90 #X obj 657 343 *~ 0.27;
r@58 91 #X obj 657 319 *~ 1;
r@58 92 #X obj 175 -87 s \$0-diameter;
r@58 93 #X obj 364 156 r \$0-diameter;
r@58 94 #X obj 374 351 r \$0-diameter;
r@58 95 #X obj 617 -58 r \$0-diameter;
r@58 96 #X obj 53 -85 s~ \$0-windSpeed;
r@58 97 #X obj 548 -90 r~ \$0-windSpeed;
r@58 98 #X obj 329 334 r~ \$0-windSpeed;
r@58 99 #X obj 303 129 r~ \$0-windSpeed;
r@58 100 #X obj 207 433 s~ \$0_str;
r@58 101 #X obj 481 -89 r~ \$0_str;
r@58 102 #X obj 565 100 s~ \$0-a;
r@58 103 #X obj 632 293 r~ \$0-a;
r@58 104 #X obj 657 393 s~ \$0_dragDiGain;
r@58 105 #X obj 109 481 r~ \$0_dragDiGain;
r@58 106 #X obj 286 447 s~ \$0-myFreq;
r@58 107 #X obj 76 427 r~ \$0-myFreq;
r@58 108 #X obj 39 54 r~ \$0-myFreq;
r@58 109 #X obj 548 393 s~ \$0_liftDiGain;
r@58 110 #X obj 312 477 r~ \$0_liftDiGain;
r@58 111 #X obj 887 20 r~ \$0-myFreq;
r@58 112 #X obj 853 -4 noise~;
r@58 113 #X obj 930 204 throw~ l;
r@58 114 #X obj 957 183 throw~ r;
r@58 115 #X obj 945 60 r~ \$0_liftDiGain;
r@58 116 #X obj 930 111 *~;
r@58 117 #X obj 544 541 snapshot~;
r@58 118 #X obj 544 516 metro 100;
r@58 119 #X obj 544 494 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
r@58 120 1;
r@58 121 #X floatatom 544 567 10 0 0 0 - - -;
r@58 122 #X obj 544 468 loadbang;
r@58 123 #X obj 458 516 r~ \$0-myRey;
r@58 124 #X obj 316 256 s~ \$0-myRey;
r@58 125 #X obj 1068 21 snapshot~;
r@58 126 #X floatatom 1068 47 10 0 0 0 - - -;
r@58 127 #X obj 1068 -52 loadbang;
r@58 128 #X obj 1068 -27 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@58 129 1 1;
r@58 130 #X obj 979 -81 r~ \$0-myRey;
r@58 131 #X obj 905 320 r~ \$0-myFreq;
r@58 132 #X obj 871 295 noise~;
r@58 133 #X obj 948 509 throw~ l;
r@58 134 #X obj 975 486 throw~ r;
r@58 135 #X obj 948 417 *~;
r@58 136 #X obj 1086 329 snapshot~;
r@58 137 #X floatatom 1086 355 10 0 0 0 - - -;
r@58 138 #X obj 1086 256 loadbang;
r@58 139 #X obj 1086 281 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
r@58 140 1 1;
r@58 141 #X obj 997 227 r~ \$0-myRey;
r@58 142 #X obj 963 369 r~ \$0_dragDiGain;
r@58 143 #X obj 905 346 *~ 2;
r@58 144 #X text 529 589 Reynolds Number;
r@58 145 #X obj 853 63 vcf~ 1000 10;
r@58 146 #X obj 871 371 vcf~ 1000 10;
r@58 147 #X obj 53 -108 inlet~;
r@58 148 #X floatatom 642 153 5 0 0 0 - - -;
r@58 149 #X obj 170 600 fcpan;
r@58 150 #X obj 489 170 s \$0-b;
r@58 151 #X obj 213 550 r \$0-b;
r@58 152 #X obj 213 572 / 180;
r@58 153 #X obj 930 160 fcpan;
r@58 154 #X obj 957 112 r \$0-b;
r@58 155 #X obj 957 134 / 180;
r@58 156 #X obj 948 461 fcpan;
r@58 157 #X obj 975 416 r \$0-b;
r@58 158 #X obj 975 438 / 180;
r@58 159 #X obj 569 216 * 6.28319;
r@58 160 #X obj 678 216 * 6.28319;
r@58 161 #X obj 945 84 *~ 1;
r@58 162 #X obj 963 392 *~ 1;
r@58 163 #X obj 997 302 clip~ 2 400;
r@58 164 #X obj 979 -6 clip~ 2 400;
r@58 165 #X obj 997 251 *~ -0.003;
r@58 166 #X obj 979 -57 *~ -0.003;
r@58 167 #X obj 979 -32 +~ 20;
r@58 168 #X obj 997 276 +~ 20;
r@58 169 #X obj 569 172 + 90;
r@58 170 #X floatatom 591 11 5 0 0 0 - - -;
r@58 171 #X obj 1068 -4 metro 10;
r@58 172 #X obj 1086 304 metro 10;
r@58 173 #X obj 125 54 metro 10;
r@62 174 #X obj 657 368 *~ 1e-08;
r@58 175 #X connect 4 0 39 0;
r@58 176 #X connect 5 0 8 0;
r@58 177 #X connect 6 0 14 1;
r@62 178 #X connect 6 0 88 0;
r@58 179 #X connect 7 0 17 0;
r@58 180 #X connect 8 0 6 0;
r@58 181 #X connect 9 0 18 0;
r@62 182 #X connect 9 0 65 0;
r@58 183 #X connect 10 0 12 0;
r@58 184 #X connect 10 0 20 0;
r@62 185 #X connect 11 0 135 0;
r@58 186 #X connect 13 0 14 0;
r@58 187 #X connect 14 0 16 1;
r@58 188 #X connect 15 0 16 0;
r@58 189 #X connect 16 0 7 0;
r@58 190 #X connect 17 0 9 0;
r@58 191 #X connect 18 0 4 0;
r@62 192 #X connect 18 0 71 0;
r@62 193 #X connect 19 0 57 0;
r@58 194 #X connect 21 0 11 0;
r@58 195 #X connect 24 0 28 0;
r@58 196 #X connect 27 0 28 1;
r@58 197 #X connect 28 0 29 0;
r@58 198 #X connect 29 0 30 0;
r@58 199 #X connect 30 0 34 0;
r@58 200 #X connect 31 0 32 0;
r@58 201 #X connect 31 0 32 1;
r@62 202 #X connect 31 0 132 0;
r@58 203 #X connect 32 0 33 0;
r@58 204 #X connect 33 0 34 1;
r@58 205 #X connect 34 0 44 0;
r@62 206 #X connect 34 0 67 0;
r@62 207 #X connect 35 0 110 0;
r@58 208 #X connect 35 0 52 0;
r@62 209 #X connect 35 0 112 0;
r@62 210 #X connect 35 0 131 0;
r@58 211 #X connect 36 0 41 0;
r@58 212 #X connect 36 0 41 1;
r@62 213 #X connect 37 0 121 0;
r@58 214 #X connect 38 0 50 0;
r@58 215 #X connect 39 0 49 1;
r@58 216 #X connect 41 0 40 0;
r@58 217 #X connect 41 0 44 1;
r@58 218 #X connect 44 0 38 0;
r@58 219 #X connect 46 0 47 0;
r@58 220 #X connect 47 0 48 0;
r@58 221 #X connect 48 0 49 0;
r@62 222 #X connect 49 0 111 0;
r@62 223 #X connect 50 0 74 0;
r@58 224 #X connect 51 0 54 0;
r@58 225 #X connect 51 0 54 1;
r@62 226 #X connect 52 0 122 0;
r@58 227 #X connect 54 0 53 0;
r@58 228 #X connect 54 0 56 1;
r@62 229 #X connect 55 0 136 0;
r@58 230 #X connect 56 0 55 0;
r@62 231 #X connect 58 0 8 1;
r@62 232 #X connect 59 0 9 1;
r@62 233 #X connect 60 0 29 1;
r@62 234 #X connect 62 0 24 0;
r@62 235 #X connect 63 0 17 1;
r@62 236 #X connect 64 0 5 0;
r@62 237 #X connect 66 0 27 1;
r@62 238 #X connect 66 0 27 0;
r@62 239 #X connect 68 0 56 0;
r@62 240 #X connect 70 0 48 1;
r@62 241 #X connect 72 0 46 0;
r@62 242 #X connect 73 0 10 0;
r@62 243 #X connect 75 0 39 1;
r@62 244 #X connect 76 0 107 1;
r@62 245 #X connect 77 0 107 0;
r@62 246 #X connect 80 0 123 0;
r@62 247 #X connect 81 0 115 0;
r@62 248 #X connect 82 0 85 0;
r@62 249 #X connect 83 0 82 0;
r@58 250 #X connect 84 0 83 0;
r@62 251 #X connect 86 0 84 0;
r@62 252 #X connect 87 0 82 0;
r@62 253 #X connect 89 0 90 0;
r@62 254 #X connect 89 0 107 2;
r@62 255 #X connect 91 0 92 0;
r@62 256 #X connect 92 0 133 0;
r@62 257 #X connect 93 0 128 0;
r@62 258 #X connect 94 0 105 0;
r@62 259 #X connect 95 0 108 0;
r@62 260 #X connect 98 0 118 0;
r@62 261 #X connect 99 0 100 0;
r@62 262 #X connect 99 0 108 2;
r@62 263 #X connect 101 0 102 0;
r@62 264 #X connect 102 0 134 0;
r@62 265 #X connect 103 0 127 0;
r@62 266 #X connect 104 0 124 0;
r@62 267 #X connect 105 0 108 1;
r@62 268 #X connect 107 0 81 0;
r@62 269 #X connect 108 0 98 0;
r@62 270 #X connect 109 0 61 0;
r@62 271 #X connect 111 0 2 0;
r@62 272 #X connect 111 1 3 0;
r@62 273 #X connect 113 0 114 0;
r@62 274 #X connect 114 0 111 1;
r@62 275 #X connect 115 0 78 0;
r@62 276 #X connect 115 1 79 0;
r@62 277 #X connect 116 0 117 0;
r@62 278 #X connect 117 0 115 1;
r@62 279 #X connect 118 0 96 0;
r@62 280 #X connect 118 1 97 0;
r@62 281 #X connect 119 0 120 0;
r@62 282 #X connect 120 0 118 1;
r@62 283 #X connect 121 0 36 0;
r@62 284 #X connect 122 0 51 0;
r@62 285 #X connect 123 0 81 1;
r@62 286 #X connect 124 0 98 1;
r@62 287 #X connect 125 0 99 0;
r@62 288 #X connect 126 0 89 0;
r@62 289 #X connect 127 0 130 0;
r@62 290 #X connect 128 0 129 0;
r@62 291 #X connect 129 0 126 0;
r@62 292 #X connect 130 0 125 0;
r@62 293 #X connect 131 0 37 0;
r@62 294 #X connect 133 0 89 0;
r@62 295 #X connect 134 0 99 0;
r@62 296 #X connect 135 0 10 0;
r@62 297 #X connect 136 0 69 0;