以下是通达信底来到贰(鹏腾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;
64277975.png
|