通达信游资抢筹副图指标公式源码

{ 擒牛系列：基于KDJ与筹码分布 }
RSV := (CLOSE - LLV(LOW, 13)) / (HHV(HIGH, 13) - LLV(LOW, 13)) * 100;
K1 := SMA(RSV, 3, 1);
D1 := SMA(K1, 3, 1);
KK := INTPART(K1);
DD := INTPART(D1);
TFXXS := KK + DD;
擒牛 := TFXXS - REF(TFXXS, 1);
ZLCM := EMA(WINNER(C) * 70, 3);    { 主力筹码 }
SHCM := EMA((WINNER(C * 1.1) - WINNER(C * 0.9)) * 80, 3); { 散户筹码 }
ZSHTL := SHCM / (ZLCM + SHCM) * 100; { 散户占比 }
起飞KP := ZLCM / (ZLCM + SHCM) * 100; { 主力占比 }
ZSHJJ := EMA(ZSHTL, 55); { 散户平均线 }
起飞JJ := EMA(起飞KP, 55); { 主力平均线 }
黄金坑 := IF(起飞KP <= 10, 起飞KP, 起飞KP), COLORMAGENTA, NODRAW;
{ 绘图部分 }
STICKLINE(起飞KP > REF(起飞KP, 1) AND 起飞KP > 20, 起飞KP, 20, 2.5, 0), COLORAA00BB;
STICKLINE(起飞JJ > REF(起飞JJ, 1), 起飞KP, 起飞JJ, 2.5, 0), COLOR00AAFF;
STICKLINE(起飞KP > 起飞JJ AND 起飞JJ < 50 AND 起飞KP > 50 AND 起飞JJ > REF(起飞JJ, 1), 起飞KP, 50, 2.5, 0), COLOR0000AA;
{ 游资控盘模块 }
N := 35;
M := 35;
N1 := 3;
游资控盘1 := (HHV(H, N) - C) / (HHV(H, N) - LLV(LOW, N)) * 100 - M;
游资控盘2 := SMA(游资控盘1, N, 1) + 100;
游资控盘3 := (C - LLV(L, N)) / (HHV(H, N) - LLV(L, N)) * 100;
游资控盘4 := SMA(游资控盘3, 3, 1);
游资控盘5 := SMA(游资控盘4, 3, 1) + 100;
游资控盘6 := 游资控盘5 - 游资控盘2;
游资控盘 :=IF(游资控盘6 > N1, 游资控盘6 - N1, 0) * 2.5, COLORYELLOW, LINETHICK2;
控盘度 := 100, COLORRED;
游资抢筹 := CROSS(游资控盘, 控盘度);
STICKLINE(游资抢筹, 80, 100, 2, 0), COLOR006699;
控盘主升 := 游资控盘 > 100 AND 游资控盘 > REF(游资控盘, 1), COLORRED, NODRAW;
DRAWICON(游资抢筹, 游资控盘, 10);
STICKLINE(游资控盘 > 100, 100, 游资控盘, 0.0, 0), COLORRED;
STICKLINE(游资控盘 > 100 AND 控盘主升 = 0, 100, 游资控盘, 0.0, 0), COLORFF66FF;
DRAWTEXT(游资抢筹, 85, '↖等起风'), COLORC0C0C0;
游资线 := REF(H, BARSLAST(CONST(BARSLAST(游资抢筹)) + 1 = CURRBARSCOUNT)), COLOR006699, DOTLINE;
主升浪 := CROSS(C, 游资线) OR (REF(游资抢筹, 1) AND L > REF(H, 1));
STICKLINE(主升浪, 80, 100, 0, 0), COLOR0066CC;
DRAWTEXT(主升浪, 90, ' ↖起风'), COLOR0066CC;
DRAWICON(主升浪, 游资控盘, 34);