超赞的极品（通达信公式 主图 和谐源码分享）

 {超赞的极品}

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORLIRED;

DRAWTEXT_FIX(ISLASTBAR,0,0.03,0,EXTERNSTR(0,3)),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0,0.06,0,EXTERNSTR(0,6)),COLORLIBLUE;

DRAWTEXT_FIX(ISLASTBAR,0,0.09,0,EXTERNSTR(0,12)),COLORLIGREEN;{老王}

DRAWTEXT_FIX(ISLASTBAR,0,0.15,0,FGBLOCK),COLORLIMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0,0.12,0,EXTERNSTR(0,1)),COLORYELLOW;{融胜}

主力成本线:EMA(COST(9),250),COLORBROWN,DOTLINE;

{牛马线买点公式升级版  WWW.70822.com}

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

牛线:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;

马线:MA(牛线,8),COLORWHITE;

DRAWICON( FILTER(CROSS(牛线,马线),20),马线-0.002 ,1);

DRAWTEXT(CROSS(牛线,马线),LOW*0.984,'买'),COLORRED,LINETHICK2;

止损价:H*0.95,LINETHICK0.5,COLORRED; 

庄家:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;

IF(庄家>=REF(庄家,1),庄家,DRAWNULL),COLORRED,LINETHICK4;

IF(庄家<=REF(庄家,1),庄家,DRAWNULL),COLORGREEN,LINETHICK2;

DRAWBAND(牛线,RGB(255,87,22),马线,RGB(0,30,255));

MA60:MA(CLOSE,60),COLORGRAY;

N1:=10;

TK:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;

量能评台:IF(CURRBARSCOUNT<=N1+3,CONST(IF(TK=0,C,REF(C,TK))),DRAWNULL),COLORGRAY,LINETHICK1;

NOTEXT_新量能点:IF(CURRBARSCOUNT=TK+1,量能评台,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK9;

DRAWTEXT(ISLASTBAR,量能评台,'量能评台'),COLORGRAY;

{稳涨}

红轨道:=MA(MA(CLOSE,3),1),LINETHICK1,COLORYELLOW;

轨道:MA(MA(CLOSE,3),3),COLOR32CD32,LINETHICK2;

NOTEXT_升:IF(红轨道>=轨道,轨道,DRAWNULL),COLORMAGENTA,LINETHICK2;

机构:(L2_VOL(0,0) - L2_VOL(0,1))*10000/FINANCE(7),NODRAW,COLORRED;

大户:(L2_VOL(1,0) - L2_VOL(1,1))*10000/FINANCE(7),NODRAW,COLORMAGENTA;

主力:机构+大户,NODRAW,COLORYELLOW;

STICKLINE(主力>0,O,C,1.5,1),COLORRED;

STICKLINE(主力<0,O,C,1.5,1),COLORCYAN;

STICKLINE(大户>0,O,C,1,0),COLORMAGENTA;

STICKLINE(大户<0,O,C,1,0),COLORGREEN;

STICKLINE(机构>0 AND 大户>0,O,(O+C)/2,1,0),COLORRED;

STICKLINE(机构<0 AND 大户>0,C,(O+C)/2,1,0),COLORCYAN;

STICKLINE(机构>0 AND 大户<0,O,(O+C)/2,1,0)COLORMAGENTA;

STICKLINE(机构<0 AND 大户<0,C,O,1,0)COLORLICYAN;

累计:=SUM(主力,30),COLORMAGENTA;

均值:=EMA(累计,MIN(10,30)),COLORWHITE;

{红}

STICKLINE(CROSS(累计,均值),H,L,0,0),COLORRED,LINETHICK1;

STICKLINE(CROSS(累计,均值),CLOSE,OPEN,1.4,0),COLOR000088;

STICKLINE(CROSS(累计,均值),CLOSE,OPEN,1,0),COLOR0000BB;

STICKLINE(CROSS(累计,均值),CLOSE,OPEN,0.6,0),COLOR0000DD; 

STICKLINE(CROSS(累计,均值),CLOSE,OPEN,0,0),COLOR0000FF;

{蓝}

STICKLINE(CROSS(均值,累计),H,L,0,0),COLORFF8800,LINETHICK1;

STICKLINE(CROSS(均值,累计),CLOSE,OPEN,1.4,0),COLORBB4400;

STICKLINE(CROSS(均值,累计),CLOSE,OPEN,1,0),COLORCC5500;

STICKLINE(CROSS(均值,累计),CLOSE,OPEN,0.6,0),COLORDD6600;

STICKLINE(CROSS(均值,累计),CLOSE,OPEN,0,0),COLOREE7700;

{高低点定位}

G0:=(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))+XMA(XMA(H,30),30);

D0:=XMA(XMA(L,30),30)-(XMA(XMA(H,30),30)-XMA(XMA(L,30),30));

G01:=(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*0.5+XMA(XMA(H,30),30);

D01:=XMA(XMA(L,30),30)-(XMA(XMA(H,30),30)-XMA(XMA(L,30),30))*0.5;

GO0:=(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3+XMA(XMA(H,60),60);

DO0:=XMA(XMA(L,60),60)-(XMA(XMA(H,60),60)-XMA(XMA(L,60),60))*3;

STICKLINE(CURRBARSCOUNT=1,G0,G0,100,5),COLORGREEN;

STICKLINE(CURRBARSCOUNT=1,D0,D0,100,5),COLORMAGENTA;

STICKLINE(CURRBARSCOUNT=1,GO0,GO0,100,5),COLORLIBLUE;

STICKLINE(CURRBARSCOUNT=1,DO0,DO0,100,5),COLORRED;

DRAWTEXT(ISLASTBAR,G0,'卖'),COLORGREEN;

DRAWTEXT(ISLASTBAR,D0,'买'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,GO0,'顶'),COLORLIBLUE;

DRAWTEXT(ISLASTBAR,DO0,'底'),COLORRED;

{五线顺上的拐点定位线，有未来函数}

局部低点预选A:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);

局部低点预选B:=BACKSET(局部低点预选A=0 AND REF(局部低点预选A,1)=1,2);

局部低点预选C:=IF(局部低点预选B=1 AND REF(局部低点预选B,1)=0,-1,0);

局部高点预选A:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);

局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);

局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);

缺口判断:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));

距前高天:=BARSLAST(局部高点预选C=1);

距前低天:=BARSLAST(局部低点预选C=-1);

小值周期:=LOWRANGE(L);

大值周期:=TOPRANGE(H);

低保留AA:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);

低保留AB:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)<REF(LLV(L,距前低天+1),1)),-1,0);

低保留S:=IF((低保留AA=-1 OR 低保留AB=-1) AND L<REF(H,距前高天+1),-1,0);

预判:=IF((距前低天<4 AND HHV(缺口判断,距前低天)!=1) OR REF(低保留S,距前低天)=0,1,0);

判断:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND 预判=1 AND 大值周期>REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0);

高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);

高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)<=REF(距前高天,1) AND REF(低保留S,距前低天)=-1 AND (距前低天>=4 OR HHV(缺口判断,距前低天)=1),1,0);

高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0);

预判A:=IF((距前高天<4 AND HHV(缺口判断,距前高天)!=1) OR REF(高保留,距前高天)=0,1,0);

判断A:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND 预判A=1 AND 小值周期>REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0);

低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)<REF(LLV(L,距前高天+1),1),-1,0);

低保留B:=IF(局部低点预选C=-1 AND REF(距前高天,1)<=REF(距前低天,1) AND (距前高天>=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0);

低保留:=IF((低保留A=-1 OR 低保留B=-1) AND L<REF(H,距前高天+1),-1,0);

距前高天A:=BARSLAST(高保留=1);

距前低天A:=BARSLAST(低保留=-1);

预判X:=IF((距前低天A<4 AND HHV(缺口判断,距前低天A)!=1) OR REF(低保留,距前低天A)=0,1,0);

判断X:=IF(局部高点预选C=1 AND REF(距前低天A,1)<=REF(距前高天A,1) AND 预判X=1 AND 大值周期>REF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0);

高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0);

高保留XB:=

p20196160573786799.jpg