量价突变脉冲
『量价突变脉冲』
//本指标并非用于捕捉延续中的趋势,而是用于显示趋势的突变情况
//内涵是量价变化率的关系。价格涨速的正向突变,被认为是趋势向上的突变,而价格
//涨速的负向突变,被认为是趋势向下的突变.
//突变信号由换手率加权,放量的突变被认为是实变,无量的突变被认为是虚变。
//指标在10亿以下0.3亿以上的流通盘内调试。
//N1是平滑天数,n2是日成交额滤波系数,n3是缩放量影响修正系数。
//量价变化算法
INPUT:N1(1,1,5),N2(3,0,10),N3(1.8,0,10);{一日平滑,滤去成交额3000万以下,缩放量影响系数设为1.8}
c1:=ref(c,1);
c2:=ref(c,2);{c,c1,c2是价格的绝对数值}
p:=(c-c1)/c1*100;
p1:=(c1-c2)/c2*100;{p,p1称为'绝对价格变化',是价格曲线的一阶差分}
pt:=p-p1;{pt称为'相对价格变化',是绝对价格变化曲线的一阶差分,是价格曲线的二阶差分}
{pt正向表示目前趋势向上突变,负向表示趋势向下突变,0表示趋势不变}
xt:=IF(AMOUNT/10000000>N2,pt,0);{成交额小于N2(千万)的不用计算}
xt1:=MA(xt,N1);{对xt进行N1日平滑处理}
xt2:=xt1*(vol/capital);{由绝对缩放量影响对xt1进行实化}
{再由相对缩放量影响对xt2进行修正:}
mt:=VOL-REF(VOL,1);{定义vol对上一天的绝对增减量}
mt1:=(vol+mt)/vol;{若是放量,则以放量后的vol为基准}
mt2:=vol/REF(vol,1);{若是缩量,则以缩量前的ref.vol为基准}
m:=IF(mt>0,mt1,mt2);
{自定义相对缩变系数}
n:=POW(m,N3);{调整缩放系数强度}
xt3:=xt2*n;{执行修正}
x:xt3,PRECISION2,linethick;{求输出} //输出
0,PRECISION2,linethick1;{画零位线}
DRAWTEXTEx(c,1,0,0,'量价突变脉冲(自编)'),COLORYELLOW;
DRAWTEXTEX(c,1,0,150,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;
stickline(x>0,0,x,6,0),color0000aa;
stickline(x>0,0,x,3,0),color0000cc;
stickline(x>0,0,x,1,0),color0000ff;
stickline(x<0,x,0,6,0),color00aa00;
stickline(x<0,x,0,3,0),color00cc00;
stickline(x<0,x,0,1,0),color00ff00;{画强度柱体}