INPUT: gamma(0.5)，vPeriod（5,1,11,1），CountBars（3000）;

VARIABLE: L0= 0,L1= 0,CU= 0,L2= 0,L3= 0,L0A= 0,L1A= 0, L2A= 0,L3A= 0,LRSI= 0,CD= 0;

      

      L0A := l0;

      L1A := L1;

      L2A := L2;

      L3A := L3;

     

     if BARPOS<= vPeriod THEN exit;

     

      ROC ：= (C - ref(c,vPeriod))/ ref(c,vPeriod) + MINDIFF;

      L0 := ((1 - gamma)*(roc)) + (gamma*L0A);

      

      L1 := - gamma *L0 + L0A + gamma *L1A;

      L2 := - gamma *L1 + L1A + gamma *L2A;

      L3 := - gamma *L2 + L2A + gamma *L3A;

      CU := 0;

      CD := 0;

      

      if L0 >= L1 THEN 

       CU := L0 - L1; 

       else CD := L1 - L0;

      if L1 >= L2 THEN

       CU := CU + L1 - L2; 

       else CD := CD + L2 - L1;

      if L2 >= L3 THEN

       CU := CU + L2 - L3; 

      else CD := CD + L3 - L2;

      if CU + CD <> 0  THEN

       LRoc := CU / (CU + CD);

      val1:  LRoc;