量价突变脉冲

『量价突变脉冲』
//本指标并非用于捕捉延续中的趋势，而是用于显示趋势的突变情况
//内涵是量价变化率的关系。价格涨速的正向突变，被认为是趋势向上的突变，而价格
//涨速的负向突变，被认为是趋势向下的突变.
 //突变信号由换手率加权，放量的突变被认为是实变，无量的突变被认为是虚变。
//指标在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;{画强度柱体}