SJ:=1;
MM:=H;
CC1:=IF(ISNULL(REFX(MM,1)),0,REFX(MM,1))+IF(ISNULL(REFX(MM,2)),0,REFX(MM,2))+IF(ISNULL(REFX(MM,3)),0,REFX(MM,3))+IF(ISNULL(REFX(MM,4)),0,REFX(MM,4))+IF(ISNULL(REFX(MM,5)),0,REFX(MM,5))+IF(ISNULL(REFX(MM,6)),0,REFX(MM,6))+IF(ISNULL(REFX(MM,7)),0,REFX(MM,7))+IF(ISNULL(REFX(MM,8)),0,REFX(MM,8))+IF(ISNULL(REFX(MM,9)),0,REFX(MM,9))+IF(ISNULL(REFX(MM,10)),0,REFX(MM,10))+IF(ISNULL(REFX(MM,11)),0,REFX(MM,11))+IF(ISNULL(REFX(MM,12)),0,REFX(MM,12));
CC2:=ISNULL(REFX(MM,1))+ISNULL(REFX(MM,2))+ISNULL(REFX(MM,3))+ISNULL(REFX(MM,4))+ISNULL(REFX(MM,5))+ISNULL(REFX(MM,6))+ISNULL(REFX(MM,7))+ISNULL(REFX(MM,8))+ISNULL(REFX(MM,9))+ISNULL(REFX(MM,10))+ISNULL(REFX(MM,11))+ISNULL(REFX(MM,12));
CC3:=(SUM(MM,13)+CC1)/(25-CC2);
MM1:=CC3;
CC4:=IF(ISNULL(REFX(MM1,1)),0,REFX(MM1,1))+IF(ISNULL(REFX(MM1,2)),0,REFX(MM1,2))+IF(ISNULL(REFX(MM1,3)),0,REFX(MM1,3))+IF(ISNULL(REFX(MM1,4)),0,REFX(MM1,4))+IF(ISNULL(REFX(MM1,5)),0,REFX(MM1,5))+IF(ISNULL(REFX(MM1,6)),0,REFX(MM1,6))+IF(ISNULL(REFX(MM1,7)),0,REFX(MM1,7))+IF(ISNULL(REFX(MM1,8)),0,REFX(MM1,8))+IF(ISNULL(REFX(MM1,9)),0,REFX(MM1,9))+IF(ISNULL(REFX(MM1,10)),0,REFX(MM1,10))+IF(ISNULL(REFX(MM1,11)),0,REFX(MM1,11))+IF(ISNULL(REFX(MM1,12)),0,REFX(MM1,12));
CC5:=ISNULL(REFX(MM1,1))+ISNULL(REFX(MM1,2))+ISNULL(REFX(MM1,3))+ISNULL(REFX(MM1,4))+ISNULL(REFX(MM1,5))+ISNULL(REFX(MM1,6))+ISNULL(REFX(MM1,7))+ISNULL(REFX(MM1,8))+ISNULL(REFX(MM1,9))+ISNULL(REFX(MM1,10))+ISNULL(REFX(MM1,11))+ISNULL(REFX(MM1,12));
XXMA25H:=(SUM(MM1,13)+CC4)/(25-CC5);
MM2:=L;
EE1:=IF(ISNULL(REFX(MM2,1)),0,REFX(MM2,1))+IF(ISNULL(REFX(MM2,2)),0,REFX(MM2,2))+IF(ISNULL(REFX(MM2,3)),0,REFX(MM2,3))+IF(ISNULL(REFX(MM2,4)),0,REFX(MM2,4))+IF(ISNULL(REFX(MM2,5)),0,REFX(MM2,5))+IF(ISNULL(REFX(MM2,6)),0,REFX(MM2,6))+IF(ISNULL(REFX(MM2,7)),0,REFX(MM2,7))+IF(ISNULL(REFX(MM2,8)),0,REFX(MM2,8))+IF(ISNULL(REFX(MM2,9)),0,REFX(MM2,9))+IF(ISNULL(REFX(MM2,10)),0,REFX(MM2,10))+IF(ISNULL(REFX(MM2,11)),0,REFX(MM2,11))+IF(ISNULL(REFX(MM2,12)),0,REFX(MM2,12));
EE2:=ISNULL(REFX(MM2,1))+ISNULL(REFX(MM2,2))+ISNULL(REFX(MM2,3))+ISNULL(REFX(MM2,4))+ISNULL(REFX(MM2,5))+ISNULL(REFX(MM2,6))+ISNULL(REFX(MM2,7))+ISNULL(REFX(MM2,8))+ISNULL(REFX(MM2,9))+ISNULL(REFX(MM2,10))+ISNULL(REFX(MM2,11))+ISNULL(REFX(MM2,12));
EE3:=(SUM(MM2,13)+EE1)/(25-EE2);
MM3:=EE3;
EE4:=IF(ISNULL(REFX(MM3,1)),0,REFX(MM3,1))+IF(ISNULL(REFX(MM3,2)),0,REFX(MM3,2))+IF(ISNULL(REFX(MM3,3)),0,REFX(MM3,3))+IF(ISNULL(REFX(MM3,4)),0,REFX(MM3,4))+IF(ISNULL(REFX(MM3,5)),0,REFX(MM3,5))+IF(ISNULL(REFX(MM3,6)),0,REFX(MM3,6))+IF(ISNULL(REFX(MM3,7)),0,REFX(MM3,7))+IF(ISNULL(REFX(MM3,8)),0,REFX(MM3,8))+IF(ISNULL(REFX(MM3,9)),0,REFX(MM3,9))+IF(ISNULL(REFX(MM3,10)),0,REFX(MM3,10))+IF(ISNULL(REFX(MM3,11)),0,REFX(MM3,11))+IF(ISNULL(REFX(MM3,12)),0,REFX(MM3,12));
EE5:=ISNULL(REFX(MM3,1))+ISNULL(REFX(MM3,2))+ISNULL(REFX(MM3,3))+ISNULL(REFX(MM3,4))+ISNULL(REFX(MM3,5))+ISNULL(REFX(MM3,6))+ISNULL(REFX(MM3,7))+ISNULL(REFX(MM3,8))+ISNULL(REFX(MM3,9))+ISNULL(REFX(MM3,10))+ISNULL(REFX(MM3,11))+ISNULL(REFX(MM3,12));
XXMA25L:=(SUM(MM3,13)+EE4)/(25-EE5);
G0:=2*XXMA25H-XXMA25L,LINETHICK1,COLORWHITE;
D0:=2*XXMA25L-XXMA25H,LINETHICK1,COLORWHITE;
ZK1:2*XXMA25H-XXMA25L,COLORWHITE;
ZD1:2*XXMA25L-XXMA25H,COLORWHITE;
ZD2:EMA(ZD1,25)*SJ,COLORFF00FF,LINETHICK3;
FILLRGN(ZD1>ZD2,ZD2,ZD1,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD2,ZD1,RGB(0,91,0));
HX:=HHV(HIGH,3);
LX:=LLV(LOW,3);
H1:=IF(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);
L1:=IF(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);
H2:=VALUEWHEN(H1>0,H1);
L2:=VALUEWHEN(L1>0,L1);
K1:=IF(CLOSE>H2,-3,IF(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
G:=IF(K2=1,H2,L2);
G1:=VALUEWHEN(ISLASTBAR,G);
TMP:=K2;
W1:=K2;
W2:=OPEN-CLOSE;
HT:=IF(OPEN>CLOSE,OPEN,CLOSE);
LT:=IF(OPEN<CLOSE,OPEN,CLOSE);