開拓者兩個波峰和波谷的程序源碼 [開拓者 TB]
- 咨詢內容： 我編了一段求前兩個波峰和波谷的程序（可在交易指令下測試），
但效果還不滿意，希望能得到高手的改進，謝謝！- Params
- Numeric MyMinLength(5);
- // GV10 最近波峰與當前Bar的Bar計數
- // GV11 最近波峰的值
- // GV12 最近波谷與當前Bar的Bar計數
- // GV13 最近波谷的值
- // GV14 前一個波峰與當前Bar的Bar計數
- // GV15 前一個波峰的值
- // GV16 前一個波谷與當前Bar的Bar計數
- // GV17 前一個波谷的值
- Vars
- Numeric MyLength;
- Numeric MyHighBar;
- Numeric MyHigh;
- Numeric MyLow;
- Numeric MyLowBar;
- Begin
- If (BarStatus==0)
- { SetGlobalVar(10,0); SetGlobalVar(11,High); //最近波峰Bar，High
- SetGlobalVar(12,0); SetGlobalVar(13,Low); //最近波谷Bar，Low
- SetGlobalVar(14,0); SetGlobalVar(15,High);
- SetGlobalVar(16,0); SetGlobalVar(17,Low);
- }
- MyLength = GetGlobalVar(12)+1;//取上一波谷到當前Bar的個數
- MyLength = IIF(MyLength<=MyMinLength,MyMinLength+1,MyLength);//至少保持最小的波峰距離為5個Bar
- MyHighBar = HighestBar(High,MyLength);
- MyHigh = Highest(High,MyLength);
- If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength or MyHigh>GetGlobalVar(11))
- { If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength)
- { SetGlobalVar(14,GetGlobalVar(10)); //保留前一個波峰
- SetGlobalVar(15,GetGlobalVar(11));
- }
- SetGlobalVar(10,MyHighBar);//從上個低谷開始的最高價所在的Bar序數
- SetGlobalVar(11,MyHigh); //從上個低谷開始的最高價
- } Else SetGlobalVar(10,GetGlobalVar(10)+1);
- MyLength = GetGlobalVar(10)+1;//取上一波峰到當前Bar的個數
- MyLength = IIF(MyLength<MyMinLength,MyMinLength+1,MyLength);
- MyLowBar = LowestBar(Low,MyLength);
- MyLow = Lowest(Low,MyLength);
- If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength or MyLow<GetGlobalVar(13))
- { If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength)
- { SetGlobalVar(16,GetGlobalVar(12)); //保留前一個波谷
- SetGlobalVar(17,GetGlobalVar(13));
- }
- SetGlobalVar(12,MyLowBar);//從上個波峰開始的最低價所在的Bar序數
- SetGlobalVar(13,MyLow);//從上個波峰開始的最低價
- } Else SetGlobalVar(12,GetGlobalVar(12)+1);
- //驗證顯示
- Commentary("CurrBar "+Text(CurrentBar));
- Commentary("HighestNear "+Text(GetGlobalVar(11))+" Bar "+Text(GetGlobalVar(10)));
- Commentary("LowestNear "+Text(GetGlobalVar(13))+" Bar "+Text(GetGlobalVar(12)));
- Commentary("HighestFar "+Text(GetGlobalVar(15))+" Bar "+Text(GetGlobalVar(14)));
- Commentary("LowestFar "+Text(GetGlobalVar(17))+" Bar "+Text(GetGlobalVar(16)));
- End
- TB技術人員： 請教為什么在實時（BarStatus==2）時，最后一個Bar的計算值的不對的，請高手幫助。謝謝！
- TB客服： 最后一個bar的high和low不斷在變化,所以有可能不對的
- 網友回復： 本帖最后由 efrog 于 2010-9-8 20:45 編輯
謝謝，問題就出在這里。增加了BarStatus==1的限制，讓最后一個Bar不參與計算，問題就解決了。
實際上最后Bar的High與Low要參與波峰、波谷的比較，在比較之前還不能直接修正目前的波峰、波谷。
修正的程序如下：- Params
- Numeric MyMinLength(5);
- // GV10 最近波峰與當前Bar的Bar計數
- // GV11 最近波峰的值
- // GV12 最近波谷與當前Bar的Bar計數
- // GV13 最近波谷的值
- // GV14 前一個波峰與當前Bar的Bar計數
- // GV15 前一個波峰的值
- // GV16 前一個波谷與當前Bar的Bar計數
- // GV17 前一個波谷的值
- Vars
- Numeric MyLength;
- Numeric MyHighBar;
- Numeric MyHigh;
- Numeric MyLow;
- Numeric MyLowBar;
- Begin
- If (BarStatus==0)
- { SetGlobalVar(10,0); SetGlobalVar(11,High); //最近波峰Bar，High
- SetGlobalVar(12,0); SetGlobalVar(13,Low); //最近波谷Bar，Low
- SetGlobalVar(14,0); SetGlobalVar(15,High);
- SetGlobalVar(16,0); SetGlobalVar(17,Low);
- }
- If (BarStatus==1)
- { MyLength = GetGlobalVar(12)+1;//取上一波谷到當前Bar的個數
- MyLength = IIF(MyLength<=MyMinLength,MyMinLength+1,MyLength);//至少保持最小的波峰距離為5個Bar
- MyHighBar = HighestBar(High,MyLength);
- MyHigh = Highest(High,MyLength);
- If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength or MyHigh>GetGlobalVar(11))
- { If (GetGlobalVar(10)+1-MyHighBar>=MyMinLength)
- { SetGlobalVar(14,GetGlobalVar(10)); //保留前一個波峰
- SetGlobalVar(15,GetGlobalVar(11));
- }
- SetGlobalVar(10,MyHighBar+1);//從上個低谷開始的最高價所在的Bar序數
- SetGlobalVar(11,MyHigh); //從上個低谷開始的最高價
- } Else SetGlobalVar(10,GetGlobalVar(10)+1);
- MyLength = GetGlobalVar(10)+1;//取上一波峰到當前Bar的個數
- MyLength = IIF(MyLength<MyMinLength,MyMinLength+1,MyLength);
- MyLowBar = LowestBar(Low,MyLength);
- MyLow = Lowest(Low,MyLength);
- If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength or MyLow<GetGlobalVar(13))
- { If (GetGlobalVar(12)+1-MyLowBar>=MyMinLength)
- { SetGlobalVar(16,GetGlobalVar(12)); //保留前一個波谷
- SetGlobalVar(17,GetGlobalVar(13));
- }
- SetGlobalVar(12,MyLowBar+1);//從上個波峰開始的最低價所在的Bar序數
- SetGlobalVar(13,MyLow);//從上個波峰開始的最低價
- } Else SetGlobalVar(12,GetGlobalVar(12)+1);
- }
- //驗證顯示
- Commentary("CurrBar "+Text(CurrentBar));
- Commentary("HighestNear "+Text(GetGlobalVar(11))+" Bar "+Text(GetGlobalVar(10)));
- Commentary("LowestNear "+Text(GetGlobalVar(13))+" Bar "+Text(GetGlobalVar(12)));
- Commentary("HighestFar "+Text(GetGlobalVar(15))+" Bar "+Text(GetGlobalVar(14)));
- Commentary("LowestFar "+Text(GetGlobalVar(17))+" Bar "+Text(GetGlobalVar(16)));
- End
- 網友回復：目前還有二個問題：
（1）HighestFar、LowestFar的Bar計算有問題 - （2）由于使用了Highest和Lowest用戶函數，當最遠的Bar前有更高或更低值時，這兩個函數找到的并不是波峰和波谷。
有思路，想編寫各種指標公式，程序化交易模型，選股公式，預警公式的朋友
可聯系技術人員 QQ: 262069696 進行 有償 編寫！（不貴！點擊查看價格！）
會員登錄/注冊