加周期统计源代码

 网友求助：

描述：缠中说禅走势}
{功能：图解市场一二三类买卖点}
{设计：股市肉鸡}
{版本：3.00}
{日期：2010.02.10}

{参数：SHORT 5/20/7 LONG 10/250/19}
RMA:=EMA(CLOSE,SHORT);
NMA:=EMA(CLOSE,LONG);
UP:DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),0),COLORWHITE;
DOWN:DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),0),COLORWHITE;
UZ:=BARSLAST(CROSS(NMA,RMA))+1;
DZ:=BARSLAST(CROSS(NMA,RMA));
DRAWNUMBER(CROSS(NMA,RMA),H,UZ);

这是缠论分笔分段走势，我想请老师给加上每段周期所用K线数量和的自动计算即每根线段走了多少根K线数，想与神奇数字联系。如图AB、BC、CD各段用k线根数。谢谢老师们了！

解答如下：

RMA:=EMA(CLOSE,SHORT);
NMA:=EMA(CLOSE,LONG);
UP:DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),0),COLORWHITE;
DW:DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV(H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV(L,BARSLAST(CROSS(NMA,RMA))+1),0),COLORWHITE;
UZ:=BARSLAST(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1));
DZ:=BARSLAST(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1));

DRAWNUMBER(REFX(DZ,1)=1 AND DW>0 AND UZ>0,H,UZ);
DRAWNUMBER(REFX(UZ,1)=1 AND UP>0 AND DZ>0,L,DZ);