通达信〖量价潮汐〗成交量多空能量指标公式源码

VAR19:=vol/((HIGH-LOW)*2-Abs(CLOSE-OPEN));
VAR1:=1;
VAR21:=IF(CLOSE>OPEN,VAR19*(HIGH-LOW),IF(CLOSE< OPEN,VAR19*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2))*1.5,COLORRED,LINETHICK2;
VAR2:=VAR1*0.890-56.290;
VAR22:=IF(CLOSE>OPEN,0-VAR19*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-VAR19*(HIGH-LOW),0-VOL/2))*1.5,COLORGREEN,LINETHICK2;
VAR3:=VAR2*1.148-41.567;
VAR20:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
VAR4:=VAR3*0.898+69.278;
VAR23:IF(CLOSE>OPEN,VAR20*(HIGH-LOW),IF(CLOSE< OPEN,VAR20*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW;
VAR5:=VAR4*1.026+0.496;
VAR24:IF(CLOSE>OPEN,0-VAR20*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-VAR20*(HIGH-LOW),0-VOL/2)),COLORGREEN,NODRAW;
VAR6:=VAR5*1.022-63.205;
VAR25:=VAR23+VAR24;
VAR7:=VAR6*1.059-10.348;
VAR26:=EMA(EMA(VAR25,5),5),LINETHICK2;
DRAWBAND(EMA(VAR26,3),RGB(0,224,224),VAR26,RGB(255,96,96));
VAR8:=VAR7*1.012-1.631;
VAR29:=EMA(VAR26,3);
VAR30:=EMA(VAR26,6);
STICKLINE(VAR29>0,0,VAR29,0,0),COLORRED;
VAR9:=VAR8*0.812+13.356;
STICKLINE(VAR29< 0,0,VAR29,0,0),COLORCYAN;
VAR10:=VAR9*1.124+98.075;
VAR29, LINETHICK2;
VAR11:=VAR10*0.937-67.284;
VAR30, LINETHICK2;
VAR12:=VAR11*1.070-98.174;
VAR27:IF(VAR26>0,VAR26,DRAWNULL),COLORRED,NODRAW;
VAR13:=VAR12*0.902+0.388;
VAR28:IF(VAR26< 0,VAR26,DRAWNULL),COLORGREEN,NODRAW;
VAR14:=VAR13*1.001-69.663;
IF(VAR29>0,VAR29,DRAWNULL),COLORRED;
VAR15:=VAR14*0.856+11.223;
IF(VAR29< 0,VAR29,DRAWNULL),COLORGREEN;
VAR16:=VAR15*0.917-5.337;
IF(VAR30>0,VAR30,DRAWNULL),COLORRED;
VAR17:=VAR16*1.010+3.771;
IF(VAR30< 0,VAR30,DRAWNULL),COLORGREEN;