以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  求高手改寫這TB指标成金字塔指标, 謝谢  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=67412)

--  作者:annbi
--  发布时间:2014/7/15 15:33:12
--  求高手改寫這TB指标成金字塔指标, 謝谢

Params
        Numeric SF(5);                        
        Numeric RSI_Period(14);        
        Numeric rat(4.236);
Vars
        NumericSeries TrLevelSlow(0);        
        NumericSeries AtrRsi(0);        
        NumericSeries MaAtrRsi(0);        
        NumericSeries Rsi(0);
        NumericSeries RsiMa(0);
        Numeric Wilders_Period(0);        
        Numeric dar(0);        
        NumericSeries  smin(0);
    NumericSeries  smax(0);
        NumericSeries p;
        
Begin
        Wilders_Period=RSI_Period * 2 - 1;
        If(BarStatus==0)
        {
                 TrLevelSlow=0;
         AtrRsi=0;
         MaAtrRsi=0;
         Rsi=0;
         RsiMa=0;
                 p=0;
        }
        if(CurrentBar>RSI_Period)
        {
                Rsi=iRSI(Close,RSI_Period);
                RsiMa=XAverage(Rsi,SF);
                AtrRsi=Abs(RsiMa[1] - RsiMa);
                MaAtrRsi=XAverage(AtrRsi,Wilders_Period);
                dar=XAverage(MaAtrRsi,Wilders_Period) * rat;        
                smax=RsiMa+dar;
                smin=RsiMa-dar;

                p=p[1];

                if (RsiMa>smax[1]) {p=1; }         
                if (RsiMa<smin[1]) {p=-1;} 

                if(p>0)
          {
                if(smin<smin[1]) 
                        smin=smin[1];
                TrLevelSlow=smin; 
                if(TrLevelSlow<TrLevelSlow[1])
                        TrLevelSlow=TrLevelSlow[1];
          } 
          Else
          {
                if(smax>smax[1]) 
                        smax=smax[1];
                TrLevelSlow=smax; 
                if(TrLevelSlow>TrLevelSlow[1])
                        TrLevelSlow=TrLevelSlow[1];
          }
                PlotNumeric("RsiMa",RsiMa);
                PlotNumeric("TrLevelSlow",TrLevelSlow);
        }

End
--  作者:jinzhe
--  发布时间:2014/7/15 15:40:15
--  
注释一下,说明一下是干什么用的,思路是什么
--  作者:annbi
--  发布时间:2014/7/15 16:46:05
--  
是rsi変種, 是老外常用的指标被人改了TB版, 我不懂太多, 只知這TB版已是简化了很多了


思路可看(非TB版)http://www.cxh99.com/2012/05/15/848.shtml, 那人寫到一半而已(以上TB版是完整一個指标)

--  作者:jinzhe
--  发布时间:2014/7/15 16:54:05
--  
这个用户解释不了代码,我们也无能为力
--  作者:annbi
--  发布时间:2014/7/15 16:58:14
--  
也可參考老外原裝说明
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:qqe.doc

[此贴子已经被作者于2014/7/15 17:00:05编辑过]

--  作者:jinzhe
--  发布时间:2014/7/15 17:03:40
--  
请用户找人翻译下
--  作者:annbi
--  发布时间:2014/7/15 17:25:03
--  
遲些上傳
--  作者:annbi
--  发布时间:2014/7/15 23:32:31
--  
http://www.cxh99.com/2012/05/15/848.shtml  其實裡面已寫得很清楚了又中文化了, 求高手完成他未能完成的部份, 便可利益大家, 谢谢
--  作者:jinzhe
--  发布时间:2014/7/16 9:18:26
--  
如果你实在是想要代码但又不会自己总结翻译的话,我们也没办法帮你
--  作者:RogarZ
--  发布时间:2014/7/16 13:30:36
--  
你的TB代码 缺少用户函数 IRSI  无法转译