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

fish0451

tsj6 可喜可贺，研究一下！tsj6

bigbear2046

版主 做固定文件的限制，随着不同函数对于读写要求的增加，会造成同块名的误用吧

lilei19733

通过文件方式交换不同图表的数据，真是太棒了。
但诚如天行健讲的，请照顾水平一般的同学，多举几个例子，让大家好理解。
先谢谢NO PAIN 老师。

朴素

自己照葫芦画瓢写了一个60分钟调用10日线atr值。
//------------------------------------------------------------------------
// 简称: dayatr
// 名称: dayatr
// 类别: 用户函数
// 类型: 内建函数
// 输出: 数值型
//------------------------------------------------------------------------
Params
        Numeric length(10);
Vars
        Numeric atr;
        string strkey;
        string strValue;
Begin
        atr= AverageFC(TrueRange,Length);;
        strKey = DateToString(Date);
        strValue = Text(atr);
        SetTBProfileString("Dayatr",strKey,strValue);
        Return atr;
End
//------------------------------------------------------------------------
// 简称: My60MinAtr
// 名称: 60分钟取日线ATR
// 类别: 技术指标
// 类型: 其它类
// 输出:
//------------------------------------------------------------------------
Params
        NumericSeries Currentmaxdate(20090201);
Vars
        NumericSeries dayatrValue;
        StringSeries strKey;
        string strValue;
Begin
        If(Date!=Date[1] and date>Currentmaxdate)
        {
                strKey = DateToString(Date[1]);        
        }Else
        {
                strKey = strKey[1];
        }
        
        strValue = GetTBProfileString("Dayatr",strKey);
        If(strValue != InvalidString)
        {
                dayatrValue = Value(strValue);
        }Else
        {
                dayatrValue = dayatrValue[1];
        }
       PlotNumeric("Dayatr",DayMAValue);
End
1）输出不对，请老师看看那里有问题？谢谢
2）如果自动交易断线后，再连网，自动交易如果不用手工补有别的办法吗？

孤舟骑浪

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

复制代码

朴素

用户函数不能关联图表。
不能在用户函数调用，只能在技术指标和交易指令

人生如梦

我想在1分钟的图中调用5分钟的指标，这样的指标该怎样写呢？

滴水成川

经测试发现，如果有多个公式都要使用这一功能，要使用不同的strSection，否则数据会混淆。
建议可以让用户自定文件名，既可解决文件增长太快的问题，又增加了用户的灵活性，并可方便地解决数据混淆的问题。

人生如梦

如何在1分钟图调用5分钟的指标呢


我想在1分钟的图中调用5分钟的指标，这样的指标该怎样写呢？

jvya

支持一下
用这个函数，可以做出代码：根据前几次的成功率或赢利率随情况改变开仓资金比例。
以前只能近似实现此想法，并且很麻烦。