当前位置: 网站首页 > 股票软件公式 > 通达信公式 > 文章 当前位置: 通达信公式 > 文章

通达信源码:资金进出一目了然,猎杀黑马,追踪主力

点击: 次    来源:顶尖财经    作者:股市狙击 - 小 + 大

1、资金进出一目了然(1-10日资金,20-60日资金)需要L2

两个指标(1-10日资金,20-60日资金)
一个当日-10日资金进出,一个是20日-60日资金,按需取求吧。
本指标需要L2数据!!
 
{1-10日资金}
{多日资金}
超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;
TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S);
超大单:=(超B)-(超S);
大单:=(大B)-(大S);
中单:=(中B)-(中S);
小单:=(小B)-(小S);
DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
当日净入:=SUM(净流入,1);
当日超:=SUM(超大单,1);
当日大:=SUM(大单,1);
当日中:=SUM(中单,1);
当日小:=SUM(小单,1);
近3净入:=SUM(净流入,3);
近3超:=SUM(超大单,3);
近3大:=SUM(大单,3);
近3中:=SUM(中单,3),;
近3小:=SUM(小单,3);
近5净入:=SUM(净流入,5);
近5超:=SUM(超大单,5);
近5大:=SUM(大单,5);
近5中:=SUM(中单,5),;
近5小:=SUM(小单,5);
近10净入:=SUM(净流入,10);
近10超:=SUM(超大单,10);
近10大:=SUM(大单,10);
近10中:=SUM(中单,10);
近10小:=SUM(小单,10);
流入:=ABS(超B+大B+中B+小B)*1000/VOL;
流出:=ABS(超S+大S+中S+小S)*1000/VOL;
当日流入:=ABS(SUM(超B,1)+SUM(大B,1)+SUM(中B,1)+SUM(小B,1))*1000/VOL;
当日流出:=ABS(SUM(超S,1)+SUM(大S,1)+SUM(中S,1)+SUM(小S,1))*1000/VOL;
近3流入:=ABS(SUM(超B,3)+SUM(大B,3)+SUM(中B,3)+SUM(小B,3))*1000/VOL;
近3流出:=ABS(SUM(超S,3)+SUM(大S,3)+SUM(中S,3)+SUM(小S,3))*1000/VOL;
近5流入:=ABS(SUM(超B,5)+SUM(大B,5)+SUM(中B,5)+SUM(小B,5))*1000/VOL;
近5流出:=ABS(SUM(超S,5)+SUM(大S,5)+SUM(中S,5)+SUM(小S,5))*1000/VOL;
近10流入:=ABS(SUM(超B,10)+SUM(大B,10)+SUM(中B,10)+SUM(小B,10))*1000/VOL;
近10流出:=ABS(SUM(超S,10)+SUM(大S,10)+SUM(中S,10)+SUM(小S,10))*1000/VOL;
净流买比当日:=当日流入*100/(当日流入+当日流出);
净流卖比当日:=当日流出*100/(当日流入+当日流出);
净流买比3:=近3流入*100/(近3流入+近3流出);
净流卖比3:=近3流出*100/(近3流入+近3流出);
净流买比5:=近5流入*100/(近5流入+近5流出);
净流卖比5:=近5流出*100/(近5流入+近5流出);
净流买比10:=近10流入*100/(近10流入+近10流出);
净流卖比10:=近10流出*100/(近10流入+近10流出);
AAS:=CONST(MAX(ABS(流入),ABS(流出)))*4,NODRAW;
 
{当日}
DRAWRECTREL(0,0,243,999.2,IF(120,RGB(10,0,0),0));
{DRAWTEXT_FIX(CURRBARSCOUNT=1,0.0,0.001,0,'单位(万元)'),COLORDDDDDD;}
DRAWRECTREL(10,ABS(CONST(880-(ABS(当日净入)*50/DAZHI))),25,880,IF(CONST(当日净入)>0,RGB(170,0,170),RGB(0,155,0)));
DRAWRECTREL(48,ABS(CONST(880-(ABS(当日超)*50/DAZHI))),80,880,IF(CONST(当日超)>0,RGB(240,130,140),RGB(23,125,255)));
DRAWRECTREL(96,ABS(CONST(880-(ABS(当日大)*50/DAZHI))),128,880,IF(CONST(当日大)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(144,ABS(CONST(880-(ABS(当日中)*50/DAZHI))),176,880,IF(CONST(当日中)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(192,ABS(CONST(880-(ABS(当日小)*50/DAZHI))),224,880,IF(CONST(当日小)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(30,205,190,145,RGB(0,140,0));
DRAWRECTREL(30,205,30+CONST(净流买比当日*160/100),145,RGB(140,0,0));
DRAWTEXT_FIX(1,0.05,0.01,0,STRCAT('买',STRCAT(CON2STR(净流买比当日,1),'%%'))),COLOR0000FF;
DRAWRECTREL(110,205,110,145,RGB(250,250,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.2,0.001,0,'当日'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.005,1,0,'净流'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.050,1,0,'超大'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.095,1,0,'大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.145,1,0,'中单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.192,1,0,'小单'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.005,0.47,0,CEILING(当日净入)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.048,0.47,0,CEILING(当日超)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.096,0.47,0,CEILING(当日大)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.148,0.47,0,CEILING(当日中)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.192,0.47,0,CEILING(当日小)),COLORYELLOW;
 
{3日}
DRAWRECTREL(243,0,505,999.2,IF(120,RGB(10,0,0),0));
DRAWRECTREL(260,ABS(CONST(880-(ABS(近3净入)*35/DAZHI))),275,880,IF(CONST(近3净入)>0,RGB(180,0,180),RGB(000,155,000)));
DRAWRECTREL(301,ABS(CONST(880-(ABS(近3超)*35/DAZHI))),333,880,IF(CONST(近3超)>0,RGB(240,130,140),RGB(23,125,255)));
DRAWRECTREL(349,ABS(CONST(880-(ABS(近3大)*35/DAZHI))),381,880,IF(CONST(近3大)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(397,ABS(CONST(880-(ABS(近3中)*35/DAZHI))),429,880,IF(CONST(近3中)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(445,ABS(CONST(880-(ABS(近3小)*35/DAZHI))),477,880,IF(CONST(近3小)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(280,205,440,145,RGB(0,155,0));
DRAWRECTREL(280,205,280+CONST(净流买比3*160/100),145,RGB(160,0,0));
DRAWTEXT_FIX(1,0.3,0.01,0,STRCAT('买',STRCAT(CON2STR(净流买比3,1),'%%'))),COLOR0000FF;
 
DRAWRECTREL(360,205,360,145,RGB(250,250,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.460,0.001,0,'3日'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.260,1,0,'净流'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.305,1,0,'超大'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.353,1,0,'大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.400,1,0,'中单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.447,1,0,'小单'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.260,0.47,0,CEILING(近3净入)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.301,0.47,0,CEILING(近3超)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.349,0.47,0,CEILING(近3大)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.397,0.47,0,CEILING(近3中)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.445,0.47,0,CEILING(近3小)),COLORYELLOW;
 
{5日}
DRAWRECTREL(500,0,750,999.3,IF(120,RGB(10,0,0),0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.70,0.001,0,'5日'),COLORRED;
DRAWRECTREL(520,ABS(CONST(880-(ABS(近5净入)*25/DAZHI))),535,880,IF(CONST(近5净入)>0,RGB(180,0,180),RGB(000,155,000)));
DRAWRECTREL(565,ABS(CONST(880-(ABS(近5超)*25/DAZHI))),595,880,IF(CONST(近5超)>0,RGB(240,130,140),RGB(23,125,255)));
DRAWRECTREL(613,ABS(CONST(880-(ABS(近5大)*25/DAZHI))),645,880,IF(CONST(近5大)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(661,ABS(CONST(880-(ABS(近5中)*25/DAZHI))),693,880,IF(CONST(近5中)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(709,ABS(CONST(880-(ABS(近5小)*25/DAZHI))),741,876,IF(CONST(近5小)>0,RGB(255,0,0),RGB(23,125,255))); 
DRAWRECTREL(530,205,690,145,RGB(0,155,0));
DRAWRECTREL(530,205,530+CONST(净流买比5*160/100),145,RGB(160,0,0));
DRAWTEXT_FIX(1,0.55,0.01,0,STRCAT('买',STRCAT(CON2STR(净流买比5,1),'%%'))),COLOR0000FF;
 
DRAWRECTREL(610,205,610,145,RGB(250,250,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.520,1,0,'净流'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.565,1,0,'超大'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.618,1,0,'大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.666,1,0,'中单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.710,1,0,'小单'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.520,0.47,0,CEILING(近5净入)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.565,0.47,0,CEILING(近5超)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.613,0.47,0,CEILING(近5大)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.661,0.47,0,CEILING(近5中)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.709,0.47,0,CEILING(近5小)),COLORYELLOW;
{10日}
DRAWRECTREL(750,0,1001,999.3,IF(120,RGB(10,0,0),0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.95,0.001,0,'10日'),COLORRED;
DRAWRECTREL(770,ABS(CONST(880-(ABS(近10净入)*25/DAZHI))),785,880,IF(CONST(近10净入)>0,RGB(180,0,180),RGB(000,155,000)));
DRAWRECTREL(815,ABS(CONST(880-(ABS(近10超)*25/DAZHI))),845,880,IF(CONST(近10超)>0,RGB(240,130,140),RGB(23,125,255)));
DRAWRECTREL(863,ABS(CONST(880-(ABS(近10大)*25/DAZHI))),895,880,IF(CONST(近10大)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(911,ABS(CONST(880-(ABS(近10中)*25/DAZHI))),943,880,IF(CONST(近10中)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(959,ABS(CONST(880-(ABS(近10小)*25/DAZHI))),991,876,IF(CONST(近10小)>0,RGB(255,0,0),RGB(23,125,255)));
DRAWRECTREL(800,205,960,145,RGB(0,155,0));
DRAWRECTREL(800,205,800+CONST(净流买比10*160/100),145,RGB(160,0,0));
DRAWTEXT_FIX(1,0.80,0.01,0,STRCAT('买',STRCAT(CON2STR(净流买比10,1),'%%'))),COLOR0000FF;
DRAWRECTREL(880,205,880,145,RGB(250,250,0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.770,1,0,'净流'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.815,1,0,'超大'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.863,1,0,'大单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.911,1,0,'中单'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.959,1,0,'小单'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.770,0.47,0,CEILING(近10净入)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.815,0.47,0,CEILING(近10超)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.863,0.47,0,CEILING(近10大)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.911,0.47,0,CEILING(近10中)),COLORYELLOW;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.959,0.47,0,CEILING(近10小)),COLORYELLOW;



2、猎杀黑马,趋势线金叉中线代表站稳有行情出现

公式由布林修改升级而来 
用法简单是:
趋势线金叉中线,代表站稳,行情出现,同时下方会提示黑马字样( 顶尖财经 股票学院: http://58188.com )
如配合运用黄金分割比找反弹和回调,此方法是可行的 。也可加入筹码分析找压制和支撑,
源码无未来函数
 
 MA3:=MA(C,3);
YTSL:=(3*C+L+O+H)/6;
迎浪线:(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)+16*REF(YTSL,4)+15*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)+12*REF(YTSL,8)+11*REF(YTSL,9)+10*REF(YTSL,10)+9*REF(YTSL,11)+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+5*REF(YTSL,15)+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/211,COLORFFFF00;
牵牛线:MA(C,26),COLOR669933;
等待:IF(MA3<=迎浪线,牵牛线,DRAWNULL),COLORGREEN,LINETHICK2;
中轨:=MA(C,26);
上轨:=中轨+STD(C,20);
下轨:=中轨-STD(C,20);
上极限:(中轨+2*STD(C,20)),COLORFF937F,LINETHICK2;
下极限:(中轨-2*STD(C,20)),COLORWHITE,LINETHICK2;
急速超跌:=(C-MA(C,34))/MA(C,34)*100<-14;
VAR1:=(C>REF(C,1) AND C>REF(C,2));
VAR2:=(REF(VAR1,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR3:=(REF(VAR2,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR4:=(REF(VAR3,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR5:=(REF(VAR4,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR6:=(REF(VAR5,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR7:=(REF(VAR6,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR8:=(REF(VAR7,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR9:=(REF(VAR8,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARA:=(REF(VAR9,1) AND C<=REF(C,1) AND C>=REF(C,2));
VARB:=(REF(VARA,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARC:=(REF(VARB,1) AND C<=REF(C,1) AND C>=REF(C,2));
持股:IF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,迎浪线,DRAWNULL),COLORRED,POINTDOT,LINETHICK5;
VARD:=(C<REF(C,1) AND C<REF(C,2));
VARE:=(REF(VARD,1) AND C>=REF(C,1) AND C<=REF(C,2));
VARF:=(REF(VARE,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR10:=(REF(VARF,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR11:=(REF(VAR10,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR12:=(REF(VAR11,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR13:=(REF(VAR12,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR14:=(REF(VAR13,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR15:=(REF(VAR14,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR16:=(REF(VAR15,1) AND C>=REF(C,1) AND C<=REF(C,2));
VAR17:=(REF(VAR16,1) AND C<=REF(C,1) AND C>=REF(C,2));
VAR18:=(REF(VAR17,1) AND C>=REF(C,1) AND C<=REF(C,2));
持币:IF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,迎浪线,DRAWNULL),COLORLIGRAY,POINTDOT,LINETHICK5;
VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1);
VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD);
DRAWTEXT(VAR19,L,'←黑马'),COLOR33FFCC;
DRAWTEXT(VAR1A,H+0.1,'←离场'),COLORFF99FF;



3、追踪主力

追踪主力  老经典指标,基本发布几十次了,追踪主力还是比较准的( 顶尖财经 股票学院: http://58188.com )

M:=55;

N:=34;

LC:=REF(CLOSE,1);

RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);

FF:=EMA(CLOSE,3);

MA15:=EMA(CLOSE,21);

DRAWTEXT(CROSS(85,RSI),75,'▼'),COLORGREEN;

VAR1:=1;

VAR2:=REF(LOW,1)*VAR1;

VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100*VAR1;

VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3)*VAR1;

VAR5:=LLV(LOW,30)*VAR1;

VAR6:=HHV(VAR4,30)*VAR1;

VAR7:=IF(MA(CLOSE,58),1,0)*VAR1;

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7*VAR1;

吸筹:IF(VAR8>100,100,VAR8)*VAR1,COLORRED;

主力跟踪:STICKLINE(吸筹>-150,0,吸筹,3,0),COLORMAGENTA;

上一篇:通达信源码:缠论新笔 缠论顶底,发现龙头,价值选股副图

下一篇:通达信源码:2019年报价值,大资金入场,抄底和逃顶