Extremes 解讀求極值函數，測試能否玩TB

作者：開拓者 TB 來源：cxh99.com 發布時間：2016年05月31日

咨詢內容： 有朋友問如何學好TB？我說要讀懂公式指南，然后靠聯機幫助，然后看編程能力和邏輯思維的天賦，然后...
我給個系統函數，讓她讀，懂了，再問說不出所以然來。
后來我一一作了注釋，總算讀懂了，呵呵

試試看，如果能完全讀懂，就可以學TB了。
讀懂的，請回復...
1. //------------------------------------------------------------------------
2. // 簡稱: Extremes
3. // 名稱: 求極值
4. // 類別: 用戶函數
5. // 類型: 內建函數
6. // 輸出: 數值型（返回極值和引用型極值位置）
7. //------------------------------------------------------------------------
9. Params
10. NumericSeries Price(1); //序列傳遞參數，如Close；如果不指定參數，那Price的初始值均為1（實在沒有意義）
11. Numeric Length(10); //指定搜索的范圍（即搜索多少個Bar，缺省10個）
12. Bool bMax(True); //指定搜索極大值（缺省True）或極小值（False）
13. NumericRef ExtremeBar; //數值型引用變量，用于返回搜索范圍內的極值Bar位置；而極值以函數返回（見Return MyVal;）
14. Vars
15. NumericSeries MyVal; //保存極值的序列
16. NumericSeries MyBar; //保存極值所在Bar的序列
17. Numeric i; //搜索變量
18. Begin
19. MyVal = Price; //每個新Bar的價格均要賦值給極值序列，但在計算后該值將被更新為新的極值
20. MyBar = 0; //假定新Bar是極值，但在計算后該值將被更新為新的極值Bar
22. // 在頭（Length-1）Bar內要全部搜索一邊；或者極值在搜索邊界上（==Length-1），下一個Bar后極值被擠出搜索范圍，這時要重新搜索出新的極值；
23. If ( CurrentBar <= Length - 1 || MyBar[1] == Length - 1)
24. {
25. for i = 1 to Length - 1 //搜索一邊指定范圍，如10，則要向后搜Bar1到Bar9；i=1是因為Bar0（myVal）沒有必要與自己比較
26. {
27. If (bMax ) //找新的最大值
28. {
29. If ( Price[i] > MyVal) //找到比當前最大值更大的價格
30. {
31. MyVal = Price[i]; //更新最大值
32. MyBar = i; //同時更新最大值的位置
33. }
34. }Else //找最小值的情況類似
35. {
36. If ( Price[i] < MyVal)
37. {
38. MyVal = Price[i];
39. MyBar = i;
40. }
41. }
42. }
43. }
44. Else // 當前Bar頭（Length-1）之后，并且極值在搜索邊界內（< Length-1）,則僅進行當前價與極值進行比較
45. {
46. If ( bMax ) //搜索最大值
47. {
48. If ( Price >= MyVal[1]) //當前價不小于原最大價，找到新的最大價；注意用了>=而不是==
49. {
50. MyVal = Price; //當前價是新的最大值
51. MyBar = 0; //CurrentBar為0
52. }Else
53. {
54. MyVal = MyVal[1]; //最新價小于原最大值，因此保持原最大值
55. MyBar = MyBar[1] + 1; //最大值的位置遠離了1位
56. }
57. }Else //最小值情況類似
58. {
59. If ( Price <= MyVal[1])
60. {
61. MyVal = Price;
62. MyBar = 0;
63. }Else
64. {
65. MyVal = MyVal[1];
66. MyBar = MyBar[1] + 1;
67. }
68. }
69. }
70. ExtremeBar = MyBar; //將極值傳遞給數值型引用變量，用于返回極值的位置
71. Return MyVal; //函數返回要求搜索的極值
72. End
74. //------------------------------------------------------------------------
75. // 編譯版本 GS2010.12.08
76. // 用戶版本 2012/05/11 21:47
77. // 版權所有 guqf
78. // 更改聲明 TradeBlazer Software保留對TradeBlazer平臺
79. // 每一版本的TrabeBlazer公式修改和重寫的權利
80. //------------------------------------------------------------------------
TB技術人員： 求注解函數NthCon，謝謝！
TB客服： 同求注解函數NthCon，謝謝！
網友回復： 老革命遇到新問題
MaxValDn= Extremes(Close,nLength,true, MaxBarDn); Commentary("MaxBarDn "+Text(MaxBarDn));
MinValDn= Extremes(Close,MaxBarDn,False,MinBarDn); Commentary("MinBarDn "+Text(MinBarDn));
nLength是30，第一句是求30個Bar內的最高價和對應的位置MaxBarDn，顯示結果是14，檢查K線圖形正確。
但問題出現在第二句，原意是求出現最高價位之內的最低價位置，結果MinBarDn超出了14，不可思議！
但是將第二句改成：MinValDn= Extremes(Close,14,False,MinBarDn); Commentary("MinBarDn "+Text(MinBarDn));
計算出的MinBarDn為0，正確！是在最低位。
為什么用MaxBarDn作為檢索變量就會出錯，請管理員幫助檢查原因，謝謝！

Extremes 解讀求極值函數，測試能否玩TB

Extremes 解讀求極值函數，測試能否玩TB