通达信牛回头主图源码

 

开盘:=(O-REF(C,1))/REF(C,1)*100,NODRAW,COLORLIGREEN;

现价:REFDATE(C,DATE),DOTLINE,COLORLIGRAY;

半分:(O+C)/2,NODRAW,COLORWHITE;

H2:=MAX(H,REF(H,1));

L2:=MIN(L,REF(L,1));

两日半:=(H2+L2)/2,NODRAW;

STICKLINE(ISLASTBAR AND 两日半,两日半,两日半,18,1),COLOREED28E;

MA5角:ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.1416,NODRAW,COLOR5588FF;

高:=REF(HHV(H,72),5);

龙门:REFDATE(高,DATE),COLORWHITE,LINETHICK2;

封成比:=DYNAINFO(58)/DYNAINFO(8),NODRAW,COLORYELLOW;

N:=100;

高1:=REFDATE(HHV(H,N),DATE); 

低1:=REFDATE(LLV(L,N),DATE);

MA5:=MA(C,5),COLORWHITE;

MA10:=MA(C,10),COLORYELLOW;

MA20:=MA(C,20);

MA30:=MA(C,30);

MA60:=MA(C,60),COLORFF00FF,LINETHICK2;

H3:=高1-(高1-低1)*0.5; 

分水岭:REFDATE(H3,DATE),COLORFF99DD,DOTLINE;

DRAWTEXT(分水岭 AND ISLASTBAR,分水岭,'界'),COLORFF99DD;

昨半:=REF((O+C)/2,1);

STICKLINE(ISLASTBAR,昨半,昨半,8,2),COLORLIRED;

 

TM:=1200823;

涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;

跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;

明涨停:IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;

明跌停:IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;

 

ZT:=C=涨停 AND PERIOD=5 AND H=C;

ZT1:=H=涨停 AND PERIOD=5 AND H>C;

DT:=C=跌停 AND PERIOD=5 AND L=C;

DT1:=L=跌停 AND PERIOD=5 AND L<C;

 

 

DRAWTEXT(DT1,L-0.09,'撬板'),COLORCC00CC;{www.gszb.com从涨停到跌停};

DRAWTEXT(ZT1,H+0.03,'炸板'),COLOR00CC00;{www.gszb.com从涨停到跌停};

LB:=REF(EVERY(ZT,3),2) AND REF(H=HHV(H,20),1) AND H<REF(H,1);

LBQ:=BARSLAST(LB);

打折:REF(H,LBQ+1)*0.7,NODRAW,COLORWHITE;

金线:=1;

SLB:=EVERY(ZT,3);

K2:=SUMBARS(REFX(SLB,1),1);

STICKLINE(K2 AND 金线=1,REF(C,K2-1),REF(C,K2-1),5,0),COLORFFCC99;

龙回头天数:SUMBARS(REFX(SLB,1),1)-2,NODRAW,COLORFF00FF;

DRAWTEXT(REFX(NOT(ZT),1) AND SLB,REF(C,1),'回头线');

跟庄线:DMA(AMOUNT/(100*V),V/CAPITAL),COLORFC9F99;

 

妖股:=EVERY(REF(ZT,1),2) AND ZT AND COUNT(ZT,4)=3;

DRAWTEXT(妖股,L*0.98,'妖'),COLOR55FF99;

妖线:EMA(EMA(C,9),5),COLORLIMAGENTA,LINETHICK2;

 

阴线:=C<O;

STICKLINE(阴线,O,C,2.8,0),COLOR009933;

STICKLINE(阴线,H,L,0,0),COLOR009933;

阳线:=C>O;

STICKLINE(阳线,O,C,2.8,1),COLOR0000CC;

STICKLINE(阳线,C,H,0,1),COLOR0000CC;

STICKLINE(阳线,O,L,0,1),COLOR0000CC;

十字线:=C=O AND H>L;

STICKLINE(十字线,O,C,2.8,1),COLORWHITE;

STICKLINE(十字线,L,H,0,1),COLORWHITE;

 

低K:=O<MA5 AND O<MA10 AND O<MA20 AND L<MA30 AND L<MA60; 

高K:=C>MA5 AND C>MA10 AND H>MA20 AND H>MA30 AND H>MA60;

选股:=低K AND 高K;

STICKLINE(选股,CLOSE,OPEN,3,0),COLOR000099;

STICKLINE(选股,CLOSE,OPEN,2.2,0),COLOR0000CC;

STICKLINE(选股,CLOSE,OPEN,1.5,0),COLOR0000FF;

STICKLINE(选股,CLOSE,OPEN,0.5,0),COLORCC66FF;

STICKLINE(选股,OPEN,CLOSE,0.5,0),COLORYELLOW;

DRAWTEXT(选股,L*0.99,'一穿五'),COLORYELLOW;

 

STICKLINE(打折,打折,打折,5,0),COLORFFFF44;

Q3:=STRCAT(CON2STR(打折,2),'打折线'); 

 

DRAWTEXT(ISLASTBAR,打折,VARCAT(VARCAT('打折价',VAR2STR(打折,2)),'元'))COLORFFFF00;

STICKLINE(CURRBARSCOUNT=4,C,C,25,0),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=5,REF(L-0.05,1),'   ◇'),COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=4,L*0.99,C),COLORWHITE;

 

 

假阴:=REF(C>=O,1) AND AMOUNT/V/100>REF(C,1) AND C<O;

假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;

STICKLINE(假阴,O,C,0.2,0),COLORRED;{www.gszb.com假阴柱};

STICKLINE(假阳,O,C,0.7,0),COLORLIGREEN;{www.gszb.com假阳柱};

 

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

板块所属:DRAWTEXT_FIX(1,0,0.21,0,'板块所属：'),COLORWHITE;

DRAWTEXT_FIX(ISLASTBAR,0.055,0.21,0,STRCAT(Z3,GNBLOCK)),COLOR00CC99;

DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLORWHITE;

DRAWTEXT_FIX(1,0.054,0.00,0,EXTERNSTR(0,1))COLOR00CC99;

DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORWHITE;

DRAWTEXT_FIX(1,0.055,0.08,0,EXTERNSTR(0,2))COLOR00CC99; 

DRAWTEXT_FIX(1,0,0.15,0,'股票风格：')COLORWHITE;

DRAWTEXT_FIX(1,0.055,0.15,0,FGBLOCK),COLOR00CC99;

DRAWTEXT_FIX(ISLASTBAR,0,1,0,STRCAT('牛股形态：',ZDBLOCK)),COLORFFFF00;

DRAWTEXT_FIX(1,0.75,0.99,0,'概念：'),COLORWHITE;

DRAWTEXT_FIX(1,0.79,0.99,0,EXTERNSTR(0,3))COLORYELLOW;

DRAWTEXT(CURRBARSCOUNT=1,L*0.995,EXTERNSTR(0,4));  {www.gszb.com 涨停原因}

首板:=ZT AND COUNT(ZT,2)=1;

二板:=REF(首板,1) AND ZT;

三板:=REF(二板,1) AND ZT;

四板:=REF(三板,1) AND ZT;

五板:=REF(四板,1) AND ZT;

六板:=REF(五板,1) AND ZT;

七板:=REF(六板,1) AND ZT;

八板:=REF(七板,1) AND ZT;

九板:=REF(八板,1) AND ZT;

十板:=REF(九板,1) AND ZT;

 

DRAWTEXT(首板,0.1+(C+O)/2,'1'),COLORWHITE;

DRAWTEXT(二板,0.1+(C+O)/2,'2'),COLORYELLOW;

DRAWTEXT(三板,0.1+(C+O)/2,'3'),COLOR00CC99;

DRAWTEXT(四板,0.1+(C+O)/2,'4'),COLORGREEN;

DRAWTEXT(五板,0.1+(C+O)/2,'5'),COLORLIGRAY;

DRAWTEXT(六板,0.1+(C+O)/2,'6'),COLORLIRED;

DRAWTEXT(七板,0.1+(C+O)/2,'7'),COLORLIBLUE;

DRAWTEXT(八板,0.1+(C+O)/2,'8'),COLORBLUE;

DRAWTEXT(九板,0.1+(C+O)/2,'9'),COLORWHITE;

DRAWTEXT(十板,0.1+(C+O)/2,'10'),COLORYELLOW;

 

 

收阴:=(C<REF(C,1) OR L<REF(L,1) OR AMOUNT/V/100<REF((C+O)/2,1)) AND O<=REF(C,1);

多阴:=EVERY(收阴,2);

小阳:=O-L<=0.03 AND H>C AND C>O AND O<REF(C,1) AND C<REF(MAX(C,O),1) AND V<REF(V,1);

宝莲灯:=REF(多阴,1) AND 小阳;

STICKLINE(宝莲灯,O,C,2.5,0),COLORCC22FF;

STICKLINE(宝莲灯,(O+C)/2-0.02,(O+C)/2+0.02,2,0),COLORWHITE;

 

A1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,23))/EMA(CLOSE,23)); 

A2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1); 

金线王:EMA(A2,200)*1.118,LINETHICK2,COLORYELLOW;

金线王2:EMA(A2,200)*1.118,LINETHICK1,COLORRED;

{www.gszb.com金线王3:EMA(A2,20)*1.108,LINETHICK1,COLORRED;}

条件:=(C-REF(C,1))/REF(C,1)*100>5;

金K线:=CROSS(C,金线王) AND 条件;

DRAWTEXT(金K线,L*0.98,'↖=金K线'),COLORRED;

DRAWTEXT(金K线,L*0.98,'        K  '),COLORYELLOW ;

 

{www.gszb.com涨停K线颜色设置}

STICKLINE(ZT,C,(O+C)/2,3,0),COLOR000099;

STICKLINE(ZT,C,(O+C)/2,2.2,0),COLOR0000CC;

STICKLINE(ZT,C,(O+C)/2,1.5,0),COLOR0000FF;

STICKLINE(ZT,C,(O+C)/2,0.5,0),COLORCC66FF;

 

STICKLINE(ZT,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(ZT,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(ZT,O,(O+C)/2,1.5,0),COLORDDDDDD; 

STICKLINE(ZT,O,(O+C)/2,0.5,0),COLORFFFFFF;

 

STICKLINE(DT,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(DT,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(DT,O,(O+C)/2,1.5,0),COLORDDDDDD; 

STICKLINE(DT,O,(O+C)/2,0.5,0),COLORFFFFFF;

 

STICKLINE(DT,C,(O+C)/2,3,0),COLOR009900;

STICKLINE(DT,C,(O+C)/2,2.2,0),COLOR00BB00; 

STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00; 

STICKLINE(DT,C,(O+C)/2,0.5,0),COLOR00FF00;

 

{www.gszb.com曾涨跌停打开K线颜色设置}

STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;

STICKLINE(ZT1,C,(O+C)/2,2.2,0),COLORFF00FF;

STICKLINE(ZT1,C,(O+C)/2,1.5,0),COLOR0000FF;

 

STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(ZT1,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(ZT1,O,(O+C)/2,1.5,0),COLORDDDDDD; 

 

 

STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;

STICKLINE(DT1,O,(O+C)/2,2.2,0),COLORBBBBBB;

STICKLINE(DT1,O,(O+C)/2,1.5,0),COLORDDDDDD;

 

 

STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;

STICKLINE(DT1,C,(O+C)/2,2.2,0),COLOR00BB00; 

STICKLINE(DT1,C,(O+C)/2,1.5,0),COLOR00DD00; 

STICKLINE(DT1,C,(O+C)/2,0.5,0),COLOR00FF00;

DRAWTEXT(ZT AND DT1 AND PERIOD=5,L-0.03,'地天板'),COLORCC00CC;{www.gszb.com从跌停到涨停}

DRAWTEXT(DT AND ZT1 AND PERIOD=5,H+0.03,'天地板'),COLOR00CC00;{www.gszb.com从涨停到跌停};