实时主动率 (源码)

感谢天蠍星每天提供逐笔数据，大家获益良多，为了大家更好使用，特提供实时主动率，公式数据必须按http://www.55188.com/thread-3172831-1-1.html的要求每天引入龙虎逐笔数据，我的指标的历史数据全部引用天蠍星的自定义数据，同时该指标可以利用N日主动率选股。大家有币的给些，我已经花钱买过好几次了：
主动率
input:n(5,1,1000);
主动买盘:=SELFDATA('主买特大')+SELFDATA('主买大单')+SELFDATA('主买中单')+SELFDATA('主买小单');
主动卖盘:=SELFDATA('主卖特大')+SELFDATA('主卖大单')+SELFDATA('主卖中单')+SELFDATA('主卖小单');
主动净量a:=主动买盘-主动卖盘;
主动净量:=if( BARSTATUS=2,(DYNAINFO(23)-DYNAINFO(22)),主动净量a);
主动率:主动净量/v*100,COLOR3D;

n日主动率:SUM(主动净量,n)/SUM(v,n)*100,LINETHICK0;