相關標簽:

?

?

?

原理解析：
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.tumamayizhan.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,'!天石永紅');

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?