커뮤니티
문의 드립니다
2019-06-24 16:01:34
396
글번호 129700
첨부 이미지
그림1
안녕하세요
아래 파동식에서 첨부와 같이 큰파동만 전고점을 넘어 가는 순간부터
색깔을 빨강으로 그리고 전저점을 깨고 내려가는 순간부터
파랑으로 나오게 부탁드립니다.
감사합니다.
Input : length1(5),종가사용여부1(0),파동선두께1(2),수치표시1(1) ;
Input : length2(20),종가사용여부2(0),파동선두께2(2),수치표시2(1) ;
Var : j1(0),jj1(0),HH1(0),LL1(0),최종고가1(0),최종저가1(0),최종꼭지점1(""),처리구분1(""),TL1(0),Text1(0);
Var : j2(0),jj2(0),HH2(0),LL2(0),최종고가2(0),최종저가2(0),최종꼭지점2(""),처리구분2(""),TL2(0),Text2(0);
Array : 고1[10,4](0),저1[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
Array : 고2[10,4](0),저2[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH1 = IFF(종가사용여부1==1,C,H);
LL1 = IFF(종가사용여부1==1,C,L);
HH2 = IFF(종가사용여부2==1,C,H);
LL2 = IFF(종가사용여부2==1,C,L);
#==========================================#
If Index == 0 Then
{
고1[1,1] = HH1;
저1[1,1] = LL1;
고2[1,1] = HH1;
저2[1,1] = LL1;
}
#==========================================#
Condition11 = Highest(HH1,length1) == HH1 and 최종고가1 <> HH1;
Condition12 = Lowest (LL1,length1) == LL1 and 최종저가1 <> LL1;
Condition21 = Highest(HH2,length2) == HH2 and 최종고가2 <> HH2;
Condition22 = Lowest (LL2,length2) == LL2 and 최종저가2 <> LL2;
#==========================================#
처리구분1 = "";
If Condition11 and Condition12 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점1 == "저점" Then
{
If 저1[1,1] > LL1 Then 처리구분1 = "저점처리";
Else 처리구분1 = "고점처리";
}
Else If 최종꼭지점1 == "고점" Then
{
If 고1[1,1] < HH1 Then 처리구분1 = "고점처리";
Else 처리구분1 = "저점처리";
}
}
Else If Condition11 Then 처리구분1 = "고점처리";
Else If Condition12 Then 처리구분1 = "저점처리";
처리구분2 = "";
If Condition21 and Condition22 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점2 == "저점" Then
{
If 저2[1,1] > LL2 Then 처리구분2 = "저점처리";
Else 처리구분2 = "고점처리";
}
Else If 최종꼭지점2 == "고점" Then
{
If 고2[1,1] < HH2 Then 처리구분2 = "고점처리";
Else 처리구분2 = "저점처리";
}
}
Else If Condition21 Then 처리구분2 = "고점처리";
Else If Condition22 Then 처리구분2 = "저점처리";
#==========================================#
If 처리구분1 == "고점처리" Then
{
최종고가1 = HH1; // 신규고점을 체크하기 위해 저장
If 최종꼭지점1 == "저점" Then
{
For j1 = 10 DownTo 2
{
For jj1 = 1 To 4
{
고1[j1,jj1] = 고1[j1-1,jj1];
}
}
고1[1,1] = HH1;
고1[1,2] = Index;
고1[1,3] = sDate;
고1[1,4] = sTime;
TL1 = TL_New(저1[1,3],저1[1,4],저1[1,1],고1[1,3],고1[1,4],고1[1,1]);
If 수치표시1 == 1 Then
{
Text1 = Text_New(고1[1,3],고1[1,4],고1[1,1],NumToStr(고1[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,white);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,lgreen);
}
Else If 고1[1,1] < HH1 Then // 1번 고점보다 높은 고가 출현
{
고1[1,1] = HH1;
고1[1,2] = Index;
고1[1,3] = sDate;
고1[1,4] = sTime;
TL_SetEnd(TL1,고1[1,3],고1[1,4],고1[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시1 == 1 Then
{
Text_SetLocation(Text1,고1[1,3],고1[1,4],고1[1,1]);
Text_SetString(Text1,NumToStr(고1[1,1],2));
}
}
최종꼭지점1 = "고점";
}
If 처리구분2 == "고점처리" Then
{
최종고가2 = HH2; // 신규고점을 체크하기 위해 저장
If 최종꼭지점2 == "저점" Then
{
For j2 = 10 DownTo 2
{
For jj2 = 1 To 4
{
고2[j1,jj1] = 고2[j1-1,jj1];
}
}
고2[1,1] = HH2;
고2[1,2] = Index;
고2[1,3] = sDate;
고2[1,4] = sTime;
TL2 = TL_New(저2[1,3],저2[1,4],저2[1,1],고2[1,3],고2[1,4],고2[1,1]);
If 수치표시2 == 1 Then
{
Text2 = Text_New(고2[1,3],고2[1,4],고2[1,1],NumToStr(고2[1,1],2));
Text_SetStyle(Text2, 2, 1);
Text_SetSize(Text2, 15);
Text_SetColor(Text2,white);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,red);
}
Else If 고2[1,1] < HH2 Then // 1번 고점보다 높은 고가 출현
{
고2[1,1] = HH2;
고2[1,2] = Index;
고2[1,3] = sDate;
고2[1,4] = sTime;
TL_SetEnd(TL2,고2[1,3],고2[1,4],고2[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시2 == 1 Then
{
Text_SetLocation(Text2,고2[1,3],고2[1,4],고2[1,1]);
Text_SetString(Text2,NumToStr(고2[1,1],2));
}
}
최종꼭지점2 = "고점";
}
#==========================================#
If 처리구분1 == "저점처리" Then
{
최종저가1 = LL1;
If 최종꼭지점1 == "고점" then
{
For j1 = 10 DownTo 2
{
For jj1 = 1 To 4
{
저1[j1,jj1] = 저1[j1-1,jj1];
}
}
저1[1,1] = LL1;
저1[1,2] = Index;
저1[1,3] = sDate;
저1[1,4] = sTime;
TL1 = TL_New(고1[1,3],고1[1,4],고1[1,1],저1[1,3],저1[1,4],저1[1,1]);
If 수치표시1 == 1 Then
{
Text1 = Text_New(저1[1,3],저1[1,4],저1[1,1],NumToStr(저1[1,1],2));
Text_SetStyle(Text1, 2, 2);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,white);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,lgreen);
}
Else If 저1[1,1] > LL1 then
{
저1[1,1] = LL1;
저1[1,2] = Index;
저1[1,3] = sDate;
저1[1,4] = sTime;
TL_SetEnd(TL1,저1[1,3],저1[1,4],저1[1,1]);
If 수치표시1 == 1 Then
{
Text_SetLocation(Text1,저1[1,3],저1[1,4],저1[1,1]);
Text_SetString(Text1,NumToStr(저1[1,1],2));
}
}
최종꼭지점1 = "저점";
}
If 처리구분2 == "저점처리" Then
{
최종저가2 = LL2;
If 최종꼭지점2 == "고점" then
{
For j2 = 10 DownTo 2
{
For jj2 = 1 To 4
{
저2[j2,jj2] = 저2[j2-1,jj2];
}
}
저2[1,1] = LL2;
저2[1,2] = Index;
저2[1,3] = sDate;
저2[1,4] = sTime;
TL2 = TL_New(고2[1,3],고2[1,4],고2[1,1],저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text2 = Text_New(저2[1,3],저2[1,4],저2[1,1],NumToStr(저2[1,1],2));
Text_SetStyle(Text2, 2, 2);
Text_SetSize(Text2, 15);
Text_SetColor(Text2,white);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,blue);
}
Else If 저2[1,1] > LL2 then
{
저2[1,1] = LL2;
저2[1,2] = Index;
저2[1,3] = sDate;
저2[1,4] = sTime;
TL_SetEnd(TL2,저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text_SetLocation(Text2,저2[1,3],저2[1,4],저2[1,1]);
Text_SetString(Text2,NumToStr(저2[1,1],2));
}
}
최종꼭지점2 = "저점";
}
- 1. 파동2.PNG (0.03 MB)
답변 1
예스스탁 예스스탁 답변
2019-06-25 10:30:30
안녕하세요
예스스탁입니다.
문의하신 내용은 수식을 많이 변경해야 하는 부분으로
작성해 보는데 시간이 많이 소모됩니다.
업무상 많은 시간이 요구되는 내용은 답변드리기 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> 동해바다01 님이 쓴 글입니다.
> 제목 : 문의 드립니다
> 안녕하세요
아래 파동식에서 첨부와 같이 큰파동만 전고점을 넘어 가는 순간부터
색깔을 빨강으로 그리고 전저점을 깨고 내려가는 순간부터
파랑으로 나오게 부탁드립니다.
감사합니다.
Input : length1(5),종가사용여부1(0),파동선두께1(2),수치표시1(1) ;
Input : length2(20),종가사용여부2(0),파동선두께2(2),수치표시2(1) ;
Var : j1(0),jj1(0),HH1(0),LL1(0),최종고가1(0),최종저가1(0),최종꼭지점1(""),처리구분1(""),TL1(0),Text1(0);
Var : j2(0),jj2(0),HH2(0),LL2(0),최종고가2(0),최종저가2(0),최종꼭지점2(""),처리구분2(""),TL2(0),Text2(0);
Array : 고1[10,4](0),저1[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
Array : 고2[10,4](0),저2[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH1 = IFF(종가사용여부1==1,C,H);
LL1 = IFF(종가사용여부1==1,C,L);
HH2 = IFF(종가사용여부2==1,C,H);
LL2 = IFF(종가사용여부2==1,C,L);
#==========================================#
If Index == 0 Then
{
고1[1,1] = HH1;
저1[1,1] = LL1;
고2[1,1] = HH1;
저2[1,1] = LL1;
}
#==========================================#
Condition11 = Highest(HH1,length1) == HH1 and 최종고가1 <> HH1;
Condition12 = Lowest (LL1,length1) == LL1 and 최종저가1 <> LL1;
Condition21 = Highest(HH2,length2) == HH2 and 최종고가2 <> HH2;
Condition22 = Lowest (LL2,length2) == LL2 and 최종저가2 <> LL2;
#==========================================#
처리구분1 = "";
If Condition11 and Condition12 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점1 == "저점" Then
{
If 저1[1,1] > LL1 Then 처리구분1 = "저점처리";
Else 처리구분1 = "고점처리";
}
Else If 최종꼭지점1 == "고점" Then
{
If 고1[1,1] < HH1 Then 처리구분1 = "고점처리";
Else 처리구분1 = "저점처리";
}
}
Else If Condition11 Then 처리구분1 = "고점처리";
Else If Condition12 Then 처리구분1 = "저점처리";
처리구분2 = "";
If Condition21 and Condition22 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점2 == "저점" Then
{
If 저2[1,1] > LL2 Then 처리구분2 = "저점처리";
Else 처리구분2 = "고점처리";
}
Else If 최종꼭지점2 == "고점" Then
{
If 고2[1,1] < HH2 Then 처리구분2 = "고점처리";
Else 처리구분2 = "저점처리";
}
}
Else If Condition21 Then 처리구분2 = "고점처리";
Else If Condition22 Then 처리구분2 = "저점처리";
#==========================================#
If 처리구분1 == "고점처리" Then
{
최종고가1 = HH1; // 신규고점을 체크하기 위해 저장
If 최종꼭지점1 == "저점" Then
{
For j1 = 10 DownTo 2
{
For jj1 = 1 To 4
{
고1[j1,jj1] = 고1[j1-1,jj1];
}
}
고1[1,1] = HH1;
고1[1,2] = Index;
고1[1,3] = sDate;
고1[1,4] = sTime;
TL1 = TL_New(저1[1,3],저1[1,4],저1[1,1],고1[1,3],고1[1,4],고1[1,1]);
If 수치표시1 == 1 Then
{
Text1 = Text_New(고1[1,3],고1[1,4],고1[1,1],NumToStr(고1[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,white);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,lgreen);
}
Else If 고1[1,1] < HH1 Then // 1번 고점보다 높은 고가 출현
{
고1[1,1] = HH1;
고1[1,2] = Index;
고1[1,3] = sDate;
고1[1,4] = sTime;
TL_SetEnd(TL1,고1[1,3],고1[1,4],고1[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시1 == 1 Then
{
Text_SetLocation(Text1,고1[1,3],고1[1,4],고1[1,1]);
Text_SetString(Text1,NumToStr(고1[1,1],2));
}
}
최종꼭지점1 = "고점";
}
If 처리구분2 == "고점처리" Then
{
최종고가2 = HH2; // 신규고점을 체크하기 위해 저장
If 최종꼭지점2 == "저점" Then
{
For j2 = 10 DownTo 2
{
For jj2 = 1 To 4
{
고2[j1,jj1] = 고2[j1-1,jj1];
}
}
고2[1,1] = HH2;
고2[1,2] = Index;
고2[1,3] = sDate;
고2[1,4] = sTime;
TL2 = TL_New(저2[1,3],저2[1,4],저2[1,1],고2[1,3],고2[1,4],고2[1,1]);
If 수치표시2 == 1 Then
{
Text2 = Text_New(고2[1,3],고2[1,4],고2[1,1],NumToStr(고2[1,1],2));
Text_SetStyle(Text2, 2, 1);
Text_SetSize(Text2, 15);
Text_SetColor(Text2,white);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,red);
}
Else If 고2[1,1] < HH2 Then // 1번 고점보다 높은 고가 출현
{
고2[1,1] = HH2;
고2[1,2] = Index;
고2[1,3] = sDate;
고2[1,4] = sTime;
TL_SetEnd(TL2,고2[1,3],고2[1,4],고2[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시2 == 1 Then
{
Text_SetLocation(Text2,고2[1,3],고2[1,4],고2[1,1]);
Text_SetString(Text2,NumToStr(고2[1,1],2));
}
}
최종꼭지점2 = "고점";
}
#==========================================#
If 처리구분1 == "저점처리" Then
{
최종저가1 = LL1;
If 최종꼭지점1 == "고점" then
{
For j1 = 10 DownTo 2
{
For jj1 = 1 To 4
{
저1[j1,jj1] = 저1[j1-1,jj1];
}
}
저1[1,1] = LL1;
저1[1,2] = Index;
저1[1,3] = sDate;
저1[1,4] = sTime;
TL1 = TL_New(고1[1,3],고1[1,4],고1[1,1],저1[1,3],저1[1,4],저1[1,1]);
If 수치표시1 == 1 Then
{
Text1 = Text_New(저1[1,3],저1[1,4],저1[1,1],NumToStr(저1[1,1],2));
Text_SetStyle(Text1, 2, 2);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,white);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,lgreen);
}
Else If 저1[1,1] > LL1 then
{
저1[1,1] = LL1;
저1[1,2] = Index;
저1[1,3] = sDate;
저1[1,4] = sTime;
TL_SetEnd(TL1,저1[1,3],저1[1,4],저1[1,1]);
If 수치표시1 == 1 Then
{
Text_SetLocation(Text1,저1[1,3],저1[1,4],저1[1,1]);
Text_SetString(Text1,NumToStr(저1[1,1],2));
}
}
최종꼭지점1 = "저점";
}
If 처리구분2 == "저점처리" Then
{
최종저가2 = LL2;
If 최종꼭지점2 == "고점" then
{
For j2 = 10 DownTo 2
{
For jj2 = 1 To 4
{
저2[j2,jj2] = 저2[j2-1,jj2];
}
}
저2[1,1] = LL2;
저2[1,2] = Index;
저2[1,3] = sDate;
저2[1,4] = sTime;
TL2 = TL_New(고2[1,3],고2[1,4],고2[1,1],저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text2 = Text_New(저2[1,3],저2[1,4],저2[1,1],NumToStr(저2[1,1],2));
Text_SetStyle(Text2, 2, 2);
Text_SetSize(Text2, 15);
Text_SetColor(Text2,white);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,blue);
}
Else If 저2[1,1] > LL2 then
{
저2[1,1] = LL2;
저2[1,2] = Index;
저2[1,3] = sDate;
저2[1,4] = sTime;
TL_SetEnd(TL2,저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text_SetLocation(Text2,저2[1,3],저2[1,4],저2[1,1]);
Text_SetString(Text2,NumToStr(저2[1,1],2));
}
}
최종꼭지점2 = "저점";
}
다음글
이전글