通达信九转战神

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<REF(C,4);

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*0.98,VAR2STR(AY1,0)),COLORFF00FF;

DRAWTEXT(NT0=9,L*0.98,'9'),COLORGREEN;

DRAWTEXT(NT0=13,L*0.98,'13'),COLORGREEN;

DRAWTEXT(NT0=18,L*0.98,'18'),COLORGREEN;

{股票指标网WWW.}

ZF:=(C-REF(C,1))/REF(C,1)*100;

假阳线:=C>O AND ZF<0 AND O<REF(L,1);

STICKLINE(假阳线,O,C,0.5,0),COLORMAGENTA;

{筹码成本}

X_1:=COSTEX(ISLASTBAR+540,ISLASTBAR);

牛熊界限:MA(X_1,13),COLORGREEN;

IF(牛熊界限>REF(牛熊界限,1),牛熊界限,DRAWNULL),COLORRED;

AL:=SUMBARS(V,CAPITAL*1);{累计换手=99.99%的周期}

AL1:=SUM(COST(10),AL)/AL;{在A周期里获利10%的平均价}

AL2:=SUM(COST(20),AL)/AL;{在A周期里获利20%的平均价}

AL3:=SUM(COST(30),AL)/AL;{在A周期里获利30%的平均价}

AL4:=SUM(COST(40),AL)/AL;{在A周期里获利40%的平均价}

AL5:=SUM(COST(50),AL)/AL;{在A周期里获利50%的平均价}

主力成本:(5*AL1+4*AL2+3*AL3+2*AL4+AL5)/15,POINTDOT,COLOR00FF00;{求出庄家成本};

估:=(2*CLOSE+LOW+HIGH)/4;

风险区:EMA(估,40)*1.15,POINTDOT,COLORFF33FF;

机构参与度:EXTERNVALUE(0,1),COLORRED,NODRAW;{引用数据};

原理解析：
MID赋值:(3*收盘价+最低价+开盘价+最高价)/6
输出{牛线}
CG:(20*MID+19*1日前的MID+18*2日前的MID+17*3日前的MID+16*4日前的MID+15*5日前的MID+14*6日前的MID+13*7日前的MID+12*8日前的MID+11*9日前的MID+10*10日前的MID+9*11日前的MID+8*12日前的MID+7*13日前的MID+6*14日前的MID+5*15日前的MID+4*16日前的MID+3*17日前的MID+2*18日前的MID+20日前的MID)/210
输出FL:5日内CG最高值
输出FS:CG-(FL-CG)
EMA55赋值:收盘价的55日指数移动平均
机构成本赋值:EMA55, 线宽为3,COLORFF00FF
MA55赋值:收盘价的55日简单移动平均
DRAWTEXT(EMA55上穿MA55 AND EMA55>1日前的EMA55 AND CG=FL,MA55,'走强')
DRAWTEXT( C的55日指数移动平均>1日前的C的55日指数移动平均 AND FL>C的55日指数移动平均 AND FS>C的55日指数移动平均 AND FL=FS AND 1日前的FL>1日前的FS ,FS,'买入' ),画黄色
{涨停K线}
C2赋值:1日前的C
涨停赋值:IF((C-C2)*100/C2>=(10-0.01*100/C2),1,0)
当满足条件涨停时,在开盘价和收盘价之间画柱状线
当满足条件涨停时,在H和O之间画柱状线
{九转}
A1赋值:C>4日前的C
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
当满足条件NT=9时,在H*1.02和'9'位置书写文字
当满足条件NT=13时,在H*1.02和'13'位置书写文字
当满足条件NT=18时,在H*1.02和'18'位置书写文字
B1赋值:C<4日前的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*0.98,VAR2STR(AY1,0)),COLORFF00FF
当满足条件NT0=9时,在L*0.98和'9'位置书写文字
当满足条件NT0=13时,在L*0.98和'13'位置书写文字
当满足条件NT0=18时,在L*0.98和'18'位置书写文字
{股票指标网WWW.}
ZF赋值:(C-1日前的C)/1日前的C*100
假阳线赋值:C>O AND ZF<0 AND O<1日前的L
当满足条件假阳线时,在O和C之间画柱状线
{筹码成本}
X_1赋值:COSTEX(ISLASTBAR+540,ISLASTBAR)
输出牛熊界限:X_1的13日简单移动平均,画绿色
IF(牛熊界限>1日前的牛熊界限,牛熊界限,DRAWNULL),画红色
AL赋值:V累加至CAPITAL*1的天数
{累计换手=99.99%的周期}
AL1:=SUM(获利盘为10%的成本分布,AL)/AL
{在A周期里获利10%的平均价}
AL2:=SUM(获利盘为20%的成本分布,AL)/AL
{在A周期里获利20%的平均价}
AL3:=SUM(获利盘为30%的成本分布,AL)/AL
{在A周期里获利30%的平均价}
AL4:=SUM(获利盘为40%的成本分布,AL)/AL
{在A周期里获利40%的平均价}
AL5:=SUM(获利盘为50%的成本分布,AL)/AL
输出{在A周期里获利50%的平均价}
主力成本:(5*AL1+4*AL2+3*AL3+2*AL4+AL5)/15,POINTDOT,COLOR00FF00
{求出庄家成本}
估赋值:(2*收盘价+最低价+最高价)/4
输出风险区:估的40日指数移动平均*1.15,POINTDOT,COLORFF33FF
输出机构参与度:EXTERNVALUE(0,1),画红色,NODRAW
{引用数据}