for i=1:m/7
   ce10_acc=0;ceq_acc=0;tauc_acc=0;
   for j=1:7
      k=(i-1)*7+j;
      if k<m
      uacc=uacc+u(k);
      ce10_acc=ce10_acc+ce10(k);
		ceq_acc=ceq_acc+ceq(k);
   	else
         break;
      end;
   end;
   um(i)=uacc/6;
   taubm(i)=taub_acc/6;
   taucm(i)=tauc_acc/6;
end;

   