[通达信指标]组合公式 众家之长公式源码

N:=9;

M1:=3;

M2:=3;

CDB1:100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5)),COLOR0080FF;

CDB2:100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)),COLORGREEN;

CDB3:100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)),COLORFF8000;

CDB4:100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)),COLOR00FFFF;

RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;

K:=SMA(RSV,M1,1);

D:=SMA(K,M2,1);

J:=3*K-2*D;

TJDL5E:=LLV(LOW,26);

TJDL6E:=HHV(HIGH,34);

TJDL7E:=EMA((CLOSE-TJDL5E)/(TJDL6E-TJDL5E)*4,4)*25;

DRAWTEXT(TJDL7E<10,10,’底’),COLORWHITE;

DRAWTEXT(TJDL7E>90,90,’顶’),COLORGREEN;

VTJDL1:=(C-MA(C,6))/MA(C,6)*100;

VTJDL2:=(C-MA(C,24))/MA(C,24)*100;

VTJDL3:=(C-MA(C,32))/MA(C,32)*100;

VTJDL4:=(VTJDL1+VTJDL2+VTJDL3)/3;

VTJDL5:=EMA(VTJDL4,5);

VTJDL6:=MA(100*(C-LLV(C,34))/(HHV(H,34)-LLV(L,34)),5)-20;

VTJDL7:=SMA(SMA(100-3*(C-LLV(C,75))/(HHV(H,75)-LLV(L,75))*100,20,1)+SMA(2*(C-LLV(C,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1);

VTJDL8:=VTJDL7<REF(VTJDL7,1) AND V>REF(V,1) AND C>REF(C,1);

AK:=EMA(VTJDL5,5)*4;

AD:=EMA(AK,5),COLORMAGENTA,LINETHICK2;

AJ:=AK*3-AD*2,COLORYELLOW,LINETHICK2;

看多:IF(LLV(VTJDL6,3)<VTJDL6,-15,DRAWNULL),LINETHICK2,COLORRED;

看空:IF(VTJDL6=LLV(VTJDL6,3),-15,DRAWNULL),LINETHICK2,COLORGREEN;

中短线:IF(AJ>AD,-10,DRAWNULL),LINETHICK2,COLORCC66FF;

超短线:IF(VTJDL8>0,-5,DRAWNULL),LINETHICK2,COLORYELLOW;

不定区:IF(AJ<AD,-10,DRAWNULL),LINETHICK2,COLORFF9900;

牛熊战区:IF(VTJDL8=0,-5,DRAWNULL),LINETHICK2,COLOR6B8E23;

W:=((-((100)*(HHV(H,14) – C))/(HHV(HIGH,14) – LLV(L,14))));

A2:=MA(C,18);

A3:=(C-A2)/A2*100>=-9.9 AND C<A2;

RRV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

RRG1:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*1;

SKK:=EMA(SMA(RRG1,3,1),2);

SDD:=SMA(SKK,3,1);

WAR4:=SMA(RRV,3,1);

WAR5:=SMA(WAR4,3,1);

腰线:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;

KKA:=EMA(C-L,5) ;

顶线:=MA((C+REF(C,1)+REF(C,1))/3+KKA,5);

底线:=MA(REF(C,1)-KKA,5);

MA20:= MA(C,20);

BBA:=MA(C,2);

CCA:=MA(C,10);

DDA:=MA(C,20);

EEA:=EXIST(CROSS(BBA,CCA) AND CROSS(BBA,DDA),1);

VAAR6:=”KDJ.J#WEEK”(9,3,3);

VAAR8:=”KDJ.J#MONTH”(9,3,3);

DEA7:=”MACD.DEA#WEEK”;

DIFF7:=”MACD.DIF#WEEK”;

D7:=DIFF7-DEA7;

DEA8:=”MACD.DEA#MONTH”;

DIFF8:=”MACD.DIF#MONTH”;

D8:=DIFF8-DEA8;

P:=(HIGH+LOW+CLOSE)/3;

CCI1:=(P-MA(P,14))*1000/(15*AVEDEV(P,14)),COLORRED;

CCI2:=(P-MA(P,36))*1000/(15*AVEDEV(P,36)),COLORGREEN;

DRAWTEXT(CROSS(VAAR6,0) AND D8>0 OR CROSS(VAAR8,0) AND D7>0,70,’黑马抄底’),COLOR0000FF;

DRAWTEXT(CROSS(W,-2) AND CROSS(WAR4,WAR5) AND CROSS(SKK,SDD),50,’天天涨停’),COLOR0000FF;

DRAWTEXT(A3 AND C/REF(C,1)>1.080,50,’美人如玉’),COLORRED;

DRAWTEXT(腰线>O AND O>底线 AND C>顶线 AND C>MA20 AND C>腰线 AND EEA AND CROSS(WAR4,WAR5) AND CROSS(SKK,SDD),50,’明月战

神’),COLORGREEN;

DRAWTEXT(CROSS(CCI1,CCI2) AND REF(CCI1,1)=LLV(CCI1,25) AND CROSS(K,D),0.4,’抄底王’),COLORYELLOW;

RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;

TJDL4:=SMA(RV,3,1);

TJDL5:=SMA(TJDL4,3,1);

KK:=EMA(SMA(RG,3,1),2);

DD:=SMA(KK,3,1);

DRAWTEXT(CROSS(TJDL4,TJDL5) AND CROSS(KK,DD),35,’积雪’),COLOR00FFFF;

STICKLINE(CROSS(TJDL4,TJDL5) AND CROSS(KK,DD),0,35,1,0),COLORMAGENTA;

DTJJ:=(CLOSE+HIGH+LOW)/3;

DTA:=EMA(DTJJ,10);

DTB:=REF(DTA,1);

STICKLINE(DTA>DTB,-20,-25,5,0),COLORYELLOW;

STICKLINE(DTA<DTB,-22,-25,5,0),COLORBLUE;

TJDLR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);

TJDLR2:=REF(TJDLR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR3:=REF(TJDLR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR4:=REF(TJDLR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR5:=REF(TJDLR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR6:=REF(TJDLR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR7:=REF(TJDLR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR8:=REF(TJDLR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR9:=REF(TJDLR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLRA:=REF(TJDLR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLRB:=REF(TJDLRA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLRC:=REF(TJDLRB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLRD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);

TJDLRE:=REF(TJDLRD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLRF:=REF(TJDLRE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR10:=REF(TJDLRF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR11:=REF(TJDLR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR12:=REF(TJDLR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR13:=REF(TJDLR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR14:=REF(TJDLR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR15:=REF(TJDLR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR16:=REF(TJDLR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR17:=REF(TJDLR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

TJDLR18:=REF(TJDLR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

TJDLR19:=REF(TJDLRD OR TJDLRE OR TJDLRF OR TJDLR10 OR TJDLR11 OR TJDLR12 OR TJDLR13 OR

TJDLR14 OR TJDLR15 OR TJDLR16 OR TJDLR17 OR TJDLR18,1) AND TJDLR1;

TJDLR1A:=REF(TJDLR1 OR TJDLR2 OR TJDLR3 OR TJDLR4 OR TJDLR5 OR TJDLR6 OR TJDLR7 OR

TJDLR8 OR TJDLR9 OR TJDLRA OR TJDLRB OR TJDLRC,1) AND TJDLRD;

DRAWTEXT(TJDLR19,20,’托底’),COLORYELLOW;

DRAWTEXT(TJDLR1A,80,’见顶’),COLORLICYAN;

TJDL1C:=1;

TJDL2C:=(2*CLOSE+HIGH+LOW)/4;

TJDL3C:=IF(YEAR>=2099 AND MONTH>2,0,1);

TJDL4C:=LLV(LOW,5);

TJDL5C:=HHV(HIGH,4);

散户:=EMA((TJDL2C-TJDL4C)/(TJDL5C-TJDL4C)*100,4)*TJDL3C*TJDL1C;

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*TJDL3C*TJDL1C;

DRAWTEXT(CROSS(散户,庄家) AND 散户<50 AND 29<散户,40,’短进’),COLORRED;

DRAWTEXT(CROSS(散户,庄家) AND 散户<30,50,’低吸’),COLOR3399CC;

DRAWTEXT(CROSS(庄家,散户) AND 散户>70,95,’高抛’),COLORMAGENTA;