/*[[
Name := XOIND
Author := SHARIPOV AINUR
Link := AINURHAL@mail.ru
Notes := POINT FIGURES INDICATOR
Separate Window := YES
First Color := red
First Draw Type := histogram
First Symbol := 217
Use Second Data := Yes
Second Color := blue
Second Draw Type := histogram
Second Symbol := 218
]]*/

Input: KirPer(10);
Vars: valuel(0),valueh(0),CurrentBar(0);
Vars: KIR(0),Hi(0),Lo(0),KirUp(0), KirDn(0),
      mode(0),cur(0),kr(0),no(0);

SetLoopCount(0);


for CurrentBar = 30 DownTo 0 begin

  if Kir<1 then
  {
    Hi = c[CurrentBar];
    Lo = c[CurrentBar];
    Kir = 1;
  };

  cur = c[CurrentBar];

  if cur > (Hi + KirPer * point) then
  {
    Kir = Kir + 1;
    Hi = cur;
    Lo = cur - KirPer * point;
    KirUp = 1;
    KirDn = 0;
    kr = kr + 1;
    no = 0;
  };

  if cur < (Lo - KirPer * point) then
  {
    Lo = cur;
    Hi = cur + KirPer * point;
    KirUp = 0;
    KirDn = 1;
    Kir = Kir + 1;
    no = no + 1;
    kr = 0;
  };

  valueh = kr;
  valuel = 0 - no;
  setIndexValue(CurrentBar, valueh);
  setIndexValue2(CurrentBar, valuel);

end;