XX:=BACKSET(ISLASTBAR,SUMBARS(DAYBARPOS=1||TIME=0900,2)),NODRAW;
XX1:=1,NODRAW;
DRAWSL(XX&&(ISLASTBAR||REFX(DAYBARPOS=1||TIME=0900,1)),HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0,-BARSLAST(DAYBARPOS=1||TIME=0900),0,COLORWHITE),LINETHICK1;
DRAWSL(XX&&(ISLASTBAR||REFX(DAYBARPOS=1||TIME=0900,1)),LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0,-BARSLAST(DAYBARPOS=1||TIME=0900),0,COLORWHITE),LINETHICK1;
//DRAWLINE3(ISLASTBAR,H,0,ISLASTBAR,HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),HHVBARS(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0 ),COLORCYAN,LINETHICK2;
//DRAWLINE3(ISLASTBAR,L,0,ISLASTBAR,LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),LLVBARS(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0 ),COLORRED,LINETHICK3;
BC:=BACKSET(ISLASTBAR,BARSLAST(DAYBARPOS=1||TIME=0900)/2+2);
//OPEN,BAMBOOLINE;
DRAWICON (CROSS(BACKSET(ISLASTBAR,HHVBARS(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1)+1),0.5),H,'ICO158');//下行图标
DRAWICON (CROSS(BACKSET(ISLASTBAR,LLVBARS(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1)+1),0.5),L,158),VALIGN0;//上行图标
H=HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),SOUND('Z');
L=LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),SOUND('Y');
N:=10;
TYP:=(CLOSE+HIGH+LOW)/3;
CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),NODRAW;
J:=CROSS(CCI,100);
S:=CROSSDOWN(CCI,-100);
JJ:=COUNT(J,BARSLAST(S))=1&&J,NODRAW;
SS:=COUNT(S,BARSLAST(J))=1&&S,NODRAW;
LL:=CROSS(BACKSET(REFX(JJ,1)||ISLASTBAR&&BARSLAST(SS)<BARSLAST(JJ),LLVBARS(L,BARSLAST(SS)+1)+1 ),0.5);
HH:=CROSS(BACKSET(REFX(SS,1)||ISLASTBAR&&BARSLAST(SS)>BARSLAST(JJ),HHVBARS(H,BARSLAST(JJ)+1)+1 ),0.5);
//DRAWLINE1(HH,H,LL,L,0);
//DRAWLINE1(LL,L,HH,H,0);
A:=REF(L,SUMBARS(LL,1)-1)>REF(L,SUMBARS(LL,2)-1)&&REF(H,SUMBARS(HH,1)-1)>REF(H,SUMBARS(HH,2)-1);
B:=REF(H,SUMBARS(HH,1)-1)<REF(H,SUMBARS(HH,2)-1)&&REF(L,SUMBARS(LL,1)-1)<REF(L,SUMBARS(LL,2)-1);
DRAWLINE3(BARSLAST(A)<BARSLAST(B)&&HH,REF(L,BARSLAST(LL)),BARSLAST(LL),1,H,0,0),COLORRED,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)<BARSLAST(B)&&LL,REF(H,BARSLAST(HH)),BARSLAST(HH),1,L,0,0),COLORRED,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)>BARSLAST(B)&&HH,REF(L,BARSLAST(LL)),BARSLAST(LL),1,H,0,0),COLORYELLOW,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)>BARSLAST(B)&&LL,REF(H,BARSLAST(HH)),BARSLAST(HH),1,L,0,0),COLORYELLOW,DOT,LINETHICK2;
NF:=5;//4
NN5:=30;//40
A01:=REF(HIGH,NF)=HHV(HIGH,4*NF+1);
B01:=FILTER(A01,NF);
CB1:=BACKSET(B01,NF+1);
D1:=FILTER(CB1,NF);//{高点}
A2:=REF(LOW,NF)=LLV(LOW,4*NF+1);
B2:=FILTER(A2,NF);
CB2:=BACKSET(B2,NF+1);
D2:=FILTER(CB2,NF);//{低点}
E1:=(REF(LLV(LOW,2*NF),1)+REF(HHV(HIGH,2*NF),1))/2,COLORBLACK;
E10:=(REF(LLV(LOW,ROUND(SQRT(2*NF),2)),1)+REF(HHV(HIGH,ROUND(SQRT(2*NF),2)),1))/2,COLORRED;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2))),NODRAW;
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(LOW,X1)+1);//LLVBARS(IF(L1,LOW,N000),X1)+1,NODRAW;
G1:=F1>REF(F1,1);//DRAWTEXT(X1,L,'X1');
I1:=BACKSET(G1,1);//DRAWTEXT(F1,H,'F1');
LD:=I1>REF(I1,1);//{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(H,X2)+1);
G2:=F2>REF(F2,1);//DRAWTEXT(HD,H*1.01,'HD');
I2:=BACKSET(G2,1);//DRAWTEXT(LD,L*0.99,'LD');
HD:=I2>REF(I2,1) ;//{过滤后高点}
DD1:=VALUEWHEN(LD ,L);
GD1:=VALUEWHEN(HD ,H);
DRAWSL(ISLASTBAR&&BARSLAST(LD)>BARSLAST(HD)||REFX(LD,1),REF(H,BARSLAST(HD)),0,-BARSLAST(HD),0,RGB(128,128,64)),LINETHICK3;
DRAWSL(ISLASTBAR&&BARSLAST(LD)<BARSLAST(HD)||REFX(HD,1),REF(L,BARSLAST(LD)),0,-BARSLAST(LD),0,RGB(0,187,0)),LINETHICK3;
DRAWTEXT(LD,L,' 买'),FONTSIZE21,COLORYELLOW,VALIGN0;
DRAWTEXT(HD,H,'卖'),FONTSIZE21,COLORWHITE,VALIGN2;
COND:=BARSLAST(HD)<BARSLAST(LD);
STICKLINE1(NOT(COND)&&ISUP,C,O,2,1),COLORRED;
STICKLINE1(NOT(COND)&&ISUP,C,O,2,1),COLORRED;
STICKLINE1(NOT(COND)&&NOT(ISUP),C,O,2,0),COLORRED;
STICKLINE1(NOT(COND)&&NOT(ISUP),C,O,2,0),COLORRED;
DRAWLINE(NOT(COND),L,1,MIN(O,C),COLORRED),LINETHICK2;
DRAWLINE(NOT(COND),H,1,MAX(O,C),COLORRED),LINETHICK2;
STICKLINE1(COND&&ISUP,C,O,2,1),COLORBLUE;
STICKLINE1(COND&&ISUP,C,O,2,1),COLORBLUE;
STICKLINE1(COND&&NOT(ISUP),C,O,2,0),COLORBLUE;
STICKLINE1(COND&&NOT(ISUP),C,O,2,0),COLORBLUE;
DRAWLINE(COND,L,1,MIN(O,C),COLORBLUE),LINETHICK2;
DRAWLINE(COND,H,1,MAX(O,C),COLORBLUE),LINETHICK2;
N1:=BARSLAST(TIME=0900)+1;////冬夜编辑2017.6.28
M1:=BARSLAST(TIME=2100)+1;
QAQ:=BACKSET(ISLASTBAR,MIN(N1,M1));
TT:=QAQ;////冬夜编辑2017.6.28
V,NODRAW;////舟亢编辑(3)
AO:=IF(ISDOWN,V,0);
BO:=IF(ISUP,V,0);
STICKLINE1(TT&&ISDOWN&&V=HHV(AO,MIN(N1,M1)),C,O,2,0),RGB(150,45,255);//黄色K线
DRAWLINE(TT&&ISDOWN&&V=HHV(AO,MIN(N1,M1)),H,TT&&1,L,RGB(150,45,255)),LINETHICK2;
STICKLINE1(TT&&ISUP&&V=HHV(BO,MIN(N1,M1)),C,O,2,0),COLORMAGENTA;//粉色K线
DRAWLINE(TT&&ISUP&&V=HHV(BO,MIN(N1,M1)),H,TT&&1,L,COLORMAGENTA),LINETHICK2;////////舟亢编辑(3)
DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JA:=CROSS(DIFF,DEA),NODRAW;
SA:=CROSSDOWN(DIFF,DEA),NODRAW;
NJ:=1+BARSLAST(J);
NS:=1+BARSLAST(S);
HHA:=BACKSET(S,1+HHVBARS(MACD,NJ));
LLA:=BACKSET(J,1+LLVBARS(MACD,NS)),NODRAW;
HG:=BACKSET(MACD>0&&MACD>HV(MACD,NJ),NJ),NODRAW;
LG:=BACKSET(MACD<0&&MACD<LV(MACD,NJ),NS),NODRAW;
HL:=BACKSET(ISLASTBAR,MIN(NJ,NS)),NODRAW;
X:=2;//为柱线宽度,可以自定义
DRAWLINE(CROSS(HH=1,0.5),H,1,L,COLORWHITE),LINETHICK3;
STICKLINE1(CROSS(HH=1,0.5),O,C,X,0),COLORWHITE;
DRAWLINE(CROSS(LL=1,0.5),H,1,L,COLORGREEN),LINETHICK3;
STICKLINE1(CROSS(LL=1,0.5),O,C,X,0),COLORGREEN;
DRAWLINE(HL&&HG=1&&(ISLASTBAR||REFX(HG,1)=0),H,1,L,COLORWHITE),LINETHICK3;
STICKLINE1(HL&&HG=1&&(ISLASTBAR||REFX(HG,1)=0),O,C,X,0),COLORWHITE;
DRAWLINE(HL&&LG=1&&(ISLASTBAR||REFX(LG,1)=0),H,1,L,COLORGREEN),LINETHICK3;
STICKLINE1(HL&&LG=1&&(ISLASTBAR||REFX(LG,1)=0),O,C,X,0),COLORGREEN;
XX1:=1,NODRAW;
DRAWSL(XX&&(ISLASTBAR||REFX(DAYBARPOS=1||TIME=0900,1)),HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0,-BARSLAST(DAYBARPOS=1||TIME=0900),0,COLORWHITE),LINETHICK1;
DRAWSL(XX&&(ISLASTBAR||REFX(DAYBARPOS=1||TIME=0900,1)),LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0,-BARSLAST(DAYBARPOS=1||TIME=0900),0,COLORWHITE),LINETHICK1;
//DRAWLINE3(ISLASTBAR,H,0,ISLASTBAR,HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),HHVBARS(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0 ),COLORCYAN,LINETHICK2;
//DRAWLINE3(ISLASTBAR,L,0,ISLASTBAR,LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),LLVBARS(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),0 ),COLORRED,LINETHICK3;
BC:=BACKSET(ISLASTBAR,BARSLAST(DAYBARPOS=1||TIME=0900)/2+2);
//OPEN,BAMBOOLINE;
DRAWICON (CROSS(BACKSET(ISLASTBAR,HHVBARS(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1)+1),0.5),H,'ICO158');//下行图标
DRAWICON (CROSS(BACKSET(ISLASTBAR,LLVBARS(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1)+1),0.5),L,158),VALIGN0;//上行图标
H=HHV(H,BARSLAST(DAYBARPOS=1||TIME=0900)+1),SOUND('Z');
L=LLV(L,BARSLAST(DAYBARPOS=1||TIME=0900)+1),SOUND('Y');
N:=10;
TYP:=(CLOSE+HIGH+LOW)/3;
CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N)),NODRAW;
J:=CROSS(CCI,100);
S:=CROSSDOWN(CCI,-100);
JJ:=COUNT(J,BARSLAST(S))=1&&J,NODRAW;
SS:=COUNT(S,BARSLAST(J))=1&&S,NODRAW;
LL:=CROSS(BACKSET(REFX(JJ,1)||ISLASTBAR&&BARSLAST(SS)<BARSLAST(JJ),LLVBARS(L,BARSLAST(SS)+1)+1 ),0.5);
HH:=CROSS(BACKSET(REFX(SS,1)||ISLASTBAR&&BARSLAST(SS)>BARSLAST(JJ),HHVBARS(H,BARSLAST(JJ)+1)+1 ),0.5);
//DRAWLINE1(HH,H,LL,L,0);
//DRAWLINE1(LL,L,HH,H,0);
A:=REF(L,SUMBARS(LL,1)-1)>REF(L,SUMBARS(LL,2)-1)&&REF(H,SUMBARS(HH,1)-1)>REF(H,SUMBARS(HH,2)-1);
B:=REF(H,SUMBARS(HH,1)-1)<REF(H,SUMBARS(HH,2)-1)&&REF(L,SUMBARS(LL,1)-1)<REF(L,SUMBARS(LL,2)-1);
DRAWLINE3(BARSLAST(A)<BARSLAST(B)&&HH,REF(L,BARSLAST(LL)),BARSLAST(LL),1,H,0,0),COLORRED,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)<BARSLAST(B)&&LL,REF(H,BARSLAST(HH)),BARSLAST(HH),1,L,0,0),COLORRED,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)>BARSLAST(B)&&HH,REF(L,BARSLAST(LL)),BARSLAST(LL),1,H,0,0),COLORYELLOW,DOT,LINETHICK2;
DRAWLINE3(BARSLAST(A)>BARSLAST(B)&&LL,REF(H,BARSLAST(HH)),BARSLAST(HH),1,L,0,0),COLORYELLOW,DOT,LINETHICK2;
NF:=5;//4
NN5:=30;//40
A01:=REF(HIGH,NF)=HHV(HIGH,4*NF+1);
B01:=FILTER(A01,NF);
CB1:=BACKSET(B01,NF+1);
D1:=FILTER(CB1,NF);//{高点}
A2:=REF(LOW,NF)=LLV(LOW,4*NF+1);
B2:=FILTER(A2,NF);
CB2:=BACKSET(B2,NF+1);
D2:=FILTER(CB2,NF);//{低点}
E1:=(REF(LLV(LOW,2*NF),1)+REF(HHV(HIGH,2*NF),1))/2,COLORBLACK;
E10:=(REF(LLV(LOW,ROUND(SQRT(2*NF),2)),1)+REF(HHV(HIGH,ROUND(SQRT(2*NF),2)),1))/2,COLORRED;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2))),NODRAW;
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(LOW,X1)+1);//LLVBARS(IF(L1,LOW,N000),X1)+1,NODRAW;
G1:=F1>REF(F1,1);//DRAWTEXT(X1,L,'X1');
I1:=BACKSET(G1,1);//DRAWTEXT(F1,H,'F1');
LD:=I1>REF(I1,1);//{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(H,X2)+1);
G2:=F2>REF(F2,1);//DRAWTEXT(HD,H*1.01,'HD');
I2:=BACKSET(G2,1);//DRAWTEXT(LD,L*0.99,'LD');
HD:=I2>REF(I2,1) ;//{过滤后高点}
DD1:=VALUEWHEN(LD ,L);
GD1:=VALUEWHEN(HD ,H);
DRAWSL(ISLASTBAR&&BARSLAST(LD)>BARSLAST(HD)||REFX(LD,1),REF(H,BARSLAST(HD)),0,-BARSLAST(HD),0,RGB(128,128,64)),LINETHICK3;
DRAWSL(ISLASTBAR&&BARSLAST(LD)<BARSLAST(HD)||REFX(HD,1),REF(L,BARSLAST(LD)),0,-BARSLAST(LD),0,RGB(0,187,0)),LINETHICK3;
DRAWTEXT(LD,L,' 买'),FONTSIZE21,COLORYELLOW,VALIGN0;
DRAWTEXT(HD,H,'卖'),FONTSIZE21,COLORWHITE,VALIGN2;
COND:=BARSLAST(HD)<BARSLAST(LD);
STICKLINE1(NOT(COND)&&ISUP,C,O,2,1),COLORRED;
STICKLINE1(NOT(COND)&&ISUP,C,O,2,1),COLORRED;
STICKLINE1(NOT(COND)&&NOT(ISUP),C,O,2,0),COLORRED;
STICKLINE1(NOT(COND)&&NOT(ISUP),C,O,2,0),COLORRED;
DRAWLINE(NOT(COND),L,1,MIN(O,C),COLORRED),LINETHICK2;
DRAWLINE(NOT(COND),H,1,MAX(O,C),COLORRED),LINETHICK2;
STICKLINE1(COND&&ISUP,C,O,2,1),COLORBLUE;
STICKLINE1(COND&&ISUP,C,O,2,1),COLORBLUE;
STICKLINE1(COND&&NOT(ISUP),C,O,2,0),COLORBLUE;
STICKLINE1(COND&&NOT(ISUP),C,O,2,0),COLORBLUE;
DRAWLINE(COND,L,1,MIN(O,C),COLORBLUE),LINETHICK2;
DRAWLINE(COND,H,1,MAX(O,C),COLORBLUE),LINETHICK2;
N1:=BARSLAST(TIME=0900)+1;////冬夜编辑2017.6.28
M1:=BARSLAST(TIME=2100)+1;
QAQ:=BACKSET(ISLASTBAR,MIN(N1,M1));
TT:=QAQ;////冬夜编辑2017.6.28
V,NODRAW;////舟亢编辑(3)
AO:=IF(ISDOWN,V,0);
BO:=IF(ISUP,V,0);
STICKLINE1(TT&&ISDOWN&&V=HHV(AO,MIN(N1,M1)),C,O,2,0),RGB(150,45,255);//黄色K线
DRAWLINE(TT&&ISDOWN&&V=HHV(AO,MIN(N1,M1)),H,TT&&1,L,RGB(150,45,255)),LINETHICK2;
STICKLINE1(TT&&ISUP&&V=HHV(BO,MIN(N1,M1)),C,O,2,0),COLORMAGENTA;//粉色K线
DRAWLINE(TT&&ISUP&&V=HHV(BO,MIN(N1,M1)),H,TT&&1,L,COLORMAGENTA),LINETHICK2;////////舟亢编辑(3)
DIFF :=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
JA:=CROSS(DIFF,DEA),NODRAW;
SA:=CROSSDOWN(DIFF,DEA),NODRAW;
NJ:=1+BARSLAST(J);
NS:=1+BARSLAST(S);
HHA:=BACKSET(S,1+HHVBARS(MACD,NJ));
LLA:=BACKSET(J,1+LLVBARS(MACD,NS)),NODRAW;
HG:=BACKSET(MACD>0&&MACD>HV(MACD,NJ),NJ),NODRAW;
LG:=BACKSET(MACD<0&&MACD<LV(MACD,NJ),NS),NODRAW;
HL:=BACKSET(ISLASTBAR,MIN(NJ,NS)),NODRAW;
X:=2;//为柱线宽度,可以自定义
DRAWLINE(CROSS(HH=1,0.5),H,1,L,COLORWHITE),LINETHICK3;
STICKLINE1(CROSS(HH=1,0.5),O,C,X,0),COLORWHITE;
DRAWLINE(CROSS(LL=1,0.5),H,1,L,COLORGREEN),LINETHICK3;
STICKLINE1(CROSS(LL=1,0.5),O,C,X,0),COLORGREEN;
DRAWLINE(HL&&HG=1&&(ISLASTBAR||REFX(HG,1)=0),H,1,L,COLORWHITE),LINETHICK3;
STICKLINE1(HL&&HG=1&&(ISLASTBAR||REFX(HG,1)=0),O,C,X,0),COLORWHITE;
DRAWLINE(HL&&LG=1&&(ISLASTBAR||REFX(LG,1)=0),H,1,L,COLORGREEN),LINETHICK3;
STICKLINE1(HL&&LG=1&&(ISLASTBAR||REFX(LG,1)=0),O,C,X,0),COLORGREEN;