ARTICLE · 1278969
通达信精品指标,大机构进场全套源码分享!
通达信精品指标,大机构进场全套源码分享!
{大机构进场Z} 回归斜率线A:=EMA(SLOPE(C,4)*20+C,42);经典RL:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;经典K:=SMA(经典RL,3,1);经典D:=SMA(经典K,3,1); 经典J:=3*经典K-2*经典D;MAHL1:=100*((EMA((H+L)/2,3)-LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-EMA(L,20))) /(LLV(EMA((H+L)/2,5),30)-(EMA(H,20)-EMA(L,20))));MAHL2:=IF(EMA(C,2)>回归斜率线A AND MAHL1>0,EMA(C,3),LLV(EMA((H+L)/2,5),30));MAHL3:=IF(EMA(C,2)>回归斜率线A AND MAHL1>0,LLV(EMA((H+L)/2,5),30),EMA(C,5));回归斜率带:DRAWBAND(回归斜率线A,RGB(235,0,230),REF(回归斜率线A,2),RGB(0,104,154));上线:=SMA(C,6.5,1);一号支撑线:SMA(C,14.5,1);上线1:=SMA(C,3,1);一号支撑线1:=SMA(C,8,1);上线2:=SMA(C,3.5,1);DRAWTEXT(CROSS(一号支撑线1,上线1),H*1.08,'洗盘'),COLOR00FF00;BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,25))/4;UPR:=BBI+3*STD(BBI,13),LINETHICK2;DWN:=BBI-3*STD(BBI,13);安全:=MA(CLOSE,55),LINETHICK2;LC:=REF(CLOSE,1);RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;DRAWTEXT( CROSS(82,RSI) AND CLOSE< 上线1 , HIGH*1.04,'减仓') ,COLORFF9966,LINETHICK2;A7:=(2*C+H+L)/4;操作:MA(A7,5),COLOR00FFFF,LINETHICK2;操作1:=MA(A7,5)*1.03,LINETHICK2;操作2:=MA(A7,5)*0.97,LINETHICK2;VAR1:LLV(A7,21);VAR2:HHV(A7,30);YCX:=操作>=REF(操作,1);H1:=MAX(MAX(上线,一号支撑线1),一号支撑线);L1:=MIN(MIN(上线,一号支撑线1),一号支撑线);SK:=EMA((A7-VAR1)/(VAR2-VAR1)*100,7);SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);M1:=1000*操作/一号支撑线<=1015 AND 1000*操作/一号支撑线>=975;M2:=1000*一号支撑线1/一号支撑线<=1020 AND 一号支撑线1/一号支撑线>=980;M3:=1000*上线/一号支撑线<=1015 AND 上线/一号支撑线>=985;D:=MA(CLOSE,89)-MA(CLOSE,10)/3;RSV:=(CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100;K:=SMA(RSV,3,1);D1:=SMA(K,3,1);J:=3*K-2*D1;VAR3:=(2*CLOSE+HIGH+LOW)/3;VAR4:=EMA(EMA(EMA(VAR3,4),4),4);E:=(VAR4-REF(VAR4,1))/REF(VAR4,1)*100;F:=MA(E,3)+0.03;G:=MA(E,1);DRAWICON(CROSS(F,G) AND J>65,HIGH*1.02,15),COLORGREEN;STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,0 ),COLORRED; STICKLINE(C< O AND C>REF(C,1),C,O,3,0),COLORFFCC00;STICKLINE(CLOSE> REF(CLOSE,1) AND C>O ,OPEN,CLOSE,3,0 ),COLOR000055;STICKLINE(CLOSE> REF(CLOSE,1) AND C>O ,OPEN,CLOSE,2.7,0 ),COLOR000077;STICKLINE(CLOSE> REF(CLOSE,1) AND C>O ,OPEN,CLOSE,2.1,0 ),COLOR000099;STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB;STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD;STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLOR00FFFF;STICKLINE(CLOSE= REF(CLOSE,1) ,H,L,3,1 ),COLOR999999;STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,0 ),COLORWHITE;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3,0 ),COLOR555555;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD;STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF;STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORCYAN;STICKLINE(C< REF(C,1) AND C>O,C,O,3,0),COLORFFCC00;STICKLINE(C< REF(C,1) AND C< O ,OPEN,CLOSE,3,0 ),COLOR990000;STICKLINE(C< REF(C,1) AND C< O ,OPEN,CLOSE,2.7,0 ),COLORCC0000;STICKLINE(CLOSE< REF(C,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400;STICKLINE(CLOSE< REF(C,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800;STICKLINE(CLOSE< REF(C,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,3.2,0),COLORBB00FF;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,2.7,0),COLORFF33FF;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,2.1,0), COLORFF66FF;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,1.5,0),COLORFF99FF;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,0.9,0),COLORFFBBFF;STICKLINE(CROSS(J,D1) AND J< 70,CLOSE,OPEN,0.3,0),COLORFFDDFF;AAA:=(3*CLOSE+OPEN+HIGH+LOW)/6;控盘度:=(EMA(AAA,6)-REF(EMA(AAA,18),1))/REF(EMA(AAA,18),1)*100+55;XG:=BARSLASTCOUNT(控盘度< 50)=1;DRAWTEXT(XG,LOW*0.98,'★大机构进场'),COLORRED;STICKLINE(XG,C,O,3,0),COLORYELLOW;DRAWICON(XG,LOW,9); AAA:=(3*CLOSE+OPEN+HIGH+LOW)/6;控盘度:=(EMA(AAA,6)-REF(EMA(AAA,18),1))/REF(EMA(AAA,18),1)*100+55;XG:BARSLASTCOUNT(控盘度< 50)=1; {大机构进场F} AAA:=(3*CLOSE+OPEN+HIGH+LOW)/6;MA12:=EMA(AAA,12);MA36:=EMA(AAA,36);MA108:=EMA(AAA,108);MA250:=EMA(AAA,250);控盘度:(EMA(AAA,6)-REF(EMA(AAA,18),1))/REF(EMA(AAA,18),1)*100+55,NODRAW;STICKLINE( 控盘度>=50,50,控盘度,3,0),COLORYELLOW;STICKLINE( 控盘度>=60,60,控盘度,3,0),COLORRED;STICKLINE( 控盘度>=80,80,控盘度,3,0),COLORMAGENTA;低控盘:IF(控盘度>=50,控盘度,0),COLORYELLOW,NODRAW;中控盘:IF(控盘度>=60,控盘度,0),COLORRED,NODRAW;高控盘:IF(控盘度>=80,控盘度,0),COLORMAGENTA,NODRAW;DRAWTEXT_FIX(C>O,0,0.2,0,''),COLORYELLOW;XG:=BARSLASTCOUNT(控盘度< 50)=1;STICKLINE(XG,50,70,4,0)COLORRED;STICKLINE(XG,50,70,3,0);DRAWTEXT(XG,75,' ★大机构进场'),COLORRED;DRAWICON(XG,62,9);DRAWICON(XG,68,9);DRAWICON(XG,74,9);
{大机构量能F}
SHORT:=12;
LONG:=26;
MID:=9;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2;
STICKLINE(DIF>DEA,0,VOL,2,0),COLORRED;
STICKLINE(DIF< DEA,0,VOL,2,0),COLORYELLOW;
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
STICKLINE(J>D,VOL/2,VOL,2,0),COLORRED;
STICKLINE(J< D,VOL/2,VOL,2,0),COLORYELLOW;
KAAA:=EXIST(CROSS(MA(C,10),MA(C,5)),3);
STICKLINE(KAAA AND J< D,0,VOL/5,2,0),COLORBLUE;
VARR1:=SMA(MAX(CLOSE-REF(C,1),0),6,1)/SMA(ABS(CLOSE-REF(C,1)),6,1)*100;
DRAWTEXT(CROSS(82,VARR1),VOL,'风险'),COLORYELLOW;
AAA:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(AAA,6)-REF(EMA(AAA,18),1))/REF(EMA(AAA,18),1)*100+55;
XG:BARSLASTCOUNT(控盘度< 50)=1;
DRAWICON(XG,VOL,9);
{大机构进场2}
{大机构进场X}
AAA:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(AAA,6)-REF(EMA(AAA,18),1))/REF(EMA(AAA,18),1)*100+55;
XG:BARSLASTCOUNT(控盘度< 50)=1;
