做T线副图公式源码

M:=30;

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD:=(DIF-DEA)*2;

OBVH:=CONST(HHV(OBV,FROMOPEN));

OBVL:=CONST(LLV(OBV,FROMOPEN));

DIFH:=CONST(HHV(DIF,FROMOPEN));

DIFL:=CONST(LLV(DIF,FROMOPEN));

X:=(OBVH-OBVL)/(DIFH-DIFL); 

XBASE:=(OBVH+OBVL)/2;

XDIF:DIF*X+XBASE,COLORWHITE;

XDEA:EMA(XDIF,9),COLORYELLOW;

XMACD:=MACD*X;

STICKLINE(XMACD>0,XBASE,XMACD+XBASE,0,1),COLORRED,LINETHICK2;

STICKLINE(XMACD<0,XBASE,XMACD+XBASE,0,1),COLORFFFF00,LINETHICK2;

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0)COLORGRAY;

MAOBV:MA(OBV,M),DOTLINE,COLORLIRED;

N:=10;

A1:=REF(OBV,N)=HHV(OBV,2*N+1);

B1:=FILTER(A1,N);

C1:=BACKSET(B1,N+1);

D1:=FILTER(C1,N);

T线:REF(OBV,BARSLAST(D1)),COLORFF6600,NODRAW;

STICKLINE(C>0,T线,T线,6,0),COLORFF6600;

DRAWICON(CROSS(OBV,T线),T线*0.99,1);