內(nèi)建函數(shù)NthExtremes拷貝到自定義函數(shù)中后再編譯有警示
作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2016年05月10日
- 咨詢內(nèi)容：
本帖最后由 china_lizhi 于 2016-3-9 13:05 編輯
把內(nèi)建函數(shù)NthExtremes中的源代碼原封不動地拷貝到了自定義函數(shù)中了，然后編譯對如下兩行代碼有如下的警示：
NthMaxValue = Extremes(Price, Length, True, nMaxBar);
NthMinValue = Extremes(Price, Length, False, nMinBar);
這兩行提示：FOR、WHILE、IF、ELSE中包含序列函數(shù)，可能存在潛在的邏輯錯誤。
- TB技術(shù)人員：
懇請?zhí)峁┖瘮?shù)NthExtremes中的代碼的詳細(xì)注解，以幫助TB初學(xué)者入門。謝謝
懇請客服對于以下代碼給予詳細(xì)的注釋，以便于初學(xué)者入門
- TB客服：
本帖最后由 china_lizhi 于 2016-3-9 13:06 編輯
//------------------------------------------------------------------------
// 簡稱: NthExtremes
// 名稱: 求N極值
// 類別: 用戶函數(shù)
// 類型: 內(nèi)建函數(shù)
// 輸出: 數(shù)值型
//------------------------------------------------------------------------
Params
NumericSeries Price(1);
Numeric Length(10);
Numeric N(5);
Bool bMax(True);
NumericRef NthExtremeBar;
Vars
Numeric nMaxBar;
Numeric NthMaxValue;
Numeric nMinBar;
Numeric NthMinValue;
Numeric TmpValue;
Numeric NthReturnValue;
Numeric nBetterCnt;
Numeric nEqualCnt;
Numeric nEqualIndex;
Numeric i;
Numeric j;
Numeric k;
Begin
if (Length > 0 && N>0 && N <= Length)
{
NthMaxValue = Extremes(Price, Length, True, nMaxBar);
NthMinValue = Extremes(Price, Length, False, nMinBar);
If(bMax)
{
For i = 2 To N
{
TmpValue = NthMinValue - 1;
nBetterCnt = 0;
nEqualCnt = 0;
For j = 0 To Length - 1
{
If ( Price[j] > NthMaxValue)
{
nBetterCnt = nBetterCnt + 1;
}else If ( Price[j] < NthMaxValue)
{
if (Price[j] > TmpValue)
{
TmpValue = Price[j] ;
nMaxBar = j;
}
}Else
{
nEqualCnt = nEqualCnt + 1;
}
}
if (nBetterCnt + nEqualCnt >= i)
{
nEqualIndex = 0;
for k = 0 To Length - 1
{
if (Price[k] == NthMaxValue)
{
nEqualIndex = nEqualIndex + 1;
if (nEqualIndex == (i - nBetterCnt))
{
nMaxBar = k;
}
}
}
}else
{
NthMaxValue = TmpValue;
}
}
NthExtremeBar = nMaxBar;
NthReturnValue = NthMaxValue;
}Else
{
For i = 2 To N
{
TmpValue = NthMaxValue + 1;
nBetterCnt = 0;
nEqualCnt = 0;
For j = 0 To Length - 1
{
If ( Price[j] < NthMinValue)
{
nBetterCnt = nBetterCnt + 1;
}else If ( Price[j] > NthMinValue)
{
if (Price[j] < TmpValue)
{
TmpValue = Price[j] ;
nMinBar = j;
}
}Else
{
nEqualCnt = nEqualCnt + 1;
}
}
if (nBetterCnt + nEqualCnt >= i)
{
nEqualIndex = 0;
for k = 0 To Length - 1
{
if (Price[k] == NthMinValue)
{
nEqualIndex = nEqualIndex + 1;
if (nEqualIndex == (i - nBetterCnt))
{
nMinBar = k;
}
}
}
}else
{
NthMinValue = TmpValue;
}
}
NthExtremeBar = nMinBar;
NthReturnValue = NthMinValue;
}
}Else
{
NthReturnValue = -1;
NthExtremeBar = -1;
}
Return NthReturnValue;
End
//------------------------------------------------------------------------
// 編譯版本 GS2010.12.08
// 版權(quán)所有 TradeBlazer Software 2003－2010
// 更改聲明 TradeBlazer Software保留對TradeBlazer平
// 臺每一版本的TradeBlazer公式修改和重寫的權(quán)利
//------------------------------------------------------------------------
打印本文
關(guān)閉窗口