var
  g:=0.5;
  L0:=0;
  L1:=0;
  L2:=0;
  L3:=0;
  cd:=0;
  cu:=0;
  temp:=0;
  LRSI:=0;
end_var

if historysize>0 then
  begin
    L0:=((1 - g) * C) + (g * this\1\);
    L1:=((0-g) * L0) + L0\1\ + (g * L0\1\);
    L2:=((0-g) * L1) + L1\1\ + (g * L1\1\);
    L3:=((0-g) * L2) + L2\1\ + (g * L2\1\);


    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
      begin
        temp:=-1;
        LRSI:=0;
      end;
    else
      begin
        temp:=cu + cd;
        LRSI:=cu / temp;
    end;
end;

return LRSI;