通达信改造VR指标公式

M:=6;N:=26;{可以自己在参数里设置}
L_MID:=(CLOSE+HIGH+LOW)/3;
L_TH:=SUM(IF(L_MID>REF(L_MID,1),vol,0),N);
L_TL:=SUM(IF(L_MID<REF(L_MID,1),VOL,0),N);
L_TQ:=SUM(IF(L_MID=REF(L_MID,1),VOL,0),N);
L_VR:100*(L_TH*2+L_TQ)/(L_TL*2+L_TQ);
L_MAvr:MA(L_VR,M);