分享一个有一定参考价值指标 希望对大家有用

分享一个有一定参考价值指标 希望对大家有用

源码

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;