MA8:=IF(DATE<=0290303,1,0),NODRAW;//*MA8, NOTEXT
上顶:=((REFX1(MA(H,25),25/2)-REFX1(MA(L,25),25/2))*1+REFX1(MA(H,25),25/2))*MA8,DOT,COLORYELLOW, NOTEXT;
中线:=(EMA(C,25))*MA8,COLORCYAN,LINETHICK1, NOTEXT;
BS:=(EMA(EMA(HIGH,60),60)-EMA(EMA(LOW,60),60))*2.2+EMA(EMA(HIGH,60),60)*MA8,COLORRED;
BD:=(EMA(EMA(LOW,60),60)-(EMA(EMA(HIGH,60),60)-EMA(EMA(LOW,60),60))*2.8)*MA8,COLORGREEN;
界:=(BD+BS)/2;
H1好的:= IFELSE(H<REF(H,2)&&REF(H,1)<REF(H,2),REF(H,2),0);
L1好的:= IFELSE(L>REF(L,2)&&REF(L,1)>REF(L,2),REF(L,2),0);
H2好的:=VALUEWHEN(H1好的>0,H1好的);
L2好的:=VALUEWHEN(L1好的>0,L1好的);
K1好的:=IFELSE(CLOSE>H2好的,-3,IFELSE(CLOSE<L2好的,1,0));
K2好的:=VALUEWHEN(K1好的<>0,K1好的);
TMP1好的:=K2好的*MA8;
W1好的:=K2好的;
A好的:=BACKSET(ISLASTBAR,BARSLAST(CROSS(TMP1好的*MA8,0*MA8))+1);
B好的:=BACKSET(ISLASTBAR,BARSLAST(CROSS(0*MA8,TMP1好的*MA8))+1);
KTEXT(CROSS(B好的,0.5),-1,REF(L,1),1,COLORMAGENTA,’BB’),FONTSIZE20,VALIGN0;
KTEXT(CROSS(A好的,0.5),-1,REF(H,1)+2,1,COLORGREEN,’SS’),ALIGN0,FONTSIZE20,VALIGN2;
BB1:VALUEWHEN(CROSS(B好的,0.5),REF(C,1)),NODRAW;
SS1:VALUEWHEN(CROSS(A好的,0.5),REF(C,1)),NODRAW;
KTEXT(CROSS(A好的,0.5)&&REFX1(上顶>BD AND 上顶<界 AND 中线>C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线<界 AND 中线>C AND ISLASTBAR,10000),-1,REF(H,1)+2,1,COLORGREEN,’SS’),ALIGN0,FONTSIZE30,VALIGN2;
KTEXT(CROSS(B好的,0.5)&&REFX1(上顶>BS AND 中线>界 AND 中线<C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线>界 AND 中线<C AND ISLASTBAR,10000),-1,REF(L,1),1,COLORMAGENTA,’BB’),FONTSIZE30,VALIGN0;
SS2:VALUEWHEN(CROSS(A好的,0.5)&&REFX1(上顶>BD AND 上顶<界 AND 中线>C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线<界 AND 中线>C AND ISLASTBAR,10000),REF(C,1)),NODRAW;
BB2:VALUEWHEN(CROSS(B好的,0.5)&&REFX1(上顶>BS AND 中线>界 AND 中线<C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线>界 AND 中线<C AND ISLASTBAR,10000),REF(C,1)),NODRAW;
DRAWCOLORKLINE(REFX1(上顶<BD AND 上顶<界 AND 中线<BD AND 中线<界 AND 中线>C AND ISLASTBAR,10000),COLORGREEN,1); //强跌
DRAWCOLORKLINE(REFX1(上顶<BD AND 上顶<界 AND 中线<BD AND 中线<界 AND 中线>C AND ISLASTBAR,10000)&&ISDOWN,COLORGREEN,0); //强跌
DRAWCOLORKLINE(REFX1(上顶>BS AND 中线>界 AND 中线<C AND ISLASTBAR,10000),COLORRED,1); //强涨
DRAWCOLORKLINE(REFX1(上顶>BS AND 中线>界 AND 中线<C AND ISLASTBAR,10000)&&ISDOWN,COLORRED,0); //强涨
KTEXT(CROSS(A好的,0.5)&&REFX1(上顶>BD AND 上顶<界 AND 中线>C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线<界 AND 中线>C AND ISLASTBAR,10000),-1,REF(H,1)+2,1,COLORGREEN,’SS’),ALIGN0,FONTSIZE30,VALIGN2;
KTEXT(CROSS(B好的,0.5)&&REFX1(上顶>BS AND 中线>界 AND 中线<C AND ISLASTBAR||上顶<BS AND 上顶>界 AND 中线>界 AND 中线<C AND ISLASTBAR,10000),-1,REF(L,1),1,COLORMAGENTA,’BB’),FONTSIZE30,VALIGN0;
