DRAWKLINE(0.75,COLORRED,1,COLORCYAN,0);
KXS:=BARSLAST(DATE<>REF(DATE,1))+1;
KX:=IFELSE(KXS/2=INTPART(KXS/2),2,MOD(KXS,2));
BHC:=(OPEN+3*C)/4;
BHO:=(OPEN+C)/2;
BH0:=HHV(H,KX);
BH1:=IFELSE(KXS<=2,REF(HHV(H,1),KXS),REF(HHV(H,2),KX));
BH2:=IFELSE(KXS<=4 AND KXS>=3,REF(HHV(H,1),2+KX),REF(HHV(H,2),2+KX));
BL0:=LLV(L,KX);
BL1:=IFELSE(KXS<=2,REF(LLV(L,1),KXS),REF(LLV(L,2),KX));
BL2:=IFELSE(KXS<=4 AND KXS>=3,REF(LLV(L,1),2+KX),REF(LLV(L,2),2+KX));
BHH1:=IFELSE(BH0 <BH2 AND BH1<BH2,BH2,0);
BLL1:=IFELSE(BL0 >BL2 AND BL1>BL2,BL2,0);
BHH2:=VALUEWHEN(BHH1>0,BHH1);
BLL2:=VALUEWHEN(BLL1>0,BLL1);
BK1:=IFELSE(BHC>BHH2,-3,IFELSE(BHC<BLL2,1,0));
BK2:=VALUEWHEN(BK1<>0,BK1);
BG:=IFELSE(BK2=1,IFELSE(BHH2=0,C,BHH2),IFELSE(BLL2=0,C,BLL2));
GB:=IFELSE(BK2<0,100*(L/BG-1),100*(BG/H-1));
KX2:=IFELSE(KXS/4=INTPART(KXS/4),4,MOD(KXS,4));
CHC:=CLOSE;
CHO:=OPEN;
CH0:=HHV(H,KX2);
CH1:=IFELSE(KXS<=4,REF(HHV(H,1),KXS),REF(HHV(H,4),KX2));
CH2:=IFELSE(KXS<=8 AND KXS>4,REF(HHV(H,1),4+KX2),REF(HHV(H,4),4+KX2));
CL0:=LLV(L,KX2);
CL1:=IFELSE(KXS<=4,REF(LLV(L,1),KXS),REF(LLV(L,4),KX2));
CL2:=IFELSE(KXS<=8 AND KXS>4,REF(LLV(L,1),4+KX2),REF(LLV(L,4),4+KX2));
CHH1:=IFELSE(CH0 <CH2 AND CH1<CH2,CH2,0);
CLL1:=IFELSE(CL0 >CL2 AND CL1>CL2,CL2,0);
CHH2:=VALUEWHEN(CHH1>0,CHH1);
CLL2:=VALUEWHEN(CLL1>0,CLL1);
//QHQQW.COM
CK1:=IFELSE(CHC>CHH2,-3,IFELSE(CHC<CLL2,1,0));
CK2:=VALUEWHEN(CK1<>0,CK1);
CG:=IFELSE(CK2=1,CHH2,CLL2);
KX3:=2;
DHC:=CLOSE;
DHO:=OPEN;
DH0:=IFELSE(KXS<=8,HHV(H,KX3),HHV(H,KX3-8));
DH1:=IFELSE(KXS<=8,REF(HHV(H,7),KX3),REF(HHV(H,8),KX3));
DH2:=IFELSE(KXS<=8,REF(HHV(H,8),7+KX3),REF(HHV(H,7),8+KX3));
DL0:=IFELSE(KXS<=8,LLV(L,KX3),LLV(L,KX3-8));
DL1:=IFELSE(KXS<=8,REF(LLV(L,7),KX3),REF(LLV(L,8),KX3));
DL2:=IFELSE(KXS<=8,REF(LLV(L,8),7+KX3),REF(LLV(L,7),8+KX3));
DHH1:=IFELSE(DH0 <DH2 AND DH1<DH2,DH2,0);
DLL1:=IFELSE(DL0 >DL2 AND DL1>DL2,DL2,0);
DHH2:=VALUEWHEN(DHH1>0,DHH1);
DLL2:=VALUEWHEN(DLL1>0,DLL1);
DK1:=IFELSE(DHC>DHH2,-3,IFELSE(DHC<DLL2,1,0));
DK2:=VALUEWHEN(DK1<>0,DK1);
ABCD1:=MAX(BK2,CK2)<0;
ABCD2:=MIN(BK2,CK2)>0;
KK0:=(MIN(BK2,CK2)>0 AND ((REF(BK2,1)<0 OR REF(CK2,1)<0 )) );
KD0:=(MAX(BK2,CK2)<0 AND ((REF(BK2,1)>0 OR REF(CK2,1)>0  )));
PKA:=MIN(MIN(REF(BK2,1),REF(CK2,1)),REF(DK2,1))>0 AND (BK2<0 OR CK2<0 OR DK2<0 );
PDA:=MAX(MAX(REF(BK2,1),REF(CK2,1)),REF(DK2,1))<0 AND (BK2>0 OR CK2>0 OR DK2>0 );
KKZQ:=BARSLAST(KK0);
KDZQ:=BARSLAST(KD0);
PKZQ:=BARSLAST(PKA);
PDZQ:=BARSLAST(PDA);
RVAR6:=(2*CLOSE+HIGH+LOW)/4;
RVAR7:=LLV((O+C)/2,13);
RVAR8:=HHV((O+C)/2,13);
RVAR9:=SMA((RVAR6-RVAR7)/(RVAR8-RVAR7)*100,7,1);
PARTLINE(ABCD1,BG,COLORMAGENTA);
PARTLINE(ABCD2,BG,COLORBLUE);
PARTLINE(NOT(ABCD1 OR ABCD2),BG,COLORWHITE);