ㅇ 항상 많은 도움에 고맙 습니다.

ㅇ 아래  수식기을  쓰면 맨 마지막  선 만  남는데  이 전 선들도 그대로 남도록 수정 좀  요청 드립니다.

## 아래 수식

//Delphi

Input : Left(5), Right(5);

Var : T(0);

Array : HighSh[10](0), HighBar[10](0), LowSh[10](0), LowBar[10](0);

// 1. SwingHigh(고점) 및 SwingLow(저점) 검출

if SwingHigh(1, H, Left, Right, Left+Right+1) != -1 Then {

    for T = 9 DownTo 1 {

        HighSh[T] = HighSh[T-1];

        HighBar[T] = HighBar[T-1];

    }

    HighSh[0] = H[Right];

    HighBar[0] = Index[Right];

    // 고점 연결 추세선 생성 (최근 두 고점 연결)

    TL_Delete(var1);

    var1 = TL_New(Date[Index-HighBar[1]], Time[Index-HighBar[1]], HighSh[1], Date[Index-HighBar[0]], Time[Index-HighBar[0]], HighSh[0]);

    TL_SetColor(var1, Red);

    TL_SetSize(var1, 3);

    TL_SetExtRight(var1, true); // 오른쪽으로 확장하여 패턴 확인

}

if SwingLow(1, L, Left, Right, Left+Right+1) != -1 Then {

    for T = 9 DownTo 1 {

        LowSh[T] = LowSh[T-1];

        LowBar[T] = LowBar[T-1];

    }

    LowSh[0] = L[Right];

    LowBar[0] = Index[Right];

    // 저점 연결 추세선 생성 (최근 두 저점 연결)

    TL_Delete(var2);

    var2 = TL_New(Date[Index-LowBar[1]], Time[Index-LowBar[1]], LowSh[1], Date[Index-LowBar[0]], Time[Index-LowBar[0]], LowSh[0]);

    TL_SetColor(var2, Blue);

    TL_SetSize(var2, 3);

    TL_SetExtRight(var2, true);

}

고맙습니다.  수고하십시요.