커뮤니티
문의 드립니다.
2017-03-25 03:16:19
136
글번호 108180
안녕하세요
질문 번호 52502 수식에서
1. 현재 고점과 전 고점과의 추세선 오른쪽 연장
2. 현재 고점과 전전 고점과의 추세선 오른쪽 연장
3. 현재 고점과 전전전 고점과의 추세선 오른쪽 연장
4. 현재 저점과 전 저점과의 추세선 오른쪽 연장
5. 현재 저점과 전전 저점과의 추세선 오른쪽 연장
6. 현재 저점과 전전전 저점과의 추세선 오른쪽 연장
이렇게 현재 고점과 현재 저점과에서 지나간 고점 저점들과의
추세선을 부탁드립니다.
미리 감사드립니다.
답변 1
예스스탁 예스스탁 답변
2017-03-27 11:33:43
안녕하세요
예스스탁입니다.
Input:length(5);
Var:j(0),lastHiVal(0),lastLoVal(0),sBar(0),eBar(0),TL1(0),TL2(0),TL3(0),Text1(0),처리구분(""),
TL_Val1(0),TL_Val2(0);
var : T(0),LTL1(0),LTL2(0),LTL3(0),LTL4(0);
var : HTL1(0),HTL2(0),HTL3(0),HTL4(0);
Array:고점[10,2](0),저점[10,2](0);
처리구분 = "";
If Highest(H,length) == H and lastHiVal <> H and Lowest(L,length) == L and lastLoVal <> L Then
{ If 저점[1,1] > L Then 처리구분 = "저점처리";
If 고점[1,1] < H Then 처리구분 = "고점처리";
}
Else If Highest(H,length) == H and lastHiVal <> H Then 처리구분 = "고점처리";
Else If Lowest(L,length) == L and lastLoVal <> L Then 처리구분 = "저점처리";
If 처리구분 == "고점처리" Then
{
T = 1;
lastHiVal = H;
If 고점[1,2] < 저점[1,2] Then
{
For j = 10 DownTo 2
{
고점[j,1] = 고점[j-1,1];
고점[j,2] = 고점[j-1,2];
}
}
If 고점[1,2] < 저점[1,2] or 고점[1,1] < H Then
{
고점[1,1] = H;
고점[1,2] = Index;
sBar = Index - 저점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],저점[1,1],sDate[eBar],sTime[eBar],고점[1,1]);
if T[1] != 1 Then{
TL_Delete(LTL1);
TL_Delete(LTL2);
TL_Delete(LTL3);
LTL1 = TL_New(sDate[index-저점[2,2]],sTime[index-저점[2,2]],저점[2,1],sDate[index-저점[1,2]],sTime[index-저점[1,2]],저점[1,1]);
LTL2 = TL_New(sDate[index-저점[3,2]],sTime[index-저점[3,2]],저점[3,1],sDate[index-저점[1,2]],sTime[index-저점[1,2]],저점[1,1]);
LTL3 = TL_New(sDate[index-저점[4,2]],sTime[index-저점[4,2]],저점[4,1],sDate[index-저점[1,2]],sTime[index-저점[1,2]],저점[1,1]);
TL_SetExtRight(LTL1,true);
TL_SetExtRight(LTL2,true);
TL_SetExtRight(LTL3,true);
}
If 고점[3,1] < 고점[2,1] and 고점[2,1] > 고점[1,1] and 저점[2,1] < 저점[1,1] Then
{
sBar = Index - 저점[2,2];
eBar = Index - 저점[1,2];
}
}
}
If 처리구분 == "저점처리" Then
{
T = -1;
lastLoVal = L;
If 저점[1,2] < 고점[1,2] Then
{
For j = 10 DownTo 2
{
저점[j,1] = 저점[j-1,1];
저점[j,2] = 저점[j-1,2];
}
}
If 저점[1,2] < 고점[1,2] or 저점[1,1] > L Then
{
저점[1,1] = L;
저점[1,2] = Index;
sBar = Index - 고점[1,2];
eBar = 0;
If TL_GetBeginDate(TL1) == sDate[sBar] and TL_GetBeginTime(TL1) == sTime[sBar] Then
{
TL_Delete(TL1);
}
TL1 = TL_New(sDate[sBar],sTime[sBar],고점[1,1],sDate[eBar],sTime[eBar],저점[1,1]);
if T[1] != -1 then{
TL_Delete(HTL1);
TL_Delete(HTL2);
TL_Delete(HTL3);
HTL1 = TL_New(sDate[index-고점[2,2]],sTime[index-고점[2,2]],고점[2,1],sDate[index-고점[1,2]],sTime[index-고점[1,2]],고점[1,1]);
HTL2 = TL_New(sDate[index-고점[3,2]],sTime[index-고점[3,2]],고점[3,1],sDate[index-고점[1,2]],sTime[index-고점[1,2]],고점[1,1]);
HTL3 = TL_New(sDate[index-고점[4,2]],sTime[index-고점[4,2]],고점[4,1],sDate[index-고점[1,2]],sTime[index-고점[1,2]],고점[1,1]);
TL_SetExtRight(HTL1,true);
TL_SetExtRight(HTL2,true);
TL_SetExtRight(HTL3,true);
}
If 저점[2,1] < 저점[1,1] and 저점[2,1] < 저점[3,1] and 고점[2,1] > 고점[1,1] Then
{
sBar = Index - 고점[2,2];
eBar = Index - 고점[1,2];
}
}
}
TL_SetSize(TL1,1);
TL_SetColor(TL1,BLACK);
즐거운 하루되세요
> 동해바다01 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 안녕하세요
질문 번호 52502 수식에서
1. 현재 고점과 전 고점과의 추세선 오른쪽 연장
2. 현재 고점과 전전 고점과의 추세선 오른쪽 연장
3. 현재 고점과 전전전 고점과의 추세선 오른쪽 연장
4. 현재 저점과 전 저점과의 추세선 오른쪽 연장
5. 현재 저점과 전전 저점과의 추세선 오른쪽 연장
6. 현재 저점과 전전전 저점과의 추세선 오른쪽 연장
이렇게 현재 고점과 현재 저점과에서 지나간 고점 저점들과의
추세선을 부탁드립니다.
미리 감사드립니다.
다음글
이전글