以下是通达信天石永红源码副图

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>30;
 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,'!天石永红');