通达信黄金分割线源码

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;
 {www.7878.com 资本魔方_最全的股票公式}
 顶部: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);