gsptTP:=NOT(DYNAINFO(4)=0);
gsptST:=NOT(NAMELIKE('S') OR NAMELIKE('*'));
gspt688:=NOT(CODELIKE('688'));
gsptTC8:=NOT(CODELIKE('8'));
gsptTC4:=NOT(CODELIKE('4'));
gsptGL:=gsptTP AND gsptST AND gspt688 AND gsptTC8 AND gsptTC4 ;
SH_MAIN:=CODELIKE('60');
SH_KC:=CODELIKE('688');
SZ_MAIN:=CODELIKE('00') OR CODELIKE('001') OR CODELIKE('002') OR CODELIKE('003');
SZ_CY:= CODELIKE('30');
SS:=CODELIKE('4') OR CODELIKE('8');
X1:=IF(SH_MAIN,0.1,IF(SH_KC,0.2,IF(SZ_MAIN,0.1,IF(SZ_CY,0.2,IF(SS,0.3,0.1)))));
ZTPRIC:=ZTPRICE(REF(C, 1),X1);
ZT:=C=HIGH AND C>=ZTPRIC;
STICKLINE(ZT,H,L,0,0),COLORRED;
STICKLINE(ZT,C,O,1,0),COLORRED;
gspt1:=(3*C+O+L+H)/6;
gspt2:EMA(EMA(gspt1,20),2),COLOR888888,LINETHICK1;
gspt3:HHV(gspt2,5),COLORYELLOW,LINETHICK1;
gspt4:gspt2-(gspt3-gspt2),COLORMAGENTA,LINETHICK2;
DRAWICON(gspt3=gspt4 AND REF(gspt3,1)>REF(gspt4,1),L,42 );
DRAWICON(gspt3>gspt4 AND REF(gspt3,1)=REF(gspt4,1),H*0.95,43);
DRAWICON(gspt3=gspt4 AND REF(gspt3,1)>REF(gspt4,1),L*0.97,9);
STICKLINE(gspt3=gspt4 AND REF(gspt3,1)>REF(gspt4,1),C,O,1,0),COLORYELLOW;
gsptA:=STRCAT(DYBLOCK,' ');
gsptB:=STRCAT(gsptA,HYBLOCK);
gsptC:=STRCAT(gsptB,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0.01,0,STRCAT(gsptC,GNBLOCK)),COLORRED;