#N canvas 163 334 444 177 12;
#X text 364 147 j#|@2002;
#X obj 386 127 SMLib;
#X obj 15 127 print;
#X floatatom 66 81 5 0 0 0 - - -;
#X text 78 134 default argument is 1;
#X text 10 6 vpow computes y(i)=x(i)^a;
#X text 79 103 a;
#X text 79 117 a zero becomes one;
#X obj 15 101 vpow 2;
#X msg 15 33 0.01 0.5 1 1.5 2 2.5 3 3.5 0;
#X text 27 56 if (x(i)<=0) then y(i)=-1000;
#X connect 3 0 8 1;
#X connect 8 0 2 0;
#X connect 9 0 8 0;