- 咨詢內容： //------------------------------------------------------------------------
// 簡稱: CloseD
// 名稱: 求N天前的收盤價
// 類別: 用戶函數
// 類型: 內建函數
// 輸出: 數值型
//------------------------------------------------------------------------
Params
Numeric daysAgo(2);
Vars
NumericSeries barCnt;
NumericSeries dayClose;
Numeric i;
Numeric j;
Numeric nIndex(0);
Numeric CBIndex;
Begin
CBIndex = CurrentBar;
If(CBIndex == 0 || Date != Date[1])
{
barCnt = 1;
}Else
{
barCnt = barCnt + 1;
}
dayClose = Close;
If(daysAgo == 0)
{
return dayClose;//程序化交易 www.kzuj.com.cn
}Else
{
For i = 1 To daysAgo
{
If( i == 1)
{
j = 0;
}Else
{
j = j + BarCnt[j];
}
If (j > CBIndex )
Return InvalidNumeric;
nIndex = nIndex + BarCnt[j];
}
Return dayClose[nIndex];
}
End
//------------------------------------------------------------------------
// 編譯版本 GS2010.12.08
// 版權所有 TradeBlazer Software 2003－2010
// 更改聲明 TradeBlazer Software保留對TradeBlazer平
// 臺每一版本的TradeBlazer公式修改和重寫的權利
//------------------------------------------------------------------------
- TB技術人員：
BarCnt記錄的是從當天第一根K線到當前K線的K線數
所以回溯BarCnt就可得到前一天最后一K的收盤價，也就是CloseD(1)
當回溯天數大于1，比如2：
- For i = 1 To daysAgo
- {
- If( i == 1)
- {
- j = 0;
- }Else
- {
- j = j + BarCnt[j];
- }
- If (j > CBIndex )
- Return InvalidNumeric;
- nIndex = nIndex + BarCnt[j];
復制代碼i = 1時,j=0,nIndex = 0 + BarCnt[0] = BarCnt(cxh99.com)，也就是回溯到前一天的最后一K;
i = 2,j = 0 + BarCnt[0] = BarCnt
nIndex = BarCnt+BarCnt[BarCnt]
也就是回溯到前一天的前一天的最后一K；
OK,以此類推。
- TB客服： 謝謝樓上，有一點懂了；
但是還有一點不明白，barCnt是NumericSeries，也就是序列，但是barCnt的每個元素并沒有初始賦值呀，真是奇怪了。
比如：nIndex = BarCnt+BarCnt[BarCnt]；
BarCnt[BarCnt]沒有初始賦值，就使用，不會出錯嗎？
- 網友回復： 比如以下代碼:
Begin
CBIndex = CurrentBar;
If(CBIndex == 0 || Date != Date[1])
{
barCnt = 1;
}Else
{
barCnt = barCnt + 1;
}//www.kzuj.com.cn
如果第一次執行Else里面的代碼，barCnt = barCnt + 1;而barCnt沒有初始值，不會出錯嗎？
- 網友回復： 程序是從圖上第一根K線開始執行的
此時CBIndex == 0成立，barCnt = 1，沒有問題
|
打印本文
關閉窗口