【通达信免费源码】波浪买卖点提示主图

AAF:=LLV(LOW,34);

BBF:=MA(AAF,4);

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

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

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

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

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

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

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

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

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

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

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

CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;

AAA:=(3*C+H+L+O)/6;

VAR1:=(8AAA+7REF(AAA,1)+6REF(AAA,2)+5REF(AAA,3)

+4REF(AAA,4)+3REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;

VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;

VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;

VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;

VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;

VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

短线:=VAR1;

中线:=VAR6;

{FILLRGN(短线,中线,短线>中线, RGB(255,255,50),短线<中线, RGB(0,0,220));}

下跌:=IF(VAR1=VAR6,VAR6, VAR1);

{PARTLINE(下跌,VAR1=VAR6),COLORGREEN;}

TJ1:=CCI1>差值4;

立桩量:=FILTER(TJ1,0);

TJ2:=IF(BARSLAST(立桩量)=1 ,1,0);

成立1:=TJ2=1;

条件成立1:=FILTER(成立1,5);

TJ11:= CCI1<-差值4 ;

立桩量2:=FILTER(TJ11,0);

TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,

IF(BARSLAST(立桩量2)=2 AND CLOSE>REF(HIGH,2),1,

IF(BARSLAST(立桩量2)=3 AND CLOSE>REF(HIGH,3),1,0)));

TJ:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(LOW,1),1,0);

成立2:=TJ=1;

条件成立2:=FILTER(成立2,5);

TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5))

OR (VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1);

立桩量3:=FILTER(TJ111,5);

TJ3:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(LOW,3),1,0)));

成立:=TJ3=1;

条件成立:=FILTER(成立,5);

DRAWICON(条件成立 AND 下跌= VAR6{ AND BB13>0},L*0.97,2);

LC:=REF(CLOSE,1);

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

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

DRAWICON(CROSS(FF,MA15),LOW*0.97,1);

DRAWTEXT(CROSS(88,RSI),(HIGH * 1.01),'R背'),COLOR00FF00;

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

BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))3.141610;

EMA8:=EMA(C,8);

DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),

EMA8,'∠'),COLORWHITE;

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

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

上:=EMA(C,3);

中:=EMA(C,5);

下:=EMA(中,5);

QQ:= C<中;

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

V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);

V2:=(1-7/100)*(DMA(CLOSE,V1));

V3:=(1+7/100)*(DMA(CLOSE,V1));

V5:=MA((LOW+HIGH+CLOSE)/3,5);

MA1:=MEMA(CLOSE,5);

MA2:=ATAN((MA1/REF(MA1,1)-1)100)180/3.1416;

MA3:=IF(MA2>0,MA2,MA2);

MA5:=MA(CLOSE,5);

MA13:=MA(CLOSE,13);

VAR01:=CLOSE=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3))

OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND

REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND

C>=REF(C,1) AND C>=REF(C,2);

{收盘价=4日内收盘价的最高值 AND 昨收>=2日前的收盘价}

VAR02:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);

{收盘价=4日内收盘价的最高值 AND 昨收=4日内收盘价的最低值}

VAR03:=CLOSE=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR

REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND

REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND

C<REF(C,1) AND C<REF(C,2);

{收盘价=4日内收盘价的最低值 AND (昨收<2日前的收盘价}

VAR04:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND

REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);

{昨收=4日内收盘价的最低值 AND 收盘价>=2日前的收盘价}

VAR05:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND

REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND

REF(C,2)>=REF(C,4) AND C<REF(C,1);

{昨收=4日内收盘价的最高值 AND 收盘价<2日前的收盘价}

VAR06:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2);

{今日V5向上形成拐点}

VAR07:=LOW<HHV(V5,13) AND HIGH>HHV(V5,13) AND CLOSE>REF(C,1) AND CLOSE>OPEN;

VAR08:=VAR07 AND COUNT(VAR06,2);

VAR09:=100*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);

VAR10:=EMA(MA(C,13),13);

VAR11:=FILTER((LLV(VAR09,2)=LLV(VAR09,7) AND COUNT(VAR09<0,2) AND

CROSS(VAR09,MA(VAR09,2)))=1,5);

VAR12:=FILTER((HHV(VAR09,2)=HHV(VAR09,7) AND COUNT(VAR09>50,2) AND

CROSS(MA(VAR09,2),VAR09))=1,1);

VAR13:=SMA(EMA((C-REF(C,1))/REF(C,1),5)100,3,1)10;

VAR14:=FILTER(((CROSS(VAR13,0) OR CROSS(C,VAR10)) AND VAR11)=1,3);

VAR15:=MA(C,18)>=REF(MA(C,18),3) AND CROSS(C,MA(C,18));

VAR16:=VAR08 AND NOT(REF(VAR08,1));

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

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

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

J:=3K-2D;

金叉:=CROSS(J,D);

死叉:=CROSS(D,J);

买1:=(VAR14 OR VAR15) AND VAR11;

买2:=(VAR14 OR VAR15) AND VAR4;

买3:=(VAR14 OR VAR15) AND VAR2;

买4:=(VAR2 AND VAR11) OR (VAR4 AND VAR11);

买5:=(金叉 AND VAR04) OR (金叉 AND VAR02) OR (金叉 AND VAR11);

{涨停}

STICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,4,-1),

COLOR00FFFF;

{跌停}

STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,4,-1),

COLORGREEN;

{蓝}

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,3.3*2,0),COLORFF6600;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2.4*2,0),COLORFF8800;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,1.3*2,0),COLORFFAA00;

STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,0.6*2,0),COLORFFCC00;

{红}

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.3*2,0),COLOR000099;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4*2,0),COLOR0000BB;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.3*2,0),COLOR0000DD;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.5*2,0),COLOR0000FF;

{绿}

STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,3.3*2,0),COLOR009900;

STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,2.4*2,0),COLOR00BB00;

STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,1.3*2,0),COLOR00DD00;

STICKLINE(VAR03,OPEN,(OPEN+CLOSE)/2,0.5*2,0),COLOR00FF00;

{灰}

STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,3.3*2,0),COLOR999999;

STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,2.2*2,0),COLORBBBBBB;

STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,1.3*2,0),COLORDDDDDD;

STICKLINE(VAR04 AND MM,OPEN,(OPEN+CLOSE)/2,0.5*2,0),COLORFFFFFF;

STICKLINE(金叉,OPEN,CLOSE,0.5,0),COLORYELLOW;

STICKLINE(死叉,OPEN,CLOSE,0.5,0),COLOR000066;

DRAWICON(VAR16,LOW-0.02,6);

DRAWICON(买1 OR 买2 OR 买3 OR 买4 OR 买5 AND MM,LOW-0.05,6);

DRAWICON(死叉 OR CROSS(50,VAR09) AND QQ AND K>50,HIGH+0.01,2);

TTJ:=CROSS(FF,MA15);

TTJ0:=VAR16;

TTJ1:=买1 OR 买2 OR 买3 OR 买4 OR 买5 AND MM;

XG0:=TTJ AND TTJ0;

XG1:=TTJ AND TTJ1;

XG:=XG0 OR XG1;

DRAWTEXT(XG,LOW*0.93,'全'),COLORRED;

DRAWTEXT(XG,LOW*0.93-0.3,'仓'),COLORRED;

GET:ZIG(3,3),COLORYELLOW;

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);

DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00;

DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF;

DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'(C)'),COLOR0000FF;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;

DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;

DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;

DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF;

DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00;

DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)

AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF;

DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF;

{黄金买点}

ZZ:=(O+H+L)/3;

HJMD:EMA(ZZ,4),COLORYELLOW,LINETHICK1;

XXB:=CLOSE*VOL;

XXBYM:EMA((EMA(XXB,3)/EMA(VOL,3)+EMA(XXB,6)/EMA(VOL,6)+EMA(XXB,12)/EMA(VOL,12)+EMA(XXB,24)/EMA(VOL,24))/4,13),COLORFF00FF,LINETHICK0;

{爱心:=EMA(CLOSE,13)-EMA(CLOSE,55);

无价:=EMA(爱心,3);

PARTLINE(XXBYM,爱心>=无价,RGB(255,0,0),1,RGB(0,255,0)),LINETHICK2;

DRAWTEXTREL(700,120,'今日买点：'+NUMTOSTRN(HJMD,2 )),LINETHICK2,COLORYELLOW; };