//Pivot Point
variable : cc($data), MyH($data), MyL($data), MyC($data), X($data), hh($data), ll($data);
CAMARILLA=inparam("CAMARILLA Pivots (y-1/n-0)",0,1,1);
Fib=inparam("Fib Pivots (y-1/n-0)",0,1,0);
Standard=inparam("Standard Pivots (y-1/n-0)",0,1,0);
Mid=inparam("Mid Pivots (y-1/n-0)",0,1,0);
//время закрытия дня
xh=21;
xm=0;
cc=ref(cc,-1)+1;
MyH=ref(MyH,-1);
MyL=ref(MyL,-1);
MyC=ref(MyC,-1);
X=ref(X,-1);
dh=Hour();
dh1=ref(dh,-1);
dm=minute();
dm1=ref(dm,-1);
hh=hhv(h,cc);
ll=llv(l,cc);
if (cc=1) then 
 begin
  MyH=ref(hh,-1);
  MyL=ref(ll,-1);
  MyC=ref(c,-1);
  X=(MyH+MyL+MyC)/3; 
 end;
if ((dh>=xh) and (dh1<xh) and (dm1=dm) ) or ((dh=xh) and (dm=xm)) or ((dh=xh) and (dm>=xm) and (dm1<xm)) then cc=0;
D1=0.091667;
D2=0.183333;
D3=0.2750;
D4=0.55;
RR=MyH-MyL;
H5=MyH/MyL*MyC;
H4=RR*D4+MyC;
H3=RR*D3+MyC;
H2=RR*D2+MyC;
H1=RR*D1+MyC;
L1=MyC-RR*D1;
L2=MyC-RR*D2;
L3=MyC-RR*D3;
L4=MyC-RR*D4;
L5=MyC-(H5-MyC);
fr1 = X + (RR * 0.38);
fr2 = X + (RR * 0.62);
fr3 = X + (RR * 0.99);
fs1 = X - (RR * 0.38);
fs2 = X - (RR * 0.62);
fs3 = X - (RR * 0.99);
R1=2*X-MyL; 
S1=2*X-MyH; 
R2=X+(R1-S1); 
S2=X-(R1-S1); 
R3=MyH+2*(X-MyL); 
S3=MyL-2*(MyH-X); 
M0 = (S2+S3)/2;
M1 = (S1+S2)/2;
M2 = (X+S1)/2;
M3 = (X+R1)/2;
M4 = (R1+R2)/2;
M5 = (R2+R3)/2;
//вывод
X;
if (CAMARILLA=1) then
 begin
  H5;H4;H3;
  //H2;H1;
  //L1;L2;
  L3;L4;L5;
 end;
if (Fib=1) then
 begin
  FR1;FS1;FR2;FS2;FR3;FS3;
 end;
if (Standard=1) then
 begin
  R1;S1;R2;S2;R3;S3;
 end;
if (Mid=1) then
 begin
  M0;M1;M2;M3;M4;M5;
 end;