通达信黄金分割线源码

以下是通达信黄金分割线源码

通达信黄金分割线源码

N:=10;M:=150;

买线:=EMA(C,2);

卖线:=EMA(SLOPE(C,21)*20+C,42);

STICKLINE(买线>=卖线,REFDATE(HHV(H,M),DATE),REFDATE(LLV(L,M),DATE),5,0),

COLOR600020;

STICKLINE(买线<卖线,REFDATE(HHV(H,M),DATE),REFDATE(LLV(L,M),DATE),5,0),

COLOR404050; DRAWKLINE(H,O,L,C);

M5:MA(CLOSE,5);

M10:MA(CLOSE,10);

M20:MA(CLOSE,20);

M30:MA(CLOSE,30);

M60:MA(CLOSE,60);

M120:MA(CLOSE,120);

M250:MA(CLOSE,250);

{黄金分割线}

顶1:=REFDATE(HHV(H,M),DATE);

底1:=REFDATE(LLV(L,M),DATE);

H1:=顶1-(顶1-底1)*0.191;

H2:=顶1-(顶1-底1)*0.382;

H3:=顶1-(顶1-底1)*0.5;

H4:=顶1-(顶1-底1)*0.618;

H5:=顶1-(顶1-底1)*0.809;

顶部:REFDATE(顶1,DATE),COLOR666666;

%19.8:REFDATE(H1,DATE),COLOR666666;

%38.2:REFDATE(H2,DATE),COLOR666666;

%50:REFDATE(H3,DATE),COLOR666666;

%61.8:REFDATE(H4,DATE),COLOR666666;

%80.9:REFDATE(H5,DATE),COLOR666666;

底部:REFDATE(底1,DATE),COLOR666666;

DRAWTEXT(ISLASTBAR,顶部,' 顶部'),COLORGREEN;

DRAWTEXT(ISLASTBAR,%19.8,' 19.8％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,%38.2,' 38.2％'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,%50,' 50％'),COLORWHITE;

DRAWTEXT(ISLASTBAR,%61.8,' 61.8％'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,%80.9,' 80.9％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,底部,' 底部'),COLORRED;

{箱体}

{

箱顶:PEAK(CLOSE,N,1)*0.98,POINTDOT,LINETHICK3,COLORYELLOW;

箱底:TROUGH(CLOSE,N,1)*1.02,POINTDOT,LINETHICK3,COLORFFFF00;

箱高:100*(箱顶-箱底)/箱底,NODRAW;

}

{买卖标志}

DRAWICON(CROSS(买线,卖线),LOW*0.99,1);

DRAWICON(CROSS(卖线,买线),HIGH*1.01,2);

{BS标志}

DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7);

DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8);