TradeBlazer公式集锦 [复制链接]

cqzzbszz

中级散户

Rank: 3 Rank: 3

精华: 1
UID: 1634
积分: 159
帖子: 28
主题: 2
阅读权限: 40
注册时间: 2008-5-20
最后登录: 2019-3-30

21^#

发表于 2008-6-7 12:51:29 |只看该作者

//------------------------------------------------------------------------
// 简称: BTX
// 名称: 宝塔线
// 类别: 技术指标
// 类型: 其它类
// 输出:
//------------------------------------------------------------------------
Params
Numeric N(5);

Vars
NumericSeries A;
NumericSeries B;
NumericSeries AA;

Begin
if(CurrentBar==0)
{
A=Open;
B=Close;
if(A<B)
   {
         PlotNumeric("High",B);
         PlotNumeric("Low",A);
         PlotNumeric("Close",B);
         PlotNumeric("Open",A);
   }
Else
   {
         PlotNumeric("High",A);
         PlotNumeric("Low",B);
         PlotNumeric("Close",B);
         PlotNumeric("Open",A);
   }

}
Else
      if(A[1]<=B[1]&&Close>=B[1])
         {
      A=B[1];
      B=Close;
           PlotNumeric("High",B);
            PlotNumeric("Low",A);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
         }
      Else if(A[1]<=B[1]&&Close>=A[1])
         {
      A=Close;
      B=B[1];
           PlotNumeric("High",B);
            PlotNumeric("Low",A);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
         }
      Else if(A[1]<=B[1]&&Close<A[1])
         {
      A=B[1];
      B=Close;
           PlotNumeric("High",B);
            PlotNumeric("Low",A);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
            PlotString("卖",Text(Close));
         }
Else
   if(A[1]>B[1]&&Close<=B[1])
         {
      A=B[1];
      B=Close;
           PlotNumeric("High",A);
            PlotNumeric("Low",B);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
         }
   Else
   if(A[1]>B[1]&&Close<=A[1])
         {
      A=Close;
      B=B[1];
           PlotNumeric("High",A);
            PlotNumeric("Low",B);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
         }
   Else
   if(A[1]>B[1]&&Close>A[1])
         {
      A=B[1];
      B=Close;
           PlotNumeric("High",B);
            PlotNumeric("Low",A);
            PlotNumeric("Close",B);
            PlotNumeric("Open",A);
            PlotString("买",Text(Close));
         }
End

//宝塔线的文字化描述：

//1、初始化。第一根宝塔线，以昨收盘为“今开端”，以今收盘为“今末端”，（除上市首日外，均忽略当天的开盘价）。今末端比今开端高，画红方框，反之为绿方框。新品种上市首日，没有昨收盘，以首日开盘价为今开端。

//2、昨为红方框，以其上端为今开端，今收盘比昨红方框上端更高，则画上升的新红方框。

//3、昨为红方框，今收盘低于昨红方框的上端，但又高于昨红方框的下端，今仍是红方框，画今上端与昨上端平齐的红方框。只要今收盘不低于昨红方框的下端，均画成与昨上端平齐的红方框。

//4、昨为红方框，今收盘低于昨红方框之下端，今为红翻绿的变色方框，变色于昨红方框之下端的位置。今上半截红方框的上端与昨红方框的上端平齐，今上半截红方框的下端与昨红方框之下端平齐，今下半截绿方框的上端与今上半截红方框的下端在同一位置，今收盘为今下半截绿方框的下端。

//5、昨为绿方框，以其下端为今开端，今收盘比昨绿方框下端更低，则画下垂的新绿方框。今收盘于昨绿方框的下端与昨绿方框的上端之间，今仍是绿方框，画今下端与昨下端平齐的绿方框。只要今收盘不高于昨绿方框的上端，均画成与昨下端平齐的绿方框。

//6、今收盘在昨绿方框的上端之上，今为绿翻红的双色方框，变色于昨绿方框之上端的位置。

//7/、今收盘为昨红方框上端或昨绿方框下端同一位置时，画一无色平齐横线。

//8、加设一条可调参数的移动平均线。

//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2008/06/06 18:30
// 版权所有 cqzzbszz
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

使用道具举报