아래 추세선 수식에 추세선 꼭지와 꼭지 사이의 캔들갯수를 포함하는 수식으로 수정해주세요

감사합니다

===========================================================

input : Period(35),선두께(2),기준(-10),p(20);

Var:상승색(Turquoise), 하락색(Turquoise),Vpower(0),mav(0),v1(0),v2(0);

Var:j(0),T(0);

Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),tl9(0),

date21(0),date22(0),time21(0),time22(0),diff(0),diffr(0),

date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0),box(0);

Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);

Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);

For j = 0 To 19

{

HiBar[j] = HiBar[j] + 1;

LoBar[j] = LoBar[j] + 1;

}

if H > DayHigh(1) Then

T = 1;

if L < DayLow(1) Then

T = -1;

If T == -1 Then

{

If T[1] != -1 Then

{

For j = 18 DownTo 0

{

LoVal[j+1] = LoVal[j];

LoBar[j+1] = LoBar[j];

}

LoVal[0] = L;

LoBar[0] = 0;

date11 = date[HiBar[0]];

time11 = stime[HiBar[0]];

Value11 = HiVal[0];

date12 = date[LoBar[0]];

time12 = stime[LoBar[0]];

Value12 = LoVal[0];

TL_Delete(tl);

TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);

TL_SetColor(TL1,하락색);

box = Box_New(date11,time11,Value11,date12,time12,Value12);

Box_SetColor(box,Blue);

Box_SetFill(box,true,100,true);

date21 = date[HiBar[0]];

time21 = stime[HiBar[0]];

date22 = date[0];

time22 = stime[0];

for j = 0 to 6

{

fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);

}

var1 = Index;

Var2 = var1[1];

if var2 > 0 Then

{

diff = value12;

diffr = (value12-value11)/value11*100;

TX = Text_New(sDate,sTime,value12,NumToStr(diffr,0)+"%");

Text_SetStyle(tx,1,0);

Text_SetColor(tx,Blue);

Text_SetSize(tx,12);

}

}

If LoVal[0] > L Then

{

LoVal[0] = L;

LoBar[0] = 0;

date12 = date[LoBar[0]];

time12 = stime[LoBar[0]];

Value12 = LoVal[0];

TL_SetEnd(TL1, date12,time12,Value12);

date22 = date[0];

time22 = stime[0];

diff = value12;

diffr = (value12-value11)/value11*100;

TL_Delete(tl);

TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

var1 = Index;

if var2 > 0 Then

Box_SetEnd(box,date12,time12,Value12);

{

Text_SetLocation(tx,sDate,sTime,value12);

Text_SetString(tx,NumToStr(diff,0)+"("+NumToStr(diffr,0)+"%)");

}

}

}

If T == 1 Then

{

If T[1] != 1 Then

{

For j = 18 DownTo 0

{

HiVal[j+1] = HiVal[j];

HiBar[j+1] = HiBar[j];

}

HiVal[0] = H;

HiBar[0] = 0;

date11 = date[LoBar[0]];

time11 = stime[LoBar[0]];

Value11 = LoVal[0];

date12 = date[HiBar[0]];

time12 = stime[HiBar[0]];

Value12 = HiVal[0];

TL_Delete(tl);

TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);

TL_SetColor(TL1,상승색);

box = Box_New(date11,time11,Value11,date12,time12,Value12);

Box_SetColor(box,Red);

Box_SetFill(box,true,100,true);

date31 = date[LoBar[0]];

time31 = stime[LoBar[0]];

date32 = date[0];

time32 = stime[0];

for j = 0 to 5

{

fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);

}

var1 = Index;

Var2 = var1[1];

if var2 > 0 Then

{

diff = value12;

diffr = (value12-value11)/value11*100;

TX = Text_New(sDate,sTime,value12,NumToStr(diffr,0)+"%");

Text_SetStyle(tx,2,1);

Text_SetColor(tx,Red);

Text_SetSize(tx,12);

}

}

If HiVal[0] < H Then

{

HiVal[0] = H;

HiBar[0] = 0;

date12 = date[HiBar[0]];

time12 = stime[HiBar[0]];

Value12 = HiVal[0];

TL_SetEnd(TL1, date12,time12,Value12);

date32 = date[0];

time32 = stime[0];

diff = value12;

diffr = (value12-value11)/value11*100;

TL_Delete(tl);

TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

var1 = Index;

if var2 > 0 Then

Box_SetEnd(box,date12,time12,Value12);

{

Text_SetLocation(tx,sDate,sTime,value12);

Text_SetString(tx,NumToStr(diff,0)+"("+NumToStr(diffr,0)+"%)");

Text_SetStyle(tx,1,1);

}

}

}

if DayHigh() > DayHigh(1) Then

v1 = DayHigh();

if Daylow() < Daylow(1) Then

v2 = Daylow();

TL_SetSize(TL1,선두께);

TL_SetDrawMode(TL1,0);

Text_SetSize(tx,15);

Plot5(v1,"전고");

plot6(v2,"전저");