通达信【牛股强势翻倍】主图指标选股公式--主力加速

DRAWTEXT_FIX(1,0.7,0,0,'所属板块:'),COLORFF6000;

DRAWTEXT_FIX(1,0.77,0,0,HYBLOCK),COLORRED;

DRAWTEXT_FIX(1,0.835,0,0,DYBLOCK),COLORYELLOW;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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,'轻警','无警'));

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

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

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

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

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;

GSPTD1:=DATE=1240606;

GSPTN1:=BARSLAST(GSPTD1);

GSPTKT1:=GSPTD1 AND C< O AND O/C>1.02;

GSPTH1:=IF(GSPTKT1 AND HHV(MAX(C,O),3)/C>=1.1,H,IF(GSPTKT1 AND HHV(MAX(C,O),3)/C< 1.1,HHV(H,3),DRAWNULL));

GSPTT1:=EVERY(C< REF(HHV(H,BARSLASTCOUNT(C< O)),GSPTN1) AND REF(C,GSPTN1)/C<=1.03,GSPTN1) AND REF(GSPTKT1,GSPTN1);

GSPTT2:=REF(GSPTT1,1) AND CROSS(C,REF(GSPTH1,GSPTN1));

DRAWNUMBER(GSPTKT1,H*1.05,GSPTH1),COLORYELLOW;

STICKLINE(GSPTD1 AND GSPTKT1,C,O,3,0),COLORGREEN;

DRAWSL(DATE=1240606 AND GSPTKT1,GSPTH1,0,2,2),COLORGREEN;

DRAWSL(DATE=1240606 AND GSPTKT1,GSPTH1,0,CURRBARSCOUNT,0)COLORGREEN;

DRAWSL(DATE=1240606 AND GSPTKT1,L,0,CURRBARSCOUNT,0)COLORRED;

DRAWICON(GSPTT2,L,34);{分析家公式网http://www.70822.com}

GSPTZF:=IF(O< REF(GSPTH1,GSPTN1),(REF(GSPTH1,GSPTN1)/REF(C,1)-1)*100,(O/REF(C,1)-1)*100);

DRAWNUMBER(GSPTT2,REF(O,GSPTN1),GSPTZF),COLORYELLOW;

DRAWTEXT(GSPTT2,0.985*REF(O,GSPTN1),' %'),COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=1 AND EXIST(GSPTT2,GSPTN1),0.985*REF(L,GSPTN1),'↑破红线止损'),COLORRED;