커뮤니티
수식문의
2013-12-17 22:03:05
152
글번호 70577
아래의수식에서 상승하락추세선 돌파 붕괴시 캔들위에 점을찍는 수식부탁합니다 감사합니다
input : 기간(7);
var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0);
Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0);
if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{
HD[0] = sdate[기간];
HT[0] = sTime[기간];
HH[0] = H[기간];
#plot1(HH[0]);
for cnt = 1 to 2{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
if HH[cnt] > 0 and HH[0] < HH[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL11,False);
TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,RGB(0, 191, 255));
TL_SetSize( TL11,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL12,False);
TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RGB(0, 191, 255));
TL_SetSize( TL12,2);
}
}
}
}
if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{
LD[0] = sdate[기간];
LT[0] = sTime[기간];
LL[0] = L[기간];
#plot1(LL[0]);
for cnt = 1 to 2{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
if LL[cnt] > 0 and LL[0] > LL[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL21,False);
TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL21,true);
TL_SetColor(TL21,RGB(255, 20, 147));
TL_SetSize( TL21,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL22,False);
TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL22,true);
TL_SetColor(TL22,RGB(255,20, 147));
TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정
}
}
}
}
답변 1
예스스탁 예스스탁 답변
2013-12-18 13:39:26
안녕하세요
예스스탁입니다.
최근 추세선을 제외하고는
연장선이 보이지 않습니다.
각 점은 그때의 연장선값까지 고려되어 점이 찍히게 됩니다.
이용에 참고하시기 바랍니다.
input : 기간(7);
var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0);
Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0);
if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{
HD[0] = sdate[기간];
HT[0] = sTime[기간];
HH[0] = H[기간];
#plot1(HH[0]);
for cnt = 1 to 2{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
if HH[cnt] > 0 and HH[0] < HH[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL11,False);
TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,RGB(0, 191, 255));
TL_SetSize( TL11,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL12,False);
TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RGB(0, 191, 255));
TL_SetSize( TL12,2);
}
}
}
}
if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{
LD[0] = sdate[기간];
LT[0] = sTime[기간];
LL[0] = L[기간];
#plot1(LL[0]);
for cnt = 1 to 2{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
if LL[cnt] > 0 and LL[0] > LL[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL21,False);
TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL21,true);
TL_SetColor(TL21,RGB(255, 20, 147));
TL_SetSize( TL21,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL22,False);
TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL22,true);
TL_SetColor(TL22,RGB(255,20, 147));
TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정
}
}
}
}
if (C > TL_GetValue(TL11,sdate,stime) and C[1] < TL_GetValue(TL11,sdate[1],stime[1])) or
(C > TL_GetValue(TL12,sdate,stime) and C[1] < TL_GetValue(TL12,sdate[1],stime[1])) Then
plot1(H);
if (C < TL_GetValue(TL21,sdate,stime) and C[1] > TL_GetValue(TL21,sdate[1],stime[1])) or
(C < TL_GetValue(TL22,sdate,stime) and C[1] > TL_GetValue(TL22,sdate[1],stime[1])) Then
plot1(L);
즐거운 하루되세요
> 백진강 님이 쓴 글입니다.
> 제목 : 수식문의
> 아래의수식에서 상승하락추세선 돌파 붕괴시 캔들위에 점을찍는 수식부탁합니다 감사합니다
input : 기간(7);
var : cnt(0),TL11(0),TL12(0),TL21(0),TL22(0);
Array :HD[10](0),HT[10](0),HH[10](0),LD[10](0),LT[10](0),LL[10](0);
if SwingHigh(1,H,기간,기간,기간*2+1) != -1 Then{
HD[0] = sdate[기간];
HT[0] = sTime[기간];
HH[0] = H[기간];
#plot1(HH[0]);
for cnt = 1 to 2{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
if HH[cnt] > 0 and HH[0] < HH[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL11,False);
TL11 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL11,true);
TL_SetColor(TL11,RGB(0, 191, 255));
TL_SetSize( TL11,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL12,False);
TL12 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetExtRight(TL12,true);
TL_SetColor(TL12,RGB(0, 191, 255));
TL_SetSize( TL12,2);
}
}
}
}
if SwingLow(1,L,기간,기간,기간*2+1) != -1 Then{
LD[0] = sdate[기간];
LT[0] = sTime[기간];
LL[0] = L[기간];
#plot1(LL[0]);
for cnt = 1 to 2{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
if LL[cnt] > 0 and LL[0] > LL[cnt] Then{
if cnt == 1 Then{
TL_SetExtRight(TL21,False);
TL21 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL21,true);
TL_SetColor(TL21,RGB(255, 20, 147));
TL_SetSize( TL21,3);
}
if cnt == 2 Then{
TL_SetExtRight(TL22,False);
TL22 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetExtRight(TL22,true);
TL_SetColor(TL22,RGB(255,20, 147));
TL_SetSize( TL22,2); #TL2 추세선을 점선으로 지정
}
}
}
}