动向速度比率幅图

动向速度比率幅图

源码

INPUT:N(30,5,30,2);
 DMZ:=IF((H+L)<=(REF(H,1)+REF(L,1)),0,MAX(ABS(H-REF(H,1)),ABS(L-REF(L,1))));
 DMF:=IF((H+L)>=(REF(H,1)+REF(L,1)),0,MAX(ABS(H-REF(H,1)),ABS(L-REF(L,1))));
 ADMZ:=MA(DMZ,10);
 ADMF:=MA(DMF,10);
 SRDM:IF(ADMZ>ADMF,(ADMZ-ADMF)/ADMZ,IF(ADMZ=ADMF,0,(ADMZ-ADMF)/ADMF));
 ASRDM:SMA(SRDM,N,1);