forvalue i=1(1)15{
  2. gen t`i'=ln(p`i')
  3. egen 1`i'=sum(p`i'*ln(p`i'))
  4. gen e`i'=-l`i'/ln(330)
  5. gen D`i'=l-e`i'
  6. }
11 invalid name
r(198);