clear
y=-5:5;
k=1;
while y(k)<0
   z(k)=y(k);
   k=k+1;
end %while