通达信北沙画线主图选股指标公式源码

通达信北沙画线主图选股指标公式源码

源码正文：

dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2,COLORstICK{XG51};
VA1:=HHVBARS(H,BArslAST(MacD<0)+1){XG51};
VA2:=crOSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5){XG51};
JQG:=DRAWLINE(VA2,H,REF(VA2,1),REF(H,1),1),COLORCYAN,DOTLINE{XG51};
NOTEXT前高A:DRAWLINE(VA2,H,ISLASTBAR,REF(H,BARSLAST(VA2)),1),COLORRED,DOTLINE{XG51};
DRAWNUMBER(ISLASTBAR,NOTEXT前高A,NOTEXT前高A),COLORRED{XG51};
VA3:=LLVBARS(L,BARSLAST(MACD>0)+1){XG51};
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5){XG51};
NOTEXT前低A:DRAWLINE(VA4,L,ISLASTBAR,REF(L,BARSLAST(VA4)),1),COLORRED,DOTLINE{XG51};
DRAWNUMBER(ISLASTBAR,NOTEXT前低A,NOTEXT前低A),COLORRED{XG51};
基准:=CONST(SUM(VA2,0)){XG51};
前高4:=基准-4=SUM(VA2,0) AND VA2,COLORRED,NODRAW{XG51};
前高3:=基准-3=SUM(VA2,0) AND VA2,COLORRED,NODRAW{XG51};
前高2:=基准-2=SUM(VA2,0) AND VA2,COLORRED,NODRAW{XG51};
前高1:=基准-1=SUM(VA2,0) AND VA2,COLORBLUE,NODRAW{XG51};
前高:=基准=SUM(VA2,0) AND VA2,COLORGREEN,NODRAW{XG51};
距离G1:=BARSLAST(前高1){XG51};
距离G2:=BARSLAST(前高2){XG51};
距离G3:=BARSLAST(前高3){XG51};
距离G4:=BARSLAST(前高4){XG51};
NOTEXTG1:DRAWLINE(前高1,H,前高 AND H>=REF(H,距离G1),H,0),COLORBLUE{XG51};
NOTEXTG2:DRAWLINE(前高1,H,前高 AND H<REF(H,距离G1),H,0),COLORCYAN{XG51};
NOTEXTG3:DRAWLINE(前高2,H,前高1 AND H>=REF(H,距离G2),H,0),COLORBLUE{XG51};
NOTEXTG4:DRAWLINE(前高2,H,前高1 AND H<REF(H,距离G2),H,0),COLORCYAN{XG51};
NOTEXTG5:DRAWLINE(前高3,H,前高2 AND H>=REF(H,距离G3),H,0),COLORBLUE{XG51};
NOTEXTG6:DRAWLINE(前高3,H,前高2 AND H<REF(H,距离G3),H,0),COLORCYAN{XG51};
NOTEXTG7:DRAWLINE(前高4,H,前高3 AND H>=REF(H,距离G4),H,0),COLORBLUE{XG51};
NOTEXTG8:DRAWLINE(前高4,H,前高3 AND H<REF(H,距离G4),H,0),COLORCYAN{XG51};
基准2:=CONST(SUM(VA4,0)){XG51};
前低:=基准2=SUM(VA4,0) AND VA4{XG51};
前低1:=基准2-1=SUM(VA4,0) AND VA4{XG51};
前低2:=基准2-2=SUM(VA4,0) AND VA4{XG51};
前低3:=基准2-3=SUM(VA4,0) AND VA4{XG51};
前低4:=基准2-4=SUM(VA4,0) AND VA4{XG51};
距离D1:=BARSLAST(前低1){XG51};
距离D2:=BARSLAST(前低2){XG51};
距离D3:=BARSLAST(前低3){XG51};
距离D4:=BARSLAST(前低4){XG51};
NOTEXTD1:DRAWLINE(前低1,L,前低 AND L>=REF(L,距离D1),L,0),COLORBLUE{XG51};
NOTEXTD2:DRAWLINE(前低1,L,前低 AND L<REF(L,距离D1),L,0),COLORCYAN{XG51};
NOTEXTD3:DRAWLINE(前低2,L,前低1 AND L>=REF(L,距离D2),L,0),COLORBLUE{XG51};
NOTEXTD4:DRAWLINE(前低2,L,前低1 AND L<REF(L,距离D2),L,0),COLORCYAN{XG51};
NOTEXTD5:DRAWLINE(前低3,L,前低2 AND L>=REF(L,距离D3),L,0),COLORBLUE{XG51};
NOTEXTD6:DRAWLINE(前低3,L,前低2 AND L<REF(L,距离D3),L,0),COLORCYAN{XG51};
NOTEXTD7:DRAWLINE(前低4,L,前低3 AND L>=REF(L,距离D4),L,0),COLORBLUE{XG51};
NOTEXTD8:DRAWLINE(前低4,L,前低3 AND L<REF(L,距离D4),L,0),COLORCYAN{XG51};
ZT:=REF(C,1)*1.1-C<0.01 AND H=C{XG51};
DT:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)) AND L=C,1,0);{XG51};
BA:STICKLINE(ZT,OPEN,CLOSE,0.1,0),COLORBLUE{XG51};
BC:STICKLINE(DT,OPEN,CLOSE,0.1,0),COLORLIBLUE{XG51};
DA:=YEAR AND MONTH AND DAY{XG51};
AAA:=STRCAT(CON2STR(YEAR,0),'年'){XG51};
AAB:=STRCAT(CON2STR(MONTH,0),'月'){XG51};
AA33:=STRCAT(CON2STR(DAY,0),'日'){XG51};
AA4:=STRCAT('【',IF(WEEkdAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AAA,AAB),STRCAT(AA33,AA4)),'】'){XG51};
SA:DRAWTEXT_FIX(DA,0,0,0,AA),COLORCYAN{X?G-5+1?C?N?{};