Extremes 解讀求極值函數(shù)，測(cè)試能否玩TB

作者：開(kāi)拓者 TB 來(lái)源：cxh99.com 發(fā)布時(shí)間：2016年05月31日

咨詢(xún)內(nèi)容： 有朋友問(wèn)如何學(xué)好TB？我說(shuō)要讀懂公式指南，然后靠聯(lián)機(jī)幫助，然后看編程能力和邏輯思維的天賦，然后...
我給個(gè)系統(tǒng)函數(shù)，讓她讀，懂了，再問(wèn)說(shuō)不出所以然來(lái)。
后來(lái)我一一作了注釋?zhuān)偹阕x懂了，呵呵

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