通达信主K3主图指标(源码)

2015-08-10 21:42:00来源:本站整理浏览:540

市值:=STRCAT(STRCAT(" 流通市值:",CON2STR((CAPITAL/1000000)*C,2)),"亿");
上市日期:=STRCAT(" 上市日期: ",CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),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(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.07,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,当前业绩),COLORMAGENTA;
TD:=BARSLAST(H<REF(L,1));
TDJ:=HHV(H,TD+1);
TDJ1:=CROSS(C,REF(L,TD+1));
TDJ2:=TDJ<REF(L,TD+1);
突破幅度:=(C/REF(L,TD+1)-1)*100;
突破量:=VOL/REF(VOL,1);
ZF:=(REF(L,TD+1)-LLV(L,TD+1))/LLV(L,TD+1)*100;
XG:=REF(TDJ2,1) AND TDJ1 AND 突破量>2 AND ZF<10 AND 突破幅度>3;
QF:=BACKSET(XG=1,TD+2);
QFTD:=BARSLAST(CROSS(QF=1,0.5));
DRAWLINE(QFTD=0,L,XG,REF(L,QFTD),0),COLORYELLOW;
STICKLINE(XG=1,C,O,2,0),COLORLIRED;
STICKLINE(XG=1,H,L,0,0),COLORLIRED;
DRAWICON(XG=1,L*0.95,38);