通达信短线异动副图指标 源码 贴图
VAR1:=(6*(VOL/SUM(VOL,1))+3*(VOL/SUM(VOL,2))+2*(VOL/SUM(VOL,3)))/11;
VAR2:=DMA(CLOSE,VAR1);
VAR3:=IF(CLOSE>(HIGH+LOW)/2,((7*HIGH+2*LOW)/9+23*CLOSE)/24,IF(CLOSE<(HIGH+LOW)/2,((2*HIGH+7*LOW)/9+23*CLOSE)/24,((HIGH+LOW)/2+23*CLOSE)/24));
VAR4:=(VAR3+VAR2)/2;
VAR5:=(3.6*VAR4+1.4*(2*VAR4+7*(MA(VAR4,1)+MA(VAR4,2))/2)/9+1.5*((MA(VAR4,1)+MA(VAR4,2))/2+17*((MA(VAR4,1)+MA(VAR4,2))/2+MA(VAR4,2))/2)/18)/6.5;
VAR6:=VAR5*(7.7/9);{公式指标WWW.GSZB.TOP}
VAR7:=MAX(WINNER(VAR6)-WINNER(REF(VAR6,1)),0)*100;
VAR8:=(1.1*(7*SUM(VAR7,2)+2*SUM(VAR7,3))/9+1.2*(7*SUM(VAR7,4)+2*SUM(VAR7,6))/9+1.3*(7*SUM(VAR7,6)+2*SUM(VAR7,9))/9)/3.6;
VAR9:=(1.1*(7*SUM(VAR7,4)+2*SUM(VAR7,6))/9+1.2*(7*SUM(VAR7,8)+2*SUM(VAR7,12))/9+1.3*(7*SUM(VAR7,12)+2*SUM(VAR7,18))/9)/3.6;
VAR10:=(1.1*(7*SUM(VAR7,6)+2*SUM(VAR7,9))/9+1.2*(7*SUM(VAR7,12)+2*SUM(VAR7,18))/9+1.3*(7*SUM(VAR7,18)+2*SUM(VAR7,27))/9)/3.6;
VAR11:=(1.1*VAR8+1.2*VAR9+1.3*VAR10)/3.6;
短线异动:=C/REF(C,1)>1.05 AND VAR11>REF(VAR11,1) AND VAR11<20 ;
STICKLINE(短线异动,0,1,1,0),COLOR8000FF;
