想写一个WR公式，但是只能引用系统函数，请问怎么自己写一个函数(WIDTH)来引用？以下是该公式：

//------------------------------------------------------------------------
// 简称: BOLL_WIDTH
// 名称: 布林线宽度
// 类别: 公式应用
// 类型: 用户应用
// 输出: Void
//------------------------------------------------------------------------
Params
    Numeric Length(89);        //周期        
    Numeric Offset(2);        //标准差倍数  
    Numeric Zero(0); //零轴
Vars
    Numeric UpLine;        //上轨
    Numeric DownLine;        //下轨 
    Series<Numeric> MidLine;    //中间线
    Numeric Band;
    Numeric WIDTH;

Events
    OnBar(ArrayRef<Integer> indexs)
    {
        Range[0:DataSourceSize() - 1]
        {
            MidLine = AverageFC(Close,Length);
            Band = StandardDev(Close,Length,2); 
            UpLine = MidLine + Offset * Band;
            DownLine = MidLine - Offset * Band; 
            WIDTH = UpLine-DownLine;
            PlotNumeric("WIDTH",WIDTH);
        }
    }