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