十天买主图(大智慧)

源码正文：

DRAWTEXTAbs(30,30,'最高支撑不破持有，破支撑卖掉。压力冲不过，往下找支撑，突破压力就有上下两种分化。' ),colorFFDD00{XG51};
十天买卖:ema(REF(CLOSE,1),2),COLORFFCC00,LINETHICK1{XG51};
PARTLINE(十天买卖,CLOSE>=十天买卖,RGB(255,0,0)),LINETHICK4{XG51};
十天压力:HHV(十天买卖,13),COLOR00FF00,LINETHICK1{XG51};
PARTLINE(十天压力,十天买卖=十天压力,RGB(255,255,0)),LINETHICK3{XG51};
十天支撑:LLV(十天买卖,13),Color00FFFF,LINETHICK1{XG51};
PARTLINE(十天支撑,十天买卖=十天支撑,RGB(0,0,255)),LINETHICK3{XG51};
V1:=ABS((2*CLOSE+HIGH+LOW)/4-ma(CLOSE,20))/MA(CLOSE,20){XG51};
V2:=(1-7/100)*(dma(CLOSE,V1)){XG51};
V3:=(1+7/100)*(DMA(CLOSE,V1)){XG51};
V5:=MA((LOW+HIGH+CLOSE)/3,5){XG51};
支撑:REF(V2,0),POINTDOT,LINETHICK1,COLORCC66FF{XG51};
阻力:REF(V3,0),POINTDOT,LINETHICK1,COLORCYAN{XG51};
MA1:=EMA(CLOSE,5){XG51};
MA2:=ATAN((MA1/REF(MA1,1)-1)*100)*180/3.1416{XG51};
MA3:=IF(MA2>0,MA2,MA2){XG51};
生命线: EMA(CLOSE,30),COLORRED,linethick2{XG51};
VAR1:=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){XG51};
VAR2:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4){XG51};
VAR3:=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){XG51};
VAR4:=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){XG51};
VAR5:=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){XG51};
VAR6:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2){XG51};
VAR7:=LOW<HHV(V5,13) AND HIGH>HHV(V5,13) AND CLOSE>REF(C,1) AND CLOSE>OPEN{XG51};
VAR8:=VAR7 AND COUNT(VAR6,2){XG51};
VAR9:=100*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6){XG51};
VAR10:=EMA(MA(C,30),30){XG51};
VAR11:=FILTER((LLV(VAR9,2)=LLV(VAR9,7) AND COUNT(VAR9<0,2) AND crOSS(VAR9,MA(VAR9,2)))=1,5){XG51};
VAR12:=FILTER((HHV(VAR9,2)=HHV(VAR9,7) AND COUNT(VAR9>50,2) AND CROSS(MA(VAR9,2),VAR9))=1,1){XG51};
VAR13:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10{XG51};
VAR14:=FILTER(((CROSS(VAR13,0) OR CROSS(C,VAR10)) AND VAR11)=1,3){XG51};
VAR15:=MA(C,18)>=REF(MA(C,18),3) AND CROSS(C,MA(C,18)){XG51};
VAR16:=VAR8 AND NOT(REF(VAR8,1)){XG51};
PARTLINE(生命线,MA3>REF(MA3,1) AND MA3>=0),COLORBLUE,LINETHICK2{XG51};
PARTLINE(生命线,MA3<REF(MA3,1) AND MA3>0),COLORCYAN,LINETHICK2{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
金叉:=CROSS(J,D){XG51};
死叉:=CROSS(D,J){XG51};
买1:=(VAR14 OR VAR15) AND VAR11{XG51};
买2:=(VAR14 OR VAR15) AND VAR4{XG51};
买3:=(VAR14 OR VAR15) AND VAR2{XG51};
买4:=(VAR2 AND VAR11) OR (VAR4 AND VAR11){XG51};
买5:=(金叉 AND VAR4) OR (金叉 AND VAR2) OR (金叉 AND VAR11){XG51};
stICKLINE(CLOSE>REF(CLOSE,1)*1.0985 AND CLOSE=HIGH,CLOSE,OPEN,8.5,-1),COLOR00FFFF{XG51};
STICKLINE(CLOSE<REF(CLOSE,1)*0.9015 AND CLOSE=LOW,CLOSE,OPEN,8.5,-1),COLORCYAN{XG51};
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,8,0),COLORFF7700{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,6,0),COLORFF9900{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,4,0),COLORFFBB00{XG51};
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,2,0),COLORff0000{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0),COLOR000099{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0),COLOR0000CC{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),COLOR0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLORCC66FF{XG51};

STICKLINE(VAR3,OPEN,(OPEN+CLOSE)/2,8,0),COLOR009900{XG51};
STICKLINE(VAR3,OPEN,(OPEN+CLOSE)/2,6,0),COLOR00BB00;
STICKLINE(VAR3,OPEN,(OPEN+CLOSE)/2,4,0),COLOR00DD00;
STICKLINE(VAR3,OPEN,(OPEN+CLOSE)/2,2,0),COLOR00FF00{XG51};
STICKLINE(VAR4,OPEN,(OPEN+CLOSE)/2,8,0),COLOR999999{XG51};
STICKLINE(VAR4,OPEN,(OPEN+CLOSE)/2,6,0),COLORBBBBBB;
STICKLINE(VAR4,OPEN,(OPEN+CLOSE)/2,4,0),COLORDDDDDD;
STICKLINE(VAR4,OPEN,(OPEN+CLOSE)/2,2,0),COLORFFFFFF{XG51};
STICKLINE(金叉,OPEN,CLOSE,2,0),COLORBLUE{XG51};
STICKLINE(死叉,OPEN,CLOSE,2,0),COLOR000099{XG51};
DRAWICON(VAR16,LOW-0.01,1),ALIGN1{XG51};
DRAWICON(买1 OR 买2 OR 买3 OR 买4 OR 买5,LOW-0.01,7),ALIGN1{XG51};
DRAWICON(死叉 OR VAR12 OR CROSS(40,VAR9),HIGH+0.12,8),ALIGN1{X?G^5~1?C?N?{};

源码正文：

DRAWTEXTAbs(0,5,'《夏卫东-自编》'),COLOR0000FF;

TC:=stRCMP(STRLEFT(maRKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','分超引用.昨收#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','分超引用.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLORFF00FF,LINETHICK2,LAYER0;

最新:C,COLORRED,LINETHICK2,PRECIS2,LAYER0;
AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(vol*100,BARSCOUNT(C));
BB:=BETWEEN(C/AA,C+H,C-H);
均线:IF(BB=0,MA(C,BARSCOUNT(C)),AA),COLOR00FFFF,LINETHICK2,PRECIS2;

ZLLR:=SUM((AMOUNT*(DYNAINFO(95)+DYNAINFO(94))/10000),0);
ZLLC:=SUM((AMOUNT*(DYNAINFO(98)+DYNAINFO(97))/10000),0);
主净:ZLLR-ZLLC,COLOR00FFFF,LINETHICK0,PRECIS2;
TDLR:=SUM((AMOUNT*DYNAINFO(95)/10000),0);
TDLC:=SUM((AMOUNT*DYNAINFO(98)/10000),0);
超净:TDLR-TDLC,COLORFF00FF,LINETHICK0,PRECIS2;
DDLR:=SUM((AMOUNT*DYNAINFO(94)/10000),0);
DDLC:=SUM((AMOUNT*DYNAINFO(97)/10000),0);
大净:DDLR-DDLC,COLOR00FF00,LINETHICK0,PRECIS2;
ZDLR:=SUM((AMOUNT*DYNAINFO(93)/10000),0);
ZDLC:=SUM((AMOUNT*DYNAINFO(96)/10000),0);
中净:ZDLR-ZDLC,COLORB5B5B5,LINETHICK0,PRECIS2;
XDLR:=IF(AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93)))/10000),0),0);
XDLC:=IF(AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96)))/10000),0),0);
散净:XDLR-XDLC,COLORFF9911,LINETHICK0;
外盘:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
内盘:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
主动率:=(外盘-内盘)/(内盘+外盘)*100;
单数比:=DYNAINFO(92)/DYNAINFO(91);
通吃率:= ((DYNAINFO(95)+DYNAINFO(94))-(DYNAINFO(98)+DYNAINFO(97)))*VOL/VOL*100;
DRAWTEXTABS(440,5,'主动率:'+ NUMTOSTRN(主动率,2)+' 单数比:'+ NUMTOSTRN(单数比,2)+' 通吃率:'+ NUMTOSTRN(通吃率,2)),COLOR00FFFF;
DRAWTEXTABS(110,5,'上涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+' 家'),COLOR0000FF;
DRAWTEXTABS(210,5,'下跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+' 家'),COLOR00FF00;
DRAWTEXTABS(310,5,'平盘家数:'+NUMTOSTRN(DYNAINFO(71),0)+' 家'),COLORFFFFFF;

主5:=主净-REF(主净,5);
超5:=超净-REF(超净,5);
大5:=大净-REF(大净,5);
中5:=中净-REF(中净,5);
散5:=散净-REF(散净,5);
DRAWTEXTABS(110,20,'五分钟各单净买(万):'),COLORFFFF00;
DRAWTEXTABS(230,20,'主力:'+ NUMTOSTRN(主5,2)),COLOR00FFFF;
DRAWTEXTABS(320,20,'超大:'+ NUMTOSTRN(超5,2)),COLORFF00FF;
DRAWTEXTABS(410,20,'大户:'+ NUMTOSTRN(大5,2)),COLOR00FF00;
DRAWTEXTABS(500,20,'中户:'+ NUMTOSTRN(中5,2)),COLORB5B5B5;
DRAWTEXTABS(590,20,'散户:'+ NUMTOSTRN(散5,2)),COLORFF9911;
;
最大值:=400/(MAX(ZLLR,ZLLC,TDLR,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,散净,中净,大净,超净,主净));
主力买:=600-(ZLLR*最大值);
主力卖:=600-(ZLLC*最大值);
超大买:=600-(TDLR*最大值);
超大卖:=600-(TDLC*最大值);
大户买:=600-(DDLR*最大值);
大户卖:=600-(DDLC*最大值);
中户买:=600-(ZDLR*最大值);
中户卖:=600-(ZDLC*最大值);
散户买:=600-(XDLR*最大值);
散户卖:=600-(XDLC*最大值);
散户净买:=600-(ABS(散净)*最大值);
中户净买:=600-(ABS(中净)*最大值);
大户净买:=600-(ABS(大净)*最大值);
超大净买:=600-(ABS(超净)*最大值);
主力净买:=600-(ABS(主净)*最大值);

ZLB:=SUM((ORDERVOL(1,2)/CAPITAL*100),0);
ZLS:=SUM((ORDERVOL(2,2)/CAPITAL*100),0);
主增:=ZLB-ZLS;
TDB:=SUM((ORDERVOL(1,3)/CAPITAL*100),0);
TDS:=SUM((ORDERVOL(2,3)/CAPITAL*100),0);
超增:=TDB-TDS;
DDB:=SUM(((ORDERVOL(1,2)/CAPITAL*100-ORDERVOL(1,3)/CAPITAL*100)),0);
DDS:=SUM(((ORDERVOL(2,2)/CAPITAL*100-ORDERVOL(2,3)/CAPITAL*100)),0);
大增:=DDB-DDS;
ZDB:=SUM(((ORDERVOL(1,1)/CAPITAL*100-ORDERVOL(1,2)/CAPITAL*100)),0);
ZDS:=SUM(((ORDERVOL(2,1)/CAPITAL*100-ORDERVOL(2,2)/CAPITAL*100)),0);
中增:=ZDB-ZDS;
XDB:=SUM(((VOL-ORDERVOL(1,1))/CAPITAL*100),0);
XDS:=SUM(((VOL-ORDERVOL(2,1))/CAPITAL*100),0);
散增:=XDB-XDS;
DRAwrECTREL(330,主力买,350,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(350,主力卖,370,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(370,主力净买,390,610,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(445,超大买,465,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(465,超大卖,485,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(485,超大净买,505,610,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(560,大户买,580,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(580,大户卖,600,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(600,大户净买,620,610,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(675,中户买,695,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(695,中户卖,715,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(715,中户净买,735,610,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL(790,散户买,810,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(810,散户卖,830,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(830,散户净买,850,610,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;
DRAWRECTREL( 330,620,390,635,RGB(255,255,0));
DRAWRECTREL( 445,620,505,635,RGB(255,0,255));
DRAWRECTREL( 560,620,620,635,RGB(0,200,0));
DRAWRECTREL( 675,620,735,635,RGB(200,200,200));
DRAWRECTREL( 790,620,850,635,RGB(0,0,200));
DRAWTEXTREL(310,530,'主'),ColorddfFFF;
DRAWTEXTREL(310,600,'力'),ColorDDFFFF;
DRAWTEXTREL(425,530,'超'),ColorDDFFFF;
DRAWTEXTREL(425,600,'大'),ColorDDFFFF;
DRAWTEXTREL(540,530,'大'),ColorDDFFFF;
DRAWTEXTREL(540,600,'户'),ColorDDFFFF;
DRAWTEXTREL(655,530,'中'),ColorDDFFFF;
DRAWTEXTREL(655,600,'户'),ColorDDFFFF;
DRAWTEXTREL(770,530,'散'),ColorDDFFFF;
DRAWTEXTREL(770,600,'户'),ColorDDFFFF;
DRAWTEXTREL(290,660,'买入'),colorred;
DRAWTEXTREL(290,720,'卖出'),Color00FF00;
DRAWTEXTREL(290,780,'净买'),COLOR1199FF;
DRAWTEXTREL(290,830,'增减'),COLORFFFF00;
DRAWTEXTREL(330,660,NUMTOSTRN(ZLLR,2)),colorred;
DRAWTEXTREL(330,720,NUMTOSTRN(ZLLC,2)),COLOR00FF00;
DRAWTEXTREL(330,780,NUMTOSTRN(主净,2)),COLOR1199FF;
DRAWTEXTREL(330,830,NUMTOSTRN(主增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(445,660,NUMTOSTRN(TDLR,2)),colorred;
DRAWTEXTREL(445,720,NUMTOSTRN(TDLC,2)),COLOR00FF00;
DRAWTEXTREL(445,780,NUMTOSTRN(超净,2)),COLOR1199FF;
DRAWTEXTREL(445,830,NUMTOSTRN(超增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(560,660,NUMTOSTRN(DDLR,2)),colorred;
DRAWTEXTREL(560,720,NUMTOSTRN(DDLC,2)),COLOR00FF00;DRAWTEXTREL(560,780,NUMTOSTRN(大净,2)),COLOR1199FF;
DRAWTEXTREL(560,830,NUMTOSTRN(大增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(675,660,NUMTOSTRN(ZDLR,2)),colorred;
DRAWTEXTREL(675,720,NUMTOSTRN(ZDLC,2)),COLOR00FF00; DRAWTEXTREL(675,780,NUMTOSTRN(中净,2)),COLOR1199FF;
DRAWTEXTREL(675,830,NUMTOSTRN(中增,2)+'%'),COLORFFFF00;
DRAWTEXTREL(790,660,NUMTOSTRN(XDLR,2)),colorred;
DRAWTEXTREL(790,720,NUMTOSTRN(XDLC,2)),COLOR00FF00;
DRAWTEXTREL(790,780,NUMTOSTRN(散净,2)),COLOR1199FF;
DRAWTEXTREL(790,830,NUMTOSTRN(散增,2)+'%'),COLORFFFF00{X+G-5*1+C+N+{};