開拓者兩個波峰和波谷的程序源碼 [開拓者 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 進行 有償 編寫!(不貴!點擊查看價格!)