zbn

短高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;

短低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,COLORRED;

D90H:=EMA(短高H,90),COLORRED,LINETHICK2;

D90L:=EMA(短低L,90),COLORMAGENTA,LINETHICK2;

D90差:=D90H-D90L;

{WWW.GOODGUPIAO.COM}

D90顶:=D90H+D90差*2,COLORRED;

D90底:=D90L-D90差*2,COLORRED;

XH25:=REFX1(MA(H,25),25/2);

XXH25:=REFX1(MA(XH25,25),25/2);

XL25:=REFX1(MA(L,25),25/2);

XXL25:=REFX1(MA(XL25,25),25/2);

高0:=(XXH25-XXL25+XXH25),COLORWHITE;

低0:=XXL25*2-XXH25,COLORWHITE;

多头定位:=低0>=D90底 AND 高0>=D90顶;

空头定位:=高0<=D90顶 AND 低0<=D90底;

震荡定位:=低0>=D90底 AND 高0<=D90顶;

XH60:=REFX1(MA(H,60),60/2);

XXH60:=REFX1(MA(XH60,60),60/2);

XL60:=REFX1(MA(L,60),60/2);

XXL60:=REFX1(MA(XL60,60),60/2);

波段顶0:=4*XXH60-3*XXL60;

波段底0:=4*XXL60-3*XXH60;

多:XXL25-(XXH25-XXL25)*1,LINETHICK1,COLORMAGENTA;

IF(多<REF(多,1),多,NULL),LINETHICK1,RGB(0,128,255);

IF(多=REF(多,1),多,NULL),LINETHICK1,COLORWHITE;

DRAWNUMBER(ISLASTBAR,多,多,0,COLORWHITE),ALIGN0,FONTSIZE18;

损:XXL25-(XXH25-XXL25)*3.5,DOT,COLORGREEN;

多盈:(XXH25-XXL25)*1+XXH25,COLORCYAN,NODRAW;

空:(XXH25-XXL25)*1+XXH25,COLORYELLOW,LINETHICK1;

IF(空<REF(空,1),空,NULL),LINETHICK1,RGB(128,0,255);

IF(空=REF(空,1),空,NULL),LINETHICK1,COLORWHITE;

DRAWNUMBER(ISLASTBAR,空,空,0,COLORWHITE),ALIGN0,FONTSIZE18;

止:(XXH25-XXL25)*3.5+XXH25,DOT,COLORRED;

DRAWNUMBER(ISLASTBAR,止,止,0,COLORGREEN),ALIGN0,FONTSIZE18;

空盈:XXL25-(XXH25-XXL25)*0.5,COLORCYAN,NODRAW;

波段顶:=(XXH60-XXL60)*3+XXH60;

波段底:=XXL60-(XXH60-XXL60)*3;

止盈差:多盈-空盈,NODRAW;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1),NODRAW;

D:=SMA(K,3,1),NODRAW;

J:=3*K-2*D,NODRAW;

今D:=EMA(D,3);

昨D:=REF(今D,1);

白色点多定位1:=L<多 AND H>多;

白色点空定位1:=H>空 AND L<空;

白色点多定位2:=H<多 AND H>多;

白色点空定位2:=L>空 AND L<空;

多头红色点:=今D>昨D;

空头红色点:=今D<昨D;

多头红色点定位1:=白色点多定位1=1 AND 多头红色点=1;

空头红色点定位1:=白色点空定位1=1 AND 空头红色点=1;

多头红色点定位2:=白色点多定位2=1 AND 多头红色点=1;

空头红色点定位2:=白色点空定位2=1 AND 空头红色点=1;

多头多定位:=CROSS(多,L) AND 多头定位=1;

多头平定位:=CROSS(H,空) AND 多头定位=1 AND 震荡定位=0;

空头空定位:=CROSS(H,空) AND 空头定位=1;

空头平定位:=CROSS(多,L) AND 空头定位=1 AND 震荡定位=0;

震荡多定位:=CROSS(多,L) AND 震荡定位=1;

震荡空定位:=CROSS(H,空) AND 震荡定位=1;

DRAWICON(REF(多头多定位=1 OR 震荡多定位=1,1),L,'ICO6'),VALIGN0;

DRAWICON(REF(多头多定位=1 OR 震荡多定位=1,1),L,'ICO4'),VALIGN0;

DRAWICON(REF(空头空定位=1 OR 震荡空定位=1,1),H,'ICO5');

DRAWKLINE1(H,O,L,C),DASHDOT;

VERTLINE1(REFX(ISLASTBAR,50)),RGB(128,128,0),DASHDOT;

//划线源码

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD:=2*(DIFF-DEA),COLORSTICK;

JC:=CROSS(DIFF,DEA);

SC:=CROSSDOWN(DIFF,DEA);

N1:=BARSLAST(JC)+1,NODRAW;

N2:=BARSLAST(SC)+1,NODRAW;

NN1:=HHVBARS(H,N1),NODRAW;

A1:=BACKSET(JC,LLVBARS(L,N2)+1);

B1:=BACKSET(SC,HHVBARS(H,N1)+1);

DRAWHORIZONTALLINE(CROSS(A1,0.5),L,COLORRED);

DRAWHORIZONTALLINE(CROSS(B1,0.5),H,COLORLIGHTGREEN);

DRAWNUMBER1(REFX(CROSS(A1,0.5),1),VALUEWHEN(CROSS(A1,0.5),L),VALUEWHEN(CROSS(A1,0.5),L),0),COLORRED;

DRAWNUMBER1(REFX(CROSS(B1,0.5),1),VALUEWHEN(CROSS(B1,0.5),H),VALUEWHEN(CROSS(B1,0.5),H),0),COLORLIGHTGREEN;

DRAWNUMBER1(ISLASTBAR,VALUEWHEN(CROSS(A1,0.5),L),VALUEWHEN(CROSS(A1,0.5),L),0),COLORRED;

DRAWNUMBER1(ISLASTBAR,VALUEWHEN(CROSS(B1,0.5),H),VALUEWHEN(CROSS(B1,0.5),H),0),COLORLIGHTGREEN;

作者微信WUCHEN5580:0,COLORYELLOW;

//高点低点判断源码

D2:=FILTER(BACKSET(FILTER(REF(L,3)=LLV(L,2*3+1),3),3+1),3);

E1:=(REF(LLV(L,2*3),1)+REF(HHV(H,2*3),1))/2;

H1:=(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1),3) AND NOT(D2 AND E1>=(H+L)/2)) OR ISLASTBAR OR BARSCOUNT(C)=1;

F11:=BACKSET(H1 AND COUNT((D2 AND NOT(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1),3) AND E1<(H+L)/2)),REF(BARSLAST(H1),1)+1)>0,LLVBARS(IF((D2 AND NOT(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1),3) AND E1<(H+L)/2)),L,10000),REF(BARSLAST(H1),1)+1));

I1:=BACKSET(IF(ISNULL(F11),0,1)>REF(IF(ISNULL(F11),0,1),1),2);

X2:=REF(BARSLAST(I1>REF(I1,1) OR ISLASTBAR OR BARSCOUNT(C)=1),1)+1;

F22:=BACKSET(I1>REF(I1,1) OR ISLASTBAR OR BARSCOUNT(C)=1 AND COUNT(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1),3) AND NOT(D2 AND E1>=(H+L)/2),X2)>0,HHVBARS(IF(FILTER(BACKSET(FILTER(REF(H,3)=HHV(H,2*3+1),3),3+1),3) AND NOT(D2 AND E1>=(H+L)/2),H,0),X2));

HD:=BACKSET(IF(ISNULL(F22),0,1)>REF(IF(ISNULL(F22),0,1),1),2)>REF(BACKSET(IF(ISNULL(F22),0,1)>REF(IF(ISNULL(F22),0,1),1),2),1);

VV:=BACKSET(ISLASTBAR,BARSLAST(I1>REF(I1,1))+1)>REF(BACKSET(ISLASTBAR,BARSLAST(I1>REF(I1,1))+1),1);

XX:=BACKSET(VV,REF(BARSLAST(I1>REF(I1,1)),1)+2)>REF(BACKSET(VV,REF(BARSLAST(I1>REF(I1,1)),1)+2),1);

VV2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1)>REF(BACKSET(ISLASTBAR,BARSLAST(HD)+1),1);

XX2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2)>REF(BACKSET(VV2,REF(BARSLAST(HD),1)+2),1);

新低:REF(L,BARSLAST(VV)),COLORRED,LINETHICK1;

次新低:REF(L,BARSLAST(XX)),COLORRED,DOT,LINETHICK1;

新高:REF(H,BARSLAST(XX2)),COLORGREEN,LINETHICK1;

分享到