red_adj[n]=red_sum/16;
 ired_adj[n]=ired_sum/16;
 m++; 
 n++;
if(m==50) 
 {
  m=0;
 }  
if(n==200)         //求基線
 {
  for(i=0;i<200;i++)  
   {
    sum_red+=red_adj[i];
    sum_ired+=ired_adj[i];
   }
  adj_red=sum_red/200;
  adj_ired=sum_ired/200;
  for(j=0;j<50;j++)
   {
    red_avr[j]=red_avr[j]-0.9*adj_red;
    ired_avr[j]=ired_avr[j]-0.9*adj_ired;
    TXBUF0=(char)((ired_avr[j]>>1)&0X00FF);
    while((UTCTL0&0X01)==0);
   } 
  }