아래 차트의 꺽은선을, 위 차트와 같이 직선으로 표시.  

plot을 체크 해제하면 전체가 안보입니다.   위 차트는 plot이 없는 수식입니다.  감사합니다.

input : Period(30);

Var:j(0),T(0),box(0),tx(0),TL(0),TL1(0),TL2(0);

Var: date11(0),date12(0),time11(0),time12(0);

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

Plot1(value12,"value12",IFf(t==1,Red,Blue));

{

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

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

}

if crossup(c,highest(H,Period)[1]) Then

T = 1;

if CrossDown(c,Lowest(L,Period)[1]) Then

T = -1;

If T == -1 Then

{

If T[1] != -1 Then

{

{

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(TL2);

TL2 = TL_New_Self(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

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

TL_SetColor(TL1,Blue);

TL_SetSize(TL1,1);

if abs(value12[1]-value11[1]) < 1.25 Then

Text_Delete(tx);

tx = Text_New_Self(sDate,stime,value12,NumToStr(value11-value12,2));

Text_SetColor(Tx,Blue);

Text_SetStyle(tx,1,0);

Text_SetSize(tx,20);

Text_SetBold(tx,1);

Condition1 = False;

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

}

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);

Text_SetString(tx,NumToStr(value11-value12,2));

Text_SetLocation(tx,sDate,sTime,value12);

Box_SetEnd(box,date12,time12,Value12);

}

if value12 > value11-0.5 Then

{

Box_SetColor(box,Lime);

Box_SetFill(box,true,120);

}

else if value12 <= value11-0.5 and value12 > value11-1 Then

{

Box_SetColor(box,Cyan);

Box_SetFill(box,true,100);

}

else if value12 <= value11-1 and value12 > value11-1.5 Then

{

Box_SetColor(box,Blue);

Box_SetFill(box,true,60);

}

else if value12 <= value11-1.5 and value12 > value11-2 Then

{

Box_SetColor(box,Lime);

Box_SetFill(box,true,90);

}

else if value12 <= value11-2 and value12 > value11-3 Then

{

Box_SetColor(box,Cyan);

Box_SetFill(box,true,80);

}

else

{

Box_SetColor(box,Blue);

Box_SetFill(box,true,30);

}

if Condition1 == False and hival[0] < hival[1] and Loval[0] < loval[1] Then

{

Condition1 = true;

TL_Delete(TL);

TL = TL_New(sdate,stime,0,sdate,stime,999);

TL_SetColor(TL,Gold);

TL_SetSize(TL,2);

}

}

If T == 1 Then

{

If T[1] != 1 Then

{

{

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(TL2);

TL2 = TL_New_Self(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

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

TL_SetColor(TL1,Red);

TL_SetSize(TL1,1);

if abs(value12[1]-value11[1]) < 1.25 Then

Text_Delete(tx);

tx = Text_New_Self(sDate,stime,value12,NumToStr(value12-value11,2));

Text_SetColor(Tx,Red);

Text_SetStyle(tx,1,1);

Text_SetSize(tx,20);

Text_SetBold(tx,1);

Condition2 = False;

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

}

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);

Text_SetString(tx,NumToStr(value12-value11,2));

Text_SetLocation(tx,sDate,sTime,value12);

Box_SetEnd(box,date12,time12,Value12);

}

if Value12 >= value11+3 Then

{

Box_SetColor(box,Orange);

Box_SetFill(box,true,60);

}

else if value12 >= value11+2 and value12 < value11+3 Then

{

Box_SetColor(box,Gray);

Box_SetFill(box,true,60);

}

else if value12 >= value11+1.5 and value12 < value11+2 Then

{

Box_SetColor(box,Magenta);

Box_SetFill(box,true,50);

}

else if value12 >= value11+1 and value12 < value11+1.5 Then

{

Box_SetColor(box,Orange);

Box_SetFill(box,true,70);

}

else if value12 >= value11+0.5 and value12 < value11+1 Then

{

Box_SetColor(box,Gray);

Box_SetFill(box,true,70);

}

Else

{

Box_SetColor(box,Magenta);

Box_SetFill(box,true,60);

}

if Condition2 == False and loval[0] > loval[1] and hival[0] > hival[1] Then

{

Condition2 = true;

TL_Delete(TL);

TL = TL_New(sdate,stime,0,sdate,stime,999);

TL_SetColor(TL,Lime);

TL_SetSize(TL,2);

}

}