机构资金异动指标公式源码

PBBB := DMA((((H + LOW) + (C * 2)) / 4), 0.9);
基准线 := EMA(PBBB, 3);
资金力度 := (VOL / (((H - LOW) * 2) - ABS((C - OPEN))));
资金流向 := IF((C > OPEN), (资金力度 * (H - LOW)), IF((C < OPEN), (资金力度 * ((H - OPEN) + (C - LOW))), (VOL / 2))) + 
 IF((C > OPEN), (0 - (资金力度 * ((H - C) + (OPEN - LOW)))), IF((C < OPEN), (0 - (资金力度 * (H - LOW))), (0 - (VOL / 2))));
换手率 := (VOL / CAPITAL);
换手限制 := IF((换手率 > 10), 10, 换手率);
主力动向 := ((资金流向 / 20) / 1.15);
加权趋势 := (((主力动向 * 0.55) + (REF(主力动向,1) * 0.33)) + (REF(主力动向,2) * 0.22));
LLJX := EMA(加权趋势, 3);
资金柱 := (主力动向 * 0.4 + LLJX);
成交额万元 := AMOUNT / 10000;
STICKLINE(资金柱 >= 0, 资金柱, 0, 3, 0), COLOR00FFFF;
STICKLINE(资金柱 < 0, 资金柱, 0, 3, 0), COLOR00FF00;
流入 := IF(资金柱 > 0, 资金柱, DRAWNULL), COLORRED;
流入流出 := IF(资金柱 < 0, 资金柱, DRAWNULL), COLOR00FF00;
流入净进出 := 资金柱, COLORWHITE, POINTDOT;
进出比例 := IF(资金柱 > 0, 资金柱 / 成交额万元 * 100, 资金柱 / 成交额万元 * 100), COLORYELLOW;
连续流入1 := BARSLASTCOUNT(流入净进出 > 0);
连续流入2 := IF(连续流入1 = 0, REF(连续流入1, 1), 连续流入1);
连续流入3 := IF(连续流入2 = 0, REF(连续流入1, 2), 连续流入2);
连续流入4 := IF(连续流入3 = 0, REF(连续流入1, 3), 连续流入3);
近期最大连续 := IF(连续流入4 = 0, REF(连续流入1, 4), 连续流入4);
最大连续天数 := MAX(MAX(MAX(MAX(MAX(近期最大连续, REF(近期最大连续, 1)), REF(近期最大连续, 2)), REF(近期最大连续, 3)), REF(近期最大连续, 4)), REF(近期最大连续, 5)), NODRAW, COLORYELLOW;
三日资金 := SUM(资金柱, 3), COLORWHITE, NODRAW;
五日资金 := SUM(资金柱, 5), COLORFF00FF, NODRAW;
十日资金 := SUM(资金柱, 10), COLOR0000FF, NODRAW;
程序化指标 := LLJX, COLOR0000FF, LINETHICK0;
STICKLINE((程序化指标 > 0), 程序化指标, 0, 3, 0), COLOR0000FF;
STICKLINE((程序化指标 < 0), 程序化指标, 0, 3, 0), COLORFF3300;
黄柱初出蓝 := REF(流入流出, 1) < 0 AND 流入 > 30 AND C > O AND C > REF(C, 1) AND C > MA(C, 3);
多空线 := (20 * ((3*C+2*L+O+H)/7) + 19*REF(((3*C+2*L+O+H)/7),1) + 18*REF(((3*C+2*L+O+H)/7),2) + 17*REF(((3*C+2*L+O+H)/7),3) + 16*REF(((3*C+2*L+O+H)/7),4) + 15*REF(((3*C+2*L+O+H)/7),5) + 14*REF(((3*C+2*L+O+H)/7),6) + 13*REF(((3*C+2*L+O+H)/7),7) + 12*REF(((3*C+2*L+O+H)/7),8) + 11*REF(((3*C+2*L+O+H)/7),9) + 10*REF(((3*C+2*L+O+H)/7),10) + 9*REF(((3*C+2*L+O+H)/7),11) + 8*REF(((3*C+2*L+O+H)/7),12) + 7*REF(((3*C+2*L+O+H)/7),13) + 6*REF(((3*C+2*L+O+H)/7),14) + 5*REF(((3*C+2*L+O+H)/7),15) + 4*REF(((3*C+2*L+O+H)/7),16) + 3*REF(((3*C+2*L+O+H)/7),17) + 2*REF(((3*C+2*L+O+H)/7),18) + REF(((3*C+2*L+O+H)/7),20)) / 210;
长黄柱 := 流入 > 300 AND CROSS(C, 多空线);
DRAWTEXT(黄柱初出蓝, -30, '★'), COLORFF00FF;
DRAWTEXT(长黄柱, ((主力动向 * 0.4) * 1.5) * 1.4, '★'), COLORRED;
机构异动 := V > REF(V, 1) * 2 AND C > OPEN AND VOL > REF(MA(VOL, 5), 2) * 2, NODRAW;
机会买入 := COUNT(REF(机构异动, 1), 3) > 0 AND 机构异动 > 0;
流入异动 := BARSLASTCOUNT(程序化指标 > 0 AND C > O AND C > MA(C, 60) AND C > MA(C, 5)) = 1;
DRAWTEXT(机会买入 <> 1 AND 机构异动 > 0, 0, '↖机构异动'), COLORYELLOW;
DRAWICON(机会买入 <> 1 AND 机构异动 > 0 AND 流入异动, 0 * 1.002, 9);