pure-data/extra/complex-mod~.pd

#N canvas 717 133 337 338 12;
#X obj 59 38 inlet~;
#X obj 77 140 cos~;
#X obj 202 115 +~ -0.25;
#X obj 202 137 cos~;
#X obj 147 38 inlet~;
#X obj 59 176 *~;
#X obj 147 177 *~;
#X obj 59 222 -~;
#X obj 59 255 outlet~;
#X obj 129 256 outlet~;
#X obj 129 223 +~;
#X text 57 281 positive;
#X text 130 282 negative;
#X obj 202 75 phasor~;
#X obj 202 39 inlet~;
#X connect 0 0 5 0;
#X connect 1 0 5 1;
#X connect 2 0 3 0;
#X connect 3 0 6 1;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 5 0 10 0;
#X connect 6 0 7 1;
#X connect 6 0 10 1;
#X connect 7 0 8 0;
#X connect 10 0 9 0;
#X connect 13 0 2 0;
#X connect 13 0 1 0;
#X connect 14 0 13 0;