커뮤니티
수식 부탁드립니다
2015-10-29 10:23:31
285
글번호 91855
(1)당일 저가에서 상승시 40틱 단위로 적색선 그리기
...선 우측에 +40,+80,+120,+160,+200,+240,+280,+320+360 글 쓰기
...해당 캔들 위에 +40,+80,+120+160,+200,+240,+280,+320,+360 글 쓰기
(2)당일 고가에서 하락시 40틱 단위로 청색선 그리기
...선 우측에 -40,-80,-120,-160,-200,-240,-280,-320-360 글 쓰기
...해당 캔들 아래에 -40,-80,-120-160,-200,-240,-280,-320,360 글 쓰기
감사합니다
답변 1
예스스탁 예스스탁 답변
2015-10-29 14:40:33
안녕하세요
예스스탁입니다.
해당 내용 추세선과 텍스트 함수로 구현해야 합니다.
따로 plot명령어로 출력되는 부분이 없으므로
검색식으로 작성해 차트에 적용하시면 됩니다.
input : N(40);
var : HH(0),LL(0),T(0),HD(0),HT(0),LD(0),LT(0),HL(0),LH(0);
var : Tx1(0),tx2(0),tx3(0),tx4(0),tx5(0),tx6(0),tx7(0),tx8(0),tx9(0);
var : Tx11(0);
var : TL1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0),tl8(0),tl9(0);
if bdate != bdate[1] then{
HH = H;
HD = sdate;
HT = stime;
HL = HH;
LL = L;
LD = sdate;
LT = stime;
T = 0;
LH = H;
}
if H > HH Then{
T = 1;
HH = H;
HD = sdate;
HT = stime;
HL = HH;
}
if L < LL Then{
T = -1;
LL = L;
LD = sdate;
LT = stime;
LH = LL;
}
if T == 1 and T[1] == 1 Then{
if L < HL Then
HL = L;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL1 = TL_New(HT,HT,dayhigh-PriceScale*(N*1),sdate,stime,dayhigh-PriceScale*(N*1));
TL2 = TL_New(HT,HT,dayhigh-PriceScale*(N*2),sdate,stime,dayhigh-PriceScale*(N*2));
TL3 = TL_New(HT,HT,dayhigh-PriceScale*(N*3),sdate,stime,dayhigh-PriceScale*(N*3));
TL4 = TL_New(HT,HT,dayhigh-PriceScale*(N*4),sdate,stime,dayhigh-PriceScale*(N*4));
TL5 = TL_New(HT,HT,dayhigh-PriceScale*(N*5),sdate,stime,dayhigh-PriceScale*(N*5));
TL6 = TL_New(HT,HT,dayhigh-PriceScale*(N*6),sdate,stime,dayhigh-PriceScale*(N*6));
TL7 = TL_New(HT,HT,dayhigh-PriceScale*(N*7),sdate,stime,dayhigh-PriceScale*(N*7));
TL8 = TL_New(HT,HT,dayhigh-PriceScale*(N*8),sdate,stime,dayhigh-PriceScale*(N*8));
TL9 = TL_New(HT,HT,dayhigh-PriceScale*(N*9),sdate,stime,dayhigh-PriceScale*(N*9));
TL_SetColor(TL1,blue);
TL_SetColor(TL2,blue);
TL_SetColor(TL3,blue);
TL_SetColor(TL4,blue);
TL_SetColor(TL5,blue);
TL_SetColor(TL6,blue);
TL_SetColor(TL7,blue);
TL_SetColor(TL8,blue);
TL_SetColor(TL9,blue);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
Text_Delete(tx4);
Text_Delete(tx5);
Text_Delete(tx6);
Text_Delete(tx7);
Text_Delete(tx8);
Text_Delete(tx9);
tx1 = Text_New(sdate,stime,dayhigh-PriceScale*(N*1),"-"+NumToStr(N*1,0));
tx2 = Text_New(sdate,stime,dayhigh-PriceScale*(N*2),"-"+NumToStr(N*2,0));
tx3 = Text_New(sdate,stime,dayhigh-PriceScale*(N*3),"-"+NumToStr(N*3,0));
tx4 = Text_New(sdate,stime,dayhigh-PriceScale*(N*4),"-"+NumToStr(N*4,0));
tx5 = Text_New(sdate,stime,dayhigh-PriceScale*(N*5),"-"+NumToStr(N*5,0));
tx6 = Text_New(sdate,stime,dayhigh-PriceScale*(N*6),"-"+NumToStr(N*6,0));
tx7 = Text_New(sdate,stime,dayhigh-PriceScale*(N*7),"-"+NumToStr(N*7,0));
tx8 = Text_New(sdate,stime,dayhigh-PriceScale*(N*8),"-"+NumToStr(N*8,0));
tx9 = Text_New(sdate,stime,dayhigh-PriceScale*(N*9),"-"+NumToStr(N*9,0));
if HL <= dayhigh-PriceScale*(N*1) and HL[1] > dayhigh-PriceScale*(N*1) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*1,0));
if HL <= dayhigh-PriceScale*(N*2) and HL[1] > dayhigh-PriceScale*(N*2) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*2,0));
if HL <= dayhigh-PriceScale*(N*3) and HL[1] > dayhigh-PriceScale*(N*3) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*3,0));
if HL <= dayhigh-PriceScale*(N*4) and HL[1] > dayhigh-PriceScale*(N*4) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*4,0));
if HL <= dayhigh-PriceScale*(N*5) and HL[1] > dayhigh-PriceScale*(N*5) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*5,0));
if HL <= dayhigh-PriceScale*(N*6) and HL[1] > dayhigh-PriceScale*(N*6) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*6,0));
if HL <= dayhigh-PriceScale*(N*7) and HL[1] > dayhigh-PriceScale*(N*7) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*7,0));
if HL <= dayhigh-PriceScale*(N*8) and HL[1] > dayhigh-PriceScale*(N*8) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*8,0));
if HL <= dayhigh-PriceScale*(N*9) and HL[1] > dayhigh-PriceScale*(N*9) Then
Tx11 = Text_New(sdate,stime,L,"-"+NumToStr(N*9,0));
Text_SetStyle(tx11,2,2);
}
if T == -1 and T[1] == -1 Then{
if H > LH Then
LH = H;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL1 = TL_New(LD,LT,daylow+PriceScale*(N*1),sdate,stime,daylow+PriceScale*(N*1));
TL2 = TL_New(LD,LT,daylow+PriceScale*(N*2),sdate,stime,daylow+PriceScale*(N*2));
TL3 = TL_New(LD,LT,daylow+PriceScale*(N*3),sdate,stime,daylow+PriceScale*(N*3));
TL4 = TL_New(LD,LT,daylow+PriceScale*(N*4),sdate,stime,daylow+PriceScale*(N*4));
TL5 = TL_New(LD,LT,daylow+PriceScale*(N*5),sdate,stime,daylow+PriceScale*(N*5));
TL6 = TL_New(LD,LT,daylow+PriceScale*(N*6),sdate,stime,daylow+PriceScale*(N*6));
TL7 = TL_New(LD,LT,daylow+PriceScale*(N*7),sdate,stime,daylow+PriceScale*(N*7));
TL8 = TL_New(LD,LT,daylow+PriceScale*(N*8),sdate,stime,daylow+PriceScale*(N*8));
TL9 = TL_New(LD,LT,daylow+PriceScale*(N*9),sdate,stime,daylow+PriceScale*(N*9));
TL_SetColor(TL1,red);
TL_SetColor(TL2,red);
TL_SetColor(TL3,red);
TL_SetColor(TL4,red);
TL_SetColor(TL5,red);
TL_SetColor(TL6,red);
TL_SetColor(TL7,red);
TL_SetColor(TL8,red);
TL_SetColor(TL9,red);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
Text_Delete(tx4);
Text_Delete(tx5);
Text_Delete(tx6);
Text_Delete(tx7);
Text_Delete(tx8);
Text_Delete(tx9);
tx1 = Text_New(sdate,stime,daylow+PriceScale*(N*1),"+"+NumToStr(N*1,0));
tx2 = Text_New(sdate,stime,daylow+PriceScale*(N*2),"+"+NumToStr(N*2,0));
tx3 = Text_New(sdate,stime,daylow+PriceScale*(N*3),"+"+NumToStr(N*3,0));
tx4 = Text_New(sdate,stime,daylow+PriceScale*(N*4),"+"+NumToStr(N*4,0));
tx5 = Text_New(sdate,stime,daylow+PriceScale*(N*5),"+"+NumToStr(N*5,0));
tx6 = Text_New(sdate,stime,daylow+PriceScale*(N*6),"+"+NumToStr(N*6,0));
tx7 = Text_New(sdate,stime,daylow+PriceScale*(N*7),"+"+NumToStr(N*7,0));
tx8 = Text_New(sdate,stime,daylow+PriceScale*(N*8),"+"+NumToStr(N*8,0));
tx9 = Text_New(sdate,stime,daylow+PriceScale*(N*9),"+"+NumToStr(N*9,0));
if LH >= daylow+PriceScale*(N*1) and LH[1] < daylow+PriceScale*(N*1) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*1,0));
if LH >= daylow+PriceScale*(N*2) and LH[1] < daylow+PriceScale*(N*2) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*2,0));
if LH >= daylow+PriceScale*(N*3) and LH[1] < daylow+PriceScale*(N*3) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*3,0));
if LH >= daylow+PriceScale*(N*4) and LH[1] < daylow+PriceScale*(N*4) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*4,0));
if LH >= daylow+PriceScale*(N*5) and LH[1] < daylow+PriceScale*(N*5) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*5,0));
if LH >= daylow+PriceScale*(N*6) and LH[1] < daylow+PriceScale*(N*6) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*6,0));
if LH >= daylow+PriceScale*(N*7) and LH[1] < daylow+PriceScale*(N*7) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*7,0));
if LH >= daylow+PriceScale*(N*8) and LH[1] < daylow+PriceScale*(N*8) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*8,0));
if LH >= daylow+PriceScale*(N*9) and LH[1] < daylow+PriceScale*(N*9) Then
Tx11 = Text_New(sdate,stime,H,"+"+NumToStr(N*9,0));
Text_SetStyle(tx11,2,2);
}
즐거운 하루되세요
> 타이쿤 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다
> (1)당일 저가에서 상승시 40틱 단위로 적색선 그리기
...선 우측에 +40,+80,+120,+160,+200,+240,+280,+320+360 글 쓰기
...해당 캔들 위에 +40,+80,+120+160,+200,+240,+280,+320,+360 글 쓰기
(2)당일 고가에서 하락시 40틱 단위로 청색선 그리기
...선 우측에 -40,-80,-120,-160,-200,-240,-280,-320-360 글 쓰기
...해당 캔들 아래에 -40,-80,-120-160,-200,-240,-280,-320,360 글 쓰기
감사합니다