【通达信免费源码】信号共振指标 副图 波段 短线 买卖点 抄底逃顶

轴1:0,COLORYELLOW;

轴2:5,COLORWHITE,POINTDOT;

轴3:10,COLORWHITE,POINTDOT;

轴4:15,COLORWHITE,POINTDOT;

轴5:20,COLORWHITE,POINTDOT;

轴6:25,COLORWHITE,POINTDOT;

轴7:30,COLORYELLOW;

{金兰三宝}

N:=9;

N1:=6;

M:=14;

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

AAA1:=(AAATYP-MA(AAATYP,M))/(0.015*AVEDEV(AAATYP,M));

C1:=SMA(AAA1,3,1);

C2:=SMA(C1,3,1);

C3:=3C1-2C2;

CB1:=EMA(C3,5);

CB2:=REF(CB1,1);

LC := REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;

RSI:=(RSI1-50)*5;

R1:=SMA(RSI,3,1);

D1:=SMA(R1,3,1);

J1:=3R1-2D1;

RR1:=EMA(J1,5);

RR2:=REF(RR1,1);

RR:=RR1>RR2;

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

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

K1:=(K-50)*5;

K2:=SMA(K1,3,1);

D2:=SMA(K2,3,1);

J2:=3K2-2D2;

BB1:=EMA(J2,5);

BB2:=REF(BB1,1);

三宝:RR AND NOT(REF(RR,1)) AND (RR1<-100 AND BB1<-100) AND CB1<-100,COLORGREEN,NODRAW;

STICKLINE(三宝,5,0,3,0)COLORGREEN;

{极地上涨}

VA1:=HHV(HIGH,9)-LLV(LOW,9);

VA2:=HHV(HIGH,9)-CLOSE;

VA3:=CLOSE-LLV(LOW,9);

VA4:=VA2/VA1*100-70;

VA5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;

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

VA7:=SMA(VA3/VA1*100,3,1);

VA8:=LLV(LOW,34);

VA9:=SMA(VA7,3,1)-SMA(VA4,9,1);

VARA:=IF(VA9>100,VA9-100,0);

VARB:=HHV(HIGH,34);

VARC:=EMA((VA6-VA8)/(VARB-VA8)*100,13);

VARD:=EMA(0.667REF(VARC,1)+0.333VARC,2);

VARE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(ABS(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25;

VARF:=MA(VARE,3);

VAR1:=HHV(HIGH,9)-LLV(LOW,9);

VAR2:=HHV(HIGH,9)-CLOSE;

VAR3:=CLOSE-LLV(LOW,9);

VAR4:=((VAR2)/(VAR1))*(100)-70;

VAR5:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100);

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

VAR7:=SMA(((VAR3)/(VAR1))*(100),3,1);

VAR8:=LLV(LOW,34);

VAR9:=SMA(VAR7,3,1)-SMA(VAR4,9,1);

VAR10:=IF((VAR9>100),VAR9-100,0);

VAR11:=HHV(HIGH,34);

B1:=EMA(((VAR6-VAR8)/(VAR11-VAR8))*(100),8);

领先:=EMA(B1,5);

生命线:=EMA(VARD,1);

V1:=MA(C,5)=HHV(MA(C,5),20);

V2:=MA(C,5)>MA(C,10);

V3:=MA(V,5)>MA(V,40)*1.01;

V4:=COUNT(MA(C,1)>REF(C,1),2)=2;

VV:=V1 AND V2 AND V3 AND V4;

A1:=EMA(CLOSE,8);

A2:=EMA(A1,20);

A3:=CROSS(A1,A2);

A4:=A1<EMA(CLOSE,120);

A5:=3SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))100,21,1)-2*

SMA(SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,20,1),8,1);

安全位:=20;

低位转强:=CROSS(A5,安全位);

开始拉升:=CROSS(VARC,生命线) AND VARC>VARD AND VARC<55 AND C>O;

A6:=LLV(C,500)=LLV(C,5) AND C/REF(C,1)>(1+9.8/100);

极地上涨:=A6;

极地:开始拉升>0 AND 开始拉升<400 OR 极地上涨>0 AND 极地上涨<400

OR (低位转强>0 AND 低位转强<400) OR (低位转强>0),COLORYELLOW,NODRAW;

STICKLINE(极地,10,15,3,0),COLORYELLOW;

{好底}

D:=EMA((C*3+H+L+O)/6,5);

买卖:=D,COLORGREEN,LINETHICK2;

A线:=HHV(D,13)COLORYELLOW,LINETHICK2;

B线:=LLV(D,13)COLORYELLOW,LINETHICK2;日平:="MACD.MACD#DAY"(12,26,9);

周平:="MACD.MACD#WEEK"(12,26,9);

JC:=(A线-B线);

壹:=COUNT(JC>REF(JC,1)AND A线>REF(A线,1),5)=1 AND JC>REF(JC,1)AND A线>REF(A线,1)AND D>=REF(D,1);

G1:=FILTER(壹=1,10);

G2:=BARSLAST(G1>0);

G3:=IFF(G2>0 AND G2<=10,1,0)=1 AND ((C-REF(C,G2))/REF(C,G2))*100>=5;

概壹:=(SUM(FILTER(G3,10),0)/SUM(G1>0,0))*100;

加1:=COUNT(日平>=0 AND 周平>=0,5)=1 AND 日平>=0 AND 周平>=0;

加2:=FILTER(D=A线 AND REF(D,1)<REF(A线,1)AND REF(D,2)<REF(A线,2),10);

①:=FILTER(加1=1,10);

②:=BARSLAST(①>0);

③:=IFF(②>0 AND ②<=10,1,0)=1 AND ((C-REF(C,②))/REF(C,②))*100>=5;

概加1:=(SUM(FILTER(③,10),0)/SUM(①>0,0))*100;

好底:FILTER(COUNT(D=B线,3)>=2 AND D>B线,5),COLORBLUE,NODRAW;

STICKLINE(好底,15,20,3,0),COLORBLUE;

{抄底}

MMM:=1;

SVOL:=INTPART(SUM(V,0)/CAPITAL);

TJ0:=SVOL>REF(SVOL,1) OR BARSSINCE(CLOSE)=0;

S1:=BARSLAST(TJ0)+1;

TJJ2:=S1<REF(S1,1);

S2:=IF(TJJ2,REF(S1,1)+1,S1);

S3:=SUM(TJJ2,0);

ZK1:="KD.K#WEEK"(9,3,3);

ZD2:="KD.D#WEEK"(9,3,3);

ZF1:="MACD.DIF#WEEK"(12,26,9);

ZA2:="MACD.DEA#WEEK"(12,26,9);

换手:=V/CAPITAL*100,LINETHICK0;

JCD:=CROSS(ZK1,ZD2) AND REF(ZD2,1)<30;

抄底:EXIST(JCD,MMM),COLORCYAN,NODRAW;

STICKLINE(抄底,20,25,3,0),COLORCYAN;

{只做牛市}

HR:=HHV(HIGH,55);

HRY:=LLV(LOW,55);

HRY11:=HR*HRY;

HRY33:=SQRT(HRY11);

WLT1:=EMA(C,3);

WLT2:=EMA(C,5);

WLT3:=EMA(WLT2,5);

HP:=(HHV(CLOSE,10)-LLV(CLOSE,10))/CLOSE<0.10;

LB:=VOL/MA(VOL,5);

X1:=(C+L+H)/3;

BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))3.141610;

EMA3:=EMA(C,3);

TT:=FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10);

MM:=WLT1>REF(WLT1,1) AND REF(WLT1,1)<REF(WLT1,2) ;

GG1:=CROSS(WLT1,WLT2);

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

CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));

差值1:=ABS(REF(CCI1,1)-CCI1),LINETHICK0;

CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));

差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0;

CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));

差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0;

CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));

差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0;

CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));

差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0;

CCI:=(CCI1+CCI2+CCI3+CCI4+CCI5)/2,COLORRED,LINETHICK2;

WLT91:=HHV(CCI,13);

WLT92:=LLV(CCI,13)<-100;

WLT95:=COUNT(WLT92,13)>=3;

WLT93:=CCI>WLT91;

WLT96:=CROSS(CCI,100);

TJ91:=WLT95 AND WLT96;

JLP:=FILTER(TJ91,5);

超买:=MA(C,10)*IF(CAPITAL=0,1.04,1.1);

超卖:=MA(C,10)*IF(CAPITAL=0,0.95,0.9);

TEND:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42);

DD:=TEND>REF(TEND,1) AND REF(TEND,1) >REF(TEND,2);

GG2:=CROSS(WLT1,TEND);

HRY1:=LLV(LOW,55);

HRY2:=HHV(HIGH,21);

GG3:=C<HRY2*0.8 AND C>HRY33;

JJ1:=C<HRY1*1.62;

TJ1:=GG1;

TJ2:=GG2 AND JJ1;

TJ3:=GG1 AND GG3 ;

XG:=TJ1 OR TJ3 ;

XG2:=C<HRY2*0.86 OR LB>1;

XG1:=XG AND XG2 AND C>HRY33 AND JLP;

XG3:=XG AND C<HHV(HIGH,250)*0.3;

XG11:=XG1 OR XG3;

W8:=XG11 OR XG1;

GET:=ZIG(3,5),COLORFFFFFF;

PL5:=ZIG(3,5);

EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);

EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);

PL10:=ZIG(3,10);

EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);

EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);

PL20:=ZIG(3,20);

EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);

EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);

PL40:=ZIG(3,40);

走强1:=BARSLAST(PL5<REF(PL5,1));

走弱1:=BARSLAST(PL5>REF(PL5,1));

走强2:=BARSLAST(PL10<REF(PL10,1));

走弱2:=BARSLAST(PL10>REF(PL10,1));

走强3:=BARSLAST(PL20<REF(PL20,1));

走弱3:=BARSLAST(PL20>REF(PL20,1));

ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);

ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);

DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);

DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);

ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走强3),0);

ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);

DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);

DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);

WLT11:=EN1 AND DTJZ5=1;

WLT22:=EN2 AND ZTJZ5=1;

WLT33:=WLT11 OR WLT22;

WLT01:=EN2 AND DTJZ10=1;

WLT02:=EN3 AND ZTJZ10=1;

WLT03:=WLT01 OR WLT02;

WLT:=WLT33 AND WLT03;

做牛有未来:W8 OR WLT,COLORLIMAGENTA,NODRAW;

STICKLINE(做牛有未来,5,10,3,0),COLORLIMAGENTA;

{雨青底}

M5:=MA(CLOSE,5);

M4:=MA(CLOSE,4);

MA3:=MA(CLOSE,3);

VOL5:=MA(VOL,5);

雨青底:M5>M4 AND SLOPE(M5,5)<0 AND SLOPE(M4,4)<0 AND SLOPE(MA3,3) AND REF(M4>MA3,1) AND CROSS(MA3,M4) AND VOL>VOL5,COLORRED,NODRAW;

STICKLINE(雨青底,25,30,3,0),COLORRED;