通达信分时图标提示黄金分割（源码）

HH:=CONST(HHV(C,0));
 LL:=CONST(LLV(C,0));
 HL:=HH-LL;
顶:HH,COLOR545454,LINETHICK1,DOTLINE;
 DRAWICON(C=HH,HH,35);
 A809:0.809*HL+LL,COLOR545454,DOTLINE;
 A618:0.618*HL+LL,COLOR545454,DOTLINE;
 A500:0.500*HL+LL,COLOR545454,DOTLINE;
 A382:0.382*HL+LL,COLOR545454,DOTLINE;
 A191:0.191*HL+LL,COLOR545454,DOTLINE;
底:LL,COLOR545454,LINETHICK1,DOTLINE;
 DRAWICON(C=LL,LL,34);
 DRAWTEXT(CURRBARSCOUNT=240,HH,'顶'),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=240,A809,'809'),COLOR545454;
 DRAWTEXT(CURRBARSCOUNT=240,A618,'618'),COLOR545454;
 DRAWTEXT(CURRBARSCOUNT=240,A500,'500'),COLOR545454;
 DRAWTEXT(CURRBARSCOUNT=240,A382,'382'),COLOR545454;
 DRAWTEXT(CURRBARSCOUNT=240,A191,'191'),COLOR545454;
 DRAWTEXT(CURRBARSCOUNT=240,LL,'底'),COLORYELLOW;
 MD:=EMA(C,0)-EMA(C,5);
 STICKLINE(MD>0,DYNAINFO(3),DYNAINFO(3)+MD*1.5,0,1),COLOR545454;
 STICKLINE(MD<=0,DYNAINFO(3),DYNAINFO(3)+MD*1.5,0,1),COLOR545454;
均价:SUM(V*C,0)/SUM(V,0),COLORYELLOW;