转帖wen98最新多彩K线主图公式

954862742

{多彩K线-主图公式, 显示大阳\大阴\涨停\跌停\假阴\假阳\跳空\大K线中点,适用于通达信 }
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK);{在屏幕左上角显示所属行业板块}
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK);{在屏幕左上角显示所属地域板块}
DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK);{在屏幕左上角显示所属概念板块}
{跳空}
STICKLINE(REF(L,1)>H,H,REF(L,1),5,0),COLORGRAY;
STICKLINE(REF(H,1)<L,L,REF(H,1),5,0),COLORGRAY;

C_: CONST(C),COLORLIRED,POINTDOT;{现价线}
K中: (H+L)/2,COLORYELLOW,NODRAW;
MA5:=MA(C,5);
MA5角度: ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416,NODRAW;
{========================================================}
DRAWKLINE(H,O,L,C);{重绘K线}
RC1:=REF(C,1);{178448-WEN98编写}
CS:=5/IF(C>=1,1000,10000);
C涨停10:=1.10*RC1-CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-CS;
C跌停10:=0.90*RC1+CS;
C跌停5 :=0.95*RC1+CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= 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 O<(0.95*C+CS) ) OR (C>1000 AND C>=RC1*1.025);
STICKLINE(大阳线,O,C,1,0),COLOR0000BB;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+CS) ) OR (C>1000 AND C<RC1*0.976);
STICKLINE(大阴线,O,C,1,0),COLORLIGREEN;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
{均价:=IF(C>1000,C,AMOUNT/VOL/100);}
假阴1:= C<O AND C>REF(C,1);{显式-假阴真阳};
STICKLINE(假阴1,O,C,0,0),COLORRED;{假阴柱};
均价:=AMOUNT/VOL/100;
假阴2:= C<O AND 均价>RC1 AND C<=RC1 AND 均价<=H;{隐式-假阴真阳};
STICKLINE(假阴2,均价,均价,1,0),COLORRED;{假阴柱};
假阳:=C>O AND C<RC1;{假阳真阴};
STICKLINE(假阳,O,C,0,0),COLORGREEN;{假阳柱};


指数:=CODELIKE('999') OR CODELIKE('399');
大盘TJ:=PERIOD=5 AND 指数 AND ABS((C-RC1))/RC1>=0.020;
STICKLINE(大盘TJ,K中,K中,2,0),COLORYELLOW;{显示大盘日线的60点大K线中值};
STICKLINE(({大阳线 OR 涨停 OR} 大阴线 OR 跌停)
  AND BETWEEN(C,1,500),K中,K中,1,0),COLORYELLOW;{大K线画中点线};

windofhope

谢谢楼主分享

天山花开

谢谢楼主分享

股票舱

谢谢楼主分享

helyq

谢谢楼主分享

如意麒麟

最新多彩K线主图公式

ccyunc

11111111111111111111