// ════ 黄金倍量 量价四象 v3.1 · 同花顺 · 技术指标 副图 ════
// 安装: 公式管理 → 技术指标 → 新建 → 名称 黄金倍量四象 → 画线方法 副图 → 粘贴 → 测试 → 保存
// 无需参数; 柱宽固定 6 (同花顺标准间距 10), 要调就改 STICKLINE 第 4 个参数
// 常量: 倍量 1.9 / 缩量 0.85 / 弱缩 0.7 / 地量 60 / 高位 0.7 / 涨停 9.5% / 进场 60 / 拉高 60
// 转换项: 花括号→双斜杠 · 色码 RRGGBB (通达信 BBGGRR) · 柱宽 6 (通达信 3.4)
// 柱色: 绿=缩量上涨 | 黄=放量阳 | 蓝=放量阴 | 紫蓝=缩量下跌 | 灰=中性
// 标记: 地=60日地量 | 险=高位涨停后放量 | 进=主力进场(位置<70%) | 拉=高位主力仍拉高(位置>=70%)
// 内置主力清洗 原版参数 13/10/33, VAR1 用均价 (L+O+C+H)/4, 与你原有指标同口径
// 洗盘不设标记: 实测增量 0.00 到 -0.01pp, 方向本身不带信息
// ════════════════════════════════════════════════

BLR1:=REF(VOL,1);
BLRC:=REF(CLOSE,1);
BLUP:=VOL>=BLR1*1.9;
BLDN:=VOL<=BLR1*0.85;
BLWK:=VOL<=BLR1*0.7;
BLPU:=CLOSE>BLRC;
BLPD:=CLOSE<=BLRC;
BL3UP:=COUNT(CLOSE>BLRC,3)=3;

// 位置分位: 现价在近 250 日区间的位置, 0 最低 1 最高
BLHH:=HHV(HIGH,250);
BLLL:=LLV(LOW,250);
BLPOS:=IF(BLHH>BLLL,(CLOSE-BLLL)/(BLHH-BLLL),0.5);

// 险: 高位涨停后放量, 20 日下跌 57% 回撤 -13%
BLZT:=CLOSE/BLRC-1>=0.095;
BLRISK:=BLPOS>=0.7 AND BLUP AND BLZT;

// 主力清洗 买侧 原版 13/10/33, 分母加下限防除零
BLV1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
BLV2:=SMA(ABS(LOW-BLV1),13,1)/MAX(SMA(MAX(LOW-BLV1,0),10,1),0.0001);
BLV3:=EMA(BLV2,10);
BLV4:=LLV(LOW,33);
BLV5:=EMA(IF(LOW<=BLV4,BLV3,0),3);

// 进: 主力进场且强度达 60, 只在位置低于 70% 显示
// 实测 20 日超额: 低位 +1.20pp / 中位 +0.12pp / 高位 -2.25pp
BLJIN:=BLV5>REF(BLV5,1) AND BLV5>=60 AND BLPOS<0.7;

// 主力清洗 卖侧 原版 13/10/33
BLV21:=SMA(ABS(HIGH-BLV1),13,1)/MIN(SMA(MIN(HIGH-BLV1,0),10,1),-0.0001);
BLV31:=EMA(BLV21,10);
BLV41:=HHV(HIGH,33);
BLV51:=EMA(IF(HIGH>=BLV41,BLV31,0),3);

// 拉: 高位且主力仍在拉高(强度达 60), 实测 20 日超额 +0.56pp, 是冲顶中继不是卖点
BLLG:=BLV51<REF(BLV51,1) AND -BLV51>=60 AND BLPOS>=0.7;

// VOLN 只撑纵轴量纲, 不画线
VOLN:VOL,NODRAW;
// 给标记留头部空间, 防文字被截
BLTOPX:IF(BLRISK OR BLJIN OR BLLG,VOL*1.25,VOL),COLOR6E6E6E,NODRAW;

// 两条参考线与柱同量纲, 不会压扁纵轴
BLTU:BLR1*1.9,COLORFF0000,DOTLINE;
BLTD:BLR1*0.85,COLOR00AA00,DOTLINE;

// 基础柱: 中性灰打底
STICKLINE(VOL>0,0,VOL,6,0),COLOR6E6E6E;
// 四象上色: 后画覆盖前画, 条件天然互斥, 不用 NOT
STICKLINE(BLDN AND BL3UP AND BLPU,0,VOL,6,0),COLOR00AA00;
STICKLINE(BLUP AND BLPU,0,VOL,6,0),COLORFFCC00;
STICKLINE(BLUP AND BLPD,0,VOL,6,0),COLOR0088FF;
STICKLINE(BLWK AND BLPD,0,VOL,6,0),COLOR7850C8;

// 四个标记错层显示, 互不遮挡
BLDL:=VOL=LLV(VOL,60);
DRAWTEXT(BLDL,VOL*1.02,'地'),COLOR0088FF;
DRAWTEXT(BLJIN,VOL*1.06,'进'),COLOR00AA00;
DRAWTEXT(BLRISK,VOL*1.12,'险'),COLORFF0000;
DRAWTEXT(BLLG,VOL*1.18,'拉'),COLORAA00AA;

// 位置标签: 同一颜色在高位低位意思相反, 先看这一行
DRAWTEXT_FIX(BLPOS>=0.7,0.01,0.07,0,'位置 高位'),COLORFF0000;
DRAWTEXT_FIX(BLPOS>=0.3 AND BLPOS<0.7,0.01,0.07,0,'位置 中位'),COLORAAAAAA;
DRAWTEXT_FIX(BLPOS<0.3,0.01,0.07,0,'位置 低位'),COLOR00AA00;
DRAWTEXT_FIX(1,0.01,0.01,0,'绿=缩量上涨 黄=放量阳 蓝=放量阴 紫=缩量下跌 地=地量 进=主力进场 拉=高位仍拉高 险=高位涨停放量'),COLORAAAAAA;