源码

W:=BARSLAST(DAY-REF(DAY,1))+1;
 FSJX:SUM(CLOSE*VOL,W)/SUM(VOL,W),LINETHICK2,COLORYELLOW;
 IF(FSJX<REF(FSJX,1),FSJX,DRAWNULL),LINETHICK2,COLORGREEN;
 {分时黄金分割线}
IF(C<FSJX,C,DRAWNULL),COLORCYAN,LINETHICK2;    
 {分时线}
FSX:IF(C>=FSJX,C,DRAWNULL),COLORRED,LINETHICK2;
 IF(FSJX<REF(FSJX,1),FSJX,DRAWNULL),LINETHICK2,COLORGREEN;
 HH:=CONST(HHV(C,0));
 LL:=CONST(LLV(C,0));
 HL:=HH-LL;
顶:HH,COLORCYAN{,DOTLINE};
 A809:0.809*HL+LL,COLORWHITE,DOTLINE;
 A618:0.618*HL+LL,COLORMAGENTA,DOTLINE;
 A500:0.500*HL+LL,COLORYELLOW,DOTLINE;
 A382:0.382*HL+LL,COLORMAGENTA,DOTLINE;
 A191:0.191*HL+LL,COLORWHITE,DOTLINE;
底:LL,COLORGREEN{,DOTLINE};
 {描述}
DRAWTEXT(CURRBARSCOUNT=240,HH,’顶’),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=240,A809,’809′),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=240,A618,’618′),COLORWHITE;
 DRAWTEXT(CURRBARSCOUNT=240,A500,’500′),COLORYELLOW;
 DRAWTEXT(CURRBARSCOUNT=240,A382,’382′),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=240,A191,’191′),COLORMAGENTA;
 DRAWTEXT(CURRBARSCOUNT=240,LL,’底’),COLORMAGENTA;

 


声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。