通达信【V型反转突破】主图选股指标源码-手机电脑版

{主图指标源码}

总股本:=STRGSKZ(STRGSKZ('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');

流通盘:=STRGSKZ(STRGSKZ(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');

全流通:=STRGSKZ(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));

市值:=STRGSKZ(STRGSKZ(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');

上市日期:=STRGSKZ(' 上市日期: ',CON2STR(FINANCE(42),0));

股本市值:=STRGSKZ('股本市值: ',STRGSKZ(STRGSKZ(STRGSKZ(STRGSKZ(总股本,流通盘),全流通),市值),上市日期));

市盈率:=STRGSKZ('市盈率: ',CON2STR(C/FINANCE(33),2));

市销率:=STRGSKZ(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));

市净率:=STRGSKZ(' 市净率: ',CON2STR(C/FINANCE(34),2));

净资收益率:=STRGSKZ(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));

毛利率:=STRGSKZ(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));

净利润率:=STRGSKZ(' 净利润率',CON2STR(FINANCE(30)/FINANCE(20)*100,2));

主营利润率:=STRGSKZ(' 主营利润率',CON2STR(FINANCE(23)/FINANCE(20)*100,2));

当前业绩:=STRGSKZ('当前业绩: ',STRGSKZ(STRGSKZ(STRGSKZ(STRGSKZ(STRGSKZ(STRGSKZ(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));

X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;

X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;

X3:=FINANCE(23)/FINANCE(10)*3.3;

X4:=FINANCE(19)/FINANCE(15)*0.6;

X5:=FINANCE(20)/FINANCE(15)*0.999;

Z值:=X1+X2+X3+X4+X5;

预警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND Z值<2.6,'轻警','无警'));

财务预警:=STRGSKZ('财务预警: ',STRGSKZ(预警,STRGSKZ('-Z值: ',CON2STR(Z值,3))));

优质资产率:=STRGSKZ(' 优质资产率: ',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));

现金负债比:=STRGSKZ(' 现金负债比: ',CON2STR(FINANCE(25)/FINANCE(15),3));

财务系数:=STRGSKZ('风险系数: ',STRGSKZ(STRGSKZ(财务预警,优质资产率),现金负债比));

DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,财务系数),COLOR888888;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,当前业绩),COLOR888888;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.115,0,股本市值),COLOR888888;

CA:=LLVBARS(L,60);

GSKZ:=BARSLAST(CURRBARSCOUNT=CONST(CA)+1);

GSKZ1:=FINDHIGHBARS(H,CA+1,60,1);

GSKZ2:DRAWLINE(CURRBARSCOUNT=CONST(GSKZ1)+1,H,ISLASTBAR,REF(H,GSKZ1),0),COLORFFFFFF,LINETHICK1;

GSKZ3:=BARSLAST(CURRBARSCOUNT=CONST(GSKZ1)+1);

DRAWLINE(GSKZ3=0,H,GSKZ=0,L,0),COLORFF8000,LINETHICK1;

GSKZ4:DRAWLINE(GSKZ=0,(GSKZ2-L)*0.618+L,ISLASTBAR,REF((GSKZ2-L)*0.618+L,GSKZ),0)DOTLINE,COLORLIMAGENTA;

GSKZ5:=IF(C>O OR (C=O AND C>=REF(C,1)),VOL,0);

GSKZ6:=IF(C<O OR (C=O AND C<REF(C,1)),VOL,0);

GSKZ7:=SUM(GSKZ5,GSKZ)/SUM(GSKZ6,GSKZ);

XGG:=COUNT(CROSS(C>=GSKZ2,0.5),GSKZ+1)=1 AND CROSS(C>=GSKZ2,0.5) AND GSKZ7>1.5;

DRAWICON(XGG,L,9);

DRAWTEXT(XGG,L*0.98,'←突破'),COLORYELLOW;

STICKLINE(XGG,C,O,2,0),COLORYELLOW;

STICKLINE(XGG,H,L,0,0),COLORYELLOW;

DRAWTEXT(GSKZ=0,L*0.98,'←V型底'),COLORYELLOW;

T:=BARSLAST(CROSS(C,REF(H,GSKZ3)));

GSKZ8:=C/REF(H,GSKZ3);

GSKZ9:=BARSLAST(GSKZ8=HHV(GSKZ8,T+1));

DF:=(C-REF(C,GSKZ9+1))/REF(C,GSKZ9+1)*100;

JL:=L/REF(H,GSKZ3);

GSKZ10:=DF<-8 AND JL<1.075 AND MIN(C,O)*1.005>=REF(H,GSKZ3);

GSKZ11:=BARSLAST(COUNT(GSKZ10,T+1)=1 AND GSKZ10);

GSKZ12:=BACKSET(GSKZ11=0,GSKZ9+1);

GSKZ13:=BARSLAST(CROSS(GSKZ12=1,0.5));

GSKZ14:=REFX(DF,BARSNEXT(GSKZ11=0));

DRAWICON(CROSS(GSKZ11=0,0.5),L*0.99,1);

DRAWTEXT(CROSS(GSKZ11=0,0.5),L*0.980,'←回踩'),COLORYELLOW;

DRAWLINE(T=0,REF(H,GSKZ3),GSKZ13=0,REF(H,GSKZ13),0),DOTLINE,COLORYELLOW;

DRAWLINE(GSKZ13=0,REF(H,GSKZ13),GSKZ11=0,REF(H,GSKZ3),0),DOTLINE,COLORYELLOW;

DRAWTEXT(GSKZ3=0,REF(H,GSKZ3)*1.05,VARGSKZ(VARGSKZ('压力价：',VAR2STR(REF(H,GSKZ3),2)),'元'))COLORYELLOW;

DRAWLINE(GSKZ13=0,REF(H,GSKZ13)*1.05,GSKZ13=10,REF(H,GSKZ13)*1.05,0),COLORWHITE,LINETHICK3;

DRAWTEXT(GSKZ13=0,REF(H,GSKZ13)*1.01,VARGSKZ(VARGSKZ('信号处跌幅：',VAR2STR(GSKZ14,2)),'%'))COLORYELLOW;STICKLINE(C/REF(C,1)>=1.092,O,C,3.1,0),COLORYELLOW;

STICKLINE(C/REF(C,1)<=0.9008,O,C,3.1,0),COLORBLUE;STICKLINE(C/REF(C,1)>=1.092,O,C,3.1,0),COLORYELLOW;

STICKLINE(C/REF(C,1)<=0.9008,O,C,3.1,0),COLORBLUE;公:DRAWNULL,COLORCCCCCC;众:DRAWNULL,COLORCCCCCC;号:DRAWNULL,COLORCCCCCC;股市客栈:DRAWNULL,COLORCCCCCC;

{V型反转选股指标源码}

CA:=LLVBARS(L,60);

CAT:=BARSLAST(CURRBARSCOUNT=CONST(CA)+1);

XG:CAT=0;

{V型突破选股指标源码}

CA:=LLVBARS(L,60);

CAT:=BARSLAST(CURRBARSCOUNT=CONST(CA)+1);

CAT1:=FINDHIGHBARS(H,CA+1,60,1);

CAT2:=DRAWLINE(CURRBARSCOUNT=CONST(CAT1)+1,H,ISLASTBAR,REF(H,CAT1),0);

CAT5:=IF(C>O OR (C=O AND C>=REF(C,1)),VOL,0);

CAT6:=IF(C<O OR (C=O AND C<REF(C,1)),VOL,0);

CAT7:=SUM(CAT5,CAT)/SUM(CAT6,CAT);

XGG:COUNT(CROSS(C>=CAT2,0.5),CAT+1)=1 AND CROSS(C>=CAT2,0.5) AND CAT7>1.5;