通达信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);

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;

原理解析：
总股本:=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(财务预警,优质资产率),现金负债比))
当满足条件ISLASTBAR时,在横轴0.005纵轴0.01位置书写文字
当满足条件ISLASTBAR时,在横轴0.005纵轴0.06位置书写文字
当满足条件ISLASTBAR时,在横轴0.005纵轴0.115位置书写文字
CA赋值:LLVBARS(L,60)
CAT赋值:上次CURRBARSCOUNT=CONST(CA距今天数+1)
CAT1:=FIND最高价BARS(H,CA+1,60,1)
CAT2:DRAWLINE(CURRBARSCOUNT=CONST(CAT1)+1,H,ISLASTBAR,CAT1日前的H,0),COLORFFFFFF,LINETHICK2
CAT3:=上次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>=1日前的C),成交量,0)
CAT6:=IF(C CAT7:=CAT的CAT5日累和/CAT的CAT6日累和
XGG赋值:统计CAT+1日满足C>=CAT2上穿0.5的天数=1 AND C>=CAT2上穿0.5 AND CAT7>1.5
当满足条件XGG时,在L和9之间画图标
当满足条件XGG时,在L*0.98和'←突破'位置书写文字
当满足条件XGG时,在C和O之间画柱状线
当满足条件XGG时,在H和L之间画柱状线
当满足条件CAT=0时,在L*0.98和'←V型底'位置书写文字
T赋值:上次CROSS(C,CAT3日前的H距今天数)
CAT8:=C/CAT3日前的H
CAT9:=上次CAT8=T+1日内CAT8最高值距今天数
DF赋值:(C-CAT9+1日前的C)/CAT9+1日前的C*100
JL赋值:L/CAT3日前的H
CAT10:=DF<-8 AND JL<1.075 AND C和O的较小值*1.005>=CAT3日前的H
CAT11:=上次统计T+1日满足CAT10的天数=1 AND CAT10距今天数
CAT12:=BACKSET(CAT11=0,CAT9+1)
CAT13:=上次CAT12=1上穿0.5距今天数
CAT14:=REFX(DF,BARSNEXT(CAT11=0))
DRAWICON(CAT11=0上穿0.5,L*0.99,1)
DRAWTEXT(CAT11=0上穿0.5,L*0.980,'←回踩'),画黄色
DRAWLINE(T=0,CAT3日前的H,CAT13=0,CAT13日前的H,0),DOTLINE,画黄色
DRAWLINE(CAT13=0,CAT13日前的H,CAT11=0,CAT3日前的H,0),DOTLINE,画黄色
DRAWTEXT(CAT3=0,CAT3日前的H*1.05,VARCAT(VARCAT('压力价：',VAR2STR(CAT3日前的H,2)),'元'))画黄色
DRAWLINE(CAT13=0,CAT13日前的H*1.05,CAT13=10,CAT13日前的H*1.05,0),COLORWHITE,LINETHICK3
DRAWTEXT(CAT13=0,CAT13日前的H*1.01,VARCAT(VARCAT('信号处跌幅：',VAR2STR(CAT14,2)),'%'))画黄色