커뮤니티
수식변경요청
2018-08-02 19:58:38
187
글번호 121098
안녕하세요
아래수식은 고저점파동수식입니다
이수식을 Length2와 Length4 파동선 2개가 함께 나타나도록 수식변경부탁드립니다
감사합니다
Input:length(2),종가사용여부(0),파동선두께(2),수치표시(1) ;
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLACK);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 2);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLACK);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
답변 1
예스스탁 예스스탁 답변
2018-08-03 10:29:26
안녕하세요
예스스탁입니다.
Input : length1(2),종가사용여부1(0),파동선두께1(2),수치표시1(1) ;
Input : length2(4),종가사용여부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,BLACK);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,BLACK);
}
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,BLACK);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,GRAY);
}
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,BLACK);
}
TL_SetSize(TL1,파동선두께1);
TL_SetColor(TL1,BLACK);
}
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,BLACK);
}
TL_SetSize(TL2,파동선두께2);
TL_SetColor(TL2,GRAY);
}
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 = "저점";
}
즐거운 하루되세요
> bestkim 님이 쓴 글입니다.
> 제목 : 수식변경요청
> 안녕하세요
아래수식은 고저점파동수식입니다
이수식을 Length2와 Length4 파동선 2개가 함께 나타나도록 수식변경부탁드립니다
감사합니다
Input:length(2),종가사용여부(0),파동선두께(2),수치표시(1) ;
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLACK);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 2);
Text_SetSize(Text1, 15);
Text_SetColor(Text1,BLACK);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLACK);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}