加周期统计源代码

编写要求：

解答：

网友求助：

{参数：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线根数。谢谢老师们了！