GJ:=(('CCII.CCI#WEEK')/10)+40;
WR:=REF(C,5);
ZFU:=((C/WR)-1)*100;
WRG:=((GJ/REF(GJ,1))-1)*100;
ZSH:=((C/REF(C,10))-1)*100;
ZES:=((C/REF(C,20))-1)*100;
SG:=((GJ/REF(GJ,6))-1)*100;
ESG:=((GJ/REF(GJ,16))-1)*100;
LEN:=(ESG-ZES)+30;
MEN:=(SG-ZSH)+30;
SEN:=(WRG-ZFU)+30;
TEN:=LEN+MEN+SEN;
ENCH:=TEN 90 AND HHV(REF(TEN,1),14) =TEN;
LJGJ:=(LEN 80 OR MEN 80 OR SEN 80) AND LEN 30 AND MEN 30 AND SEN
TENMAVOL:=HHV(REF(TEN,1),15);
TENMDAY:=BARSLAST(TENMAVOL);
ZNTP:=TEN TENMAVOL AND CLOSE REF(CLOSE,TENMDAY+1);
天石永红:LJGJ AND ENCH AND ZNTP;
DRAWTEXT(天石永红,0.24,'!天石永红');
