如图
OPEN,BAMBOOLINE;
//DRAWNUMBER(ISLASTBAR,C,C,0,COLORWHITE),VALIGN1,ALIGN0,FONTSIZE15;//现价数字
V1:=IF(ISUP,V,0);//
V2:=IF(ISDOWN,V,0);
NC:=BARSLAST(DATE<>REF(DATE,1))+1;
A8:=BACKSET(ISLASTBAR,HHVBARS(V1,NC)+1);
B8:=BACKSET(ISLASTBAR,HHVBARS(V2,NC)+1);
DRAWNUMBER1(A8>REF(A8,1),H,H,0),COLORWHITE,FONTSIZE16;
DRAWNUMBER1(A8>REF(A8,1),L,L,0),VALIGN0,COLORWHITE,FONTSIZE16;
H1C:=VALUEWHEN(A8>REF(A8,1),H);
L1C:=VALUEWHEN(A8>REF(A8,1),L);
N1C:=BACKSET(ISLASTBAR,BARSLAST(A8>REF(A8,1))+1);
H2:=VALUEWHEN(B8>REF(B8,1),H);
L2:=VALUEWHEN(B8>REF(B8,1),L);
N2C:=BACKSET(ISLASTBAR,BARSLAST(B8>REF(B8,1))+1);
NL:=BARSLAST(DATE<>REF(DATE,1))+1;
TT1:=BACKSET(ISLASTBAR,HHVBARS(H,NL)+1);
QQ1:=BACKSET(ISLASTBAR,LLVBARS(L,NL)+1);
DRAWLINE1(TT1&&REF(TT1,1)=0,H,QQ1&&REF(QQ1,1)=0,L,0),COLORFFFF00,POINTDOT;
DRAWLINE1(QQ1&&REF(QQ1,1)=0,L,TT1&&REF(TT1,1)=0,H,0),COLOR80FFFF,POINTDOT;
LL:=LLV(LOW,1)/5+LLV(LOW,2)/5+LLV(LOW,2)/5+LLV(LOW,5)/5+LLV(LOW,8)/5;
H1:= IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,0),0);
L1:= IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
H2A:=VALUEWHEN(H1>0,H1);
L2A:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
GG:=IFELSE(K2=1,H2,L2);
GG1:=VALUEWHEN(ISLASTBAR,GG);
TMP1:=K2;
////////DRAWTEXT(CROSS(0,TMP1),LL,'B'),COLOR00D2D2;
DRAWTEXT(REFX(CROSS(0,TMP1),2),LL,'B'),VALIGN0,COLORRED,FONTSIZE23;//,COLOR00D2D2
STICKLINE1(REFX(CROSS(0,TMP1),2),C,O,3,0),COLORRED;//,COLOR00FFFF
REFX(CROSS(0,TMP1),2),SOUND('A');
短高H:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
短低L:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
D90H:=EMA(短高H,90),COLORRED,LINETHICK1;
D90L:=EMA(短低L,90),COLORRED,LINETHICK1;
D90差:=D90H-D90L;
D90顶:=D90H+D90差*2,COLORRED,LINETHICK1;
D90底:=D90L-D90差*2,COLORRED,LINETHICK1;
//XMA(X,N)=REFX(MA(X,N),N/2);
XH25:=REFX(MA(H,25),25/2);
XXH25:=REFX(MA(XH25,25),25/2);
XL25:=REFX(MA(L,25),25/2);
XXL25:=REFX(MA(XL25,25),25/2);
高0:=(XXH25-XXL25+XXH25),LINETHICK1,COLORWHITE;
低0:=XXL25*2-XXH25,LINETHICK1,COLORWHITE;
多头定位:=低0>=D90底 AND 高0>=D90顶;
空头定位:=高0<=D90顶 AND 低0<=D90底;
震荡定位:=低0>=D90底 AND 高0<=D90顶;
XH60:=REFX(MA(H,60),60/2);
XXH60:=REFX(MA(XH60,60),60/2);
XL60:=REFX(MA(L,60),60/2);
XXL60:=REFX(MA(XL60,60),60/2);
波段顶0:4*XXH60-3*XXL60,LINETHICK2,COLORGREEN;
波段底0:4*XXL60-3*XXH60,LINETHICK2,COLORGREEN;
STICKLINE(多头定位=1,高0,低0,15,0),COLOR555555;
STICKLINE(空头定位=1,高0,低0,5,0),COLOR555555;
STICKLINE(震荡定位=1,高0,低0,15,0),COLOR555555;
STICKLINE(1=1,D90H,D90L,15,0),COLORGRAY;

OPEN,BAMBOOLINE;
//DRAWNUMBER(ISLASTBAR,C,C,0,COLORWHITE),VALIGN1,ALIGN0,FONTSIZE15;//现价数字
V1:=IF(ISUP,V,0);//
V2:=IF(ISDOWN,V,0);
NC:=BARSLAST(DATE<>REF(DATE,1))+1;
A8:=BACKSET(ISLASTBAR,HHVBARS(V1,NC)+1);
B8:=BACKSET(ISLASTBAR,HHVBARS(V2,NC)+1);
DRAWNUMBER1(A8>REF(A8,1),H,H,0),COLORWHITE,FONTSIZE16;
DRAWNUMBER1(A8>REF(A8,1),L,L,0),VALIGN0,COLORWHITE,FONTSIZE16;
H1C:=VALUEWHEN(A8>REF(A8,1),H);
L1C:=VALUEWHEN(A8>REF(A8,1),L);
N1C:=BACKSET(ISLASTBAR,BARSLAST(A8>REF(A8,1))+1);
H2:=VALUEWHEN(B8>REF(B8,1),H);
L2:=VALUEWHEN(B8>REF(B8,1),L);
N2C:=BACKSET(ISLASTBAR,BARSLAST(B8>REF(B8,1))+1);
NL:=BARSLAST(DATE<>REF(DATE,1))+1;
TT1:=BACKSET(ISLASTBAR,HHVBARS(H,NL)+1);
QQ1:=BACKSET(ISLASTBAR,LLVBARS(L,NL)+1);
DRAWLINE1(TT1&&REF(TT1,1)=0,H,QQ1&&REF(QQ1,1)=0,L,0),COLORFFFF00,POINTDOT;
DRAWLINE1(QQ1&&REF(QQ1,1)=0,L,TT1&&REF(TT1,1)=0,H,0),COLOR80FFFF,POINTDOT;
LL:=LLV(LOW,1)/5+LLV(LOW,2)/5+LLV(LOW,2)/5+LLV(LOW,5)/5+LLV(LOW,8)/5;
H1:= IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,0),0);
L1:= IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
H2A:=VALUEWHEN(H1>0,H1);
L2A:=VALUEWHEN(L1>0,L1);
K1:=IFELSE(CLOSE>H2,-3,IFELSE(CLOSE<L2,1,0));
K2:=VALUEWHEN(K1<>0,K1);
GG:=IFELSE(K2=1,H2,L2);
GG1:=VALUEWHEN(ISLASTBAR,GG);
TMP1:=K2;
////////DRAWTEXT(CROSS(0,TMP1),LL,'B'),COLOR00D2D2;
DRAWTEXT(REFX(CROSS(0,TMP1),2),LL,'B'),VALIGN0,COLORRED,FONTSIZE23;//,COLOR00D2D2
STICKLINE1(REFX(CROSS(0,TMP1),2),C,O,3,0),COLORRED;//,COLOR00FFFF
REFX(CROSS(0,TMP1),2),SOUND('A');
短高H:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
短低L:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
D90H:=EMA(短高H,90),COLORRED,LINETHICK1;
D90L:=EMA(短低L,90),COLORRED,LINETHICK1;
D90差:=D90H-D90L;
D90顶:=D90H+D90差*2,COLORRED,LINETHICK1;
D90底:=D90L-D90差*2,COLORRED,LINETHICK1;
//XMA(X,N)=REFX(MA(X,N),N/2);
XH25:=REFX(MA(H,25),25/2);
XXH25:=REFX(MA(XH25,25),25/2);
XL25:=REFX(MA(L,25),25/2);
XXL25:=REFX(MA(XL25,25),25/2);
高0:=(XXH25-XXL25+XXH25),LINETHICK1,COLORWHITE;
低0:=XXL25*2-XXH25,LINETHICK1,COLORWHITE;
多头定位:=低0>=D90底 AND 高0>=D90顶;
空头定位:=高0<=D90顶 AND 低0<=D90底;
震荡定位:=低0>=D90底 AND 高0<=D90顶;
XH60:=REFX(MA(H,60),60/2);
XXH60:=REFX(MA(XH60,60),60/2);
XL60:=REFX(MA(L,60),60/2);
XXL60:=REFX(MA(XL60,60),60/2);
波段顶0:4*XXH60-3*XXL60,LINETHICK2,COLORGREEN;
波段底0:4*XXL60-3*XXH60,LINETHICK2,COLORGREEN;
STICKLINE(多头定位=1,高0,低0,15,0),COLOR555555;
STICKLINE(空头定位=1,高0,低0,5,0),COLOR555555;
STICKLINE(震荡定位=1,高0,低0,15,0),COLOR555555;
STICKLINE(1=1,D90H,D90L,15,0),COLORGRAY;