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