{TD结构序列=神奇9转}
AD1:=C REF(C,4);
NT:=BArslAstCOUNT(AD1);
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;
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;
{极阴极阳二一位}
TJ:= C/REF(C,1) 0.95;
DRAWLINE(TJ,(O+C)/2,REF(TJ,1),REF((O+C)/2,1),1),COLORFF0000;
{生命线:Ema(EMA(C,10),10),COLORBLUE,LINETHICK3;
B:=生命线 REF(生命线,1);
IF(B-1,生命线,DRAWNULL)COLORRED,LINETHICK3;}
生命线:EMA(EMA(C,10),10),COLORRED,LINETHICK3;
B:=生命线 REF(生命线,1);
IF(B-1,生命线,DRAWNULL)COLORBLUE,LINETHICK3;
DRAWICON(crOSS(L,生命线),L*0.99,7);
DRAWICON(CROSS(生命线,L),H*1.01,8);
AB:=EMA(C,5) EMA(C,20);
BB:=EMA(C,5) EMA(C,20);
CA:= EMA(C,5) EMA(C,10);
CA1:=EMA(C,5) EMA(C,10);
DD:=CLOSE OPEN;
STICKLINE(AB,H,L,0.1,0),COLORRED;
STICKLINE(AB,O,C,3,1),COLORRED;
STICKLINE(AB AND DD,O,C,3,0),COLORRED;
STICKLINE(BB,H,L,0.1,0),COLORGREEN;
STICKLINE(BB,O,C,3,1),COLORGREEN;
STICKLINE(BB AND DD,O,C,3,0),COLORGREEN;
STICKLINE(BB AND CA,H,L,0.1,1),COLORWHITE;
STICKLINE(BB AND CA,O,C,3,0.1),COLORWHITE;
STICKLINE(BB AND CA AND DD,O,C,3,0),COLORWHITE;
STICKLINE(AB AND CA1,H,L,0.1,0),COLORWHITE;
STICKLINE(AB AND CA1,O,C,3,1),COLORWHITE;
STICKLINE(AB AND CA1 AND DD,O,C,3,0),COLORWHITE;
{缠论画笔}
{黄金柱:=V/REF(V,1) =1.9;
DRAWLINE(黄金柱,L,REF(黄金柱,1),REF(L,1),1),COLORFFFFFF;
DRAWLINE(黄金柱,H,REF(黄金柱,1),REF(H,1),1),COLORFFFFFF;}
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AA,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DRAWICON(CC,H*1.02,2);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK;
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLORGREEN,DOTLINE;
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORFF0000,DOTLINE;
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
DRAWICON(CC1,L*0.98,1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORFF00FF,LINETHICK;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=CONST((高点压力+低点支撑)/2);
STARDAY:=IF(DDCS2 GDCS2,DDCS2,GDCS2);
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFFFFFF,LINETHICK;
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLOR0000FF,DOTLINE;
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORFF00FF,DOTLINE;
涨停开板:=H REF(C,1)*1.090 AND C
DRAWTEXT(涨停开板,HIGH*1.02,'炸板'),COLORGREEN;
{涨停公式提示}
涨停:=IF(REF(C,1)*1.1-C 0.01 ,1,0);
STICKLINE(涨停,OPEN,CLOSE,4,0),COLORRED;
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORYELLOW;
{跌停公式提示}
D2:=REF(C,1);
跌停:=IF((D2-C)*100/D2 =(10-0.01*100/D2),1,0);
STICKLINE(跌停,OPEN,CLOSE,2,0),COLORBLUE;
STICKLINE(跌停,H,L,0,1),COLORBLUE;
{板块公式}
DRAWTEXT_FIX(1,0.01,0,0,'行业:'),COLOR0000FF;
DRAWTEXT_FIX(1,0.04,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.01,0.06,0,'概念:'),COLOR0000FF;
DRAWTEXT_FIX(1,0.04,0.06,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.01,0.12,0,'地区:'),COLOR0000FF;
DRAWTEXT_FIX(1,0.04,0.12,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.01,0.18,0,'风格:'),COLOR0000FF;
DRAWTEXT_FIX(1,0.04,0.18,0,FGBLOCK),COLORYELLOW;
DRAWTEXT_FIX(1,0.01,0.24,0,'指数:'),COLOR0000FF;
DRAWTEXT_FIX(1,0.04,0.24,0,ZSBLOCK),COLORYELLOW;
{盘面分析}
平均成本:=STRCAT(' 平均成本：',CON2STR(COST(50),2));
主力成本:=STRCAT(' 主力成本：',CON2STR(COST(4),2));
重心:=STRCAT(' 重心：',CON2STR((H+L+C)/3,2));
套牢盘%:=STRCAT(' 【套牢概率】：',CON2STR((1-WINNER(C))*100,2));
获利盘%:=STRCAT(' 【获利概率】：',CON2STR(100*WINNER(C),2));
筹码分析:=STRCAT('【筹码分析】',STRCAT(STRCAT(STRCAT(STRCAT(平均成本,主力成本),重心),套牢盘%),获利盘%));
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,所属板块),COLORLIRED;}
DRAWTEXT_FIX(ISLASTBAR,0,1,0,筹码分析),COLOR0000FF;
{均线}
MA5:MA(C,5);
{MA8:=MA(C,8);
MA10:MA(C,10);
MA20:MA(C,20);
MA30:=MA(C,30);}
{MA60:MA(C,60),COLORFFFFFF;
牛熊线:MA(C,100),COLORFF0000;}
{MA250:MA(C,250);};
流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED;
