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

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

源码正文：

dif:=ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:=EMA(DIF,9){XG51};
macd:=(DIF-DEA)*2{XG51};
VA1:=HHVBARS(MacD,BArslAst(MACD<0)+1){XG51};
VA2:=crOSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5){XG51};
前高:=DRAWLINE(VA2,MACD,REF(VA2,1),REF(MACD,1),1),COLORRED{XG51};
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1){XG51};
VA4:=CROSS(BACKSET(CROSS(MACD,0) OR (ISLASTBAR AND MACD<0),REF(VA3,1)+2),0.5){XG51};
前低:=DRAWLINE(VA4,MACD,REF(VA4,1),REF(MACD,1),1),COLORBLUE{XG51};
X:IF(COUNT(MACD>0,BARSLAST(VA2))=BARSLAST(VA2),DRAWLINE(VA2,H,REF(VA2,1),REF(H,1),1),
DRAWNULL),COLORCYAN,LINETHICK2{XG51};
STICKLINE(MACD>0 AND C>X AND O>X,C,O,1,0),COLORWHITE{XG51};
STICKLINE(MACD>0 AND C>X AND O<X,C,X,1,0),COLORWHITE{XG51};
STICKLINE(MACD>0 AND MACD>前高,C,O,1,0),COLORBLUE{XG51};
STICKLINE(REFX(VA2,1) OR REFX(VA4,1),C,O,1,0),COLORCYAN{XG51};
JC:=CROSS(DIF,DEA){XG51};
JTS:=BARSLAST(DIF<DEA){XG51};
SC:=CROSS(DEA,DIF){XG51};
STS:=BARSLAST(DIF>DEA){XG51};
价格低点:IF(JTS>0,DRAWLINE(JC,L,REF(JC,1),REF(L,1),1),DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
价格高点:IF(STS>0,DRAWLINE(SC,H,REF(SC,1),REF(H,1),1),DRAWNULL),COLORBLUE,LINETHICK2{XG51};
JGGD:=DRAWLINE(SC,H,REF(SC,1),REF(H,1),1){XG51};
WW:=BARSLAST(VA4)<=REF(IF(VA4,BARSNEXT(JC),DRAWNULL),BARSLAST(VA4)){XG51};
指标低点:IF(WW,DRAWLINE(VA4,L,REF(VA4,1),REF(L,1),1),DRAWNULL),COLORRED,LINETHICK2{XG51};
白线:=DRAWLINE(VA4,L,REF(VA4,1),REF(L,1),1){XG51};
STICKLINE(MAX(C,O)<指标低点,C,O,1,0),COLORRED{XG51};
STICKLINE(MAX(C,O)>指标低点 AND MIN(C,O)<指标低点,指标低点,MIN(C,O),1,0),COLORRED{XG51};
STICKLINE(价格低点<白线 AND MAX(C,O)>价格低点 AND MIN(C,O)<价格低点,价格低点,
MIN(C,O),1,0),COLORLIMAGENTA{XG51};
STICKLINE(价格低点<白线 AND MAX(C,O)<价格低点,C,O,1,0),COLORLIMAGENTA{XG51};
DRAWTEXT(价格低点<白线 AND  O<价格低点 AND C>价格低点 AND MACD>REF(MACD,1) AND
REF(C,1)<价格低点 AND JTS>1,L*0.99,'挖坑结束、还需确认'),COLORBLUE{XG51};
DRAWTEXT(JC AND 价格低点>JGGD,L*0.99,'小心筑顶、红柱保护'){XG51};
DRAWTEXT(NOT(WW) AND C>价格高点 AND O<价格高点,L*0.99,'简单骗术、时间和谐'){XG51};
DRAWTEXT(WW AND C>价格高点 AND O<价格高点,L*0.99,'再涨一段、注意真假'),COLORBLUE{X_G_5.1_C_N_{};