通达信〖量潮起落〗VR成交量变异率与ROC变动速率公式源码

VR_N:=26;
vr_MA_N:=6;
roc_N:=12;
ROC_MA_N:=6;
TH:=SUM(IF(CLOSE>REF(CLOSE,1),vol,0),VR_N);
TL:=SUM(IF(CLOSE< REF(CLOSE,1),VOL,0),VR_N);
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),VR_N);
VR:100*TH/(TL+TQ),COLORWHITE,LINETHICK1;
MA_VR:MA(VR,VR_MA_N),COLORYELLOW,LINETHICK1;
ROC:(CLOSE-REF(CLOSE,ROC_N))/REF(CLOSE,ROC_N)*100,COLORRED,LINETHICK1;
MA_ROC:MA(ROC,ROC_MA_N),COLORGREEN,LINETHICK1;
BUY_RESONANCE:=crOSS(VR,MA_VR) AND VR< 100 AND CROSS(ROC,MA_ROC);
SELL_RESONANCE:=CROSS(MA_VR,VR) AND VR>200 AND CROSS(MA_ROC,ROC);
250, COLORGRAY, DOTLINE;
200, COLORGREEN, DOTLINE;
100, COLORGRAY, DOTLINE;
70, COLORRED, DOTLINE;
0, COLORGRAY, DOTLINE;
DRAWICON(BUY_RESONANCE, VR-20, 1);
DRAWICON(SELL_RESONANCE, VR+20, 2);
DRAWTEXT(BUY_RESONANCE, VR-35, '★潮起'), COLORRED;
DRAWTEXT(SELL_RESONANCE, VR+35, '★潮落'), COLORGREEN;