首先如圖1所示,在PowerEditor中,按下新增的按鈕,然後新增一個Function. 再來如圖2的畫面中填入函式的名稱、說明後按下OK,則可在圖3中開始編寫程式,其原始碼如文末所列。寫完後按下F3做完Verify後,即可在函式列表 中找到新增的_StdDev的函式。
圖1. 建立一個新函式
圖2. 填入函式的屬性
圖3.函式原始碼
原始碼:
{
Price : 價格數列.
MAValue : 平均值.
Length : 計算週期.
}
Inputs: Price(NumericSeries), MAValue(NumericSimple), Length(NumericSimple);
Variables: SumSqr(0), Counter(0);
If Length <> 0 Then Begin
SumSqr = 0;
For Counter = 0 To Length - 1 Begin
SumSqr = SumSqr + (Price[Counter] - MAValue) * (Price[Counter] - MAValue);
End;
_StdDev = SquareRoot(SumSqr / Length);
End
Else
_StdDev = 0;
沒有留言:
張貼留言