{四象量能 V7.2  通达信副图  2026-11-08}
{改动: 用 CLOSE<MA(CLOSE,250)*0.8 (相对自身一年均线折价20%) 替代绝对价阈值, 不随股价中枢漂移失效}
{加在 绿/地/吸/燃 上; 缩 与 拉 不加, 因为样本会砍到 8% 和 7.5%}
BLPOS:=IF(HHV(HIGH,250)>LLV(LOW,250),(CLOSE-LLV(LOW,250))/(HHV(HIGH,250)-LLV(LOW,250))*100,50);
BLWIN:=WINNER(CLOSE)*100;
BLDIST:=IF(COST(50)>0,(CLOSE/COST(50)-1)*100,0);
BLR1:=REF(VOL,1);
BLST:=CLOSE/REF(CLOSE,1)-1;
BLPU:=CLOSE>REF(CLOSE,1);
BLFANG:=VOL>=BLR1*1.9;
BLW3:=VOL>=BLR1*3;
BLZT:=IF(CODELIKE('30') OR CODELIKE('68'),BLST>=0.19,BLST>=0.095);
BLDI60:=VOL=LLV(VOL,60) AND REF(LLV(VOL,59),1)>VOL;
BLDIP:=CLOSE<MA(CLOSE,250)*0.8;
{吸货链}
BLV2A:=SMA(ABS(LOW-REF(LOW,1)),3,1);
BLV2M:=SMA(MAX(LOW-REF(LOW,1),0),3,1);
BLV2C:=BLV2A/MAX(BLV2M,0.0001)*100;
BLV3C:=10*EMA(BLV2C,3);
BLXIH:=EMA(IF(LOW<=LLV(LOW,38),(BLV3C+HHV(BLV3C,38)*2)/2,0),3)/618;
{拉高链}
BLV2H:=SMA(ABS(HIGH-REF(HIGH,1)),3,1)/MIN(SMA(MIN(HIGH-REF(HIGH,1),0),3,1),-0.0001)*100;
BLV3H:=10*EMA(BLV2H,3);
BLV7H:=EMA(IF(HIGH>=HHV(HIGH,38),(BLV3H+LLV(BLV3H,38)*2)/2,0),3)/618;
{柱色 4 档}
BLGREEN:=BLPOS<35 AND BLWIN<10 AND BLDIP;
BLRED:=BLPOS>80 AND BLWIN>30;
{字 7 个}
BLDI:=BLDI60 AND BLPOS<35 AND BLDIP;
BLSUO:=BLDI60 AND BLPOS>70;
BLBAO:=BLW3 AND NOT(BLPU) AND BLPOS<35 AND BLWIN<10;
BLRAN:=REF(BLBAO,1) AND BLST>=0.05 AND BLDIP;
BLXI:=BLXIH>REF(BLXIH,1) AND BLXIH>=50 AND BLPOS<70 AND BLDIP;
BLLA:=BLV7H<REF(BLV7H,1) AND BLV7H<=-100;
BLXIAN:=BLFANG AND BLZT AND CLOSE>30;
{读数}
成交:VOL,NODRAW;
位置:BLPOS,NODRAW;
筹码:BLWIN,NODRAW;
距本:BLDIST,NODRAW;
折价:IF(BLDIP,1,0),NODRAW;
{柱: 后画覆盖先画}
STICKLINE(VOL>0,0,VOL,2,0),COLOR555555;
STICKLINE(BLFANG,0,VOL,2,0),COLOR00CCFF;
STICKLINE(BLGREEN,0,VOL,2,0),COLOR00AA00;
STICKLINE(BLRED,0,VOL,2,0),COLOR0000FF;
{字}
DRAWTEXT(BLDI,VOL*1.02,'地'),COLOR0088FF;
DRAWTEXT(BLSUO,VOL*1.02,'缩'),COLOR00CCFF;
DRAWTEXT(BLBAO,VOL*1.32,'爆'),COLOR00FFFF;
DRAWTEXT(BLRAN,VOL*1.32,'燃'),COLOR0000FF;
DRAWTEXT(BLXI,VOL*1.18,'吸'),COLOR00AA00;
DRAWTEXT(BLLA,VOL*1.20,'拉'),COLORAA00AA;
DRAWTEXT(BLXIAN,VOL*1.10,'险'),COLOR0000FF;