通达信底来到贰（鹏腾2009优化版）主图/选股指标

以下是通达信底来到贰（鹏腾2009优化版）主图/选股指标

{主图}
 {N 0 1000 60}
 {N1 0 1 0.25}
 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.3;
 A1:=MA(C,N);
 A2:=HHV(H,N);
 A3:=LLV(L,N);
 ZGJ:=(A2-A1)/A1;
 ZDJ:=(A1-A3)/A1;
 ZP:=REF(ZGJ,1)<N1 AND REF(ZDJ,1)<N1;
 tj:=H=HHV(H,N);
突破:=BB AND ZP AND tj;
 TJ:=BARSLAST(突破);
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,'-----------------------------------------')COLORRED;
 DRAWTEXT(突破,H,'底来到2')COLORYELLOW;
 DRAWICON(CROSS(C,REF(H*1.05,TJ)) AND TJ<N,LOW,9);

 {选股公式}
 {N 0 1000 60}
 {N1 0 1 0.25}
 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.3;
 A1:=MA(C,N);
 A2:=HHV(H,N);
 A3:=LLV(L,N);
 ZGJ:=(A2-A1)/A1;
 ZDJ:=(A1-A3)/A1;
 ZP:=REF(ZGJ,1)<N1 AND REF(ZDJ,1)<N1;
 tj:=H=HHV(H,N);
突破:=BB AND ZP AND tj;
 TJ1:=BARSLAST(突破);
CROSS(C,REF(H*1.05,TJ1)) AND TJ1<N;