通达信V形突破主图指标 源码 贴图

总股本:=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;
CA:=LLVBARS(L,60);{公式网WWW.GPXIAZAI.COM}
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),COLORFFFFFF,LINETHICK2;
CAT3:=BARSLAST(CURRBARSCOUNT=CONST(CAT1)+1);
DRAWLINE(CAT3=0,H,CAT=0,L,0),COLORFF8000,LINETHICK2;
CAT4:DRAWLINE(CAT=0,(CAT2-L)*0.618+L,ISLASTBAR,REF((CAT2-L)*0.618+L,CAT),0)DOTLINE,COLORLIMAGENTA;
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;
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(CAT=0,L*0.98,'←V型底'),COLORYELLOW;
T:=BARSLAST(CROSS(C,REF(H,CAT3)));
CAT8:=C/REF(H,CAT3);
CAT9:=BARSLAST(CAT8=HHV(CAT8,T+1));
DF:=(C-REF(C,CAT9+1))/REF(C,CAT9+1)*100;
JL:=L/REF(H,CAT3);
CAT10:=DF<-8 AND JL<1.075 AND MIN(C,O)*1.005>=REF(H,CAT3);
CAT11:=BARSLAST(COUNT(CAT10,T+1)=1 AND CAT10);
CAT12:=BACKSET(CAT11=0,CAT9+1);
CAT13:=BARSLAST(CROSS(CAT12=1,0.5));
CAT14:=REFX(DF,BARSNEXT(CAT11=0));
DRAWICON(CROSS(CAT11=0,0.5),L*0.99,1);
DRAWTEXT(CROSS(CAT11=0,0.5),L*0.980,'←回踩'),COLORYELLOW;
DRAWLINE(T=0,REF(H,CAT3),CAT13=0,REF(H,CAT13),0),DOTLINE,COLORYELLOW;
DRAWLINE(CAT13=0,REF(H,CAT13),CAT11=0,REF(H,CAT3),0),DOTLINE,COLORYELLOW;
DRAWTEXT(CAT3=0,REF(H,CAT3)*1.05,VARCAT(VARCAT('压力价：',VAR2STR(REF(H,CAT3),2)),'元'))COLORYELLOW;
DRAWLINE(CAT13=0,REF(H,CAT13)*1.05,CAT13=10,REF(H,CAT13)*1.05,0),COLORWHITE,LINETHICK3;
DRAWTEXT(CAT13=0,REF(H,CAT13)*1.01,VARCAT(VARCAT('信号处跌幅：',VAR2STR(CAT14,2)),'%'))COLORYELLOW;