把绝对价换成时间序列百分位

{四象量能 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;