通达信过三峰主图及选股指标(源码)

HT:=HHVBARS(H,10);
HTT:=BARSLAST(REF(HT,1)>=4 AND HT=0);
HH1:=REF(H,HTT);
HH2:=REF(HH1,HTT+1);
HH3:=REF(HH2,HTT+1);
HH:=MAX(MAX(HH1,HH2),HH3);
LL:=MIN(MIN(HH1,HH2),HH3);
GL:=HH/LL;
TJ:=COUNT(HTT=0,30)>=3;
TJ1:=GL<=1.04;
A:=TJ1 AND TJ AND H=HHV(H,30);
XG:=COUNT(A,30)=1 AND A;
XGT:=BARSLAST(XG);
XXG:=REFX(HH,BARSNEXT(XGT=0));
TT:=SUMBARS(HTT=0,3);
T2:=SUMBARS(HTT=0,2);
T3:=SUMBARS(HTT=0,1);
TTH:=REF(H,TT);
QF:=BACKSET(XG,TT);
QF2:=BACKSET(XG,T2);
QF3:=BACKSET(XG,T3);
QFT:=BARSLAST(CROSS(QF=1,0.5));
QFT2:=BARSLAST(CROSS(QF2=1,0.5));
QFT3:=BARSLAST(CROSS(QF3=1,0.5));
DRAWTEXT(QFT=0,L*0.98,"1"),COLORYELLOW;
DRAWTEXT(QFT2=0,L*0.98,"2"),COLORYELLOW;
DRAWTEXT(QFT3=0,L*0.98,"3"),COLORYELLOW;
DRAWLINE(QFT=0,XXG,XG,HH,0),COLORYELLOW;
DRAWICON(XG,L*0.95,1);
STICKLINE(XG,C,O,1.8,0),COLORMAGENTA;
STICKLINE(XG,MAX(C,O),MAX(C,O),5,1),COLORMAGENTA;

{
选股公式:

HT:=HHVBARS(H,10);
HTT:=BARSLAST(REF(HT,1)>=4 AND HT=0);
HH1:=REF(H,HTT);
HH2:=REF(HH1,HTT+1);
HH3:=REF(HH2,HTT+1);
HH:=MAX(MAX(HH1,HH2),HH3);
LL:=MIN(MIN(HH1,HH2),HH3);
GL:=HH/LL;
TJ:=COUNT(HTT=0,30)>=3;
TJ1:=GL<=1.04;
XG:TJ1 AND TJ AND H=HHV(H,30);
}