M6:EMA(CLOSE,6);
M14:EMA(CLOSE,14),LINETHICK2;
M90:EMA(CLOSE,90);
gspt4:=(C+L+H)/3;
gspt5:=ATAN(EMA(gspt4,13)-REF(EMA(gspt4,13),1))*3.1416*10;
gspt6:=EMA(C,8);
支撑:MA(REF(LLV(C,30),1),2);
压力:MA(REF(HHV(C,30),1),2);
gspt8:=(CLOSE+LOW+HIGH)/3;
gspt9:=EMA(gspt8,6);
gspt10:=EMA(gspt9,5);
gspt11:=CROSS(gspt9,gspt10);
DRAWTEXT(gspt11,L*0.98,'买'),COLORYELLOW;
STICKLINE(gspt11,O,C,1.4,0),COLORYELLOW;
DRAWICON(gspt11,L,1);
gspt12:=EMA(((SLOPE(CLOSE,21)*20) + CLOSE),68);
gspt13:=EMA(CLOSE,10);
gspt14:=REF(CLOSE,2);
gspt15:=((SMA(MAX((CLOSE - gspt14),0),6,1) / SMA(ABS((CLOSE - gspt14)),6,1)) * 100);
gspt16:=IF(((gspt15 < REF(gspt15,1)) AND (gspt15 > 79)),gspt15,0);
DRAWTEXT(CROSS(gspt13,gspt12),L*0.98,'加'),COLORRED;
STICKLINE(CROSS(gspt13,gspt12),O,C,1,0),COLORRED;
DRAWICON(CROSS(gspt13,gspt12),L,23);
gspt17:=REF(CLOSE,1);
gspt18:=((SMA(MAX((CLOSE - gspt17),0),3,1) / SMA(ABS((CLOSE - gspt17)),3,1)) * 100);
DRAWTEXT(CROSS(88,gspt18),H*1.02,'卖'),COLORGREEN;
STICKLINE(CROSS(88,gspt18),O,C,1,0),COLORGREEN;
DRAWICON(CROSS(88,gspt18),H,2);
{风险系数}
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(财务预警,优质资产率),现金负债比);
DRAWTEXT_FIX(ISLASTBAR,0,1.0,0,财务系数)COLORLIRED;