AS:=(C*3+O+H+L)/6;
 XJ:=(AS+0.618*REF(AS,1)+0.382*REF(AS,2)+0.236*REF(AS,3)+0.146*REF(AS,4))/2.382;

HLX:=EMA(HHV(XJ,3),15);
 LLX:=EMA(LLV(XJ,3),15);
 CH:=CROSS(XJ,HLX);CL:=CROSS(LLX,XJ);
 CHH:=BARSLAST(CH);CLL:=BARSLAST(CL);
 YF1:=(CHH  YF2:=(CHH>CLL OR CL) AND NOT(CH);
 TF:=IF(YF1,LLX,HLX);
 TFB:=(HLX+LLX)/2;

XJK:=SMA(EMA(XJ,3),3,1);
 ZWSH:=(HHV(XJ,2)+HHV(XJ,3)+HHV(XJ,4)+HHV(XJ,5))/4;
 SH:=EMA(ZWSH,21);
 ZWSL:=(LLV(XJ,2)+LLV(XJ,3)+LLV(XJ,4)+LLV(XJ,5))/4;
 SL:=EMA(ZWSL,21);
 SCH:=CROSS(XJ,SH);SCL:=CROSS(SL,XJ);
 SHH:=BARSLAST(SCH);SLL:=BARSLAST(SCL);
 SF1:=(SHH  SF2:=(SHH>SLL OR SCL) AND NOT(SCH);
 TFS:=IF(SF1,SL,SH);
 TFBS:=(SL+SH)/2;
 {K线}
KX1:=(CLOSE>=OPEN) AND XJ>=TFS;
 KX2:=(CLOSE=TFS;
 KX3:=(CLOSE>=OPEN) AND XJ  KX4:=(CLOSE  KX5:=((XJ>=TFS AND XJ=TF)) AND CLOSE>=OPEN;
 KX6:=((XJ>=TFS AND XJ=TF)) AND CLOSE

 FILLRGN(XJ>TFS,TFB,TFS),COLOR400040;
 FILLRGN(XJ  FILLRGN(XJ>TF,TFB,TF),COLOR000060;
 FILLRGN(XJ  {K线}
STICKLINE(KX1,C,O,4,1),COLOR4440FF;
 STICKLINE(KX1,C,H,0.5,1),COLOR4440FF;
 STICKLINE(KX1,O,L