BL:=1;
X:=1;
CL:=1;
HJ:=1;
//{缠论分型分笔主图}
N1:=3;
N2:=6;
NC3:=12;
NC4:=24;
//压力支撑随行线
HN:=HHV(HIGH,5);
LLY:=LLV(LOW,5);
HH3:=BARSLAST((HN>REF(HN,1)));
LL3:=BARSLAST((LLY LL3),-1,0));
HM:=HHV(HIGH,3);
LM:=LLV(LOW,3);
HM1:=IF(HCLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(H,4),0);
LM1:=IF(L>REF(L,1)&&L>REF(L,3)&&L>REF(L,5)&&H>REF(H,1)&&H>REF(H,2)&&H>REF(H,4)&&OPEN0,REF(L,4),0);
HM2:=VALUEWHEN(HM1>0,HM1);
LM2:=VALUEWHEN(LM1>0,LM1);
KM1:=IF(CLOSE>HM2,-3,IF(CLOSE0,KM1);
GM:=IF(KM2=1,HM2,LM2);
GM1:=VALUEWHEN(ISLASTBAR,GM);
TMPM:=KM2;
WM1:=KM2;
WM2:=OPEN-CLOSE;
HTM:=IF(OPEN>CLOSE,OPEN,CLOSE);
LTM:=IF(OPEN<CLOSE,OPEN,CLOSE);
//均线,0
QZS:=(EMA(CLOSE,3)+EMA(CLOSE,6))/2;
MA5:IF(X=3 ,MA(C,5),NULL),COLORWHITE;
MA10:IF(X=3,MA(C,10),NULL),COLORYELLOW;
//改良布林
ZX:=MA(CLOSE,26);
TMP2:=STD(C,26);
SA:=ZX+2*TMP2;
BBIBOLL:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4;
//缠论
局部低点预选A:=BACKSET(LLV(L,5)REF(HHV(H,4),1),4);
局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);
局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);
缺口判断:=IF(L>REF(H,1),1,IF(HREF(距前低天,1) AND LLV(L,距前高天+1)=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)1) OR REF(低保留S,距前低天)=0,1,0);
判断:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND 预判=1 AND 大值周期>REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0);
高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);
高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND REF(低保留S,距前低天)=-1 AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0);
高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0);
预判A:=IF((距前高天<4 AND HHV(缺口判断,距前高天)<>1) OR REF(高保留,距前高天)=0,1,0);
判断A:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND 预判A=1 AND 小值周期>REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0);
低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0);
低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L1) OR REF(低保留,距前低天A)=0,1,0);
判断X:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND 预判X=1 AND 大值周期>REF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0);
高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0);
高保留XB:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND REF(低保留,距前低天A)=-1 AND (距前低天A>=4 OR HHV(缺口判断,距前低天A)=1),1,0);
高保留X:=IF((高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L,距前低天A+1),1,0);
预判XA:=IF((距前高天A<4 AND HHV(缺口判断,距前高天A)<>1) OR REF(高保留XA,距前高天A)=0,1,0);
判断XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)<=REF(距前低天A,1) AND 预判XA=1 AND 小值周期>REF(大值周期,距前高天A+1) AND 小值周期>REF(大值周期,距前高天A) AND 小值周期>REF(小值周期,距前低天A),-1,0);
低保留XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)>REF(距前低天A,1) AND LLV(L,距前高天A+1)=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0);
低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND L1) OR REF(低保留X,距前低天YA)=0,1,0);
判断YX:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND 预判YX=1 AND 大值周期>REF(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0);
高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H,距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0);
高保留YXB:=IF(局部高点预选C=1 AND REF(距前低天YA,1)<=REF(距前高天YA,1) AND REF(低保留X,距前低天YA)=-1 AND (距前低天YA>=4 OR HHV(缺口判断,距前低天YA)=1),1,0);
高保留YX:=IF((高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) AND H>REF(L,距前低天YA+1),1,0);
预判YXA:=IF((距前高天YA<4 AND HHV(缺口判断,距前高天YA)<>1) OR REF(高保留YXA,距前高天YA)=0,1,0);
判断YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)<=REF(距前低天YA,1) AND 预判YXA=1 AND 小值周期>REF(大值周期,距前高天YA+1) AND 小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0);
低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0);
低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND LREF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND LREF(D,NNH) ,NODRAW;
NN:=IF(REF(G,NNH)>REF(D,NNH) AND NNH<=4,NNH,IF(REF(G,NNL)0,NN,5) ,NODRAW;
HH:=REF(H,N)=HHV(H,6);
LL:=REF(L,N)=LLV(L,6);
FG01:=BACKSET(HH,N+1)>BACKSET(HH,N),NODRAW;//只设置前面第6个
FD01:=BACKSET(LL,N+1)>BACKSET(LL,N) ,NODRAW;
FG02:=FG01=FD01 AND G>D,NODRAW;
FD02:=FG01=FD01 AND GBARSLAST(FG01),FG01,0),NODRAW;
//高点处
FD001:=IF(BARSLAST(FG001)=0 AND BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01,NULL);
FD003:=IF(BARSLAST(FG001)=0 AND BARSLAST(FG01)>BARSLAST(FD01),FD01,0),NODRAW;
TTTT:=BARSLAST(FD01),NODRAW;
FG0:=FG01 AND H=HHV(H,IF(FG02=1,BARSLAST(REF(FD01,1))+1,BARSLAST(FD01))) AND FD02=0 ,NODRAW;
FD0:=FD01 AND L=LLV(L,IF(FD02=1,BARSLAST(REF(FG01,1))+1,BARSLAST(FG01))) AND FG02=0 ,NODRAW;
FG00:=FG01 AND IF(FG02=1,H=HHV(H,BARSLAST(REF(FD01,1))+1),H=HHV(H,IF(BARSLAST(L=LLV(L,7))>=5,5,BARSLAST(FD01)))) AND FD02=0 ,NODRAW;
FD00:=FD01 AND IF(FD02=1,L=LLV(L,BARSLAST(REF(FG01,1))+1),L=LLV(L,IF(BARSLAST(H=HHV(L,7))>=5,5,BARSLAST(FG01)))) AND FG02=0 ,NODRAW;
//高低点间周期
GT:=BARSLAST(FG00),NODRAW;
DT:=BARSLAST(FD00),NODRAW;
//第一次处理高低点间多余的点
LLLL:=DT=0 AND REF(DT,1)REF(L,REF(DT,1)+1),NODRAW;
FG1:=BACKSET(REFX(GT,1)=0 AND GT=REF(H,GT),GT+1),NODRAW;
FD1:=BACKSET(REFX(DT,1)=0 AND DTREF(D,BARSLAST(L=LLV(L,7))),BARSLAST(L=LLV(L,7))<5,1) AND HREF(L,REF(DT,1)+1),1,0),NODRAW;
//再次周期
GT1:=BARSLAST(FG11<>1 AND FG1<>1 AND FG0),NODRAW;
DT1:=BARSLAST(FD11<>1 AND FD1<>1 AND FD0),NODRAW;
GGT1:=REF(GT1,1),NODRAW;//处理两边都少于3根的笔
HHHH:=REF(H,GT1),NODRAW;
HHHHH:=HHV(H,GT1+5),NODRAW;
FD2:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)>LLV(L,GT1+5),DT1+1),NODRAW;
//加两句，低是最低，去两边;
NL:=GT1=0 AND DT1<4 AND REF(GT1,1)-DT1<4 ,NODRAW; LLLLLLLL:=LLV(L,GT1+5),NODRAW; FG2A:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND GT1-DT1<4 AND REF(L,DT1)<=LLV(L,GT1+5) AND REF(H,GT1)>HHV(H,GT1+5),GT1+1),NODRAW;
FG2B:=IF(GT1=0 AND DT1<4 AND REF(GT1,1)-DT1<4 AND REF(L,DT1)<=LLV(L,REF(GT1,1)+6) AND H>HHV(H,REF(GT1,1)+6),1,0),NODRAW;
FG2:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND DT1-GT1<4 AND REF(H,GT1)=HHV(L,DT1+5) AND REF(L,DT1)>LLV(L,DT1+5),DT1+1),NODRAW;
FD2B:=IF(DT1=0 AND GT1<4 AND REF(DT1,1)-GT1<4 AND REF(H,GT1)>=HHV(H,REF(DT1,1)+6) AND L>LLV(L,REF(DT1,1)+6),1,0),NODRAW;//
GGG:=IF(HHV(H,GT1+1)1),NODRAW;
DT11:=BARSLAST(DT1=0 AND FD2<>1 AND FD02<>1),NODRAW;
//FG21:IF(GT1=0 AND DT1<4 AND HLLV(L,REF(DT1,1)+3) ,1,0),NODRAW;
FD22:=BACKSET(REFX(GT1,1)=0 AND DT1<3 AND REFX(H,1)>REF(H,GT1) AND REF(L,DT1)>LLV(L,GT1+5),DT1+1),NODRAW;
G22:=BACKSET(REFX(DT1,1)=0 AND GT1<3 AND REFX(L,1)=REF(L,REF(DT1,1)+1) ,1,0),NODRAW;
//前短后长,前低后高（去低）;
FD231:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND REF(L,DT1)>REF(LLV(L,10),DT1),DT1+1),NODRAW;
FG23:=BACKSET(REFX(GT1,1)=0 AND DT1>3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)>REF(H,GT1) AND (REF(H,GT1)=REF(HHV(H,8),GT1),NODRAW;
//前短后长，去2;
FG231:=BACKSET(REFX(DT1,1)=0 AND GT1>3 AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)3 AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)REF(LLV(L,13),DT1) OR REF(FG231,GT1)=0),DT1+1),NODRAW;///前短后长，去3;
FDD23:=REF(H,GT1)3 AND GT1>DT1 AND GT1-DT1<4 AND REFX(H,1)LLV(L,DT1+5),DT1+1),NODRAW;
FG24:=BACKSET(REFX(DT1,1)=0 AND GT1>3 AND DT1>GT1 AND DT1-GT1<4 AND REFX(L,1)>LLV(L,DT1+3) AND REF(H,GT1)4 AND REF(GT1,1)-DT1<3 AND H1,1,0),NODRAW;
FD241:=IF(DT1=0 AND GT1>4 AND REF(DT1,1)-GT1<3 AND L>LLV(L,REF(DT1,1)+3) AND REF(FG24,GT1+2)<>1,1,0),NODRAW;
FGE:=BACKSET(ISLASTBAR AND DT1-GT1<3 AND DT1>GT1, GT1+1),NODRAW;//FDE:BACKSET(ISLASTBAR AND GT1-DT1<3 AND GT1>DT1, DT1+1),NODRAW;
FG21:=IF(GT1=0 AND DT1<4 AND REF(GT1,1)<4,1,0),NODRAW; FD21:=IF(DT1=0 AND GT1<4 AND REF(DT1,1)<4 ,1,0),NODRAW; //做两次高低点间多余的点 GT2:=BARSLAST(FG21<>1 AND FG23<>1 AND FG231<>1 AND FG24<>1 AND FG2<>1 AND FG2A<>1 AND FG2B<>1 AND GT1=0),NODRAW;
DT2:=BARSLAST(FD21<>1 AND FD23<>1 AND FD231<>1 AND FD24<>1 AND FD2<>1 AND FD2A<>1 AND FD2B<>1 AND DT1=0),NODRAW;
FG3:=BACKSET(REFX(GT2,1)=0 AND GT2=REF(H,GT2),GT2+1),NODRAW;
//HHX:REF(H,GT2),NODRAW;
FD3:=BACKSET(REFX(DT2,1)=0 AND DT2REF(L,REF(DT2,1)+1),1,0),NODRAW;
GT3:=BARSLAST(GT2=0 AND FG3<>1 AND FG31<>1 ),NODRAW;
DT3:=BARSLAST(DT2=0 AND FD3<>1 AND FD31<>1),NODRAW;
FG4:=BACKSET(REFX(GT3,1)=0 AND GT3=REF(H,GT3),GT3+1),NODRAW;
FD4:=BACKSET(REFX(DT3,1)=0 AND DT3REF(L,REF(DT3,1)+1),1,0),NODRAW;
LLL:=DT3=0 AND FD31<>1 AND FD3<>1,NODRAW;
HHH:=FG0 AND FG11<>1 AND FG1<>1 AND FG2<>1 AND FG21<>1 AND FG31<>1 AND FG3<>1;
DRAWLINE1(HHH AND HJ>=0,H,LLL,L,0),COLORGREEN,DOT;
DRAWLINE1(LLL AND HJ>=0,L,HHH ,H,0),COLORRED,DOT;
PARTLINE(FG0 AND FG41<>1 AND FG4<>1 AND FG31<>1 AND FG3<>1 AND FG2<>1 AND FG11<>1 AND FG1<>1,H,COLORYELLOW),CIRCLEDOT,LINETHICK5;
PARTLINE(FD0 AND FD41<>1 AND FD4<>1 AND FD31<>1 AND FD3<>1 AND FD2<>1 AND FD11<>1 AND FD1<>1,L,COLORYELLOW),CIRCLEDOT,LINETHICK5;
BD:=IF(FD0 AND FD41<>1 AND FD4<>1 AND FD31<>1 AND FD3<>1 AND FD2<>1 AND FD11<>1 AND FD1<>1,L,0);
笔低:IF(BD<>0,BD,NULL),COLORYELLOW,NODRAW;
BG:=IF(FG0 AND FG41<>1 AND FG4<>1 AND FG31<>1 AND FG3<>1 AND FG2<>1 AND FG11<>1 AND FG1<>1,H,0);
笔高:IF(BG<>0,BG,NULL),COLORYELLOW,NODRAW;
老笔:=1;
GB:=MA(C,5);
DB:=MA(C,10);
HHB:=REF(H,5)=HHV(H,11);
LL1:=REF(L,5)=LLV(L,11);
FGB01:=BACKSET(HHB,6)>BACKSET(HHB,5) ;
FDB01:=BACKSET(LL1,6)>BACKSET(LL1,5) ;
FGB02:=IF(BARSLAST(FGB01)=BARSLAST(FDB01) AND GB>DB,FGB01,IF(BARSLAST(FDB01)>BARSLAST(FGB01),FGB01,0));
FDB02:=IF(BARSLAST(FGB01)=BARSLAST(FDB01) AND DB>GB,FDB01,IF(BARSLAST(FGB01)>BARSLAST(FDB01),FDB01,0));
FGB0:=FGB02 AND H=HHV(H,BARSLAST(FDB02));
FDB0:=FDB02 AND L=LLV(L,BARSLAST(FGB02));
JG:=IF(FGB0 AND BG=0,H,1) ;
局高:=IF(JG<>1,JG,NULL),COLORGREEN,NODRAW;
PARTLINE(FGB0 AND BG=0,H,COLORLIGHTGREEN),CIRCLEDOT,LINETHICK5;
JD:=IF(FDB0 AND BD=0,L,-1),COLORGREEN;
局低:=IF(JD<>-1,JD,NULL),COLORGREEN,NODRAW;
PARTLINE(FDB0 AND BD=0,L,COLORLIGHTGREEN),CIRCLEDOT,LINETHICK5;
短极点:=IF(PERIOD>2,IF(极点保留=-1 AND BD=0 AND JD=-1,L,IF(极点保留=1 AND BG=0 AND JG=1,H,NULL)) ,NULL),COLORMAGENTA,NODRAW;
PARTLINE(PERIOD>2 AND 极点保留=-1 AND BD=0 AND JD=-1,L,COLORMAGENTA),CIRCLEDOT,LINETHICK5;
PARTLINE(PERIOD>2 AND 极点保留=1 AND BG=0 AND JG=1,H,COLORMAGENTA),CIRCLEDOT,LINETHICK5;
//中枢分割线
HIGH1:=REF(HHV(H,90),3);//3周期前的90周期的最高价
LOW1:=REF(LLV(L,90),3);//3周期前的90周期的最低价
J1:=HIGH1-(HIGH1-LOW1)0.191; J0:=HIGH1-(HIGH1-J1)/2; J2:=HIGH1-(HIGH1-LOW1)0.382;
J3:=HIGH1-(HIGH1-LOW1)0.5; J4:=HIGH1-(HIGH1-LOW1)0.618;
J5:=HIGH1-(HIGH1-LOW1)0.809; J6:=HIGH1-(HIGH1-LOW1)1.191;
JZ:=J0-(J0-LOW1)/2;
HIGHB1:=REF(HHV(H,60),3);
LOW2:=REF(LLV(L,60),3);
HIGHB2:=IF(HIGHB1<=J4,J4,IF(HIGHB1<=J3,J3-(J3-J4)/2,IF(HIGHB1<=J2,J2-(J2-J3)/2,IF(HIGHB1<=J1,J1-(J1-J2)/2,IF(HIGHB1<=HIGH1 ,HIGH1-(HIGH1-J1)/2,NULL))))); HIGH2:=IF(HIGHB1=HIGHB2 AND C0.191; J12:=HIGH2-(HIGH2-LOW2)0.191; J42:=HIGH2-(HIGH2-LOW2)0.618; JZ2:=HIGH2-(HIGH2-J42)/2; J52:=HIGH2-(HIGH2-LOW2)0.809; J02:=J52; DRAWNUMBER(PERIOD<>3 AND CL<2 AND ISLASTBAR,HIGH1,HIGH1,2,COLORCYAN),FONTSIZE15; DRAWNUMBER(PERIOD<>3 AND CL<2 AND ISLASTBAR,J0,J0,2,COLORYELLOW),FONTSIZE15; DRAWNUMBER(PERIOD<>3 AND CL<2 AND ISLASTBAR,JZ,JZ,2,COLORWHITE),FONTSIZE12; DRAWNUMBER(PERIOD<>3 AND CL<2 AND PERIOD>5 AND ISLASTBAR,J5,J5,2,COLORRED),FONTSIZE15;
DRAWNUMBER(PERIOD<>3 AND CL<2 AND ISLASTBAR,LOW1,LOW1,2,COLORYELLOW),FONTSIZE15; DRAWNUMBER(PERIOD<>3 AND CL<2 AND ISLASTBAR,J6,J6,2,COLORCYAN),FONTSIZE15; DRAWTEXT(PERIOD<>3 AND CL<2 AND ISLASTBAR,HIGH1,’中枢顶’),COLORYELLOW,FONTSIZE12; DRAWTEXT(PERIOD<>3 AND CL<2 AND ISLASTBAR,LOW1,’中枢底’),COLORYELLOW,FONTSIZE12,VALIGN0;
DRAWNUMBER(PERIOD=3 AND CL<2 AND ISLASTBAR,J22,J22,2,COLORCYAN),FONTSIZE15;
DRAWNUMBER(PERIOD=3 AND CL<2 AND ISLASTBAR,HIGH2,HIGH2,2,COLORYELLOW),FONTSIZE12;
DRAWNUMBER(PERIOD=3 AND CL<2 AND ISLASTBAR,JZ2,JZ2,2,COLORWHITE),FONTSIZE12;
DRAWNUMBER(PERIOD=3 AND CL<2 AND ISLASTBAR,J42,J42,2,COLORYELLOW),FONTSIZE12;
DRAWNUMBER(PERIOD=3 AND CL<2 AND ISLASTBAR,J02,J02,2,COLORCYAN),FONTSIZE15;
//黄金通道线
AD:=REFX1(DATE<=200601,9999);//指标到期日
YYD:=HHV(H,60),COLORWHITE;
空损:=IF( HJ=2,MA(YYD,5),NULL),COLORGREEN,DOT;
YY3:=HHV(H,60)-(HHV(H,60)-LLV(L,30))0.191,COLORGRAY; 做空:=IF( HJ=2,MA(YY3,5),NULL),COLORYELLOW; YYC3:=HHV(H,30)-(HHV(H,30)-LLV(L,30))0.382,COLORLIGHTGREY;
强:=IF( HJ=2,MA(YYC3,5),NULL),COLORLIGHTGREY;
YYC3CD:=HHV(H,30)-(HHV(H,30)-LLV(L,30))0.618,COLORGREEN; 弱:=MA(YYC3CD,5),COLORGREEN; YYC3D:=HHV(H,30)-(HHV(H,30)-LLV(L,30))0.809,COLORRED;
做多:=IF( HJ=2,MA(YYC3D,5),NULL),COLORRED;
ZZ:=LLV(L,30);
多损:=IF( HJ=2,MA(ZZ,5),NULL),COLORGREEN,DOT;
DRAWTEXT(ISLASTBAR,做空,’空’),COLORCYAN,FONTSIZE25,ALIGN0;
DRAWTEXT(ISLASTBAR,强,’强’),COLORLIGHTGREY,FONTSIZE25,ALIGN0;
DRAWTEXT(ISLASTBAR,做多,’多’),COLORRED,FONTSIZE25,ALIGN0;
DRAWTEXT(ISLASTBAR,空损,’损’),COLORGREEN,FONTSIZE25,ALIGN0;
DRAWTEXT(ISLASTBAR,多损,’损’),COLORGREEN,FONTSIZE25,ALIGN0;
DRAWNUMBER(ISLASTBAR,做空,做空,2,COLORCYAN),ALIGN0,VALIGN0;
DRAWNUMBER(ISLASTBAR,强,强,2,COLORLIGHTGREY),ALIGN0,VALIGN0;
DRAWNUMBER(ISLASTBAR,做多,做多,2,COLORRED),ALIGN0,VALIGN0;
DRAWNUMBER(ISLASTBAR,空损,空损,2,COLORGREEN),ALIGN0,VALIGN0;
DRAWNUMBER(ISLASTBAR,多损,多损,2,COLORGREEN),ALIGN0,VALIGN0;
NC:=8;
KKC:=0;
TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015AVEDEV(TYP,6)); CCI2:=(TYP-MA(TYP,10))/(0.015AVEDEV(TYP,10));
CCI3:=(TYP-MA(TYP,20))/(0.015AVEDEV(TYP,20)); CCI4:=(TYP-MA(TYP,30))/(0.015AVEDEV(TYP,30));
CCI5:=(TYP-MA(TYP,60))/(0.015AVEDEV(TYP,60)); CCI:=CCI1+CCI2+CCI3+CCI4+CCI5; AAAB:=IF(PERIOD>2&&AD,(3C+H+L+O)/6,NULL);
VVAR1:=(8AAAB+7REF(AAAB,1)+6REF(AAAB,2)+5REF(AAAB,3)+4REF(AAAB,4)+3REF(AAAB,5)+2*REF(AAAB,6)+REF(AAAB,8))/36;
VVAR6:=(LLV(VVAR1,2)+LLV(VVAR1,4)+LLV(VVAR1,6))/3;
短线:=IF(X=1 , QZS,NULL),COLORCYAN,LINETHICK1;
强线:=IF( X=1 , VVAR1, NULL),COLORWHITE,LINETHICK1;
中线:=IF( X=1 ,VVAR6, NULL),COLORLIGHTGREEN,LINETHICK2;
//未来函数预测波段顶底,通用程序
IF(PERIOD<10 AND CL<1 ,ZIGZAG(C,5,1),NULL),COLORYELLOW,NOTEXT; DRAWTEXT(PERIOD>=8 AND ISLASTBAR<>1 AND TROUGHBARS(L,20,1,1)=0 AND CL<3,L,’大底提示’),COLORYELLOW,FONTSIZE20; DRAWTEXT(PERIOD>=8 AND ISLASTBAR<>1 AND PEAKBARS(H,20,1,1)=0 AND CL<3,H,’大顶提示’),COLORMAGENTA,FONTSIZE20; DDMS:=IF(PERIOD>=8 AND ISLASTBAR<>1 AND TROUGHBARS(L,20,1,1)=0,1,0);
DMS:=IF(PERIOD>=8 AND ISLASTBAR<>1 AND PEAKBARS(H,20,1,1)=0,1,0);
DRAWTEXT(ISLASTBAR<>1 AND TROUGHBARS(L,8,1,1)=0 AND DDMS<>1 AND CL<3,L,’见底提示’),COLORLIGHTGREY,FONTSIZE20,VALIGN0; DRAWTEXT(ISLASTBAR<>1 AND PEAKBARS(H,8,1,1)=0 AND DMS<>1 AND CL<3,H,’见顶提示’),COLORLIGHTGREY,FONTSIZE20; DTS:=IF(ISLASTBAR<>1 AND PEAKBARS(H,8,1,1)=0,1,0);
JDTS:=IF(ISLASTBAR<>1 AND TROUGHBARS(L,8,1,1)=0,1,0),COLORWHITE;
DRAWTEXT((PERIOD<=13 AND ZIGZAG(C,3,1)=REF(ZIGZAG(C,3,1),2)) AND REF(ZIGZAG(C,3,1),2)>=REF(ZIGZAG(C,3,1),3) AND DTS<>1 AND CL<3,HIGH,’卖点’),COLORCYAN,FONTSIZE20; DRAWTEXT((PERIOD<=13 AND ZIGZAG(C,3,1)>REF(ZIGZAG(C,3,1),1)) AND (REF(ZIGZAG(C,3,1),1)<=REF(ZIGZAG(C,3,1),2)) AND (REF(ZIGZAG(C,3,1),2)<=REF(ZIGZAG(C,3,1),3)) AND JDTS<>1 AND CL<3,LOW,’买点’),COLORWHITE,FONTSIZE20,VALIGN0; XZDZ:=IF((PERIOD<=13 AND ZIGZAG(C,3,1)>REF(ZIGZAG(C,3,1),1)) AND (REF(ZIGZAG(C,3,1),1)<=REF(ZIGZAG(C,3,1),2)) AND (REF(ZIGZAG(C,3,1),2)<=REF(ZIGZAG(C,3,1),3)) AND JDTS<>1,1,0);
XZDD:=IF((PERIOD<=13 AND ZIGZAG(C,3,1)=REF(ZIGZAG(C,3,1),2)) AND REF(ZIGZAG(C,3,1),2)>=REF(ZIGZAG(C,3,1),3) AND DTS<>1,1,0);
DRAWTEXT(ISLASTBAR<>1 AND PEAKBARS(H,3,1,1)=0 AND XZDD<>1 AND DMS<>1 AND DTS<>1 AND CL<3,HIGH,’转跌压’),COLORGREEN,FONTSIZE20; DRAWTEXT(ISLASTBAR<>1 AND TROUGHBARS(L,3,1,1)=0 AND XZDZ<>1 AND DDMS<>1 AND JDTS<>1 AND CL<3,LOW,’转支撑’),COLORRED,FONTSIZE20,VALIGN0;
TY:=(CLOSE+HIGH+LOW)/3;
CCIB:=(TY-MA(TY,14))/(0.015AVEDEV(TY,14)); YY:=IF(BG<>0 AND CCIB<100 AND CCIB>0,1,0); DRAWTEXT(YY=1 AND XZDD<>1,H,’空强跌’); P:=2; MID:=MA(C,20); UPPER:= MID+PSTD(C,20);
LOWER:= MID – PSTD(C,20); AT:=MA(C,20),COLORBLUE; 通道限宽:=(C-LOWER)/(UPPER-LOWER),COLORRED; 通道极限:=100(C-AT)/STD(C,26),COLORWHITE;
通道趋势:=EMA(通道极限,3),COLORMAGENTA;
DRAWTEXT(BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限>-100 AND XZDZ<>1,L,’多强买’),COLORWHITE,VALIGN0;
GLQD2:=IF(BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限>-100,1,0);
DRAWTEXT(GLQD2<>1 AND BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限>-170 AND XZDZ<>1,L,’偏多反弹’),COLORMAGENTA,VALIGN0;
XJ:=IF(BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限<-170,LLV(L,60),0); //DRAWTEXT(BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限<-170 AND JDTS<>1 AND L0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限<-170 AND L>=XJ AND JDTS<>1 AND XZDZ<>1,L,’超卖涨’),COLORYELLOW,VALIGN0;
XJGL:=IF(BD<>0 AND FDB0=1 AND 极点保留=-1 AND CCIB<-100 AND 通道极限<-170 AND L>=XJ AND JDTS<>1 AND XZDZ<>1,1,0);
DRAWTEXT(((BD<>0 AND FDB0=1) OR (BD<>0 AND 极点保留=-1)) AND CCIB<0 AND CCIB>-100 AND 通道极限<0 AND 通道极限>-100 AND JDTS<>1 AND XJGL<>1 ,L,’偏多反弹’),COLORCYAN,VALIGN0;
XX1:=IF(BD<>0 AND CCIB>0 OR 通道极限>0,1,NULL);
DRAWTEXT(XX1=1 AND BD<>0,L,’多强买’),VALIGN0;
ZDG1:=REF(HHV(H,5),8) ,NODRAW;
ZDG2:=REF(HHV(H,5),16) ,NODRAW;
ZDG3:=REF(HHV(H,5),24) ,NODRAW;
ZDG4:=REF(HHV(H,5),32) ,NODRAW;
ZDG5:=REF(HHV(H,5),40) ,NODRAW;
ZDG6:=REF(HHV(H,5),48) ,NODRAW;
ZDG7:=REF(HHV(H,5),56) ,NODRAW;
DPD:=IF(BG<>0 AND FGB0=1 AND H<=ZDG1 ,1,0); PD1:=IF(BG<>0 AND FGB0=1 AND H<=ZDG2,DPD+1,DPD); PD2:=IF(BG<>0 AND FGB0=1 AND H<=ZDG3,PD1+1,PD1); PD3:=IF(BG<>0 AND FGB0=1 AND H<=ZDG4,PD2+1,PD2); PD4:=IF(BG<>0 AND FGB0=1 AND H<=ZDG5,PD3+1,PD3); PD5:=IF(BG<>0 AND FGB0=1 AND H<=ZDG6,PD4+1,PD4); PD6:=IF(BG<>0 AND FGB0=1 AND H<=ZDG7,PD5+1,PD5); 背离次数:=PD6,NODRAW; GLQD:=IF(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限<170,1,0); GLQD1:=IF(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限>170 AND DTS<>1,1,0);
DRAWTEXT(GLQD<>1 AND GLQD1<>1 AND YY<>1 AND ( PD6>=4) AND ((CCIB>100 AND 通道极限>170) OR (CCIB<100 AND 通道极限<170 )) ,H,’起跌’),COLORGREEN; DRAWTEXT(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限<170 AND XZDD<>1,H,’超买跌’),COLORCYAN;
DRAWTEXT(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限>170 AND DTS<>1 AND XZDD<>1,H,’超买跌’),COLORCYAN;
CMGL:=IF(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限<170 AND XZDD<>1,1,0);
CMGL1:=IF(BG<>0 AND FGB0=1 AND 极点保留=1 AND CCIB>100 AND 通道极限>170 AND DTS<>1 AND XZDD<>1,1,0);
DRAWTEXT(((BG<>0 AND FGB0=1) OR (FGB0=1 AND 极点保留=1) OR (BG<>0 AND 极点保留=1) OR FGB0=1) AND CCIB>100 AND 通道极限>100 AND DTS<>1 AND XZDD<>1 AND CMGL<>1 AND CMGL1<>1,H,’超买跌’),COLORCYAN;
JS:=IF(ISLASTBAR=1,1,0);
//价格上涨彩色K(趋势)多增红多减绿,通用程序
NNC:=BARSLAST(DATE<>REF(DATE,1))+1;
仓1:=OPI-REF(OPI,NNC);
VARL:=VOL/((HIGH-LOW)2-ABS(CLOSE-OPEN)); 成交:=VOL,COLORMAGENTA,NODRAW; 持仓量:=OPI,NODRAW; 主动买盘:=IF(CLOSE>OPEN,VARL(HIGH-LOW),IF(CLOSE((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW; 主动卖盘:=IF(CLOSE>OPEN,VARL((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE170 ,L,’超买’),COLORYELLOW,FONTSIZE20,VALIGN0;
DRAWTEXT(ISLASTBAR=1 AND 通道极限<-170 ,H,’超卖’),COLORYELLOW,FONTSIZE20;
DRAWKLINE1(H,O,L,C);
差值1:=ABS(REF(CCI1,1)-CCI1);
差值2:=ABS(REF(CCI2,1)-CCI2);
差值3:=ABS(REF(CCI3,1)-CCI3);
差值4:=ABS(REF(CCI4,1)-CCI4);
差值5:=ABS(REF(CCI5,1)-CCI5);
AAA:=(3C+H+L+O)/6; VAR1:=(8AAA+7REF(AAA,1)+6REF(AAA,2)+5REF(AAA,3) +4REF(AAA,4)+3REF(AAA,5)+2REF(AAA,6)+REF(AAA,8))/36;
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
短线1:=VAR1,COLORWHITE;
中线1:=VAR6,COLORYELLOW;
下跌:=IF(VAR1=VAR6,VAR6, NULL),COLORGREEN;
TJ1:= CCI1>差值4;
立桩量:=FILTER(TJ1,0),NODRAW;
TJ2:=IF(BARSLAST(立桩量)=1 ,1,0);
//STICKLINE(立桩量 <>1,REF(HIGH,BARSLAST(立桩量)),REF(HIGH,BARSLAST(立桩量)),1,1),COLORCYAN;
成立1:=TJ2=1;
条件成立1:=FILTER(成立1,5);
//DRAWTEXT(条件成立1, REF(HIGH,BARSLAST(立桩量)),’K’),COLORWHITE;
TJ11:= CCI1<-差值4 ; 立桩量2:=FILTER(TJ11,0),NODRAW; TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,0);
突破2:=TJ22=1;
//STICKLINE(CLOSE AND 下跌<> VAR6,REF(LOW,BARSLAST(立桩量2)),REF(LOW,BARSLAST(立桩量2)),1,1),COLORYELLOW;
TJ:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(LOW,1),1,0);
成立2:=TJ=1;
条件成立2:=FILTER(成立2,5);
//DRAWTEXT(条件成立2,REF(LOW,BARSLAST(立桩量2)),’D’),COLORMAGENTA;
//
A1:=C>REF(C,4);
NT:=BARSLASTCOUNT(A1);
TJ11A:=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11A>0,9) OR BACKSET(TJ13>0,NT))*NT;
MM:=BACKSET(NT=9,9);
DRAWNUMBER(MM=1&&AY>0,H,NT,0,COLORYELLOW);
NX:=BACKSET(ISLASTBAR,NT);
DRAWNUMBER(NX&&REFX1(NT<9,100),H,NT,0,COLORYELLOW);
DRAWICON(NT=9,H+2,’ICO9′),COLORGREEN;
B1:=C0,9) OR BACKSET(TJ23>0,NT0))NT0; DRAWNUMBER(NNA=1&&AY1>0,L,NT0,0,COLORFF00FF),VALIGN0; ND:=BACKSET(ISLASTBAR,NT0); DRAWNUMBER(ND&&REFX1(NT0<9,100),L,NT0,0,COLORFF00FF),VALIGN0; DRAWICON(NT0=9,L-2,’ICO112′),COLORGREEN; // MIDA:MA(CLOSE,26),RGB(0,128,255); TMP2A:=STD(CLOSE,26); TOP:MIDA+2TMP2A,COLORGRAY;
BOTTOM:MIDA-2*TMP2A,COLORGRAY;