通达信精品指标源码3{主力流入流出公式}

{主力流入流出公式}
CN1:=HHV(V,5);{5日最高量}
CN2:=O>C;
 CN02:=C>O;
 CN03:=C=O;
 CN04:=((SUM(V,5)/CN1));
 CN05:=IF(CN04>0.3,1,0);{大资金}
CN06:=IF(CN2 AND CN05,V,0);{大资金流出}
CN07:=IF(CN02 AND CN05,V,0);{大资金流入}
CN08:=IF(CN03 AND CN05,V,0);{不明流向大资金}
累积资金流入:SUM(CN07,9);
累积资金流出:SUM(CN06,9);

净流入:(累积资金流入-累积资金流出),COLOR0000FF;
净流入MA3:MA(净流入,3),DOTLINE,COLOR0000FF;
净流入MA5:MA(净流入,5),DOTLINE,COLORWHITE;
不明流向大资金:SUM(CN08,9),COLORMAGENTA;

{资金流向}

QJJ:=VOL / ((H - L) * 2 - ABS(C - O));
 XVL:=IF(C > O,QJJ * (H - L),IF(C < O,QJJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - QJJ * (H - C + (O - L)),IF(C < O,0 - QJJ * (H - L),0 - VOL / 2));

HSL:=XVL / 20 / 1.15;
攻击流量:=HSL * 0.55 + REF(HSL,1) * 0.33 + REF(HSL,2) * 0.22;
 GJJ:=EMA(攻击流量,8);

{流量基线‰:GJJ*1000,COLOR00BBBB,COLORGREEN;};

{----------------------}

GJTJ1:=100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5));
 GJTJ2:=100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10));
 GJTJ3:=100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20));
 GJTJ4:=100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30));
 BAIJIN1:=BARSLAST(CROSS(30,GJTJ1))<2 AND BARSLAST(CROSS(GJTJ1,50))<2;
 BAIJIN2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
 BAIJIN3:=GJTJ1>60 AND GJTJ4>70;
 DRAWTEXT(BAIJIN1 AND BAIJIN2 AND BAIJIN3,净流入*0.96,'白金'),COLORWHITE;
 HUANGJIN1:=BARSLAST(CROSS(50,GJTJ1))<3 AND BARSLAST(CROSS(GJTJ1,50))<3;
 HUANGJIN2:=BARSLAST(CROSS(GJTJ4,GJTJ1))<2 AND GJTJ1>GJTJ4;
 DRAWTEXT(HUANGJIN1 AND HUANGJIN2,净流入*0.98,'黄金'),COLORYELLOW;
 XG:=BARSLAST(CROSS(GJTJ4,GJTJ1))<5 AND GJTJ1>GJTJ4;

ZHENCANG1:=BARSLAST(CROSS(GJTJ4,GJTJ1))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
 ZHENCANG2:=BARSLAST(CROSS(GJTJ4,GJTJ2));
 ZHENCANG3:=GJTJ3<GJTJ4 AND GJTJ2<GJTJ4;
 ZHENCANG4:=BARSLAST(CROSS(GJTJ4,GJTJ3))>3 AND BARSLAST(CROSS(GJTJ1,GJTJ4))<3;
 ZHENCANG5:=GJTJ2<GJTJ3 AND GJTJ2<GJTJ4 AND GJTJ2<GJTJ1 AND GJTJ1=100;
 ZCB1:=ZHENCANG1>0 AND REF(ZHENCANG1,1)=0 AND REF(ZHENCANG1,2)>0;
 DRAWTEXT(ZHENCANG1 AND ZHENCANG2 AND ZHENCANG3 AND ZHENCANG4 AND ZHENCANG5,净流入*0.94,'震仓买入');
AA:=BARSLAST(CROSS(97,GJTJ1))<=1 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BB:=BARSLAST(CROSS(97,GJTJ2))<=1 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA1:=AA AND BB;
 AAA:=BARSLAST(CROSS(97,GJTJ1))<=2 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BAA:=BARSLAST(CROSS(97,GJTJ2))<=2 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA2:=AA AND BB ;
 AAAA:=BARSLAST(CROSS(97,GJTJ1))<=3 AND BARSLAST(CROSS(GJTJ1,85))<=1;
 BAAA:=BARSLAST(CROSS(97,GJTJ2))<=3 AND BARSLAST(CROSS(GJTJ2,85))<=1;
 AA3:=AAAA AND BAAA ;
 BB1:=REF(AA1,1);
 BB2:=REF(AA2,1);
 BB3:=REF(AA3,1);
 DD1:=GJTJ1=100 AND GJTJ2=100 AND AA1 ;
 DD2:=GJTJ1=100 AND GJTJ2=100 AND AA2 ;
 DD3:=GJTJ1=100 AND GJTJ2=100 AND AA3 ;

AW:=BARSLAST(CROSS(95,GJTJ1))<=2;
 BW:=BARSLAST(CROSS(95,GJTJ2))<=2;
 EW:= GJTJ4<GJTJ1 AND GJTJ1<GJTJ2 AND GJTJ1<GJTJ3;
 FW:=GJTJ2>50 AND GJTJ3>50;
 GW:=GJTJ1=100 AND GJTJ2=100;
 TXW:=COUNT(GW,2)=1;
 DRAWTEXT(AW AND BW AND EW AND FW AND TXW,净流入*0.90,'起涨');
AQ:=GJTJ3=100;
 BQ:=GJTJ4<90;
 DRAWTEXT(COUNT(AQ,2) = 2 AND BQ,净流入*0.88,'波启前兆');

{}

强弱分界线: 50,POINTDOT ,LINETHICK2, COLORFFFF00;
 VAR2:IF(MONTH<12,1,1);
 VAR3:=(2*CLOSE+HIGH+LOW)/4;
 VAR4:=LLV(LOW,34);
 VAR5:=HHV(HIGH,34);
主力:=EMA((VAR3-VAR4)/(VAR5-VAR4)*100,13)*VAR2,LINETHICK4,COLORRED;
散户:=EMA(0.667*REF(主力,1)+0.333*主力,2),LINETHICK2,COLORFF9933;
 DRAWTEXT(CROSS(主力,散户) AND 主力<22,净流入*1.12,'快买入**'),LINETHICK2,COLOR0099FF;
 DRAWICON(CROSS(主力,散户) AND 主力<22,25,1);
 DRAWTEXT(CROSS(主力,30) AND 散户<主力,净流入*1.14,'上涨 '),LINETHICK2,COLOR00CCFF;
 DRAWICON(CROSS(主力,30) AND 散户<主力,35,1);
 DRAWTEXT(CROSS(主力,65) AND 散户<主力,净流入*1.16,'小心 '),LINETHICK2,COLOR9933FF;
 DRAWICON(CROSS(主力,65) AND 散户<主力,50,2);
 DRAWTEXT(CROSS(主力,75) AND 散户<主力,净流入*1.18,'加仓买入'),LINETHICK2,COLOR009900;
 DRAWICON(CROSS(主力,75) AND 散户<主力,100,2);
 DRAWTEXT(CROSS(散户,主力)AND 散户>75,净流入*1.20,'头部') ,COLORYELLOW;
 DRAWICON(CROSS(散户,主力)AND 散户>75,净流入*1.22,2);
 DRAWTEXT(CROSS(主力,散户) AND 主力<35,净流入*0.84,'买入脉冲');
DRAWTEXT(CROSS(散户,主力) AND 散户>75,净流入*1.24,'卖出脉冲');