通达信九转战神源码附图

 {九转战神}

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

{牛线}

CG:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210;

FL:HHV(CG,5);

FS:CG-(FL-CG);

EMA55:=EMA(CLOSE,55);

机构成本:=EMA55,LINETHICK3,COLORFF00FF;

MA55:=MA(CLOSE,55);

DRAWTEXT(CROSS(EMA55,MA55) AND EMA55>REF(EMA55,1) AND CG=FL,MA55,'走强');

DRAWTEXT( EMA(C,55)>REF(EMA(C,55),1) AND FL>EMA(C,55) AND FS>EMA(C,55) AND FL=FS AND REF(FL,1)>REF(FS,1) ,FS,'买入' ),COLORYELLOW;

{涨停K线}

C2:=REF(C,1);

涨停:=IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0);

STICKLINE(涨停,OPEN,CLOSE,-1,1),COLORRED;

STICKLINE(涨停,H,O,0.5,0),COLORYELLOW;

{九转}

A1:=C>REF(C,4);

NT:=BARSLASTCOUNT(A1);

TJ11:=NT=9;

TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);

AY:=(BACKSET(TJ11>0,9) OR   BACKSET(TJ13>0,NT))*NT;

DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;

DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN;

DRAWTEXT(NT=13,H*1.02,'13'),COLORGREEN;

DRAWTEXT(NT=18,H*1.02,'18'),COLORGREEN;

B1:=C

NT0:=BARSLASTCOUNT(B1);

TJ21:=NT0=9 ;

TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);

AY1:=(BACKSET(TJ21>0,9)  OR  BACKSET(TJ23>0,NT0))*NT0;

DRAWTEXT(AY1>0,L