커뮤니티
재질문 부탁 드립니다.
2017-09-05 13:49:03
114
글번호 112522
54677 재질문 부탁 드립니다.
미리 감사 드립니다.
답변 1
예스스탁 예스스탁 답변
2017-09-06 10:22:50
안녕하세요
예스스탁입니다.
기존의 수식이 정배열과 역배열구간에서 채우기를 하는데
정배열이 아니다가 정배열이 되거나
역배열이 아니다가 역배열이 되면
이전 지점과 사선이 그어져
실제 역배열이나 정배열이 아닌구간도 색이 출력되어
식을 수정했습니다.
1번식은 모든 배열 최고가 위치에 해당구간의 폭을 틱수로 표시하고
2번식은 정배열은 최고가 위치 역배열은 최저가 위치에 표시를 합니다.
1
var : HH(0),LL(0),TX(0),TX1(0),HD(0),HT(0);
var1 = ma(C,10);
var2 = ma(C,20);
var3 = ma(C,40);
var4 = ma(C,60);
Condition1 = var1 > var2 and var2 > var3 and var3 > var4;
Condition2 = var1 < var2 and var2 < var3 and var3 < var4;
if Condition1 == true and Condition1[1] == false Then{
HH = H;
LL = L;
HD = sdate;
HT = stime;
if HH[1] > 0 Then{
TX1 = Text_New(HD[1],HT[1],HH[1]+PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
}
if Condition2 == true and Condition2[1] == false Then{
HH = H;
LL = L;
HD = sdate;
HT = stime;
if HH[1] > 0 Then{
TX1 = Text_New(HD[1],HT[1],HH[1]+PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
}
//정배열
if Condition1 == true Then{
plot1(999999999,"L1");
plot2(0,"L2");
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
if L < LL Then
LL = L;
Text_Delete(TX);
TX = Text_New(HD,HT,HH+PriceScale*2,NumToStr((HH-LL)/PriceScale,0));
Text_SetStyle(TX,2,2);
}
else if Condition2 == true Then{
plot1(0,"L1");
plot2(999999999,"L2");
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
if L < LL Then
LL = L;
Text_Delete(TX);
TX = Text_New(HD,HT,HH+PriceScale*2,NumToStr((HH-LL)/PriceScale,0));
Text_SetStyle(TX,2,2);
}
Else{
plot1(0,"L1");
plot2(0,"L2");
}
2
var : HH(0),LL(0),TX(0),TX1(0),HD(0),HT(0),LD(0),LT(0),T(0);
var1 = ma(C,10);
var2 = ma(C,20);
var3 = ma(C,40);
var4 = ma(C,60);
Condition1 = var1 > var2 and var2 > var3 and var3 > var4;
Condition2 = var1 < var2 and var2 < var3 and var3 < var4;
if Condition1 == true and Condition1[1] == false Then{
T = 1;
HH = H;
LL = L;
HD = sdate;
HT = stime;
if T[1] == 1 Then{
TX1 = Text_New(HD[1],HT[1],HH[1]+PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
if T[1] == -1 Then{
TX1 = Text_New(LD[1],LT[1],LL[1]-PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
}
if Condition2 == true and Condition2[1] == false Then{
T = -1;
HH = H;
LL = L;
LD = sdate;
LT = stime;
if T[1] == 1 Then{
TX1 = Text_New(HD[1],HT[1],HH[1]+PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
if T[1] == -1 Then{
TX1 = Text_New(LD[1],LT[1],LL[1]-PriceScale*2,NumToStr((HH[1]-LL[1])/PriceScale,0));
Text_SetStyle(TX1,2,2);
}
}
//정배열
if Condition1 == true Then{
plot1(999999999,"L1");
plot2(0,"L2");
if H > HH Then{
HH = H;
HD = sdate;
HT = stime;
}
if L < LL Then
LL = L;
Text_Delete(TX);
TX = Text_New(HD,HT,HH-PriceScale*2,NumToStr((HH-LL)/PriceScale,0));
Text_SetStyle(TX,2,2);
}
else if Condition2 == true Then{
plot1(0,"L1");
plot2(999999999,"L2");
if H > HH Then
HH = H;
if L < LL Then{
LL = L;
LD = sdate;
LT = stime;
}
Text_Delete(TX);
TX = Text_New(LD,LT,LL-PriceScale*2,NumToStr((HH-LL)/PriceScale,0));
Text_SetStyle(TX,2,2);
}
Else{
plot1(0,"L1");
plot2(0,"L2");
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 재질문 부탁 드립니다.
> 54677 재질문 부탁 드립니다.
미리 감사 드립니다.
다음글
이전글