annotate SwordSounds/sweepTime.pd @ 115:61d267c71a18

freqCalcCyl2_D4Mach added. This includes the effect of mach number on the angle of sound radiated from the dipole. This is limited up to 0.3M. angleCalc converted to an object for both control and audio.
author Rod Selfridge <r.selfridge@qmul.ac.uk>
date Fri, 31 Jul 2015 07:15:40 +0100
parents 899f8e554fa6
children 5e7c747e4876
rev   line source
r@95 1 #N canvas 64 60 1299 777 10;
r@95 2 #X obj 658 -89 r presweepElev;
r@95 3 #X obj 751 -90 r postsweepElev;
r@95 4 #X obj 199 19 r presweepAzim;
r@95 5 #X floatatom 158 51 5 0 0 0 - - -;
r@95 6 #X floatatom 658 -65 5 0 0 0 - - -;
r@95 7 #X floatatom 751 -67 5 0 0 0 - - -;
r@95 8 #X obj 198 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -4034 -1
r@95 9 -1;
r@95 10 #X obj 198 -57 s GO;
r@95 11 #X obj 138 -110 bng 50 250 50 0 empty empty empty 17 7 0 10 -257985
r@95 12 -1 -1;
r@95 13 #X obj 138 -57 s setUp;
r@95 14 #X obj 852 -90 r start_armLength;
r@95 15 #X floatatom 852 -69 5 0 0 0 - - -;
r@95 16 #X obj 968 -90 r bladeLen;
r@95 17 #X floatatom 968 -67 5 0 0 0 - - -;
r@95 18 #X obj 214 86 r start_armLength;
r@95 19 #X obj 229 107 r bladeLen;
r@95 20 #X obj 214 131 +;
r@95 21 #X floatatom 232 151 5 0 0 0 - - -;
r@95 22 #X text 328 -89 Start calculation with elevation = 0 \, arm length
r@95 23 is constant \, acceleration/deceleration is constant.;
r@95 24 #X obj 199 64 * 6.28312;
r@95 25 #X obj 199 42 / 360;
r@95 26 #X floatatom 156 97 5 0 0 0 - - -;
r@95 27 #X obj 199 164 *;
r@95 28 #X floatatom 152 198 5 0 0 0 - - -;
r@95 29 #X obj 214 185 r topSpeed;
r@95 30 #X obj 214 210 / 2;
r@95 31 #X obj 199 234 /;
r@95 32 #X obj 199 258 * 1000;
r@95 33 #X floatatom 246 287 5 0 0 0 - - -;
r@95 34 #X floatatom 542 40 5 0 0 0 - - -;
r@95 35 #X obj 598 75 r start_armLength;
r@95 36 #X obj 613 96 r bladeLen;
r@95 37 #X obj 598 120 +;
r@95 38 #X floatatom 616 140 5 0 0 0 - - -;
r@95 39 #X obj 583 53 * 6.28312;
r@95 40 #X obj 583 31 / 360;
r@95 41 #X floatatom 540 86 5 0 0 0 - - -;
r@95 42 #X obj 583 153 *;
r@95 43 #X floatatom 536 187 5 0 0 0 - - -;
r@95 44 #X obj 598 174 r topSpeed;
r@95 45 #X obj 598 199 / 2;
r@95 46 #X obj 583 223 /;
r@95 47 #X obj 583 247 * 1000;
r@103 48 #X obj 583 -17 r postsweepAzim;
r@95 49 #X text 683 252 Time from 0 azimuth to;
r@95 50 #X text 686 267 stationary at post sweep;
r@95 51 #X text 637 199 Assuming constant acceleration;
r@95 52 #X floatatom 635 274 5 0 0 0 - - -;
r@95 53 #X obj 199 320 s preswingTime;
r@95 54 #X obj 583 306 s postswingTime;
r@95 55 #X text 249 211 Assuming constant acceleration;
r@95 56 #X text 25 240 Time from pre-sweep azimuth;
r@95 57 #X text 26 253 to centre at top speed;
r@95 58 #X text 8 186 Pre sweep Circumference;
r@95 59 #X text 396 167 Post sweep Circumference;
r@95 60 #X text 315 321 Acceleration time;
r@95 61 #X text 692 307 Decceleration time;
r@95 62 #X text 246 130 Full radius;
r@95 63 #X text 648 119 Full radius;
r@100 64 #X obj 1037 70 r preswingTime;
r@100 65 #X obj 1022 152 +;
r@100 66 #X obj 1009 253 delay;
r@100 67 #X obj 1007 200 t f b;
r@100 68 #X obj 1007 27 r GO;
r@100 69 #X obj 1007 175 f;
r@100 70 #X obj 1036 230 + 5;
r@100 71 #X obj 1022 48 r postswingTime;
r@100 72 #X obj 1009 276 s myEnd;
r@100 73 #X obj 1037 122 t f b;
r@100 74 #X floatatom 955 252 5 0 0 0 - - -;
r@103 75 #X obj 582 10 * -1;
r@95 76 #X connect 0 0 4 0;
r@95 77 #X connect 1 0 5 0;
r@95 78 #X connect 2 0 3 0;
r@95 79 #X connect 2 0 20 0;
r@95 80 #X connect 6 0 7 0;
r@95 81 #X connect 8 0 9 0;
r@95 82 #X connect 10 0 11 0;
r@95 83 #X connect 12 0 13 0;
r@95 84 #X connect 14 0 16 0;
r@95 85 #X connect 15 0 16 1;
r@95 86 #X connect 16 0 17 0;
r@95 87 #X connect 16 0 22 1;
r@95 88 #X connect 19 0 21 0;
r@95 89 #X connect 19 0 22 0;
r@95 90 #X connect 20 0 19 0;
r@95 91 #X connect 22 0 23 0;
r@95 92 #X connect 22 0 26 0;
r@95 93 #X connect 24 0 25 0;
r@95 94 #X connect 25 0 26 1;
r@95 95 #X connect 26 0 27 0;
r@95 96 #X connect 27 0 28 0;
r@95 97 #X connect 27 0 48 0;
r@95 98 #X connect 30 0 32 0;
r@95 99 #X connect 31 0 32 1;
r@95 100 #X connect 32 0 33 0;
r@95 101 #X connect 32 0 37 1;
r@95 102 #X connect 34 0 36 0;
r@95 103 #X connect 34 0 37 0;
r@95 104 #X connect 35 0 34 0;
r@95 105 #X connect 37 0 38 0;
r@95 106 #X connect 37 0 41 0;
r@95 107 #X connect 39 0 40 0;
r@95 108 #X connect 40 0 41 1;
r@95 109 #X connect 41 0 42 0;
r@95 110 #X connect 42 0 47 0;
r@95 111 #X connect 42 0 49 0;
r@95 112 #X connect 43 0 29 0;
r@103 113 #X connect 43 0 70 0;
r@100 114 #X connect 59 0 68 0;
r@100 115 #X connect 60 0 64 1;
r@100 116 #X connect 61 0 67 0;
r@100 117 #X connect 62 0 65 0;
r@100 118 #X connect 62 1 61 0;
r@100 119 #X connect 63 0 64 0;
r@100 120 #X connect 64 0 62 0;
r@100 121 #X connect 65 0 61 1;
r@100 122 #X connect 65 0 69 0;
r@100 123 #X connect 66 0 60 0;
r@100 124 #X connect 68 0 60 1;
r@100 125 #X connect 68 1 60 0;
r@103 126 #X connect 70 0 35 0;