通达信主力绝密操盘系统主图指标 揭示主力运行规律源码

主图纯黄K线，表示股价深市有异动公告，10天内四次异动有停牌警示，可谓一目了然！！！其他主力操盘绝密尽在主图中，由你来发现！
 

所属地区:DRAWTEXT_FIX(1,0,0,0,'地区：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.05,0,0,DYBLOCK),COLORYELLOW;

所属行业:DRAWTEXT_FIX(1,0,0.08,0,'行业：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.05,0.08,0,HYBLOCK),COLORYELLOW;

所属概念:DRAWTEXT_FIX(1,0,0.16,0,'概念：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.05,0.16,0,GNBLOCK),COLORYELLOW;

所属风格:DRAWTEXT_FIX(1,0,0.24,0,'风格：'),COLORYELLOW;
DRAWTEXT_FIX(1,0.05,0.24,0,FGBLOCK),COLORYELLOW;

上市日期:=CONST(DAYTODATE((DATETODAY(DATE)-FINANCE(42))))+19000000,NODRAW;
DRAWTEXT_FIX(1,0,0.32,0,'上市日期:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.05,0.32,0,上市日期),COLORYELLOW;
MA3:MA(C,3),COLORRED;
短期底部:LLV(HIGH,30),LINETHICK2,COLORFFCC00;
多空线:SMA((O+CLOSE+HIGH+LOW)/4,3,1),COLORRED;
多空线1:=SMA((O+CLOSE+HIGH+LOW)/4,5,1);
主力成本:EMA(COST(9),250),COLORGREEN;
长命线:EMA(COST(27),120),COLORWHITE;
强命线:EMA(COST(81),10),COLORBLUE;
VARG1:=1.86*EMA(CLOSE,5)-EMA(CLOSE,13);
趋势力度:=VARG1;
FL:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)),COLORF4E202;
FS:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1),COLORF4E202,LINETHICK2;
CG:=IF(MA(CLOSE,17)<FS,FS,MA(CLOSE,17)),COLORF4E202,LINETHICK2;
浮筹:=CG-(EMA(C,3)-CG),COLORYELLOW;
力度:=趋势力度-浮筹,NODRAW;
年线:=EMA(C,250);
散筹:=年线-(EMA(C,3)-年线),COLORFF80FF,LINETHICK2;
操作线:=EMA(C,7),COLOR00FF00;
A:=(REF(操作线,1));
{STICKLINE((操作线>A),A,操作线,2,0),COLORBLUE;
STICKLINE((操作线<=A),A,操作线,2,0),COLORYELLOW;}
JJ:=(3*C+H+L+O)/6;
VAR11:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)
+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR11 AND C>REF(C,1);
LJL:=FILTER(TJ1,5);
TJ2:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(LJL)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(LJL)=3
AND CLOSE>REF(HIGH,3),1,0)));
TP:=TJ2=1;
TJ3:=IF(BARSLAST(LJL)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(LJL)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(LJL)=3 AND CLOSE>REF(LOW,3),1,0)));
STFZ:=TJ3=1;
CL:=STFZ AND TP;
TJCL:=FILTER(CL,3);
STICKLINE(LJL,OPEN,CLOSE,1,0),COLORYELLOW;
IF(多空线>REF(多空线,1),多空线,DRAWNULL),COLORMAGENTA,LINETHICK2;
IF(多空线<REF(多空线,1),多空线,DRAWNULL),COLORGREEN,LINETHICK2;
DRAWICON(CROSS(强命线,多空线1),H+0.6,2);
DRAWICON(CROSS(多空线,强命线),L-0.6,1);
CTX:=(3*C+H+L+O)/6;
IONG:=(8*CTX+7*REF(CTX,1)+6*REF(CTX,2)+5*REF(CTX,3)+4*REF(CTX,4)+3*REF(CTX,5)+2*REF(CTX,6)+REF(CTX,8))/36;
CTXIONG:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>IONG AND C>O;
XG:=FILTER(CTXIONG,5);
BB1:=CROSS(多空线,强命线);
X1:=EMA(C,8),COLORWHITE;
X2:=EMA(C,20),COLORYELLOW;
主线:=EMA(X2,20),COLORGREEN;
VBR1:=EMA(CLOSE,8),COLORWHITE;
VBR2:=EMA(CLOSE,20),COLORYELLOW;
YA:=IF(C>=O,AMOUNT,0);
YAOBV:=SUM(YA,0);
MOBV:=SUM(AMOUNT,0);
BL:=100*YAOBV/MOBV;
MABL3:=IF(BARSSINCE(C)>=3,MA(BL,3),50);
MABL30:=IF(BARSSINCE(C)>=30,MA(BL,30),MABL3);
SSS3:=COUNT(CROSS(VBR1,VBR2),10)>=1;
SSS4:=COUNT(CROSS(MABL3,MABL30),10)=1;
TJ:=DYNAINFO(4)>0
AND HHV(HIGH,10)/LLV(LOW,10)<1.25
AND REF(CLOSE,1)<(LLV(LOW,15)+(HHV(HIGH,15)-LLV(LOW,15))*0.85)
AND CLOSE>OPEN
AND CLOSE>=HHV(HIGH,10);
DRAWTEXT(COUNT(XG,5)>=1 AND BB1 AND SSS3 AND SSS4,L,'黑马'),COLORWHITE;

{涨停板}
{  TB:=(C-REF(C,1))/REF(C,1)*100;
  STICKLINE(TB>9.9,O,C,2.5,1)COLORMAGENTA;
  STICKLINE(TB<-9.9,O,C,2.5,0)COLOR1D7300;}
{涨停颜色粉色，完美区分20%10%5%}
{涨停颜色粉色，完美区分20%10%5%，创业板20200823前10%照样变色}
BK:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('创业板'),0.2,IF(INBLOCK('ST板块'),0.05,0.1)));
XA_1:=IF(DATE<=1200823,1,0);
STICKLINE((C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H) AND XA_1=1,O,C,2.7,0),COLORFF00FF;
STICKLINE((C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L) AND XA_1=1,O,C,2.7,0),COLOR80FF00;
STICKLINE((C>=ZTPRICE(REF(C,1),BK) AND C=H),C,O,2.7,0),COLORFF00FF;
STICKLINE((C<=DTPRICE(REF(C,1),BK) AND C=L),C,O,2.7,0),COLOR80FF00;
STICKLINE((H=ZTPRICE(REF(C,1),BK) AND C<H),H,MAX(C,O),0.1,0),COLORMAGENTA;{涨停后回落}
STICKLINE((L=DTPRICE(REF(C,1),BK) AND C>L),L,MIN(C,O),0.1,0),COLOR80FF00;{跌停后回升}

今涨停:IF(INBLOCK('科创板'),REF(C,1)*1.2,IF(INBLOCK('创业板') AND XA_1=0,REF(C,1)*1.2,IF(INBLOCK('ST板块'),REF(C,1)*1.05,REF(C,1)*1.1))),NODRAW;
今跌停:IF(INBLOCK('科创板'),REF(C,1)*0.8,IF(INBLOCK('创业板') AND XA_1=0,REF(C,1)*0.8,IF(INBLOCK('ST板块'),REF(C,1)*0.95,REF(C,1)*0.9))),NODRAW;
明涨停:IF(INBLOCK('科创板'),CLOSE*1.2,IF(INBLOCK('创业板') AND XA_1=0,CLOSE*1.2,IF(INBLOCK('ST板块'),CLOSE*1.05,CLOSE*1.1))),NODRAW;
{近期高位}
AB1:=REF(C,10)=HHV(C,2*10+1);
BD1:=FILTER(AB1,10);
CB1:=BACKSET(BD1,10+1);
HBD:=FILTER(CB1,10);
近期压力:REF(C,BARSLAST(HBD)) NODRAW,COLORYELLOW;
STICKLINE(C,近期压力,近期压力,10,0),COLORYELLOW ;
DRAWTEXT(ISLASTBAR,近期压力,' 近期压力');
{长期高位}
AS1:=REF(C,60)=HHV(C,2*60+1);
AS2:=FILTER(AS1,60);
AS3:=BACKSET(AS2,60+1);
AS4:=FILTER(AS3,60);
长期压力:REF(C,BARSLAST(AS4)) NODRAW COLORRED;
STICKLINE(C,长期压力,长期压力,10,0),COLORRED;
DRAWTEXT(ISLASTBAR,长期压力,' 长期压力');

{以下为偏离值}

A0:=("399107$C");{指数当日}

A2:=REF(A0,2);{指数倒数第3天}

A3:=REF(A0,3);{指数倒数第4天}

B2:=REF(C,2);

B3:=REF(C,3);

偏二:(C/B2-A0/A2)*100,COLORWHITE,NODRAW;

偏三:(C/B3-A0/A3)*100,COLORWHITE,NODRAW;

界三:((0.2+A0/A3)*B3/REF(C,1)-1)*100,COLORMAGENTA,NODRAW;

界三价:(0.2+A0/A3)*B3,COLORMAGENTA,NODRAW;

深A预三:((C*1.1/REF(C,2)-0.2)*A2/A0-1)*100,COLORGREEN,NODRAW;

{以下为股票异动提示}

D1:=DATETODAY(1220711);

D2:=DATETODAY(DATE);

PL2:=IF(D2>D1,(C/REF(C,2)-A0/REF(A0,2))*100,(C/REF(C,1)+REF(C,1)/REF(C,2)-A0/REF(A0,1)-REF(A0,1)/REF(A0,2))*100);

PL3:=IF(D2>D1,(C/REF(C,3)-A0/REF(A0,3))*100,(C/REF(C,1)+REF(C,1)/REF(C,2)+REF(C,2)/REF(C,3)-A0/REF(A0,1)-REF(A0,1)/REF(A0,2)-REF(A0,2)/REF(A0,3))*100);

YD:=(PL2>20 OR PL3>20);

SCYD:=(REF(COUNT(YD,3)=0,1) AND YD AND NOT(FINANCE(3)=3 OR FINANCE(3)=4));

STICKLINE(SCYD,O,C,2.7,0),COLORYELLOW;

ECYD1:=(EXISTR(SCYD,2,2) AND  PL2>20);
ECYD2:=(EXISTR(SCYD,3,3) AND  PL3>20 AND REF(COUNT(ECYD1,2)=0,1));
ECYD:=(ECYD1 OR ECYD2);
STICKLINE(ECYD,O,C,2.7,0),COLORYELLOW;
SACYD1:=(EXISTR(ECYD,2,2) AND  PL2>20);
SACYD2:=(EXISTR(ECYD,3,3) AND  PL3>20 AND REF(COUNT(SACYD1,2)=0,1));
SACYD:=(SACYD1 OR SACYD2);
STICKLINE(SACYD,O,C,2.7,0),COLORYELLOW;
SICYD1:=(EXISTR(SACYD,2,2) AND  PL2>20);
SICYD2:=(EXISTR(SACYD,3,3) AND  PL3>20 AND REF(COUNT(SICYD1,2)=0,1));
SICYD:=(SICYD1 OR SICYD2);
STICKLINE(SICYD,O,C,2.7,0),COLORYELLOW;
WCYD1:=(EXISTR(SICYD,2,2) AND  PL2>20);
WCYD2:=(EXISTR(SICYD,3,3) AND  PL3>20 AND REF(COUNT(WCYD1,2)=0,1));
WCYD:=(WCYD1 OR WCYD2);
STICKLINE(WCYD,O,C,2.7,0),COLORYELLOW;
LCYD1:=(EXISTR(WCYD,2,2) AND  PL2>20);

LCYD2:=(EXISTR(WCYD,3,3) AND  PL3>20 AND REF(COUNT(LCYD1,2)=0,1));

LCYD:=(LCYD1 OR LCYD2);

STICKLINE(LCYD,O,C,2.7,0),COLORYELLOW;