|
以下是通达信分时黄金分割公式（无源码的请下载附件导入）
{分时均线}
W:=BARSLAST(DAY-REF(DAY,1))+1;
FSJX:SUM(C*VOL,W)/SUM(VOL,W),COLORYELLOW,LINETHICK2; IF(FSJX<REF(FSJX,1),FSJX,DRAWNULL),COLORCYAN,LINETHICK2;
{分时线}
FSX:IF(C>=FSJX,C,DRAWNULL),COLORRED,LINETHICK2; IF(C<FSJX,C,DRAWNULL),COLORCYAN,LINETHICK2;
{黄金分割线,4*60'=240'}
HH:=CONST(HHV(C,0));
LL:=CONST(LLV(C,0));
HL:=HH-LL;
顶:HH,COLORCYAN,LINETHICK1;
A809:0.809*HL+LL,COLORFFFF0B,DOTLINE;
A618:0.618*HL+LL,COLORLIGRAY,DOTLINE;
A500:0.500*HL+LL,COLOR80FFFF,DOTLINE;
A382:0.382*HL+LL,COLORLIGRAY,DOTLINE;
A191:0.191*HL+LL,COLOR00FF00,DOTLINE;
底:LL,COLOR00FF00,LINETHICK1;
DRAWICON(C=LL,LL,9);
{黄金线240分钟静态提示}
DRAWTEXT(CURRBARSCOUNT=240,HH,'顶'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=240,A809,'809'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=240,A618,'618'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A500,'500'),COLOR80FFFF;
DRAWTEXT(CURRBARSCOUNT=240,A382,'382'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=240,A191,'191'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=240,LL,'底'),COLOR60FF60;
{黄金线1分钟动态提示}
DRAWTEXT(CURRBARSCOUNT=1,HH,'顶危'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,A809,'809警'),COLORFFFF0B;
DRAWTEXT(CURRBARSCOUNT=1,A618,'618警'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A500,'500警'),COLOR80FFFF;
DRAWTEXT(CURRBARSCOUNT=1,A382,'382警'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,A191,'191警'),COLOR60FF60;
DRAWTEXT(CURRBARSCOUNT=1,LL,'底安'),COLOR60FF60;
62377229.jpg
61333981.rar
(3.61 KB, 下载次数: 0, 售价: 4 金钱)
|
