大盘顶底(通达信)

大盘顶底(通达信)

源码正文：

difF:=ema(CLOSE,12)-Ema(CLOSE,27){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=(2)*(DIFF-DEA){XG51};
A1:=BArslAst(REF(crOSS(DIFF,DEA),1)){XG51};
接近大盘底:=(REF(CLOSE,A1+1)>CLOSE) AND (DIFF>REF(DIFF,A1+1)) AND CROSS(DIFF,DEA){XG51};
STICKLINE(接近大盘底,0,0.1,10,0),COLOR0000FF{XG51};
DRAWTEXT(接近大盘底,0.01,'接近大盘底'),COLORRED{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
大盘顶:=(REF(CLOSE,A2+1)<CLOSE) AND (REF(DIFF,A2+1)>DIFF) AND CROSS(DEA,DIFF){XG51};
STICKLINE(大盘顶,0,0.1,10,0),COLOR00FF00{XG51};
DRAWTEXT(大盘顶,0.01,'大盘顶'),COLORBLUE{X?G-5+1?C?N?{};