指标公式第632篇：通达信机构进场买指标

DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);

章鱼哥1:=SUM((WINNER(C)*100),30)/30*0.1;

章鱼哥2:=SUM((WINNER(C)*100),20)/20*0.4;

章鱼哥3:=SUM((WINNER(C)*100),10)/10*0.3;

章鱼哥4:=SUM((WINNER(C)*100),5)/5*0.1;

章鱼哥5:=SUM((WINNER(C)*100),3)/3*0.1;

章鱼哥Z:=章鱼哥1+章鱼哥2+章鱼哥3+章鱼哥4+章鱼哥5;

赚钱效应:IF(章鱼哥Z>38,章鱼哥Z,章鱼哥Z*1.3),NODRAW;

活跃度:IF(SUMBARS(VOL,CAPITAL)< 100,100-SUMBARS(VOL,CAPITAL),1),NODRAW;

获利筹码:IF(WINNER(CLOSE),WINNER(CLOSE)*100,0),NODRAW;

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0.02,0.02,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;

DRAWKLINE(H,O,L,C);

SN1:=(L+H)/2;

N5:=IF(BARSCOUNT(C),SMA(SN1,3,1),C),COLORWHITE,DOTLINE;

N3:=IF(BARSCOUNT(C),SMA(SN1,21,1),C),COLORYELLOW;

MA5:MA(C,5)LINETHICK2,COLOR00CCFF;

五日乖离率:=(C-MA5)/MA5*100;

BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;

速度5:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);

加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;

IF(BB5>30 AND MA5>REF(MA5,1),MA5,DRAWNULL),LINETHICK2,COLORRED;

IF(BB5< 0 AND MA5< REF(MA5,1),MA5,DRAWNULL),LINETHICK2,COLORGREEN;

ZYG3:=LLV(HIGH,240);

ZYG4:=100*(CLOSE-ZYG3)/ZYG3;

ZYG5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;

ZYG6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;

ZYG7:=0;

ZYG8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

ZYG9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

ZYG10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);

ZYG11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

ZYG12:=ZIG(3,6)< REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

ZYG13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

ZYG14:=ZIG(3,22)< REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

ZYG15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

ZYG16:=ZIG(3,51)< REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

ZYG17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

ZYG18:=ZIG(3,72)< REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

ZYG19:=EMA(CLOSE,2)-EMA(CLOSE,150);

买１:=ZYG10;

买２:=(ZYG11+ZYG13+ZYG15+ZYG17);

卖１:=(ZYG12+ZYG14+ZYG16+ZYG18);

B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

DRAWICON((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)),LOW*0.99,1) ;

DRAWICON((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)),HIGH*1.01,2);

ZB:=EMA(EMA(ZYG3,5),5)*3, COLORSTICK;

ZYGA:=IF(ZYG9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);

K:=EMA(ZYG7,5)*2, , COLORFF00FF;

D:=EMA(K,5), , COLORWHITE;

J:=K*3-D*2, ,COLORYELLOW;

ZYGB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10;

HS:=VOL/CAPITAL*100, , COLORGREEN;

ZYGE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;

ZYGF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);

DRAWTEXT(ZYG11 AND COUNT(ZYG11,30)=1,LOW*0.98,'机构进场'),COLORYELLOW;

ZYG1A:=IF(ZYGE>0,ZYGE,0);DRAWTEXT_FIX(C>O,0.5,0.4,0,'留下联系方式，稍后添加您'),COLORYELLOW;

ZYG1B:=IF(ZYG14>=200 AND ZYG13>=150,15,IF(ZYG14<=-200 AND ZYG13<=-150,-15,ZYG16))+60;

ZYG1C:=ZYG1A>48 AND ZYG1B>60 AND ZYG19< 100;

DRAWTEXT(ZYG1C AND COUNT(ZYG1C,30)=1,H*1.02,'大顶（底）') COLORWHITE;

N11:=2,200,13;

UR00:=2,200,6;

LR0:=2,200,6;

TC01:=IF(H=HHV(H,8*UR00),H,DRAWNULL);

TC02:=CONST(BARSLAST(TC01=H))+1;

UPPER:=CONST(IF(TC02=1,H,REF(H,TC02-1)));

BC1:=IF(L=LLV(L,8*LR0),L,DRAWNULL);

BC2:=CONST(BARSLAST(BC1=L))+1;

LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));

LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;

HP:=CURRBARSCOUNT<=TC02 AND H=UPPER;

NOD:=(IF(TC02>BC2,TC02,BC2)-IF(TC02>BC2,BC2,TC02));

LR1:=FORCAST(C,NOD+1);

NP:IF(CURRBARSCOUNT<=MAX(BC2,TC02),CONST(IF(MIN(TC02,BC2)=1,LR1,REF(LR1,MIN(TC02,BC2)-1))),DRAWNULL),DOTLINE,COLORRED;

LR2:=SLOPE(C,NOD+1);

LR3:=CONST(IF(MIN(TC02,BC2)=1,LR2,REF(LR2,MIN(TC02,BC2)-1)));

STICKLINE(IF(BC2>TC02,HP,LP),LOWER,UPPER,0,0),COLORWHITE;

STICKLINE(IF(BC2>TC02,LP,HP),LOWER,UPPER,0,0),COLORWHITE;

FP:NP-LR3*(NOD),DOTLINE,COLORYELLOW;

EQU:(NP+FP)/2,DOTLINE,COLORWHITE;

AD:=ABS(NP-FP);

DBL0:=BARSLAST(BC1!=DRAWNULL)+1;

DBH:=BARSLAST(TC01!=DRAWNULL)+1;

BSP:=IF(BC2>TC02,DBL0,DBH)-1;

LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);

AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND H>LRL,H,LRL);

AT2:=HHV(AT1-LRL,MAX(BC2,TC02));

AT3:=CONST(BARSLAST(AT1-LRL=AT2));

AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));

AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));

ATL:=LRL+AT5;

UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND L< LRL,L,LRL);

UT2:=HHV(LRL-UT1,MAX(BC2,TC02));

UT3:=CONST(BARSLAST(LRL-UT1=UT2));

UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));

UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));

UTL:=LRL-UT5;

RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,ATL,CONST(REF(ATL,MIN(BC2,TC02)-11)));

RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,UTL,CONST(REF(UTL,MIN(BC2,TC02)-11)));

中轨:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORBBBBBB;

上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLORBLUE;

下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLORFF00FF;

LT:=LLVBARS(L,60);

LT1:=LLVBARS(L,60);

LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);

HT:=FINDHIGHBARS(H,LT+1,60,1);

DT:=FINDLOW(L,LT1+1,60,1);

锅盖:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORGREEN ,LINETHICK1;

底:DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),H,''),LINETHICK2,COLORYELLOW;

DRAWICON(底,L*0.99,1);

顶:DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),H,''),LINETHICK2,COLORYELLOW;

DRAWICON(顶,H*1.01,2);

X_2:=REF(CLOSE,1);

X_3:=REF(CLOSE,1)*1.097;

X_4:=CLOSE>=X_3 AND CLOSE=HIGH;

STICKLINE(X_4,O,CLOSE,2,0),COLORYELLOW;

X_5:=IF(DTPRICE(REF(CLOSE,1),0.1)=CLOSE,2,0);

STICKLINE(X_5,OPEN,CLOSE,2,0),COLORGREEN;

AH:=HHV(H,60);

AL:=LLV(L,60);

A0:=(AH-AL)/21;

A11:=C>REF(C,4);

NT:=BARSLASTCOUNT(A11);

TJ11:=NT=9;

TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);

AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;

DRAWTEXT(AY>0,H+1.1*A0,VAR2STR(AY,0)),COLORYELLOW;

DRAWTEXT(NT=9,H+1.1*A0,'9'),COLORGREEN;

DRAWTEXT(NT=13,H+1.1*A0,'13'),COLORGREEN;

DRAWTEXT(NT=18,H+1.1*A0,'18'),COLORGREEN;

B11:=C< REF(C,4);

NT0:=BARSLASTCOUNT(B11);

TJ21:=NT0=9 ;

TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);

AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;

DRAWTEXT(AY1>0,L-1*A0,VAR2STR(AY1,0)),COLORLIGREEN;

DRAWTEXT(NT0=9,H+1.1*A0,'9'),COLORYELLOW;

DRAWTEXT(NT0=13,H+1.1*A0,'13'),COLORYELLOW;