Mercurial > hg > weather-synthesis-prototyping
diff June/freqCalcCylD5.pd @ 80:c21ae30cfdbb
Additional angle calculations correction made in June/freqCalcCylD5.pd
author | Rod Selfridge <r.selfridge@qmul.ac.uk> |
---|---|
date | Fri, 26 Jun 2015 17:38:23 +0100 |
parents | 310f1de5b676 |
children |
line wrap: on
line diff
--- a/June/freqCalcCylD5.pd Fri Jun 26 17:16:21 2015 +0100 +++ b/June/freqCalcCylD5.pd Fri Jun 26 17:38:23 2015 +0100 @@ -1,4 +1,4 @@ -#N canvas 1453 23 1649 836 10; +#N canvas 1449 -75 1649 836 10; #X text 798 -33 Mass Density of Air; #X text 107 282 Frequency (Hz); #X obj 875 415 throw~ l; @@ -115,7 +115,7 @@ #X floatatom 124 432 10 0 0 0 - - -; #X obj 124 333 loadbang; #X obj 60 382 r~ \$0_str; -#N canvas 1955 100 622 660 noiseGain 0; +#N canvas 1955 100 622 660 noiseGain 1; #X text -21205 129 Mass Density of Air \, squared; #X text -20857 164 Speed of Sound to power 2; #X obj -21070 29 *~; @@ -125,7 +125,7 @@ #X obj -20859 118 *; #X obj -20859 141 * 118033; #X obj -21022 193 /~ 1; -#X obj -21022 399 *~ 0.27; +#X obj -21021 422 *~ 0.27; #X text -20859 71 Distance; #X obj -20890 352 cos; #X obj -20890 307 / 360; @@ -133,9 +133,9 @@ #X obj -20890 376 *; #X obj -20911 435 *~ 0.27; #X obj -20890 329 * 6.28319; -#X obj -20890 279 + 90; +#X obj -21000 282 + 90; #X text -20895 510 Calculates Drag Dipole gain; -#X text -21176 463 Calculates Lift Dipole gain; +#X text -21175 486 Calculates Lift Dipole gain; #N canvas 759 125 286 289 pow8 0; #X obj 47 67 *~; #X obj 76 67 *~; @@ -175,7 +175,7 @@ #X restore -21022 32 pd pow8; #X obj -21005 222 s~ \$0-c; #X obj -20948 385 r~ \$0-c; -#X obj -21022 421 *~ 1; +#X obj -21021 444 *~ 1; #X obj -20911 460 *~ 0.1; #X obj -21070 7 inlet~; #X obj -21022 7 inlet~; @@ -183,7 +183,7 @@ #X obj -20942 229 inlet; #X obj -20873 229 inlet; #X obj -20859 92 inlet; -#X obj -21022 442 outlet~; +#X obj -21021 465 outlet~; #X obj -20911 485 outlet~; #X text -20947 211 Azimuth; #X text -20871 210 Elevation; @@ -192,7 +192,7 @@ #X text -20981 74 Diameter; #N canvas 1567 153 479 552 angleCalc 0; #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 9900 1; +-1 -1 5223 1; #X text 287 77 Elevation Angle; #X obj 236 118 / 360; #X obj 236 140 * 6.28319; @@ -258,11 +258,11 @@ #X obj -20951 142 *; #X obj -21022 167 *~ 1; #X text -20953 99 Length; -#X obj -21001 282 / 360; -#X obj -21001 328 cos; -#X obj -21001 352 *; -#X obj -21001 305 * 6.28319; -#X obj -21022 374 *~ 1; +#X obj -21000 305 / 360; +#X obj -21000 351 cos; +#X obj -21000 375 *; +#X obj -21000 328 * 6.28319; +#X obj -21021 397 *~ 1; #X obj -20911 411 *~ 1; #X connect 2 0 3 1; #X connect 3 0 4 0; @@ -280,7 +280,7 @@ #X connect 14 0 47 1; #X connect 15 0 24 0; #X connect 16 0 11 0; -#X connect 17 0 12 0; +#X connect 17 0 42 0; #X connect 20 0 3 0; #X connect 22 0 47 0; #X connect 23 0 31 0; @@ -294,7 +294,7 @@ #X connect 30 0 6 0; #X connect 30 0 6 1; #X connect 37 0 17 0; -#X connect 37 0 42 0; +#X connect 37 0 12 0; #X connect 38 0 39 0; #X connect 38 0 39 1; #X connect 39 0 40 1; @@ -313,7 +313,7 @@ #X obj 350 361 r \$0_elev; #X obj 304 473 s~ \$0_liftNoiseGain; #X obj 373 451 s~ \$0_dragNoiseGain; -#N canvas 2359 -5 620 642 freqGain 0; +#N canvas 2053 -13 661 655 freqGain 0; #X text 36 127 Mass Density of Air \, squared; #X text 400 151 Speed of Sound to power 2; #N canvas 759 125 286 289 pow6 0; @@ -368,9 +368,9 @@ #X obj 290 477 r~ \$0-a; #X obj 352 433 * 6.28319; #X floatatom 363 104 5 0 0 0 - - -; -#N canvas 1567 153 479 552 angleCalc 0; +#N canvas 1694 100 479 552 angleCalc 0; #X obj 307 116 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 4950 1; +-1 -1 5700 1; #X text 287 77 Elevation Angle; #X obj 236 118 / 360; #X obj 236 140 * 6.28319; @@ -399,9 +399,10 @@ #X obj 236 90 inlet; #X obj 164 57 inlet; #X obj 52 80 hsl 100 20 -90 90 0 0 empty empty empty -2 -8 0 10 -262144 --1 -1 9900 1; +-1 -1 4700 1; #X text 56 42 Azimuth Angle; #X connect 0 0 7 0; +#X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 3 0 21 0; #X connect 4 0 5 0; @@ -427,13 +428,12 @@ #X connect 23 1 24 0; #X connect 24 0 22 0; #X connect 26 0 2 0; -#X connect 26 0 0 0; #X connect 27 0 4 0; -#X connect 27 0 28 0; #X connect 28 0 6 0; +#X connect 28 0 4 0; #X restore 298 333 pd angleCalc; #X text 384 296 Elevation; -#X obj 352 383 + 90; +#X obj 240 364 + 90; #X text 409 534 Calculates Drag Dipole gain; #X text 48 445 Calculates Lift Dipole gain; #X obj 220 528 *~ 1; @@ -457,6 +457,7 @@ #X obj 240 411 * 6.28319; #X obj 331 503 *~ 1; #X obj 219 481 *~ 1; +#X floatatom 139 477 8 0 0 0 - - -; #X connect 2 0 4 0; #X connect 3 0 4 1; #X connect 4 0 5 0; @@ -476,8 +477,8 @@ #X connect 19 0 46 0; #X connect 20 0 13 0; #X connect 22 0 24 0; -#X connect 22 0 42 0; -#X connect 24 0 14 0; +#X connect 22 0 14 0; +#X connect 24 0 42 0; #X connect 27 0 36 0; #X connect 28 0 37 0; #X connect 29 0 3 0; @@ -497,6 +498,7 @@ #X connect 43 0 44 0; #X connect 43 0 44 1; #X connect 44 0 47 1; +#X connect 44 0 48 0; #X connect 45 0 43 0; #X connect 46 0 17 0; #X connect 47 0 10 0;