커뮤니티
수식문의
2013-11-29 03:12:41
135
글번호 69944
아래의수식을 시스템으로 만들어주세요 그리고 아래수식에서 오른쪽 연장선을 추가로 만들어주세요
input : 기간(7);
var : cnt(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
TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
}
}
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
TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
}
}
답변 1
예스스탁 예스스탁 답변
2013-11-29 15:40:24
안녕하세요
예스스탁입니다.
시스템식입니다.
아래식에서는 최근 발생한 추세선만 연장선이 그리도록 했습니다.
차트 전체에 모든 추세선의 연장선을 보고자 하시면
수식안의 아래 4개문장을 지주시면 됩니다.
TL_SetExtRight(TL11,False);
TL_SetExtRight(TL12,False);
TL_SetExtRight(TL21,False);
TL_SetExtRight(TL22,False);
아래는 수정한 식입니다.
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);
}
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);
}
}
}
}
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);
}
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);
}
}
}
}
if C > TL_GetValue(TL11,sdate,stime) and C[1] < TL_GetValue(TL11,sdate[1],stime[1]) Then
buy();
if C > TL_GetValue(TL12,sdate,stime) and C[1] < TL_GetValue(TL12,sdate[1],stime[1]) Then
buy();
if C < TL_GetValue(TL21,sdate,stime) and C[1] > TL_GetValue(TL21,sdate[1],stime[1]) Then
Sell();
if C < TL_GetValue(TL22,sdate,stime) and C[1] > TL_GetValue(TL22,sdate[1],stime[1]) Then
Sell();
즐거운 하루되세요
> 백진강 님이 쓴 글입니다.
> 제목 : 수식문의
> 아래의수식을 시스템으로 만들어주세요 그리고 아래수식에서 오른쪽 연장선을 추가로 만들어주세요
input : 기간(7);
var : cnt(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
TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
}
}
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
TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
}
}