通达信涨停基因副图指标公式源码

{www.gszb.com涨停，7，3，0，0，-3，-7，跌停}
RC:=REF(C,1);
CUR:=CURRBARSCOUNT;
T:=(O/RC-1)*100;
ZT:=(IF(RANGE(FINANCE(3),2,5),ZTPRICE(REF(C,1),0.2),ZTPRICE(REF(C,1),0.1))/RC-1)*100;
DT:=(IF(RANGE(FINANCE(3),2,5),DTPRICE(REF(C,1),0.2),DTPRICE(REF(C,1),0.1))/RC-1)*100;

VB:=IF(CUR=5,CONST(SUM(IF(T=0,1,0),N)),IF(CUR=6,CONST(SUM(IF(RANGE(T,0,3),1,0),N)),IF(CUR=7,CONST(SUM(IF(RANGE(T,3,7),1,0),N)),
IF(CUR=8,CONST(SUM(IF(RANGE(T,7,ZT),1,0),N)),IF(CUR=9,CONST(SUM(IF(T=ZT,1,0),N)),0)))))+IF(CUR=4,CONST(SUM(IF(RANGE(T,-3,0),1,0),N)),
IF(CUR=3,CONST(SUM(IF(RANGE(T,-7,-3),1,0),N)),IF(CUR=2,CONST(SUM(IF(RANGE(T,DT,-7),1,0),N)),IF(CUR=1,CONST(SUM(IF(T=DT,1,0),N)),0))));
STICKLINE(CUR=1,0,VB,0.8,-1),COLORGREEN;
STICKLINE(CUR=2,0,VB,0.8,-1),COLORGREEN;
STICKLINE(CUR=3,0,VB,0.8,-1),COLORGREEN;
STICKLINE(CUR=4,0,VB,0.8,-1),COLORGREEN;
STICKLINE(CUR=5,0,VB,0.8,-1),COLORWHITE;
STICKLINE(CUR=6,0,VB,0.8,-1),COLORRED;
STICKLINE(CUR=7,0,VB,0.8,-1),COLORRED;
STICKLINE(CUR=8,0,VB,0.8,-1),COLORRED;
STICKLINE(CUR=9,0,VB,0.8,-1),COLORRED;

Q:=C>O;{www.gszb.com平收视为失败，涨跌停除外}
VA:=IF(CUR=5,CONST(SUM(IF(T=0&&Q,1,0),N)),IF(CUR=6,CONST(SUM(IF(RANGE(T,0,3)&&Q,1,0),N)),IF(CUR=7,CONST(SUM(IF(RANGE(T,3,7)&&Q,1,0),N)),
IF(CUR=8,CONST(SUM(IF(RANGE(T,7,ZT)&&Q,1,0),N)),IF(CUR=9,CONST(SUM(IF(T=ZT,1,0)&&C=O,N)),0)))))+IF(CUR=4,CONST(SUM(IF(RANGE(T,-3,0)&&Q,1,0),N)),
IF(CUR=3,CONST(SUM(IF(RANGE(T,-7,-3)&&Q,1,0),N)),IF(CUR=2,CONST(SUM(IF(RANGE(T,DT,-7)&&Q,1,0),N)),IF(CUR=1,CONST(SUM(IF(T=DT,1,0)&&C=O,N)),0))));
STICKLINE(CUR=1,0,VA,0.8,0),COLORGREEN;
STICKLINE(CUR=2,0,VA,0.8,0),COLORGREEN;
STICKLINE(CUR=3,0,VA,0.8,0),COLORGREEN;
STICKLINE(CUR=4,0,VA,0.8,0),COLORGREEN;
STICKLINE(CUR=5,0,VA,0.8,0),COLORWHITE;
STICKLINE(CUR=6,0,VA,0.8,0),COLORRED;
STICKLINE(CUR=7,0,VA,0.8,0),COLORRED;
STICKLINE(CUR=8,0,VA,0.8,0),COLORRED;
STICKLINE(CUR=9,0,VA,0.8,0),COLORRED;
次数:VB,NODRAW;
成功:VA,NODRAW;
DRAWNUMBER(CUR<10,-1,IF(CUR=5,0,IF(CUR=6,0,IF(CUR=7,3,IF(CUR=8,7,IF(CUR=9,10,0)))))+IF(CUR=4,0,IF(CUR=3,-3,IF(CUR=2,-7,IF(CUR=1,-10,0)))));
NOTEXT0:-10,COLORBLACK;