function drawer
ARR= [10,20,50,100];
len=length(ARR);
for i=1:len
   subplot(len,1,i)
   calc(ARR(i));
end
