如何在15分钟周期取前1小时的收盘价?

bjcifco

我想在15分钟图上取到前一小时K线的收盘价

比如现在是10点33分，我想取到在一小时图上前一根K线的收盘价，也就是9点59分59秒那时候的价格

帮忙实现一下好不？

nopain

同其他跨周期的一样，先需要建立一个用户函数，TransMinsData
代码如下：

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((Hour*60+Minute)%nMinSet)==0)
    
13.         {
    
14.                 barCnt = 1;
    
15.         }Else
    
16.         {
    
17.                 barCnt = barCnt[1] + 1;
    
18.         }
    
19.         MinData = Price;
    
20.                
    
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

复制代码

nopain

再建一个指标，假设命名为preHourClose

1. Vars
   
2.         Numeric preHC;
   
3. Begin
   
4.         preHC = TransMinsData(Close,60,1);
   
5.         PlotNumeric("PHC",preHC);
   
6. End

复制代码

bjcifco

老大 辛苦您了！

bjcifco

中午11点到11点半半小时 但是在一小时图上是一根K线  还有1点30到2点也是有2根15分钟线  也算1根一小时线


比如现在是13点45分，那么此时我想取到的1小时图上上一根K线的收盘价 实际上是11点30分的收盘价，但是这个时候输出的
Vars
        Numeric preHC;
Begin
        preHC = TransMinsData(Close,60,1);
        PlotNumeric("PHC",preHC);
End

就不对了，老大 再次劳驾 ：）

nopain

把函数改一下：

1. Params
   
2.         NumericSeries Price(1);
   
3.         Numeric nMinSet(5);
   
4.         Numeric MinsAgo(2);
   
5. Vars
   
6.         NumericSeries MinsOfDay;
   
7.         NumericSeries barCnt;
   
8.         NumericSeries MinData;
   
9.         Numeric i;
   
10.         Numeric j;
    
11.         Numeric nIndex(0);
    
12. Begin
    
13.         MinsOfDay = (Hour*60+Minute);               
    
14.         If(IntPart(MinsOfDay/nMinSet)!=IntPart(MinsOfDay[1]/nMinSet))
    
15.         {
    
16.                 barCnt = 1;
    
17.         }Else
    
18.         {
    
19.                 barCnt = barCnt[1] + 1;
    
20.         }
    
21.         MinData = Price;
    
22.                
    
23.         If(MinsAgo == 0)
    
24.         {
    
25.                 return MinData;
    
26.         }Else
    
27.         {
    
28.                 For i = 1 To MinsAgo
    
29.                 {
    
30.                         If( i == 1)
    
31.                         {      
    
32.                                 j = 0;
    
33.                         }Else
    
34.                         {
    
35.                                 j = j + BarCnt[j];                              
    
36.                         }
    
37.                         If (j > CurrentBar ) Return InvalidNumeric;
    
38.                         nIndex = nIndex + BarCnt[j];
    
39.                 }
    
40.                 Return MinData[nIndex];
    
41.         }
    
42. End

复制代码

bjcifco

对了 对了

[ 本帖最后由 bjcifco 于 2009-3-17 16:05 编辑 ]

bjcifco

对了 ！！ 我的错！！！

bjcifco

老大 我事情有点多 您别嫌我烦啊，再次请教：

我要在15分钟图上取到1小时图上当前一小时的开盘价怎么弄？

比如9点37分时候我要在15分钟图上取到9点开盘的价格，  13点38分时候我要取到13点半开盘的价格

:handshake :handshake

nopain

求最后一个值和第一个值算法又不一样了
TransMinsData_Open

1. Params
   
2.         NumericSeries Price(1);
   
3.         Numeric nMinSet(5);
   
4.         Numeric MinsAgo(2);
   
5. Vars
   
6.         NumericSeries MinsOfDay;
   
7.         NumericSeries barCnt;
   
8.         NumericSeries MinData;
   
9.         Numeric i;
   
10.         Numeric j;
    
11.         Numeric nIndex(0);
    
12. Begin
    
13.         MinsOfDay = (Hour*60+Minute);               
    
14.         If(IntPart(MinsOfDay/nMinSet)!=IntPart(MinsOfDay[1]/nMinSet))
    
15.         {
    
16.                 barCnt = 1;
    
17.                 MinData = Price;
    
18.         }Else
    
19.         {
    
20.                 barCnt = barCnt[1] + 1;
    
21.                 MinData = MinData [1];
    
22.         }
    
23.                
    
24.         If(MinsAgo == 0)
    
25.         {
    
26.                 return MinData;
    
27.         }Else
    
28.         {
    
29.                 For i = 1 To MinsAgo
    
30.                 {
    
31.                         If( i == 1)
    
32.                         {      
    
33.                                 j = 0;
    
34.                         }Else
    
35.                         {
    
36.                                 j = j + BarCnt[j];                              
    
37.                         }
    
38.                         If (j > CurrentBar ) Return InvalidNumeric;
    
39.                         nIndex = nIndex + BarCnt[j];
    
40.                 }
    
41.                 Return MinData[nIndex];
    
42.         }
    
43. End

复制代码