资金拉升指标:四年区间位置叠加双线(源码)

{── 全局缩放系数，恒等于 1，留着方便整体放大缩小}

基准系数:=1;

{── 先把一年的最高价最低点取出来，当长周期标尺}

年线低位:=LLV(HIGH,240);

年内位置:=100*(CLOSE-年线低位)/年线低位*基准系数;

两年低位:=REF(LLV(CLOSE,480),1)*基准系数;

两年高位:=REF(HHV(CLOSE,480),1)*基准系数;

两年位置:=100*(CLOSE-两年低位)/(两年高位-两年低位)*基准系数;

{── 981 个交易日约四年，看价格落在这段区间的什么位置}

四年位置:=(CLOSE-LLV(CLOSE,981))/(HHV(CLOSE,981)-LLV(CLOSE,981))*100*基准系数;

中期位置:=(CLOSE-LLV(CLOSE,393))/(HHV(CLOSE,393)-LLV(CLOSE,393))*100*基准系数;

宽幅四年位:=(CLOSE-LLV(LOW,981))/(HHV(HIGH,981)-LLV(LOW,981))*100*基准系数;

宽幅中期位:=(CLOSE-LLV(LOW,393))/(HHV(HIGH,393)-LLV(LOW,393))*100*基准系数;

{── 100 日动能先平滑再压缩，得到一条钝化的强弱线}

百日动能:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5)/4*基准系数;

动能强势:=IF(百日动能>23.16,百日动能,0)*基准系数;

动能触底:=百日动能<1*基准系数;

动能确认:=动能强势*基准系数;

{── 年内与两年位置同时为负，属于跌透了的状态}

双低位:=年内位置<0 AND 两年位置<0;

基准系数乙:=1;

{── 加权均价：收盘给两倍权重，比普通均价更贴盘面}

加权均价:=(HIGH+LOW+CLOSE*2)/4*基准系数乙;

均价均线:=EMA(加权均价,21);

均价标准差:=STD(加权均价,21);

均价偏离:=((加权均价-均价均线)/均价标准差*100+200)/4*基准系数乙;

{── 89 日长平滑减掉基准再放大，作为主升的参考零点}

主升基准:=(EMA(均价偏离,89)-25)*1.56*基准系数乙;

快线:=EMA(主升基准,5)*1.22*基准系数乙;

慢线:=EMA(快线,3)*基准系数乙;

差离值:=3*快线-2*慢线*基准系数乙;

金叉信号:=IF(CROSS(差离值,快线) AND CROSS(差离值,慢线) AND CROSS(快线,慢线),1,0);

死叉信号:=IF(CROSS(快线,差离值) AND CROSS(慢线,差离值) AND CROSS(慢线,快线),1,0);

百日动能乙:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),13)/4*基准系数;

短长差:=EMA(CLOSE,2)-EMA(CLOSE,89)*基准系数;

均线平滑:=EMA(短长差,30)*基准系数;

柱状差:=2*(短长差-均线平滑)*10*基准系数;

柱状曲线:=POW(柱状差,3)*0.1+POW(柱状差,2)*基准系数;

几何均价:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));

均价下沿:=EMA(几何均价*0.97,3)*基准系数;

典型价:=(HIGH+LOW+CLOSE)/3*基准系数;

典型价偏离:=(典型价-MA(典型价,14))/(0.015*AVEDEV(典型价,14))*基准系数;

{── 柱状值为正时才计入，再除以 45 得到拉升资金的高度}

拉升值:=IF(柱状差>0.015,柱状曲线,0)/45*基准系数;

{── 拉升资金：图上那条洋红色柱线，越高说明推升动能越足}

拉升资金: 拉升值,COLORFF00FF,LINETHICK2;

短长差乙:=EMA(CLOSE,2)-EMA(CLOSE,150);

均线平滑乙:=EMA(短长差乙,100);

柱状差乙:=2*(短长差乙-均线平滑乙);

柱状曲线乙:=POW(柱状差乙,3)*0.1+POW(柱状差乙,1);

几何均价乙:=SQRT(SQRT(LOW*HIGH*OPEN*CLOSE));

均价下沿乙:=EMA(几何均价乙*0.97,3);

典型价乙:=(HIGH+LOW+CLOSE)/3;

典型价偏离乙:=(典型价乙-MA(典型价乙,14))/(0.015*AVEDEV(典型价乙,14));

{── 主力资金：换 2 日与 150 日两条均线做差，尺度更大}

主力资金:IF(柱状差乙>0.1,柱状曲线乙,0)*5,LINETHICK2,COLORYELLOW;

买点: IF(FILTER(四年位置=0 AND 动能触底 AND 双低位 AND 金叉信号,5)=1,10,0),COLORCYAN;

卖点: IF(FILTER(四年位置=100 AND 动能确认 AND 死叉信号,5)=1,10,0),COLORGREEN;

{── 折线基准用 ZIG 取转折，平滑后交叉定买卖点}

折线基准:=ZIG(3,50/5)*1;

折线平滑:=MA(折线基准,2);

买标记:=CROSS(折线基准,折线平滑)*10;

卖标记:=CROSS(折线平滑,折线基准)*10;

DRAWTEXT(卖标记=10,4,'卖' ),COLORWHITE;

DRAWTEXT(买标记=10,4,'买'),COLORCYAN;

DRAWTEXT(ISLASTBAR,拉升资金,'←拉升'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,主力资金,'←主力'),COLORYELLOW;

{── 顺带把大盘涨跌家数画出来，看整体温度}

涨家数:INDEXADV,NODRAW,COLORMAGENTA;

跌家数:INDEXDEC,NODRAW,COLORGREEN;

IF(主力资金>REF(主力资金,1),主力资金,DRAWNULL),COLORYELLOW,LINETHICK2;

IF(主力资金<ref(主力资金,1),主力资金,drawnull),colorff9900,linethick2;

IF(拉升资金<ref(拉升资金,1),拉升资金,drawnull),colorgreen,linethick2;