求助！将博易大师的长线指标转到TB中去，谢谢了~

a415260930

以下是博易大师中长线指标的代码 求各路英雄豪杰帮忙转到TB中：
TB:=IF(HIGH>REF(CLOSE,1),HIGH-REF(CLOSE,1)+CLOSE-LOW,CLOSE-LOW);
TS:=IF(REF(CLOSE,1)>LOW,REF(CLOSE,1)-LOW+HIGH-CLOSE,HIGH-CLOSE);
VOL_:=(TB-TS)*VOL/(TB+TS)/10000;
VOL_0:=DMA(VOL_,0.1);
VOL_1:=DMA(VOL_,0.05);
RES1:=VOL_0-VOL_1;
LON:SUM(RES1,0),COLORSTICK;
LON;
MA1:MA(LON,N);


我在用DMA函数的时候遇到问题了，在论坛上找到DMA的TB代码的用户函数，但是输出的结果跟博易的差很多；
在这附上论坛上看到的 DMA用户函数代码：
Params

        NumericSeries Price(1);  

        Numeric Length(0.5);

Vars

        NumericSeries DMAValue;

Begin

        If ( Length>1||DMAValue[1] == InvalidNumeric||Length<0)

        {

                DMAValue = Summation(Price, CurrentBar+1)/(CurrentBar+1);

        }Else

        {

                DMAValue=Length*Price+(1-Length)*DMAValue[1];

        }

        Return DMAValue;

End


帮忙将博易的该指标移植到TB里 ，小弟不甚感激啊！ 在线等待 ~~谢谢拉