DRAWTEXT_FIX(CURRBARSCOUNT=FINANCE(7)>1000000000,0.280,0.01,0,'【大盘股】'),COLORGRAY; DRAWTEXT_FIX(CURRBARSCOUNT=FINANCE(7)<1000000000 AND FINANCE(7)>100000000,0.280,0.01,0,'【中盘股】'),COLORGRAY; DRAWTEXT_FIX(CURRBARSCOUNT=FINANCE(7)<100000000,0.280,0.01,0,'【小盘股】'),COLORGRAY; {财务内测,也可自行修改数值} 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; STICKLINE(C>1.095*REF(C,1),C,O,2,0),COLORYELLOW; STICKLINE(C<0.905*REF(C,1),C,O,2,0),COLORWHITE; 预警:=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.025,0.10,0,财务系数),COLORGRAY; 现价:PLOYLINE(1,CONST(C)),COLOR008888,LINETHICK1; DRAWTEXT_FIX(ISLASTBAR ,0.13,0.01,1,DYBLOCK),COLORGRAY; DRAWTEXT_FIX(ISLASTBAR ,0.150,0.01,0,HYBLOCK),COLORGRAY; DRAWTEXT_FIX(1,0.030,0.20,0,STRCAT('小心求证: ',EXTERNSTR(0,1))),COLORGRAY;{千股千评}; STICKLINE(OPEN,(OPEN+CLOSE)/2,(OPEN+CLOSE)/2,2,0),COLORRED;{K线半分位线};
|
|