通达信绝密资金监控主图指标 源码

通达信绝密资金监控主图指标 源码 贴图

{资金监控-绝密}  {主图} 年:=YEAR,NODRAW; 月:=MONTH,NODRAW; 星期:=WEEKDAY,NODRAW; 日1:=DATETODAY(DATE); 上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT); 自然日:=日1-DATETODAY(上市日)+1;  ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)  OR TOTALBARSCOUNT-CURRBARSCOUNT=0;

 DRAWKLINE(H,O,L,C);  ZKP:=IF(C>REF(C,1),REF(C,1),DRAWNULL);  ZSP:=IF(C>REF(C,1),C,DRAWNULL);  DKP:=IF(C=OPEN,ZKP,ZSP,1,0),COLORYELLOW;

 M5:MA(C,5),COLORWHITE;  M10:MA(C,10),COLORYELLOW;  M20:MA(C,20),COLORCYAN;  M60:MA(C,60),COLORGREEN,LINETHICK2;  M120:MA(C,120),COLORRED,LINETHICK2;

 TY:=C;  A1:=REF(TY,10)=HHV(TY,2*10+1);  B1:=FILTER(A1,10);  C1:=BACKSET(B1,10+1);  HD:=FILTER(C1,10);  A2:=REF(TY,10)=LLV(TY,2*10+1);  B2:=FILTER(A2,10);  C2:=BACKSET(B2,10+1);  LD:=FILTER(C2,10); 前期高位:REF(C,BARSLAST(HD)),COLOR8000FF,POINTDOT;  STICKLINE(C,前期高位,前期高位,8,0),COLOR8000FF;  JRH:=HHV(C,2);  JRL:=LLV(C,2);  VAR01:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));  VAR02:=(REF(VAR01,1) AND CLOSE=REF(CLOSE,2));  VAR03:=(REF(VAR02,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE=REF(CLOSE,1) AND CLOSE=REF(CLOSE,1) AND CLOSE=REF(CLOSE,1) AND CLOSE=REF(CLOSE,1) AND CLOSE0,0.20,0.0,0,STRCAT('主营业务：',EXTERNSTR(0,6))),COLORYELLOW;  DRAWTEXT_FIX(C>0,0.0,0.05,0,STRCAT('业绩预报：',EXTERNSTR(0,3))),COLORYELLOW;  DRAWTEXT_FIX(C>0,0.00,0.10,0,STRCAT('主题投资：',EXTERNSTR(0,7))),COLORYELLOW;  DRAWTEXT_FIX(C>0,0.0,0.15,0,STRCAT('解禁日期：',EXTERNSTR(0,8))),COLORYELLOW;  DRAWTEXT_FIX(C>0,0.00,0.20,0,STRCAT('千股千评：',EXTERNSTR(0,1))),COLOR00FFFF;  {DRAWTEXT_FIX(C>0,0.00,0.25,0,STRCAT('智能诊股：',EXTERNSTR(0,2))),COLOR00FFFF;}

 VAR111:=ZIG(3,13);  STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,3,0),COLOR66FF00;  DRAWTEXT_FIX(STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),0.00,0.11,0,''),COLOR00FF00,LINETHICK1;

 VARK1:=(HIGH+LOW+CLOSE*2)/4;  VARK2:=EMA(VARK1,21);  VARK3:=STD(VARK1,21);  VARK4:=((VARK1-VARK2)/VARK3*100+200)/4;  VARK5:=(EMA(VARK4,89)-25)*1.56;  VARK6:=EMA(VARK5,5)*1.22;  VARK7:=EMA(VARK6,3);  VARK8:=3*VARK6-2*VARK7;  VARK1A:=IF(CROSS(VARK6,VARK8) AND CROSS(VARK7,VARK8) AND CROSS(VARK7,VARK6),1,0);  VARK1B:=EMA(CLOSE,3)-EMA(CLOSE,89);  VARK1C:=EMA(VARK1B,21);  VARK1D:=(VARK1B-VARK1C)*10;  VARK1F:=POW(VARK1D,3)*0.1+POW(VARK1D,2); 拉升资金:=IF(VARK1D>0.015,VARK1F,0)/45;  VARK9:=EMA(CLOSE,2)-EMA(CLOSE,55);  VARK10:=EMA(VARK9,13);  VARK11:=2*(VARK9-VARK10); 主力资金:=POW(VARK11,3)*0.1+POW(VARK11,1);  DRAWICON(CROSS(主力资金,0) AND CROSS(拉升资金,0.01)AND VOL/MA(REF(VOL,1),5)>2,L-0.25,23);

超B:=L2_AMO(0,2)/10000.0; 大B:=L2_AMO(1,2)/10000.0; 中B:=L2_AMO(2,2)/10000.0; 小B:=L2_AMO(3,2)/10000.0; 超S:=-L2_AMO(0,3)/10000.0; 大S:=-L2_AMO(1,3)/10000.0; 中S:=-L2_AMO(2,3)/10000.0; 小S:=-L2_AMO(3,3)/10000.0; 净流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S); 中单:=中B+中S; 大宗净流入:=(超B+大B)+(超S+大S); 三日大宗:=SUM(大宗净流入,3); 十日大宗:=SUM(大宗净流入,10); 超大单:=(超B)+(超S); 大单:=(大B)+(大S); 小单:=(小B)+(小S); 大宗进:=(超B)+(大B); 大宗出:=(超S)+(大S); 非大宗进:=(中B)+(小B); 非大宗出:=(中S)+(小S); 近3日流向:=SUM(净流入,3); 近10日流向:=SUM(净流入,10); 主力买力度:=LARGEINTRDVOL*100/VOL; 主力卖力度:=LARGEOUTTRDVOL*100/VOL;  DRAWRECTREL(0,450,264,999.4,IF(120,RGB(10,0,0),0));

 AAB:=CONST(MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))*1.5,NODRAW;  DRAWRECTREL(2,CONST(945-(ABS(超大单)*500/AAB)),37,945,IF(CONST(超大单)>0,RGB(255,0,255),RGB(0,50,0)));  DRAWRECTREL(39,CONST(945-(ABS(大单)*500/AAB)),74,945,IF(CONST(大单)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(76,CONST(945-(ABS(中单)*500/AAB)),111,945,IF(CONST(中单)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(113,CONST(945-(ABS(小单)*500/AAB)),148,945,IF(CONST(小单)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.006,0.9,0,INTPART(超大单)),COLORWHITE;  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.043,0.9,0,INTPART(大单)),COLORWHITE;  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.080,0.9,0,INTPART(中单)),COLORWHITE;  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.117,0.9,0,INTPART(小单)),COLORWHITE;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.008,1,0,'超大单'),COLORYELLOW;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.048,1,0,'大单'),COLORYELLOW;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.086,1,0,'中单'),COLORYELLOW;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.120,1,0,'小单'),COLORYELLOW;

 AAC:=CONST(MAX(ABS(净流入),MAX(ABS(近3日流向),ABS(近10日流向))))*1.5,NODRAW;  DRAWRECTREL(153,CONST(945-(ABS(净流入)*500/AAC)),188,945,IF(CONST(净流入)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(190,CONST(945-(ABS(近3日流向)*500/AAC)),225,945,IF(CONST(近3日流向)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(227,CONST(945-(ABS(近10日流向)*500/AAC)),262,945,IF(CONST(近10日流向)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.155,0.9,0,INTPART(净流入)),COLORWHITE;  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.192,0.9,0,INTPART(近3日流向)),COLORWHITE;  DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.229,0.9,0,INTPART(近10日流向)),COLORWHITE;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.157,1,0,'净 流 入'),COLORYELLOW;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.192,1,0,'三日流向'),COLORYELLOW;  DRAWTEXT_FIX(CURRBARSCOUNT=1,0.228,1,0,'十日流向'),COLORYELLOW;

 DDZ:=IF(TRADENUM>0,(LARGETRDINNUM-LARGETRDOUTNUM)/TRADENUM*100,0);  DDY:=IF(TRADENUM>0,(TRADEOUTNUM-TRADEINNUM)*100/TRADENUM,0);  DDX:=(LARGEINTRDVOL-LARGEOUTTRDVOL)*100/CAPITAL;  DRAWRECTREL(2,455,88,515,IF(CONST(DDZ)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(89,455,175,515,IF(CONST(DDY)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(176,455,262,515,IF(CONST(DDX)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWTEXT_FIX(1,0.005,0.455,0,STRCAT('大单差分:',CON2STR(DDZ,2))),COLORWHITE;  DRAWTEXT_FIX(1,0.094,0.455,0,STRCAT('涨跌动因:',CON2STR(DDY,2))),COLORWHITE;  DRAWTEXT_FIX(1,0.181,0.455,0,STRCAT('大单动向:',CON2STR(DDX,2))),COLORWHITE;

 T1Z:=IF (DDZ>0 AND REF(DDZ,1)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)>0 AND REF(DDZ,6)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)>0 AND REF(DDZ,6)>0 AND REF(DDZ,7)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)>0 AND REF(DDZ,6)>0 AND REF(DDZ,7)>0 AND REF(DDZ,8)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)>0 AND REF(DDZ,6)>0 AND REF(DDZ,7)>0 AND REF(DDZ,8)>0 AND REF(DDZ,9)0 AND REF(DDZ,1)>0 AND REF(DDZ,2)>0 AND REF(DDZ,3)>0 AND REF(DDZ,4)>0 AND REF(DDZ,5)>0 AND REF(DDZ,6)>0 AND REF(DDZ,7)>0 AND REF(DDZ,8)>0 AND REF(DDZ,9)>0,10,T9Z);  DRAWTEXT_FIX(1,0.064,0.455,0,STRCAT(STRCAT(' ',CON2STR(TZ,0)),' [天] ')),COLORWHITE;

 T11:=IF (DDY>0 AND REF(DDY,1)0 AND REF(DDY,1)>0 AND REF(DDY,2)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)>0 AND REF(DDY,6)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)>0 AND REF(DDY,6)>0 AND REF(DDY,7)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)>0 AND REF(DDY,6)>0 AND REF(DDY,7)>0 AND REF(DDY,8)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)>0 AND REF(DDY,6)>0 AND REF(DDY,7)>0 AND REF(DDY,8)>0 AND REF(DDY,9)0 AND REF(DDY,1)>0 AND REF(DDY,2)>0 AND REF(DDY,3)>0 AND REF(DDY,4)>0 AND REF(DDY,5)>0 AND REF(DDY,6)>0 AND REF(DDY,7)>0 AND REF(DDY,8)>0 AND REF(DDY,9)>0,10,T91);  DRAWTEXT_FIX(1,0.151,0.455,0,STRCAT(STRCAT(' ',CON2STR(TY1,0)),' [天] ')),COLORWHITE;

 T1:=IF (DDX>0 AND REF(DDX,1)0 AND REF(DDX,1)>0 AND REF(DDX,2)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)>0 AND REF(DDX,6)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)>0 AND REF(DDX,6)>0 AND REF(DDX,7)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)>0 AND REF(DDX,6)>0 AND REF(DDX,7)>0 AND REF(DDX,8)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)>0 AND REF(DDX,6)>0 AND REF(DDX,7)>0 AND REF(DDX,8)>0 AND REF(DDX,9)0 AND REF(DDX,1)>0 AND REF(DDX,2)>0 AND REF(DDX,3)>0 AND REF(DDX,4)>0 AND REF(DDX,5)>0 AND REF(DDX,6)>0 AND REF(DDX,7)>0 AND REF(DDX,8)>0 AND REF(DDX,9)>0,10,T9);  DRAWTEXT_FIX(1,0.238,0.455,0,STRCAT(STRCAT(' ',CON2STR(T,0)),' [天] ')),COLORWHITE;

主力净买量:=(LARGEINTRDVOL-LARGEOUTTRDVOL);  TMP:=LARGEINTRDVOL-LARGEOUTTRDVOL; 主力活跃度:=(LARGEINTRDVOL+LARGEOUTTRDVOL)*10000/(2*FINANCE(7)); 主力资金线:=(L2_AMO(0,0)+L2_AMO(1,0)-L2_AMO(0,1)-L2_AMO(1,1))/10000.0;  DRAWRECTREL(2,520,88,580,IF(CONST(主力净买量)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(89,520,175,580,IF(CONST(TMP)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWRECTREL(176,520,262,580,IF(CONST(主力资金线)>0,RGB(192,17,27),RGB(0,50,0)));  DRAWTEXT_FIX(1,0.005,0.525,0,STRCAT('主力净买量:',CON2STR(主力净买量,2))),COLORWHITE;  DRAWTEXT_FIX(1,0.094,0.525,0,STRCAT('主力活跃度:',CON2STR(主力活跃度,2))),COLORWHITE;  DRAWTEXT_FIX(1,0.181,0.525,0,STRCAT('主力资金线:',CON2STR(主力资金线,2))),COLORWHITE;

 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);  DEA:=EMA(DIF,9);  MACD:=(DIF-DEA)*2;  VAR113:=HHV(HIGH,60);  VAR114:=LLV(LOW,30);  VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;  VAR116:=(VAR113+VAR114+VAR115)/3;  VAR117:=EMA(VAR116,5);  K01:=EMA(VAR117,5)*2, COLORFF00FF;  D01:=EMA(K01,5), COLORWHITE;  J01:=K01*3-D01*2, COLORYELLOW;  ENTERLONG:=CROSS(K01,D01);  EXITLONG:=CROSS(D01,K01);  B01:=(DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)0; 必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORGREEN,LINETHICK1;  QQ:=必卖=80;  B03:=((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)