天石永红公式源码[通达信公式]

相关标签:

原理解析：
GJ赋值:(('CCII.CCI[取周线数据]')/10)+40 WR赋值:5日前的收盘价 ZFU赋值:((收盘价/WR)-1)*100 WRG赋值:((GJ/1日前的GJ)-1)*100 ZSH赋值:((收盘价/10日前的收盘价)-1)*100 ZES赋值:((收盘价/20日前的收盘价)-1)*100 SG赋值:((GJ/6日前的GJ)-1)*100 ESG赋值:((GJ/16日前的GJ)-1)*100 LEN赋值:(ESG-ZES)+30 MEN赋值:(SG-ZSH)+30 SEN赋值:(WRG-ZFU)+30 TEN赋值:LEN+MEN+SEN ENCH赋值:TEN>90 AND 14日内1日前的TEN的最高值<=TEN LJGJ赋值:(LEN>80 OR MEN>80 OR SEN>80) AND LEN>30 AND MEN>30 AND SEN>30 TENMAVOL赋值:15日内1日前的TEN的最高值 TENMDAY赋值:上次TENMAVOL距今天数 ZNTP赋值:TEN>TENMAVOL AND 收盘价>TENMDAY+1日前的收盘价 输出天石永红:LJGJ AND ENCH AND ZNTP 当满足条件天石永红时,在0.24位置书写文字

 来源:程序化99（ WWW.CXH99.COM ）

源码：

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

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】