自动计算相邻两段的下跌幅度之比

INPUT:空间周期(226,0,9999999),底顶定位(9,0,100);
测量时间:=DATACOUNT-SYSPARAM(1)+1,LINETHICK0;
DRAWTEXTEX(DATACOUNT<>SYSPARAM(1),1,10,160,'测量时间:'+ NUMTOSTR(测量时间,0)),Coloryellow;

AA:=ZIG(4,底顶定位);
PARTLINE(AA ,AA),,LINEdot,color888888;
tj:=AA>REF(AA,1) and AA>REFX(AA,1);
tj1:=AA<REF(AA,1) and AA<REFX(AA,1);
高点值:=PEAK(4,底顶定位,1);
低点值:=TROUGH(4,底顶定位,1);
MM0:=(高点值-低点值);
MM1:=(高点值-低点值);
xzz:=BARSLAST(datacount-BARPOS=空间周期);
DRAWNUMBER(TJ AND xzz>=0,高点值*1.003,MM0,2),ALIGN1,pxup16,coloryellow;
DRAWNUMBER(TJ1 AND xzz>=0,低点值*0.997,MM1,2),ALIGN1,pxdn8,color00ffcc;

1、请老师帮忙完善一下程序代码，实现自动计算；

2、要是能直接做个选股公式，满足：图上两段下跌幅度之比在0.618——0.667，更好。

AA:=ZIG(4,底顶定位);
PARTLINE(AA ,AA),,LINEdot,color888888;
tj:=AA>REF(AA,1) and AA>REFX(AA,1);
tj1:=AA<REF(AA,1) and AA<REFX(AA,1);
高点值:=PEAK(4,底顶定位,1);
低点值:=TROUGH(4,底顶定位,1);
MM0:=(高点值-低点值);
MM1:=(高点值-低点值);
FD:MM0/MM1,linethick0;
xzz:=BARSLAST(datacount-BARPOS=空间周期);
DRAWNUMBER(TJ AND xzz>=0,高点值*1.003,MM0,2),ALIGN1,pxup16,coloryellow;
DRAWNUMBER(TJ1 AND xzz>=0,低点值*0.997,MM1,2),ALIGN1,pxdn8,color00ffcc;
D0:=BARSLAST(低点值<>REF(低点值,1));
D1:=REF(低点值-REF(低点值,1),D0);
D2:=REF(D1,D0+1);
D3:=D0=0 AND D2<0 AND D1<0;{}
D4:=REF(MM0,D0);
下跌幅度比:D3*D4/REF(D4,1),LINETHICK0;