请高手们把文华的转换为TB

yk1234

出现三根高低点依次上移的K线，（期间没有出现过三根高低点依次下移的K线），那么在这三根K线高点处画连线并且只要出现更高的最高价就一直在最高点连线。直到出现三根高低点依次下移的K线，就在这三根K线低点处画连线并且只要出现更低的最低价就一直在最低点画连线，直到出现三根高低点依次上移的K线，反复。

     轮回编写的程序
A:=VALUEWHEN(LOW>REF(LOW,1)&&REF(LOW,1)>REF(LOW,2)&&HIGH>REF(HIGH,1)&&REF(HIGH,1)>REF(HIGH,2),HIGH);
B:=VALUEWHEN(LOW<REF(LOW,1)&&REF(LOW,1)<REF(LOW,2)&&HIGH<REF(HIGH,1)&&REF(HIGH,1)<REF(HIGH,2),LOW);
C:=VALUEWHEN(A<>REF(A,1)||B<>REF(B,1),IF(A<>REF(A,1),1,-1));
D:=IF(C=1&&HIGH>REF(A,1),HIGH,REF(A,1));
E:=IF(C=-1&&LOW<REF(B,1),LOW,REF(B,1));
F:=VALUEWHEN(D<>REF(D,1)||E<>REF(E,1),IF(D<>REF(D,1),D,E));
POLYLINE(F<>REF(F,1),F,COLORRED);

saji

自己动手，丰衣足食。。。。

yk1234

//------------------------------------------------------------------------
// 简称: ykGD
// 名称: 高低线
// 类别: 技术指标
// 类型: 其它类
// 输出:
//------------------------------------------------------------------------
Vars
      
     NumericSeries  AA;
  NumericSeries  BB;
  NumericSeries  CC;
  NumericSeries  DD;
     NumericSeries  EE;
  NumericSeries  FF;         
Begin
    If(Low>=Low[1]&&low[1]>Low[2]&&High>=High[1]&&High[1]>=High[2])
    {
         AA=High;
  }Else
    {   
         AA=AA[1];
     }
  
If(Low<Low[1]&&low[1]<Low[2]&&High<High[1]&&High[1]<High[2])
    {
         BB=Low;
     }Else
       {
      BB=BB[1];
     }
    If( AA<>AA[1]||BB<>BB[1])
     {
      If(AA<>AA[1])
    {
             CC==1;
    }Else
    {      
       CC==-1;
    }
  }Else
    {
         If(AA<>AA[1])
    {
       CC=CC[1];
    }
  }     
If(CC==1&&High>=AA[1])
  {
      DD=High;
  }Else
  {
      DD=AA[1];
  }
If(CC==-1&&Low<BB[1])
  {
   EE=Low;
  }Else
  {
      EE=AA[1];
  }
If(DD<>DD[1]||EE<>EE[1])
     {
      If(DD<>DD[1])
    {
         FF=DD;
    }Else
    {
         FF=EE;
    }
   }Else
  {
         If(DD<>DD[1])
    {
         FF=DD[1];
    }Else
    {
         FF=EE[1];
    }
  }   
PlotNumeric("GD",FF);
   
End



//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2007/11/17 11:20
// 版权所有 yk1234
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
//   每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

结果如附图111.RAR

而轮回编写的如图2007827183252761.rar

我的理解错在哪里,请大师们指点

轮回

SAJI说得好,"自己动手，丰衣足食。。。。"
我这段时间太忙了,给简单改了一下,实际上应该用不了这么多序列变量的.只是为了简单对应,所以浪费了资源.
//------------------------------------------------------------------------
// 简称: h3l3
// 名称: 3高3低
// 类别: 技术指标
// 类型: 振荡类
// 输出:
//------------------------------------------------------------------------
Vars
NumericSeries A0;
NumericSeries B0;
NumericSeries C0;
NumericSeries D0;
NumericSeries E0;
NumericSeries F0;

Begin
A0=VALUEWHEN(LOW>LOW[1]&&LOW[1]>LOW[2]&&HIGH>HIGH[1]&&HIGH[1]>HIGH[2],HIGH);
B0=VALUEWHEN(LOW<LOW[1]&&LOW[1]<LOW[2]&&HIGH<HIGH[1]&&HIGH[1]<HIGH[2],LOW);
C0=VALUEWHEN(A0<>A0[1]||B0<>B0[1],IIF(A0<>A0[1],1,-1));
D0=IIF(C0==1&&HIGH>A0[1],HIGH,A0[1]);
E0=IIF(C0==-1&&LOW<B0[1],LOW,B0[1]);
F0=VALUEWHEN(D0<>D0[1]||E0<>E0[1],IIF(D0<>D0[1],D0,E0));
IF(F0<>F0[1])
PlotNumeric("F0",F0);

END
//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2007/11/18 23:05
// 版权所有        lunhui
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

yk1234

A0=VALUEWHEN(LOW>LOW[1]&&LOW[1]>LOW[2]&&HIGH>HIGH[1]&&HIGH[1]>HIGH[2],HIGH);

当条件不成立时,返回上一值是HIGH[1]?

yk1234

如何编写当前的BAR不满足条件时,返回上一个值的函数.

nopain

举个实际的例子，才好帮您编写代码

caiwanhong

我去  这也能行  晕~~~~

蔡宛宏

SAJI说得好,"自己动手，丰衣足食。。。。"
我这段时间太忙了,给简单改了一下,实际上应该用不了这么多序列变 ...
轮回 发表于 2007-11-19 00:04

靠  这个代码不对吧