{多彩Ｋ线主图公式,显示大阳\大阴\涨停\跌停\假阴\跳空,适用于通达信}
{可加到你主图的均线系统的后边
{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;
[size=+0]MA5_: IF(MA5>=REF(MA5,1),MA5,DRAWNULL),COLORMAGENTA;}
{如果只要裸K线,则上面均线部分可以去掉;如果要显示均线,可去掉上段大括号}
{========================================================}
{跳空}
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线 显示大阳\大阴\涨停\跌停\假阴,适用于通达信}
DRAWKLINE(H,O,L,C);{重绘K线}
RC1:=REF(C,1);{178448-WEN98编写}
C涨停10:=1.10*RC1-0.005;{考虑到4舍5入}
C涨停5 :=1.05*RC1-0.005;{考虑到4舍5入}
C跌停10:=0.90*RC1+0.004;{考虑到4舍5入}
C跌停5 :=0.95*RC1+0.004;{考虑到4舍5入}
ST:=NAMELIKE('ST') OR NAMELIKE('*ST');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORMAGENTA;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升}
大阳线:=C>O AND (C>=C涨停5 OR (C+0.004)>=1.05*O);
STICKLINE(大阳线,O,C,1,0),COLOR0000BB;
大阴线:=C<O AND (C<=C跌停5 OR (C-0.004)<=0.95*O);
STICKLINE(大阴线,O,C,1,0),COLORLIGREEN;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
假阴:=C<O AND C>REF(C,1);
STICKLINE(假阴,O,C,0,0),COLORRED;{假阴柱};
|
IP卡
狗仔卡
发表于 2012-4-22 20:15
显身卡
