注意:解压后导入全部指标,将DLL两插件贴到通达信安装盘T0002的DLLS中,并将插件绑定8号。
P1:=10;
Z1:=STRCAT(HYBLOCK,'----');
Z2:=STRCAT(Z1,FGBLOCK);
Z3:=STRCAT(Z2,DYBLOCK);
Z4:=STRCAT(Z3,'----');
DRAWTEXT_FIX(ISLASTBAR,0.2,0.06,0,STRCAT(Z4,GNBLOCK)),COLORCYAN;
DRAWTEXT_FIX(1,0.07,0.24,0,EXTERNSTR(0,14))COLORYELLOW;
DRAWTEXT_FIX(1,0.75,0.05,0,'解禁日期:')COLORGREEN;
DRAWTEXT_FIX(1,0.80,0.05,0,EXTERNSTR(0,5)),COLOR00FF00,LINETHICK2;
DRAWTEXT_FIX(ISLASTBAR,0.62,0.05,0,'【小心质押】'),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.70,0.05,0,EXTERNSTR(0,1))COLORMAGENTA;
筹码80:=COST(80),COLORYELLOW,LINETHICK2;{自己加了等号,不显示画线}
筹码90:=COST(90),COLORFF00FF,LINETHICK2;{自己加了等号,不显示画线}
底:=COST(0.2),COLOR00FF00, LINETHICK2;{自己加了等号,不显示画线}
获利比例:WINNER(CLOSE)*100,COLORRED,NODRAW;{可调}
A:=P1+(100-P1)/2;
B:=(100-P1)/2;
CC:=COST(A);
DD:=COST(B);
筹码集中度:(CC-DD)/(CC+DD)*100,COLORYELLOW,NODRAW;
去除ST:=IF(NAMELIKE('ST'),0,1) AND IF(NAMELIKE('*ST'),0,1);
去除停牌:=DYNAINFO(4)>0;
去除大盘股:=CAPITAL/1000000<25;
去除次新股:=FINANCE(42)>120;{上市大于120天}
排除:=去除ST AND 去除停牌 AND 去除大盘股 AND 去除次新股;
短期底部:=LLV(HIGH,30);
AA:=C/底<1.15 OR C/短期底部<1.15;
BB:=CLOSE/REF(CLOSE,1)>1.075 AND HIGH>LOW AND CLOSE>OPEN;
量:=V/CONST(HHV(V,90))*30;
倍量:=(量/REF(量,1)>=1.91 AND COUNT(C>O,1)) OR (L>REF(H,1) AND COUNT(O>C,1) AND 量/REF(量,1)>=1.91);
起爆:AA AND BB AND 倍量 AND 排除 AND SUM(CLOSE/REF(CLOSE,1)>1.095,5)=1 NODRAW;
STICKLINE(起爆,C,O,4,0),COLORRED;
DRAWTEXT(起爆,L*0.98 ,'爆')COLORRED;
成妖:C>REF(HHV(C,60),1) AND REF(C,1)/REF(REF(C,1),1)>1.098 AND C/REF(C,1)>1.098 AND NOT(C>=REF(C,1)*1.097 AND C=O AND H=L);
STICKLINE(成妖,C,O,4,0),COLORYELLOW;
DRAWTEXT(成妖,L*0.95 ,'妖')COLORYELLOW;
{请确保本地数据齐全,点系统-盘后数据下载,补全数据日线和1,5分钟数据}
VAR2:=TDXDLL8(1,PERIOD,H,L);{得到笔}
DRAWLINE(VAR2=1,H,VAR2=-1,L,0),DOTLINE,COLORYELLOW;
DRAWLINE(VAR2=-1,L,VAR2=1,H,0),DOTLINE,COLORYELLOW;
VAR3:=TDXDLL8(2,0,0,0);{得到段}
DRAWLINE(VAR3=1,H,VAR3=-1,L,0),COLORFF6600;
DRAWLINE(VAR3=-1,L,VAR3=1,H,0),COLORFF6600;
DRAWNUMBER(VAR2=1,H,H),COLORMAGENTA,DRAWABOVE;
DRAWNUMBER(VAR2=-1,L*0.998,L),COLORGREEN;
DRAWRECTREL(0,965,130,999,RGB(0,0,1)),NOFRAME;
{九转序列}
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;
DRAWNUMBER(AY>0,REF(L,AY-1),AY)COLORFF00FF;
DRAWNUMBER(NT=9,REF(L,8),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;
DRAWNUMBER(AY1>0,REF(H,AY1-1),AY1)COLORFF00FF;
DRAWNUMBER(NT0=9,REF(H,8),9)COLORGREEN;
{K线涨跌停}
涨跌停:=(C-REF(C,1))/REF(C,1)*100;
STICKLINE(涨跌停>9.8,O,C,3,0),COLORRED;
STICKLINE(涨跌停<-9.8,O,C,3,0),COLORGREEN;
DRAWTEXT_FIX(1,0,0.05,0,STRCAT('实际控制人:',EXTERNSTR(0,50))),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.1,0,STRCAT('实控人类型:',EXTERNSTR(0,51))),COLORYELLOW;
{高送转评测系统}
A0:=FINANCE(37);
AA1:=FINANCE(18);
AA2:=FINANCE(32);
AA3:=FINANCE(38);
AA4:=FINANCE(43);
AA5:=FINANCE(34);
A66:=FINANCE(1);
AA6:=A66/100000000;
DRAWTEXT_FIX(1,0,0,0,'【高送转潜力评测系统 数据来源: 季报】'),COLORYELLOW;
DRAWTEXT_FIX(1,0.12,0,0,VAR2STR(A0,0))COLORFFFFCC;
DRAWTEXT_FIX(1,0,0.151,0,STRCAT('①每股公积金(元):',VAR2STR(AA1,2)))COLORYELLOW;
DRAWTEXT_FIX(AA1>0 AND AA1<1,0.12,0.151,0,'☆'),COLORYELLOW;
DRAWTEXT_FIX(AA1>=1 AND AA1<2,0.12,0.151,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA1>=2 AND AA1<3,0.12,0.151,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA1>=3 AND AA1<4,0.12,0.151,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA1>=4 AND AA1<5,0.12,0.151,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA1>=5,0.12,0.151,0,'★★★★★'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.2,0,STRCAT('②每股未分利润(元):',VAR2STR(AA2,2))),COLORYELLOW;
DRAWTEXT_FIX(AA2>0 AND AA2<0.2,0.12,0.2,0,'☆'),COLORYELLOW;
DRAWTEXT_FIX(AA2>=0.275 AND AA2<0.65,0.12,0.2,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA2>=0.65 AND AA2<0.9,0.12,0.2,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA2>=0.9 AND AA2<1.2,0.12,0.2,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA2>=1.2 AND AA2<1.5,0.12,0.2,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA2>=1.5,0.12,0.2,0,'★★★★★'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.25,0,STRCAT('③每股收益(元):',VAR2STR(AA3,2))),COLORYELLOW;
DRAWTEXT_FIX(AA3>0 AND AA3<0.1515,0.12,0.25,0,'☆'),COLORLIMAGENTA;
DRAWTEXT_FIX(AA3>=0.1515 AND AA3<0.525,0.12,0.25,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA3>=0.525 AND AA3<0.7755,0.12,0.25,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA3>=0.7755 AND AA3<1,0.12,0.25,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA3>=1 AND AA3<1.25,0.12,0.25,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA3>=1.25,0.12,0.25,0,'★★★★★'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.3,0,STRCAT('④利润同比(%):',VAR2STR(AA4,2))),COLORYELLOW;
DRAWTEXT_FIX(AA4>0 AND AA4<30,0.12,0.3,0,'☆'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=30 AND AA4<60,0.12,0.3,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=60 AND AA4<90,0.12,0.3,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=120 AND AA4<150,0.12,0.3,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=150 AND AA4<180,0.12,0.3,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=180,0.12,0.3,0,'★★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA4>=1000,0.12,0.3,0,'★★★★★爆'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.35,0,STRCAT('⑤每股净资产(元):',VAR2STR(AA5,2))),COLORYELLOW;
DRAWTEXT_FIX(AA5>0 AND AA5<2,0.12,0.35,0,'☆'),COLORYELLOW;
DRAWTEXT_FIX(AA5>=2 AND AA5<4,0.12,0.35,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA5>=4 AND AA5<6,0.12,0.35,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA5>=6 AND AA5<8,0.12,0.35,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA5>=8 AND AA5<10,0.12,0.35,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA5>=10,0.12,0.35,0,'★★★★★'),COLORYELLOW;
DRAWTEXT_FIX(1,0,0.4,0,STRCAT('⑥总股本(亿股):',VAR2STR(AA6,2))),COLORYELLOW;
DRAWTEXT_FIX(AA6<=10 AND AA6>8,0.12,0.4,0,'☆'),COLORYELLOW;
DRAWTEXT_FIX(AA6<=8 AND AA6>6,0.12,0.4,0,'★'),COLORYELLOW;
DRAWTEXT_FIX(AA6<=6 AND AA6>4,0.12,0.4,0,'★★'),COLORYELLOW;
DRAWTEXT_FIX(AA6<=4 AND AA6>2,0.12,0.4,0,'★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA6<=2 AND AA6>1,0.12,0.4,0,'★★★★'),COLORYELLOW;
DRAWTEXT_FIX(AA6<=1,0.12,0.4,0,'★★★★★'),COLORYELLOW;
{波峰波谷画线}
V2:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);
{STICKLINE(V2>=1,O,C,1,0),COLORYELLOW;}
TY:=C;{收盘价}
AAA1:=REF(TY,10)=HHV(TY,2*10+1);{10日前收盘价等于21天内最高价}
VB1:=FILTER(AAA1,10);{当出现A1条件时,过滤10天后连续出现的信号}
C1:=BACKSET(VB1,10+1);{将当前位置到11天前的位置设为1}
HD:=FILTER(C1,10);{将当前位置到10天后的位置设为1}
A2:=REF(TY,10)=LLV(TY,2*10+1);{10天前的收盘价等于21天内最低价}
VB2:=FILTER(A2,10); {过滤10天内连续出现的信号}
C2:=BACKSET(VB2,10+1);{将当前位置到11天前的位置设为1}
LD:=FILTER(C2,10);{当出现C2后,10天后的数据不予记录}
AAA:=REF(C,BARSLAST(HD));{设值上次高点位置}
BBB:=REF(C,BARSLAST(LD));{设值上次低点位置}
T11:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD);{上升波段回调不创新低没新高}
T21:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);{下降波段反弹不创新高没新低}
波峰:IF(T11,AAA,AAA),COLORFF00FF,POINTDOT,LINETHICK3;{符合T1条件,高位线为紫色点状线}
{STICKLINE(T11,A,A,9,0),COLORFF00FF,LINETHICK4;}{高位画横线}
波谷:IF(T21,BBB,BBB),COLOR80FF00,POINTDOT,LINETHICK3;{符合T2条件,高位线为绿色点状线}
{STICKLINE(T21,B,B,9,0),COLOR80FF00,LINETHICK4;}{低位画横线}
{买卖信号}
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
买1:=VAR10;
买2:=(VAR11+VAR13+VAR15+VAR17);
卖1:=(VAR12+VAR14+VAR16+VAR18);
BYE:IF(买1>0 OR 买2>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
DRAWTEXT(买1>0 OR 买2>0,LOW*0.99,'买入'),COLORRED;
SALE:IF(卖1>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
DRAWTEXT(卖1>0,HIGH*1.02,'卖出'),COLORGREEN;