今天BLOG的流量突破40000,為了感謝大家的支持,這里給出一個(gè)“多彩K線主圖公式”,希望能給大家一點(diǎn)幫助!功能是用不同的色彩,直觀顯示大陽(yáng)\大陰\漲停\跌停\假陰等K線,一看就明白??梢詥为?dú)使用,也可加到你主圖系統(tǒng)的后邊,或適當(dāng)位置。(本貼下方有改進(jìn)公式)
{多彩K線主圖公式,顯示大陽(yáng)\大陰\漲停\跌停\假陰,適用于通達(dá)信}
{可加到你主圖的均線系統(tǒng)的后邊}
{6\20均線}
MA6: MA(C,6 ),COLORGREEN;{王子操盤(pán)線}
MA6_: IF(MA6>=REF(MA6,1),MA6,DRAWNULL),COLORMAGENTA;
MA20: MA(C,20),COLORLICYAN;{萬(wàn)能線}
MA20_: IF(MA20>=REF(MA20,1),MA20,DRAWNULL),COLORLIRED;
{重繪K線 顯示大陽(yáng)\大陰\漲停\跌停\假陰,適用于通達(dá)信}
DRAWKLINE(H,O,L,C);{重繪K線}
{重繪K線 顯示大陽(yáng)\大陰\漲停\跌停\假陰,適用于通達(dá)信}
RC1:=REF(C,1);
漲停率10:=10-1/RC1;{178448-WEN98編寫(xiě)}
漲停率5:=5-1/RC1;
比前漲率:=(C-RC1)*100/RC1;
比前跌率:=(RC1-C)*100/RC1;
ST:=NAMELIKE('ST') OR NAMELIKE('*ST');
漲停:= IF(ST, (比前漲率>=漲停率5), (比前漲率>=漲停率10));
本日漲率:=(C-O)*100/O;
本日跌率:=(O-C)*100/O;
STICKLINE((H-RC1)*100/RC1>=漲停率10,H,MAX(C,O),0,0),COLORMAGENTA;{漲停后回落}
STICKLINE((RC1-L)*100/RC1>=漲停率10,L,MIN(C,O),0,0),COLORBLUE;{跌停后回升}
STICKLINE(漲停,O,C,1,0),COLORMAGENTA;{COLOR00AAFF;}
跌停:= IF(NAMELIKE('ST'), (比前跌率>=漲停率5), (比前跌率>=漲停率10));
STICKLINE(跌停,O,C,1,0),COLORBLUE;
大陽(yáng)線:=C>O AND (比前漲率>=漲停率5 OR 本日漲率>=漲停率5)
STICKLINE(大陽(yáng)線,O,C,1,0),COLOR0000BB;
大陰線:=C<O AND (比前跌率>=漲停率5 OR 本日跌率>=漲停率5)
STICKLINE(大陰線,O,C,1,0),COLORLIGREEN;
假陰:=C<O AND C>REF(C,1);
STICKLINE(假陰,O,C,0,0),COLORRED;{假陰柱};
這是效果圖:
>===========================================================================================<
2011-09-29改進(jìn)后(增加跳空顯示):
{多彩K線主圖公式,顯示大陽(yáng)\大陰\漲停\跌停\假陰\跳空,適用于通達(dá)信}
{可加到你主圖的均線系統(tǒng)的后邊
{MA120: MA(C,120),COLORGRAY;
MA60: MA(C,60),COLORBLUE;
MA30: MA(C,30),COLORLICYAN;
MA30_: IF(MA30>=REF(MA30,1),MA30,DRAWNULL),COLORLIRED;
MA10: MA(C,10),COLORYELLOW;
MA5: MA(C,5),COLORGREEN;
MA5_: IF(MA5>=REF(MA5,1),MA5,DRAWNULL),COLORMAGENTA;}
{如果只要裸K線,則上面均線部分可以去掉;如果要顯示均線,可去掉上段大括號(hào)}
{========================================================}
{跳空}
STICKLINE(REF(L,1)>H,H,REF(L,1),5,0),COLORGRAY;
STICKLINE(REF(H,1)<L,L,REF(H,1),5,0),COLORGRAY;
{重繪K線 顯示大陽(yáng)\大陰\漲停\跌停\假陰,適用于通達(dá)信}
DRAWKLINE(H,O,L,C);{重繪K線}
{重繪K線 顯示大陽(yáng)\大陰\漲停\跌停\假陰,適用于通達(dá)信}
RC1:=REF(C,1);
漲停率10:=10-1/RC1;{178448-WEN98編寫(xiě)}
漲停率5:=5-1/RC1;
比前漲率:=(C-RC1+0.004)*100/RC1;
比前跌率:=(RC1-C-0.004)*100/RC1;
ST:=NAMELIKE('ST') OR NAMELIKE('*ST');
漲停:= IF(ST, (比前漲率>=漲停率5), (比前漲率>=漲停率10));
跌停:= IF(ST, (比前跌率>=漲停率5), (比前跌率>=漲停率10));
盤(pán)中漲停:=(H-RC1+0.004)*100/RC1>=IF(ST, 漲停率5,漲停率10);
盤(pán)中跌停:=(RC1-L-0.004)*100/RC1>=IF(ST, 漲停率5,漲停率10);
STICKLINE(盤(pán)中漲停,H,MAX(C,O),0,0),COLORMAGENTA;{漲停后回落}
STICKLINE(盤(pán)中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升}
STICKLINE(漲停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
本日漲率:=(C-O+0.004)*100/O;
本日跌率:=(O-C-0.004)*100/O;
大陽(yáng)線:=C>O AND (比前漲率>=漲停率5 OR 本日漲率>=漲停率5)
STICKLINE(大陽(yáng)線,O,C,1,0),COLOR0000BB;
大陰線:=C<O AND (比前跌率>=漲停率5 OR 本日跌率>=漲停率5)
STICKLINE(大陰線,O,C,1,0),COLORLIGREEN;
假陰:=C<O AND C>REF(C,1);
STICKLINE(假陰,O,C,0,0),COLORRED;{假陰柱};
下面是效果圖與圖例:(實(shí)心紅-大陽(yáng),紅到發(fā)紫-漲停,實(shí)心綠-大陰,綠到發(fā)藍(lán)-跌停)
聯(lián)系客服