通达信底来到二主图公式（鹏腾2009版本）源码

通达信底来到二主图公式（鹏腾2009版本）源码

先前下载的朋友请注意：

A2:=HHV(a1,N);
 A3:=LLV(a1,N);

上两行请改成下二行，给大家带来不便请谅解。

A2:=HHV(h,N);
 A3:=LLV(l,N);
 n设成６０，

 

可根据情况调整。现在下载的为正确，下载上面txt文件，下面那个是错误的。

{底来到２}正确源码如下，不需要下载。望再次谅解，对不起大家

BB:=EVERY(V>REF(V,1),2) AND H/L>1.06 AND V>=REF(HHV(V,N),1)*1.67 AND H/LLV(L,N)<1.25;{可设参数，参数越大信号越少，信号越少越安全}
A1:=MA(C,N);
 A2:=HHV(h,N);
 A3:=LLV(l,N);
 ZGJ:=(A2-A1)/A1;
 ZDJ:=(A1-A3)/A1;
 ZP:=REF(ZGJ,1)<0.1 AND REF(ZDJ,1)<0.1;
 XG:=HIGH=HHV(HIGH,N);
突破:=BB AND ZP AND XG;
 VAR1:=EXPMA(C,N),COLORRED;
上升:IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL)POINTDOT,COLORRED;
下降:IF(VAR1<REF(VAR1,1),VAR1,DRAWNULL)POINTDOT,COLORGREEN;
 DRAWTEXT(突破,C,'-----------------------------------------底来到２');
 

 

 

 {底来到２}

 

BB:=EVERY(V>REF(V,1),2) AND H/L>1.06 AND V>=REF(HHV(V,N),1)*1.67 AND H/LLV(L,N)<1.25;{可设参数，参数越大信号越少，信号越少越安全}
A1:=MA(C,N);
 A2:=HHV(A1,N);
 A3:=LLV(A1,N);
 ZGJ:=(A2-A1)/A1;
 ZDJ:=(A1-A3)/A1;
 ZP:=REF(ZGJ,1)<1.1 AND REF(ZDJ,1)<1.1;
 XG:=HIGH=HHV(HIGH,N);
突破:=BB AND ZP AND XG;
 VAR1:=EXPMA(C,N),COLORRED;
上升:IF(VAR1>REF(VAR1,1),VAR1,DRAWNULL)POINTDOT,COLORRED;
下降:IF(VAR1<REF(VAR1,1),VAR1,DRAWNULL)POINTDOT,COLORGREEN;
 DRAWTEXT(突破,C,'-----------------------------------------底来到２');

78300009.png