make.gauss.pd

#N canvas 320 142 450 300 10;
#X obj 34 32 inlet;
#X obj 34 156 expr exp(-$f1*$f1);
#X obj 34 107 t f f;
#X obj 34 182 outlet;
#X obj 79 183 outlet;
#X obj 34 82 for++ 0 \$1;
#X obj 187 104 \$1;
#X obj 34 130 expr ($f1-($f2/2))/($f2/4);
#X obj 34 56 t b b;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 7 0;
#X connect 2 1 4 0;
#X connect 5 0 2 0;
#X connect 6 0 7 1;
#X connect 7 0 1 0;
#X connect 8 0 5 0;
#X connect 8 1 6 0;