[通达信指标]机构买卖盘主图公式

A1:=(VOL/CLOSE)/3;

A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);

A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);

A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);

A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);

A6:=((A2+A3)+A4)+A5;

A7:=IF((BARSTATUS=2),((100*A2)/A6),0);

A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));

A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));

A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));

DRAWTEXT_FIX(1,0.745,1-0.2,0,STRCAT(STRCAT(‘【机构买盘】’,CON2STR(A2,2)),’万’)),COLORRED;

DRAWTEXT_FIX(1,0.745,1-0.15,0,STRCAT(STRCAT(‘【机构卖盘】’,CON2STR(A3,2)),’万’)),COLOR00FF00;

DRAWTEXT_FIX(1,0.745,1-0.1,0,STRCAT(STRCAT(‘【散户买盘】’,CON2STR(A4,2)),’万’)),COLORRED;

DRAWTEXT_FIX(1,0.745,1-0.05,0,STRCAT(STRCAT(‘【散户卖盘】’,CON2STR(A5,2)),’万’)),COLOR00FF00;

TUPO:=REF(EMA(C,14),1);

A1X:=(EMA(C,10)-TUPO)/TUPO*100;

DUOFANG1:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);

KONGFANG1:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);

STICKLINE(A1X>=0,DUOFANG1,TUPO,0,0),COLORBLUE;

STICKLINE(A1X<0,KONGFANG1,TUPO,0,0),COLOR00CC66;

JUNJIA:SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK1;

DXJP:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,21)-LLV(LOW,34))*100;

FSZX:=(EMA(DXJP,3)-50)*2,COLORGRAY;

GHYJKU:=BETWEEN((CLOSE)/(SUM(AMOUNT,BARSCOUNT((CLOSE)))/SUM(VOL*100,BARSCOUNT((CLOSE)))),1.05,0.95);

VBNH:=IF(GHYJKU=0,MA((CLOSE),BARSCOUNT((CLOSE))),(SUM(AMOUNT,BARSCOUNT((CLOSE)))/SUM(VOL*100,BARSCOUNT((CLOSE)))));

DRAWICON(FSZX<=-95,C,38);

DRAWTEXT(CROSS(EXPMA((CLOSE/VBNH),20),1.02),C,’追’),COLORYELLOW;

DRAWICON(CROSS(EXPMA((CLOSE/VBNH),120),1.004),C,17);

VARJ1:=EMA(EMA(CLOSE,13),13);

KONGZHI2:=(VARJ1-REF(VARJ1,1))/REF(VARJ1,1)*1000;

STJ01:=KONGZHI2<REF(KONGZHI2,1) AND KONGZHI2>0.5;

STJ02:=KONGZHI2>0;

BTJ2:=KONGZHI2>REF(KONGZHI2,1) AND KONGZHI2<-0.2;

BTJ22:=KONGZHI2>REF(KONGZHI2,1) AND KONGZHI2<0 ;

JJ:=MA(C,30);

NENGLANG:=(EMA(CLOSE,8)-EMA(C,55))*10;

KONGTOU:=EMA(NENGLANG,3),COLOR00FF00;

BTJ1:=(CLOSE-JJ)/JJ<-0.005;

BTJ11:=(CLOSE-JJ)/JJ<-0.03;

BTJ12:=COUNT(JJ>=REF(JJ,1),5)>=4 AND (CLOSE-JJ)/JJ<0.005;

STJ1:=(C-JJ)/JJ>0.005;

BTJ3:=CROSS(NENGLANG,KONGTOU) AND NENGLANG<-0.3;

BTJ32:=CROSS(NENGLANG,KONGTOU) AND NENGLANG<-0.1;

STJ31:=CROSS(KONGTOU,NENGLANG);

STJ32:=CROSS(KONGTOU,NENGLANG) AND NENGLANG>1.618;

BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,8);

BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,8);

BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,8);

YYDD1:=(VOL/C)/2,NODRAW;

YYDD2:=SUM(IF(YYDD1>100 AND CLOSE>REF(CLOSE,1),YYDD1,0),0);

YYDD3:=SUM(IF(YYDD1>100 AND CLOSE<REF(CLOSE,1),YYDD1,0),0);

YYDD4:=SUM(IF(YYDD1<100 AND CLOSE>REF(CLOSE,1),YYDD1,0),0);

YYDD5:=SUM(IF(YYDD1<100 AND CLOSE<REF(CLOSE,1),YYDD1,0),0);

YYDD6:=YYDD2+YYDD3+YYDD4+YYDD5;

OOEE1:=(YYDD2/YYDD6)*100-100,LINETHICK1,COLORRED;

OOEE2:=(YYDD3/YYDD6)*100-100,LINETHICK1,COLORGREEN;

OOEE3:=OOEE1-OOEE2;

LQH:=OOEE3>0 AND REF(OOEE3,1)<=0;

DRAWICON(LQH,C,25);

JJXX:=IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW;

JJXXH:=(JJXX*1.007 ),COLORFF6600;

FFLL:=SUM(VOL,6)>REF(MA(VOL,30),1)*10;

HHPP:=((HHV(CLOSE,BARSCOUNT(CLOSE))-LLV(CLOSE,BARSCOUNT(CLOSE)))/CLOSE)<1;

HHZZ:=HHPP AND FFLL AND (C>JJXXH);

TTPP2:=FILTER(HHZZ,100);

DRAWICON(TTPP2,C,26);

ZHONGXIAN:(2*C+H+L)/4,COLOR00FFFF,LINETHICK0;

SJ:=WMA((ZHONGXIAN-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2); 

ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2); 

AB1:=EMA(C,14)COLORWHITE,LINETHICK1;

AB1X:=(AB1-REF(AB1,1))/REF(AB1,1)*100,NODRAW;

IF(AB1X>=0,REF(EMA(C,14),BARSLAST(CROSS(AB1X,0))+1),DRAWNULL),COLORMAGENTA,LINETHICK3;

IF(AB1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,AB1X))+1),DRAWNULL)COLORGREEN,LINETHICK3;

CC:=(H*3+C*2+O)/6;

C0:=(L*3+C*2+O)/6;

VAR1J:=REF(MA(C,20),10);

KO1:=O-VAR1J;

KH1:=H-VAR1J;

KL1:=L-VAR1J;

KC1:=C-VAR1J;

BCJ:=(KH1*0.382+KL1*0.618+KO1*0.382+KC1*0.618)/2;

LJJ:=(BCJ+AMOUNT/(V*100)-VAR1J)/2;

HTJ:=REF((HHV(LJJ,13*0.691)+HHV(LJJ,13)+HHV(LJJ,13*1.309))/3,1);

LTJ:=REF((LLV(LJJ,13*0.691)+LLV(LJJ,13)+LLV(LJJ,13*1.309))/3,1);

ZTJ:=(HTJ+LTJ)/2;

STICKLINE(LJJ<ZTJ,REF(C0,BARSLAST(CROSS(ZTJ,LJJ))),REF(CC,BARSLAST(CROSS(ZTJ,LJJ))),4,0),COLORGRAY;

DRAWKLINE(H,O,L,C);

HUIGX:EMA(SLOPE(C,21)*20+C,42),COLORWHITE,LINETHICK2;