#N canvas 92 132 1070 678 10; #X floatatom 493 51 5 0 0; #X text 501 29 H; #X text 549 131 N; #X text 430 154 S1~; #X text 464 154 S2~; #X obj 24 98 mtof; #X obj 233 313 -~; #X obj 628 320 -~; #X obj 440 463 -~; #X obj 440 519 /~; #X obj 24 141 phasor~ 10; #X obj 24 195 send~ \$0-phi; #X obj 253 220 receive~ \$0-phi; #X obj 125 249 fexpr~ $x1*cos($x2); #X obj 307 249 fexpr~ $x1*cos($f2*$x3); #X obj 463 223 receive~ \$0-phi; #X obj 518 255 fexpr~ $x1*sin($f2*$x3); #X obj 674 224 receive~ \$0-phi; #X obj 737 255 fexpr~ $x1*sin($x2); #X obj 865 228 receive~ \$0-phi; #X obj 674 330 receive~ \$0-phi; #X obj 628 390 *~; #X obj 233 385 *~; #X obj 276 330 receive~ \$0-phi; #X obj 24 168 *~ 6.28319; #X text 393 30 a*100; #X obj 782 474 receive~ \$0-phi; #X obj 542 500 fexpr~ 1-2*$x1*cos($x2)+pow($x1 \, 2); #X obj 440 555 outlet~; #X obj 24 72 inlet; #X obj 559 51 inlet; #X obj 378 50 inlet~; #X obj 378 75 *~ 0.01; #X obj 328 126 send~ \$0-a; #X obj 802 330 receive~ \$0-a; #X obj 674 357 fexpr~ $x2*sin($x1); #X obj 418 330 receive~ \$0-a; #X obj 276 357 fexpr~ 1-$x2*cos($x1); #X obj 542 473 receive~ \$0-a; #N canvas 0 0 600 400 calulations 0; #X obj 252 83 fexpr~ pow($x1 \, $f2); #X obj 521 65 s \$0-H; #X obj 387 37 r \$0-H; #X obj 387 60 + 1; #X obj 252 180 abs~; #X obj 45 170 fexpr~ 1-$x1; #X obj 45 73 abs~; #X obj 205 248 /~; #X obj 252 204 fexpr~ 1-$x1; #X text 219 271 S1; #X obj 334 282 + 2; #X obj 334 258 r \$0-H; #X text 342 300 N; #X obj 82 248 /~; #X text 96 271 S2; #X text 297 179 |a^H+1|; #X obj 210 182 /~; #X obj 171 205 -~; #X obj 136 156 fexpr~ 1/$x1; #X obj 77 335 outlet~; #X obj 205 340 outlet~; #X obj 334 332 outlet; #X text 91 16 a; #X obj 521 35 inlet; #X text 366 228 avoid null division; #X obj 45 19 inlet~; #X obj 269 230 sig~ 1.5e-20; #X connect 0 0 4 0; #X connect 0 0 16 1; #X connect 0 0 18 0; #X connect 2 0 3 0; #X connect 3 0 0 1; #X connect 4 0 8 0; #X connect 4 0 16 0; #X connect 5 0 7 0; #X connect 5 0 13 0; #X connect 6 0 5 0; #X connect 7 0 19 0; #X connect 8 0 7 1; #X connect 10 0 21 0; #X connect 11 0 10 0; #X connect 13 0 20 0; #X connect 16 0 17 1; #X connect 17 0 13 1; #X connect 18 0 17 0; #X connect 23 0 1 0; #X connect 25 0 0 0; #X connect 25 0 6 0; #X connect 26 0 7 1; #X connect 26 0 13 1; #X connect 26 0 18 0; #X restore 417 125 pd calulations; #X text 115 167 *~ 2*PI; #X obj 538 154 s \$0-N; #X obj 385 224 r \$0-N; #X obj 596 224 r \$0-N; #X connect 0 0 39 1; #X connect 5 0 10 0; #X connect 6 0 22 0; #X connect 7 0 21 0; #X connect 8 0 9 0; #X connect 9 0 28 0; #X connect 10 0 24 0; #X connect 12 0 13 1; #X connect 13 0 6 0; #X connect 14 0 6 1; #X connect 15 0 14 2; #X connect 16 0 7 0; #X connect 17 0 16 2; #X connect 18 0 7 1; #X connect 19 0 18 1; #X connect 20 0 35 0; #X connect 21 0 8 1; #X connect 22 0 8 0; #X connect 23 0 37 0; #X connect 24 0 11 0; #X connect 26 0 27 1; #X connect 27 0 9 1; #X connect 29 0 5 0; #X connect 30 0 39 1; #X connect 31 0 32 0; #X connect 32 0 33 0; #X connect 32 0 39 0; #X connect 34 0 35 1; #X connect 35 0 21 1; #X connect 36 0 37 1; #X connect 37 0 22 1; #X connect 38 0 27 0; #X connect 39 0 13 0; #X connect 39 0 18 0; #X connect 39 1 14 0; #X connect 39 1 16 0; #X connect 39 2 41 0; #X connect 42 0 14 1; #X connect 43 0 16 1;