通达信洞察主力幅图指标/源码 贴图

看到一个发现主力抓牛股以及看大资金进出的附图指标，分享给有缘人。

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV:=MA(OBV,30);
DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*1;
DEA:=(EMA(DIF,9))*1;
MACD:=(DIF-DEA)*2,COLORSTICK;
M:=CROSS(DIF,DEA);
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;
H1:=FILTER(HJZ3,5),STICK,COLORRED,LINETHICK4;
HJ:=COUNT(H1,6)=1;
MA6:=MA(CLOSE,60);
MA5:=MA(CLOSE,5);
V05:=MA(VOL,5),LINETHICK1,COLORWHITE;
V35:=MA(VOL,35),LINETHICK1,COLORYELLOW ;
VL135:=MA(VOL,135),LINETHICK1,COLORMAGENTA;
ML:=(CROSS(V05,VL135) OR CROSS(V05,V35)) AND OBV>MAOBV;
MLL:=CROSS(C,MA6);
MA13:=EMA(C,13);
UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),0),COLOR0000FF;
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
(MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
(MA13,MA5))+1),0),COLOR00FF00;
STICKLINE(UP,0,0.05,3,0),COLOR0000FF;
STICKLINE(DOWN,0,0.05,3,0),COLOR00FF00;
HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:=SQRT(HRY11);
TJ202:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33;
ZN:ML AND MLL AND COUNT(TJ202,50)>=1,COLORMAGENTA;
{DRAWICON(ZN,1,5); }
DRAWTEXT(ZN,0.6,'抓'),COLORGREEN;
DRAWTEXT(ZN,0.3,'牛'),COLORGREEN;
VARF:=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);
VAR10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
VAR11:=VARF<REF(VAR10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DZJ:=VAR11 AND COUNT(VAR11,30)=1;
STICKLINE(DZJ,0,0.15,3,0),COLORFF80FF;
STICKLINE(DZJ,0.15,0.35,2,0),COLOR3000FF;
STICKLINE(DZJ,0.35,0.51,1,0),COLOR00FFFF;
DRAWTEXT(DZJ,0.55,'大资金'),COLORMAGENTA;
DIF18:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA18:=EMA(DIF18,9);
AAA1:=(DIF18-DEA18)*2*60;
AA:=AAA1-REF(AAA1,1);
VAR18:=(CLOSE*2+HIGH+LOW)/4;
VAR28:=EMA(VAR18,13)-EMA(VAR18,34);
VAR38:=EMA(VAR28,5);
BB:=(VAR38-VAR28)*5,COLORGREEN,LINETHICK2;
CC:=(VAR28-VAR38)*5,COLORWHITE,LINETHICK2;
LZL:=VOL=HHV(VOL,40) AND VOL>1.9*REF(VOL,1);
LT:=IF(BARSLAST(LZL)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(LZL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LZL)=3 AND CLOSE>REF(HIGH,3),1,0)));
LB:=BARSLAST(LZL)=3 AND REF(LOW,3)<=MIN(MIN(C,REF(C,1)),REF(C,2));
BACKSET300:=BACKSET(LB,4);
BACKSET301:=BACKSET(LT,4);
LL:=FILTER(BACKSET300,3) AND BACKSET301 AND LZL;
QN:CROSS(AA,15) AND CC>BB,COLORYELLOW,LINETHICK4,STICK;
DRAWICON(QN,0.6,1);
DRAWICON(QN,0.8,1);
QQN:=COUNT(QN,3)=1 AND COUNT(LL,3)>=1 AND HJ,COLORRED;
BLZ:=VOL>REF(V,1)*1.9;
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
BL2:=BLZ AND REF(BLZ,1);
X:=CONST(DATE);
Y:=IF(DATE<X, 240, FROMOPEN);
ZR:=BARSCOUNT(CLOSE);
LD:=IF((VOL/Y*240)=CONST(LLV(VOL,60)) AND (VOL/Y*240)>CONST(LLV(VOL,ZR)),6,0);
ZD:=IF((VOL/Y*240)=CONST(LLV(VOL,60)) AND (VOL/Y*240)=CONST(LLV(VOL,ZR)),6,0);
DL:ZD OR LD;
DRAWTEXT(DL,0.4,'量底'),COLORYELLOW;
{DRAWICON(QQN>0,0.9,9);}
VAR1:=C-REF(C,1);
VAR2:=100*EMA(EMA(VAR1,6),6)/EMA(EMA(ABS(VAR1),6),6);
BT:=(LLV(VAR2,2)=LLV(VAR2,7) AND COUNT(VAR2<0,2) AND CROSS(VAR2,MA(VAR2,2))) AND
REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1);
TJ1:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HHV(H,21)*0.82;
ND:=TJ202 AND TJ1 AND BT;
STICKLINE(ND,0,0.8,0.1,0),COLORRED;
DRAWTEXT(ND,0.7,'牛底'),COLORYELLOW;
YK:="KDJ.K"(89,3,3),COLOR00FF00;
YD:="KDJ.D"(89,3,3),COLOR00FF00,LINETHICK2;
ZK:="KDJ.K"(27,3,3),COLORRED;
Z1D:="KDJ.D"(27,3,3),COLORRED,LINETHICK2;
RK:="KD.K"(5,3,3),COLORWHITE;
RD:="KD.D"(5,3,3),COLORWHITE,LINETHICK2;
RJC:=IF(CROSS(RK,RD),50,0),COLORFFFFFF;
ZJC:=IF(CROSS(ZK,Z1D),30,0),COLORRED;
YJC:=IF(CROSS(YK,YD),20,0),COLOR0080FF;
HZ:=COUNT(MACD>0,4)=4 AND COUNT(MACD<REF(MACD,1),4)>2 AND MACD>REF(MACD,1)AND MA(C,5)>REF(MA(C,5),1);
NN:=(HZ AND RJC AND ZJC AND YJC) AND UP;
N22:NN;
DRAWTEXT(N22,0.6,'牛'),COLORRED;
DRAWTEXT(N22,0.3,'庄'),COLORRED;
DIFFV:=EMA(DCLOSE,9)-EMA(DCLOSE,27);
DEAV:=EMA(DIFFV,5);
A1V:=CROSS(DIFFV,DEAV);
DB2:=REF(CLOSE,A1V+1)>CLOSE AND DIFFV>REF(DIFFV,A1V+1) AND CROSS(DIFFV,DEAV);
DEA0:=EMA(DIFFV*100,9);
MACD0:=2*(DIFFV*100-DEA0);
HM:=(MACD0>REF(MACD0,1)*2.5 AND MACD0>15);

[1] [2]  下一页