迪马克序列该怎么修改

liugaohui

KT交易师的公式，如何修改为易得公式？谢谢回复。

#MAINCHART
INPUT:N(1,1,999);

//序列变量
SHUZI1:=C-C;//上涨计数
SHUZI2:=C-C;//下跌计数
//上涨计数
FOR I=(DataCount-1-N) DOWNTO 0 Do
BEGIN
IF C[I]>C[I+N] THEN
SHUZI1[I]:=SHUZI1[I+1]+1;
END;
//下跌计数
FOR I=(DataCount-1-N) DOWNTO 0 Do
BEGIN
IF C[I]<C[I+N] THEN
SHUZI2[I]:=SHUZI2[I+1]+1;
END;
//XX1:SHUZI1;
//XX2:SHUZI2;

DRAWNUMBER(SHUZI1>=2,H*1.001,SHUZI1,0),COLORMAGENTA ;
DRAWNUMBER(SHUZI2>=2,L*0.999,SHUZI2,0),COLORGREEN;
DRAWTEXTEX(1,1,0,0,'连续交易日的收盘价，每一个都高于（或低于）其相对应的'+NUMTOSTR(N,0)+'个交易日前的收盘价'),COLORGREEN;