通过文件读写函数实现跨周期数据调用！

孤舟骑浪

1. // 简称: atrs
   
2. // 名称: ATR指标
   
3. // 类别: 技术指标
   
4. // 类型: 其它类
   
5. // 输出:
   
6. //------------------------------------------------------------------------
   
7. Params
   
8.         Numeric length(10);
   
9. Vars
   
10.         Numeric atr;
    
11.         string strkey;
    
12.         string strValue;
    
13. Begin
    
14.         atr= AverageFC(TrueRange,Length);;
    
15.         strKey = DateToString(Date);
    
16.         strValue = Text(atr);
    
17.         SetTBProfileString("Dayatr",strKey,strValue);
    
18.         PlotNumeric("atr",atr);
    
19. End

复制代码

1. // 简称: atrmin
   
2. // 名称: ATR分钟指标
   
3. // 类别: 技术指标
   
4. // 类型: 其它类
   
5. // 输出:
   
6. //------------------------------------------------------------------------
   
7. Params
   
8.         Numeric Currentmaxdate(20090201);
   
9. Vars
   
10.         NumericSeries dayatrValue;
    
11.         StringSeries strKey;
    
12.         string strValue;
    
13. Begin
    
14.         If(Date!=Date[1])
    
15.         {
    
16.                 strKey = DateToString(Date[1]);        
    
17.         }Else
    
18.         {
    
19.                 strKey = strKey[1];
    
20.         }
    
21.         
    
22.         strValue = GetTBProfileString("Dayatr",strKey);
    
23.         If(strValue != InvalidString)
    
24.         {
    
25.                 dayatrValue = Value(strValue);
    
26.         }Else
    
27.         {
    
28.                 dayatrValue = dayatrValue[1];
    
29.         }
    
30. if(date>=Currentmaxdate)
    
31. {
    
32.         PlotNumeric("Dayatr",DayatrValue);
    
33. }
    
34. End

复制代码