開拓者參數聲明的數據類型錯誤
作者：開拓者 TB 來源：cxh99.com 發布時間：2012年09月30日
- 咨詢內容： Params
Numeric TimeFrame(1440);
// 目標時間周期：月線=40320，周線=10080，日線=1440，4小時線=240
// 其他1小時內的周期等于相應的分鐘數，如：1小時=60， 30分鐘=30。。。
// 支持不規則分鐘數，如3分鐘，8分鐘，之類都行
Numeric BarsBack(1);
// 目標時間周期BAR偏移：
// 1--表示將目標時間周期下的前1根K線數據作為與當前Bar對應的目標時間周期下的K線數據
// 0--表示將目標時間周期下的截止到目前為止的數據轉換為與當前BAR對應的目標時間周期下K線數據
NumericRef oCurBar; // 目標時間周期下的Bar索引
NumericRef oOPenHT; // 目標時間周期下的開盤價
NumericRef oHighHT; // 目標時間周期下的最高價
NumericRef oLowHT; // 目標時間周期下的最低價
NumericRef oCloseHT; // 目標時間周期下的收盤價
NumericRef oVolHT; // 目標時間周期下的成交量
NumericRef oOpenIntHT; // 目標時間周期下的持倉量
Vars
NumericSeries barCnt;
NumericSeries CurBar;
NumericSeries barCntSum;
NumericSeries OpenHT;
NumericSeries HighHT;
NumericSeries LowHT;
NumericSeries CloseHT;
NumericSeries VolHT;
NumericSeries OpenIntHT;
Numeric CurTime;
Numeric PreTime;
bool condition(false);
Numeric i;
Begin
If (TimeFrame == 40320) // 月線
{
CurTime = Month;
PreTime = Month[1];
}
Else If (TimeFrame == 10080) // 周線
{
CurTime = IntPart(DateDiff(19700105,Date)/7);
PreTime = IntPart(DateDiff(19700105,Date[1])/7);
}
Else // 其他時間周期
{
CurTime = IntPart((DateDiff(19700105,date)*1440 + Hour*60 + Minute)/TimeFrame);
PreTime = IntPart((DateDiff(19700105,date[1])*1440 + Hour[1]*60 + Minute[1])/TimeFrame);
}
condition = CurTime != PreTime;
If (CurrentBar==0) // 如果是第一根Bar, CurBar=0
{
barCnt = 0;
CurBar = 0;
OpenHT = Open;
HighHT = High;
LowHT = Low;
CloseHT = Close;
VolHT = Vol;
OpenIntHT = OpenInt;
}
Else
{
If(Condition)
// 如果在目標周期下，屬于另一根K線，則CurBar加1
{
barCnt = 1;
CurBar = CurBar[1] + 1;
OpenHT = Open;
HighHT = High;
LowHT = Low;
VolHT = Vol;
}Else
// 如果在目標周期下，屬于同一根K線，則CurBar不變，但最高價和最低價要記錄價格的變化，成交量要累加
{
barCnt = barCnt[1] + 1;
CurBar = CurBar[1];
OpenHT = OpenHT[1];
HighHT = Max(HighHT[1],High);
LowHT = Min(LowHT[1],Low);
VolHT = VolHT[1] + Vol;
}
// 收盤價和持倉量總是取最新值
CloseHT = Close;
OpenIntHT = OpenInt;
}
// 上面的程序，在每根小周期的K線上，記錄了它所屬的大時間周期下的開高低收等值的變化。
// 接下來，要把在大的時間周期級別上，屬于同一根K線的開高低收這些數據，記錄在這一組小周期K線的最后一根上。
barCntSum = barCnt ;
If(BarsBack == 0)
// 如果Bar偏移參數為0，則取每根小周期K線上保留的大時間周期截止到這根小周期K線為止的BAR數據
{
barCntSum = 0 ;
}Else If(BarsBack == 1)
// 如果Bar偏移參數為1，則取大時間周期的上一根K線的BAr數據
{
barCntSum = barCnt ;
}Else
// 如果BAR偏移參數為其他，則取大時間周期的指定偏移后的那根K線的BAR數據
{
For i = 2 To BarsBack
{
barCntSum = barCntSum + barCnt[barCntSum];
}
}
// 最后將相應的K線數據作為引用參數返回
oCurBar = CurBar;
oOpenHT = OpenHT[barCntSum];
oHighHT = HighHT[barCntSum];
oLowHT = LowHT[barCntSum];
oCloseHT = CloseHT[barCntSum];
oVolHT = VolHT[barCntSum];
oOpenIntHT = OpenIntHT[barCntSum];
Return barCnt;
End
- TB技術人員： 回復 1# kspdjm
公式應用中不需要使用NumericRef引用參數類型
打印本文
關閉窗口