function A=fivenum(L)

if length(L)<5,error('There must be at least 5 data points'),end

L=sort(L);

med=median(L);
minimum=min(L);
maximum=max(L);

if length(L)/2==ceil(length(L)/2) 

q1=median(L(1:(length(L)/2)));
q3=median(L((length(L)/2+1):length(L)));

else

q1=median( L(      1:((length(L)-1)/2)   )  );
q3=median(   L(   ((length(L)+3)/2):length(L)    )  );

end

A=[minimum, q1, med, q3, maximum];
end