|
以下是通达信天地合经典公式已用好多年（无源码的请下载附件导入）
{天地合公式}源码
VAR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR2:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
VAR3:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
VAR5:=(VAR2+2*VAR3+3*VAR4)/6;
VAR6:=MA(VAR5,3);
MACD:=VAR6*5,COLORSTICK ,LINETHICK2;
{关注:STICKLINE(VAR6<=-8,5,25,1,0),;}
警戒雷达:=IF(VAR6<-6,50,0),LINETHICK1 , COLORFF0000;
导弹出击:=IF(VAR6<=-10,1,0),COLORYELLOW,STICK,LINETHICK2;
{引导雷达:STICKLINE(VAR6<=-10,65,35,1,0);
制导雷达:STICKLINE(VAR6<=-10,40,0,1,0),COLORRED;
发射:STICKLINE(VAR6<=-10,80,30,1,0),COLORGREEN;
导弹:STICKLINE(VAR6<=-10,80,60,1,0),COLORWHITE;
K:SMA(VAR1,3,1),COLORGREEN;
D:SMA(K,3,1),COLORYELLOW;
J:3*K-2*D,COLORWHITE;
底:20,LINETHICK2 ,POINTDOT COLOR77AA1A;
入顶:80,LINETHICK2 ,POINTDOT COLORCYAN;
大顶:100,LINETHICK2 ,POINTDOT COLOR22A6E6;};
{冲锋准备}
VARJKH1:=MA(HHV(HIGH,485),17);
VARJKH2:=MA(HHV(HIGH,222),17);
VARJKH3:=MA(HHV(HIGH,96),17);
VARJKH4:=MA(LLV(LOW,485),17);
VARJKH5:=MA(LLV(LOW,222),17);
VARJKH6:=MA(LLV(LOW,96),17);
VARJKH7:=MA((VARJKH4*0.96+VARJKH5*0.96+VARJKH6*0.96+VARJKH1*0.558+VARJKH2*0.558+VARJKH3*0.558)/6,17);
VARJKH8:=MA((VARJKH4*1.25+VARJKH5*1.23+VARJKH6*1.2+VARJKH1*0.55+VARJKH2*0.55+VARJKH3*0.65)/6,17);
VARJKH9:=MA((VARJKH4*1.3+VARJKH5*1.3+VARJKH6*1.3+VARJKH1*0.68+VARJKH2*0.68+VARJKH3*0.68)/6,17);
VARJKHA:=MA((VARJKH7*3+VARJKH8*2+VARJKH9)/6*1.738,17);
VARJKHB:=IF(DATE<=1050531,VARJKHA,VARJKHA*DAY);
VARJKHC:=LOW;
VARJKHD:=REF(LOW,1);
VARJKHE:=SMA(ABS(VARJKHC-VARJKHD),3,1)/SMA(MAX(VARJKHC-VARJKHD,0),3,1)*100;
VARJKHF:=MA(IF(CLOSE*1.35<=VARJKHB,VARJKHE*10,VARJKHE/10),1.35);
VARJKH10:=LLV(LOW,30);
VARJKH11:=HHV(VARJKHF,30);
VARJKH12:=1990831;
绝佳买点:=IF(DATE<=VARJKH12,MA(IF(LOW<=VARJKH10,(VARJKHF+VARJKH11*2)/2,0),2),100000000);
I:=IF(CLOSE<REF(CLOSE,1),VOL/CAPITAL*10053,0);
骤雨初晴:= ABS(EMA(I,13.3)-18)/WINNER(CLOSE)*IF((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)<-0.04,1,0);
短线买:=IF(绝佳买点>500 AND 绝佳买点>2500,1,0),COLORYELLOW,LINETHICK1;
中线买:=IF(绝佳买点>10000 AND 绝佳买点>20000,2,0),COLORFF00FF,LINETHICK1;
冲锋买点:=IF(绝佳买点>30000 AND 绝佳买点>30000,3,0),COLORRED,LINETHICK1;
短中冲:=(短线买 AND 中线买 AND 冲锋买点)*(30),COLORRED;
{锁定目标}
VARKJUL1:=3;
VARKJUL2:=(3)*(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1)) - (2)*(SMA(SMA(((CLOSE - LLV(LOW,27))/(HHV(HIGH,27) - LLV(LOW,27)))*(100),5,1),3,1));
绝地反击:=IF(CROSS(VARKJUL2,VARKJUL1),100,0),COLORRED;
秘密埋伏点:=IF((VARKJUL2 <= 3),25,0),COLORFF00FF;
锁定目标:=IF((VARKJUL2 < 5 AND 秘密埋伏点=25),45,0),COLOR00FF00;
地合:30*((警戒雷达 AND 短中冲) OR (警戒雷达 AND 锁定目标) OR (短中冲 AND 锁定目标)),COLORWHITE,STICK,LINETHICK2;
天合:20*导弹出击,COLORYELLOW,STICK,LINETHICK2;
天地合:10*(警戒雷达 AND 短中冲 AND 锁定目标),COLORRED,STICK,LINETHICK2;
644500391.jpg
|
