use "E:\stata答疑\张燃\ret_sd.dta", clear
  
  *keep in 1/1000  // test
  
  rename id ii
  tsset ii date
  egen id = group(ii)
  tsset id date
  bysort id: gen t = _n
  
  gen sd = .
  qui xtdes
  local N = r(N)
  forvalues i=1/`N'{
    qui count if id==`i'
        local T = r(N)
    forvalues tt = 50/`T'{
          tempvar sd
          qui egen `sd' = sd(ret) if (t>`tt'-50)&(t<=`tt')&id==`i'
          qui replace sd = `sd' if (id==`i'&t==`tt')
          drop `sd'
        }  
  }