新写开拓者 TB 1分钟图形下计算60分钟WR的程序

分析家公式网,提供股票公式,股票软件用户登录 |

用户注册

首页 ┆ 软件中心 ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 软件中心 → 股票公式 → 开拓者公式

软件大小：0 Bytes
推荐星级：
更新时间：2013-03-24 05:24:31
软件类别：国产软件 / 开拓者公式
软件语言：简体中文
授权方式：共享软件
联系方式：暂无联系方式
官方主页： Home Page
点击大图：【一键转帖到论坛】
插件情况：
运行环境：Win2000/WinXP/Win2003/WinVista
相关Tags：TB 新写开拓者 1分钟
0

(0)0%

(0)0%

软件介绍

因为编写的策略需要用到跨周期，最近研究了论坛里面的跨周期内容集中贴里面的内容，编写了这个WR的跨周期程序。可是刚刚接触TB没多久，不知道编写有无纰漏，所以贴出来请大家指正，谢了。

1、首先使用了管理员nopain大虾提供的用户函数TransMinsData

Params
      NumericSeries Price(1);
      Numeric nMinSet(5);
      Numeric MinsAgo(2);
Vars
      NumericSeries barCnt;
      NumericSeries MinData;
      Numeric i;
      Numeric j;
      Numeric nIndex(0);
Begin
      If(IntPart(Minute%nMinSet)==0)
      {
            barCnt = 1;
      }Else
      {
            barCnt = barCnt[1] + 1;
      }
      MinData = Price;

      If(MinsAgo == 0)
      {
            return MinData;
      }Else
      {
            For i = 1 To MinsAgo
            {
                     If( i == 1)
                     {
                              j = 0;
                     }Else
                     {
                              j = j + BarCnt[j];
                     }
                     If (j > CurrentBar ) Return InvalidNumeric;
                     nIndex = nIndex + BarCnt[j];
            }
            Return MinData[nIndex];
      }
End

2、1分钟图形下计算60分钟WR的程序
新建技术指标，命名为My60minsWR，代码如下：

Params
Numeric Length(5);
Vars
Numeric Divisor;
Numeric PRValue;
Numeric HighestValue;
Numeric i;
Numeric LowestValue;
NumericSeries MyHigh;
            NumericSeries MyLow;
NumericSeries MyClose;
Begin
MyHigh = DataConvert(High,"min",60,"High");
            MyLow = DataConvert(Low,"min",60,"Low");
MyClose = DataConvert(Close,"min",60,"Close");
HighestValue = MyHigh;
LowestValue = MyLow;

For i = Length-1 DownTo 0
      {
If(TransMinsData(MyHigh,60,i) > HighestValue)
HighestValue = TransMinsData(MyHigh,60,i);
      }

For i = Length-1 DownTo 0
      {
If(TransMinsData(MyLow,60,i) < LowestValue)
LowestValue = TransMinsData(MyLow,60,i);
      }

Divisor =HighestValue - LowestValue;
If (Divisor <> 0 )
PRValue = (MyClose - HighestValue)/Divisor * 100;
else
PRValue = Divisor;
PlotNumeric("WR",PRValue);

End

地址

此软件暂不提供下载

·上一软件：发一个开拓者 TB简洁的持续在线的交易策略
·下一软件：开拓者 TB策略性能测试与参数优化的具体计算公式

软件评论评论内容只代表网友观点，与本站立场无关！

评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

说明

* 使用方法：点击上面蓝色块，打开新页面按照提示进行

* 本网站提供的各种股票软件，例如大智慧软件，通达信软件，同花顺软件，东方财富通等等，和各种股票公式指标，例如大智慧公式，通达信公式，同花顺公式，文华公式，博易大师公式，股票价格计算公式等等公式指标等，都来源网上公开来源收集

本网提供的公式文件说明：
* alg格式飞狐股票公式，可以用飞狐交易师或者交易师软件导入；
* fnc格式大智慧新一代公式指标，可以用大智慧股票软件使用，少部分可以用分析家股票软件引入使用；
* exp格式大智慧经典版股票公式，仅可以用大智慧经典版股票软件引入使用；
* tni和tnc格式通达信股票公式，仅可以用通达信新引入使用，例如可以用通达信股票软件引入使用；
* tne，tn6格式通达信公式，可以用通达信公式编辑器5.0版导入，推荐通达信金融终端版本；
* hxf格式同花顺股票公式，仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!

* 关于股票公式时间限制,如果在引入大智慧公式，交易师公式或者飞狐公式的时候，发现公式名称栏是空白的，这时候调整电脑时间到1997年，又能出现公式名称，并且能正常显示，可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式，通达信公式，同花顺公式,操盘手公式,飞狐公式，博易大师公式，金字塔公式，文华公式和交易师公式等等公式的密码，本网可帮恢复源码，有.偿.服.务无意勿扰，点击在线咨询联系我。

* 关于股票公式源码编辑
本网提供的源码，一般都可以编辑成公式，如果不明白公式的编辑，在本页右侧教程录像可参考，或者找公式教程资料学习，请搜索：教程

* 如果您发现软件内容或者链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含源码均是由网上搜集，若侵犯了你的版权利益，请联系通知我们!

~

本类热门

如何导入公式

软件介绍

地址

软件评论评论内容只代表网友观点，与本站立场无关！

说明

~

栏目导航

本类热门

相关软件

如何导入公式