커뮤니티
문의 드립니다.
2017-04-01 12:06:42
336
글번호 108404
첨부 이미지
그림1
질문 52604의 파동선에서 파동의
지나간 고점과 고점 그리고 지나간 저점과 저점들이
선으로 연결되고 마지막 파동의 고점과 고점,
저점과 저점의 추세선 하나만 오른쪽으로 연장이 되겠끔
부탁드립니다.
감사합니다
- 1. 파동추세.JPG (0.06 MB)
답변 1
예스스탁 예스스탁 답변
2017-04-04 10:04:45
안녕하세요
예스스탁입니다.
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);
var : LTL11(0),LTL21(0),LTL31(0);
var : LTL12(0),LTL22(0),LTL32(0);
var : HTL1(0),HTL2(0),HTL3(0);
var : HTL11(0),HTL21(0),HTL31(0);
var : HTL12(0),HTL22(0),HTL32(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_SetExtRight(LTL1,False);
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]);
Ltl11 = Ltl1[1];
Ltl21 = Ltl2[1];
Ltl31 = Ltl3[1];
Ltl12 = Ltl11[1];
Ltl22 = Ltl21[1];
Ltl32 = Ltl31[1];
# TL_Delete(LTL12);
# TL_Delete(LTL22);
# TL_Delete(LTL32);
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_SetExtRight(HTL1,false);
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]);
htl11 = htl1[1];
htl21 = htl2[1];
htl31 = htl3[1];
htl12 = htl11[1];
htl22 = htl21[1];
htl32 = htl31[1];
# TL_Delete(HTL12);
# TL_Delete(HTL22);
# TL_Delete(HTL32);
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 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 질문 52604의 파동선에서 파동의
지나간 고점과 고점 그리고 지나간 저점과 저점들이
선으로 연결되고 마지막 파동의 고점과 고점,
저점과 저점의 추세선 하나만 오른쪽으로 연장이 되겠끔
부탁드립니다.
감사합니다