開拓者1分鐘圖里面取道5分鐘的數(shù)據(jù)的均線源碼

作者：開拓者 TB 來源：cxh99.com 發(fā)布時間：2012年11月15日

內(nèi)容： 使用環(huán)境：
基本數(shù)據(jù)源為1分鐘，通過DataConvert可以轉(zhuǎn)化為對應(yīng)的5分鐘數(shù)據(jù)，有些朋友希望能夠在1分鐘圖里面取道5分鐘的數(shù)據(jù)的均線，效果要和單獨使用5分鐘的均線一樣。為此，提供以下函數(shù)。

1、新建一個用戶函數(shù)，TransMinsData，返回值為數(shù)值型。
參數(shù)1：要計算的數(shù)據(jù)源。
參數(shù)2：想按N分鐘來處理，本例是5分鐘，不能大于60。
參數(shù)3：希望取多少個N分鐘前的數(shù)據(jù)。
1. Params
2. NumericSeries Price(1);
3. Numeric nMinSet(5);
4. Numeric MinsAgo(2);
5. Vars
6. NumericSeries barCnt;
7. NumericSeries MinData;
8. Numeric i;
9. Numeric j;
10. Numeric nIndex(0);
11. Begin
12. If(IntPart(Minute%nMinSet)==0)
13. {
14. barCnt = 1;
15. }Else
16. {
17. barCnt = barCnt[1] + 1;
18. }
19. MinData = Price;
21. If(MinsAgo == 0)
22. {
23. return MinData;
24. }Else
25. {
26. For i = 1 To MinsAgo
27. {
28. If( i == 1)
29. {
30. j = 0;
31. }Else
32. {
33. j = j + BarCnt[j];
34. }
35. If (j > CurrentBar ) Return InvalidNumeric;
36. nIndex = nIndex + BarCnt[j];
37. }
38. Return MinData[nIndex];
39. }
40. End

開拓者1分鐘圖里面取道5分鐘的數(shù)據(jù)的均線 源碼