通达信虚拟涨幅价格主图指标(源码)

XK:=30;
显示:=0;
{虚拟涨幅价格}
HH:=IF(BETWEEN(DATE,1150601,1150630),H,-999);
T:=HHVBARS(HH,0);
TT:=BARSLAST(L=LLV(L,T+1));
T1:=BARSLAST(CURRBARSCOUNT=CONST(TT)+1);
XL:=REFX(MIN(C,O),BARSNEXT(T1=0));
DRAWICON(MIN(C,O)=XL,L,1);
ZTKX:=IF(ISLASTBAR,REF(XL,T)*(1+XK/100),DRAWNULL),NODRAW;
STICKLINE(ISLASTBAR,ZTKX,MAX(OPEN,CLOSE),0,-1),COLORLIGRAY;
ZF:=(CONST(ZTKX)/REF(XL,T)-1)*100;{涨幅}
JG:=REF(XL,T)*(1+XK/100);
DRAWTEXT(CURRBARSCOUNT=4,JG,VARCAT(VARCAT("价格：",VAR2STR(CONST(ZTKX),2)),"元")),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=10,JG,VARCAT(VARCAT("涨幅：",VAR2STR(ZF,2)),"%")),COLORYELLOW;
{停复牌}
复牌:=DAY-IF(WEEKOFYEAR=REF(WEEKOFYEAR,1),1,3)>REF(DAY,1) OR WEEKOFYEAR-1>REF(WEEKOFYEAR,1);
停牌:=REFX(复牌,1);
DRAWTEXT(停牌,L*0.99,"停"),COLORWHITE;
DRAWTEXT(复牌,L*0.99,"复"),COLORWHITE;
{均线}
NOTEXTM5:IF(显示=1,MA(C,5),DRAWNULL),COLORWHITE;
NOTEXTM10:IF(显示=1,MA(C,10),DRAWNULL),COLORYELLOW;
NOTEXTM20:IF(显示=1,MA(C,20),DRAWNULL),COLORMAGENTA;
NOTEXTM60:IF(显示=1,MA(C,60),DRAWNULL),COLORGREEN;
{ENE};
NOTEXT上:IF(显示=2,(1+11/100)*MA(CLOSE,9),DRAWNULL),COLORWHITE;
NOTEXT下:IF(显示=2,(1-9/100)*MA(CLOSE,9),DRAWNULL),COLORYELLOW;
NOTEXT中:IF(显示=2,(NOTEXT上+NOTEXT下)/2,DRAWNULL),COLORMAGENTA;
{EXPMA}
NOTEXTEXP1:IF(显示=3,EMA(CLOSE,12),DRAWNULL),COLORWHITE;
NOTEXTEXP2:IF(显示=3,EMA(CLOSE,50),DRAWNULL),COLORYELLOW;