clear
tic
tmaks=10000;
y=zeros(tmaks,1);
for t=1:tmaks
   y(t,1)=cos(t);
end
toc