亿 := AMOUNT / 100000000, LINETHICK0;
换手率 := VOL / CAPITAL * 100, LINETHICK0;
振幅 := ((H - L) / L) * 100, LINETHICK0;
流通 := CAPITAL / 1000000, LINETHICK0;
业绩 := FINANCE(33), LINETHICK0;
净资产 := FINANCE(34), LINETHICK0;
低量 := FINANCE(7) / 5000, LINETHICK1, COLORBLUE, POINTDOT;
活跃量 := FINANCE(7) / 1000, LINETHICK1, COLORYELLOW, POINTDOT;
危险量 := FINANCE(7) / 500, LINETHICK1, COLORRED, POINTDOT;
{ 量价拆分计算 }
VAR1 := HIGH - LOW;
VAR2 := ABS(OPEN - CLOSE);
VAR3 := HIGH - IF(CLOSE > OPEN, CLOSE, OPEN);
VAR4 := IF(CLOSE > OPEN, OPEN, CLOSE) - LOW;
实量 := (VAR2 / VAR1) * VOL;
上影量 := (VAR3 / VAR1) * VOL;
下影量 := (VAR4 / VAR1) * VOL;
{ 换手率异常检测 }
VAR8 := IF(VOL / CAPITAL > 0.001, 1, EXP(ABS(LOG(VOL / CAPITAL * 100))));
{ 短期趋势偏离度 }
偏移率 := (C - MA(C, 5)) / MA(C, 5) * 100;
{ 多空趋势判断 }
多头趋势 := MA(C, 5) > MA(C, 10) AND MA(C, 10) > MA(C, 30) AND MA(C, 30) > MA(C, 60);
空头趋势 := MA(C, 5) < MA(C, 10) AND MA(C, 10) < MA(C, 30);
{ 筹码分布 }
套牢盘 := 100 * (1 - WINNER(C));
获利盘 := 100 * WINNER(C);
{ 多空成交量柱 }
多头 :STICKLINE(C > MA(C, 30), 0, VOL, 2, 1), COLORRED;
空头 :STICKLINE(C < MA(C, 30), 0, VOL, 2, 1), COLORGREEN;
{ 地量信号 }
相对地量 :STICKLINE(VAR8 > 2 AND VOL < MA(VOL, 5) / 2, 0, VOL, 2, 0), COLOR00FFFF;
DRAWTEXT(VAR8 > 2 AND VOL < MA(VOL, 5) / 2, VOL * 3, '地量'), COLOR00FFFF;
{ 放量信号 }
放量 := STICKLINE(VOL > MA(VOL, 5) * 1.5, VOL, VOL + VOL * 0.1, 2, 0), COLORWHITE;
{ 均线系统 }
M5 := MA(VOL, 5), COLORWHITE;
M10 := MA(VOL, 10), COLORYELLOW;
{ 金手指信号：30日低点启动 }
金指 := EMA(IF(L <= LLV(L, 30), 1, 0), 3) * 2 * VOL, COLORWHITE, LINETHICK2;
{ KDJ指标（9,3,3） }
RSV1 := (C - LLV(L, 9)) / (HHV(H, 9) - LLV(L, 9)) * 100;
K1 := SMA(RSV1, 3, 1);
D1 := SMA(K1, 3, 1);
J1 := 3 * K1 - 2 * D1;
{ KDJ指标（26,6,3） }
RSV2 := (C - LLV(L, 26)) / (HHV(H, 26) - LLV(L, 26)) * 100;
K2 := SMA(RSV2, 6, 1);
D2 := SMA(K2, 3, 1);
J2 := 3 * K2 - 2 * D2;
{ RSI指标 }
LC := REF(C, 1);
RSI1 := SMA(MAX(C - LC, 0), 6, 1) / SMA(ABS(C - LC), 6, 1) * 100;
{ CCI指标 }
TYP := (H + L + C) / 3;
CCI := (TYP - MA(TYP, 14)) / (0.015 * AVEDEV(TYP, 14)) / 2;
{ K3：36周期KDJ }
K3 := EMA((C - LLV(L, 36)) / (HHV(H, 36) - LLV(L, 36)) * 100, 9);
{ 警戒信号组合 }
XA := IF(CROSS(J1, J2) AND J2 < 20, -1, 0) + IF(CROSS(J2, J1) AND J2 > 80, 1, 0);
XB := IF(CCI > 100 AND K3 > 50 AND C > O, 0.5, 0) + IF(RSI1 > 80 AND K3 > 50 AND C > O, 0.5, 0);
RSV3 := (C - LLV(L, 100)) / (HHV(H, 100) - LLV(L, 100)) * 100;
K13 := SMA(RSV3, 21, 1);
D13 := SMA(K13, 3, 1);
J13 := 3 * K13 - 2 * D13;
XC := IF(J13 > 80 AND RSI1 > 85, 0.5, 0);
警戒 := V * (XA + XB + XC > 0), COLOR009000, LINETHICK2;
{ 图标提示 }
DRAWICON(CROSS(M5, M10), VOL, 1); { 金叉 }
DRAWICON(CROSS(M10, M5), VOL, 2); { 死叉 }
DRAWICON(CROSS(4000, 金指), VOL, 4); { 金指回落 }
DRAWICON(CROSS(M5, 警戒), VOL, 5); { 均线穿越警戒 }
{ 程序化指标文字提示 }
DRAWTEXT(下影量 > 实量 AND 下影量 > 上影量 AND C < MA(C, 30) AND 下影量 < MA(VOL, 5) / 2 AND MA(VOL, 5) < MA(VOL, 10), VOL * 2, '逢低跟进'), COLORMAGENTA;
DRAWTEXT(FILTER(实量 > MA(VOL, 5) * 2 AND 实量 >= 上影量 AND 实量 >= 下影量 AND C > O OR VOL > MA(VOL, 5) * 3, 2), 1.2 * VOL, '强势参与'), COLORRED;
DRAWTEXT(实量 >= 上影量 AND 实量 >= 下影量 AND C < O AND 实量 / VOL > 0.7 AND 实量 > MA(VOL, 5), HHV(VOL, 5), '空头释放'), COLORWHITE;
DRAWTEXT(上影量 > 实量 AND 上影量 > 下影量 AND C > MA(C, 5) AND C > MA(C, 34) AND H > MA(C, 55) AND VOL > M5 AND 上影量 > MA(VOL, 5), VOL, '逢高出货'), COLORGREEN;
图片
图片
图片
图片
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。点搭网配资提示：文章来自网络，不代表本站观点。
