老师帮忙改一下

股市封神斗罗

如题
麻烦老师帮忙看下这个代码哪里有错，帮忙给修改下
N:=5;
{用于满足阈值的阳性数量}
TH:=3; {斜率阈值}
SLOPE_TH:=0.02; {最大与最小连续斜率相差阈值}
MIN_DIFF_TH:=0.001; {寻找最高与最低点}
MAXC:=HHV(CLOSE,N);
MINC:=LLV(CLOSE,N); {计算高低点斜率}
SLOPE_MAX:=(-4*REF(MAXC,-4)+3*REF(MAXC,-3)-2*REF(MAXC,-2)+REF(MAXC,-1))/6;
SLOPE_MIN:=(-4*REF(MINC,-4)+3*REF(MINC,-3)-2*REF(MINC,-2)+REF(MINC,-1))/6; {检测楔形}
X:=0;
FOR
I:=2 TO 20 DO
BEGIN  
        IsWedge:=ABS(REF(SLOPE_MAX,-I)-SLOPE_MAX)<SLOPE_TH AND ABS(REF(SLOPE_MIN,-I)-SLOPE_MIN)<SLOPE_TH;  
        IsWedge:=IsWedge AND ABS((REF(MAXC,-I)-MAXC)-(REF(MINC,-I)-MINC))>MIN_DIFF_TH;  
        IF(IsWedge,I:=20;X:=X+1);{满足楔形条件加一}
        END;
        Lp:=BARSLAST(X=TH); {楔形信号}
        WedgeSignal:=X>=TH; IF(WedgeSignal,1,Lp);

技术009

编译时候已经有提示你有问题的行以及对应的问题了，下面这句改下看看：
        IF IsWedge then begin I:=20;X:=X+1;end {满足楔形条件加一}

股市封神斗罗

老师，我把你修改的代码加上去了以后，还是没有图形显示出来，麻烦老师给看下是怎么回事。这个代码是我用来发现并标注楔形形态的，要求能在图表上把楔形形态给画出来：
（麻烦老师给修改一下，谢谢）

技术006

这段代码中也没有图形绘制相关的函数。其次是你这段代码横不成立。即使有图形函数也不会绘制