分享一个有一定参考价值指标 希望对大家有用
分享一个有一定参考价值指标 希望对大家有用
源码
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;
