强弱雷达

  源码如下：   

input:N(9);   

VAR0:="999999$CLOSE";   

VAR1:=(C-REF(C,1))/REF(C,1)*100;   

VAR2:=(VAR0-REF(VAR0,1))/REF(VAR0,1)*100;   

MD:MA(VAR1,N);   

DP:MA(VAR2,N);   

PDCD:MA((VAR1-VAR2),N);