通达信〖量价共振〗以成交均价12周期变化率平滑优化指标公式源码

VAR1:=AMOUNT/vol;
VAR2:=(VAR1-REF(VAR1, 12))/REF(VAR1, 12)*100;
VAR3:=MA(VAR2, 6);
STICKLINE(VAR3>0, 0, VAR3, 3, 0), COLORMAGENTA;
STICKLINE(VAR3< 0, 0, VAR3, 2, 0), COLORGREEN;
VAR5:=MA(CLOSE, 1);
VAR6:=(6*HIGH+5*REF(HIGH, 1)+4*REF(HIGH, 2)+3*REF(HIGH, 3)+2*REF(HIGH, 4)+1*REF(HIGH, 5))/(6+5+4+3+2+1);
VAR7:=(6*LOW+5*REF(LOW, 1)+4*REF(LOW, 2)+3*REF(LOW, 3)+2*REF(LOW, 4)+1*REF(LOW, 5))/(6+5+4+3+2+1);
VAR8:=IF(CLOSE>REF(VAR6, 1), 1, IF(CLOSE< REF(VAR7, 1), (-1), 0));
VAR9:=BARSLAST(NOT(VAR8=0));
VAR10:=IF(VAR8=0, REF(VAR8, VAR9), VAR8);
VAR11:=IF(VAR10=(-1), MA(HIGH, 6), MA(LOW, 6));
VAR12:=BARSLASTCOUNT(VAR5>VAR11);
STICKLINE(VAR12>REF(VAR12, 1) AND VAR3>0 AND VAR3>REF(VAR3, 1), 0, VAR3*0.5, 2, 0), COLORYELLOW;
STICKLINE(VAR12, 0, VAR12*0.8, 1, 0), COLORRED;
DRAWICON(BARSLASTCOUNT(VAR12>REF(VAR12, 1) AND VAR3>0 AND VAR3>REF(VAR3, 1))=1 AND REF(VAR3< 0, 1), 0, 13);
0, COLORWHITE, DOTLINE;