커뮤니티
병합차트
2017-06-25 19:10:47
169
글번호 110691
아래의 수식과 같이
input : 전환가격(N) 에서 var1 의 꺾은선 차트의 지표식이 생성 되었다면
input : 전환가격(N),전환가격(P) 2개의 전환가격 변수로
var1 의 꺾은선차트 및
var2 의 꺾은선차트의 지표식을 부탁드립니다.
만일 동일차트에서 두개의 병합 된 지표식이 가능하지 않다면 data2 를 활용한 꺾은선차트 의 지표식을 부탁드립니다.
<아래의 수식>
Input:전환가격(N),종가사용여부(1),파동선두께(1),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(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,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
}
If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가
{
hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다.
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1] + 전환가격 < HH and hiBar == 0;
// 전저점에서 전환가격만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식
Condition2 = 고[1,1] - 전환가격 > LL and loBar == 0;
// 전고점에서 전환가격만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식
처리구분 = "";
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
{
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
// 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다.
// 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다.
loBar = -1;
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);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Red);
}
Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
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
{
If 최종꼭지점 == "고점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Blue);
}
Else If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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));
}
}
최종꼭지점 = "저점";
}
#========================================#
# 지표식
#========================================#
var1 = iff(최종꼭지점 == "고점",1,iff(최종꼭지점 == "저점",-1,0));
if var1 = -1 Then{
PLOT1(저[2,1]);
PLOT2(고[1,1]);
}
Else{
PLOT1(저[1,1]);
PLOT2(고[2,1]);
}
답변 1
예스스탁 예스스탁 답변
2017-06-26 15:25:34
안녕하세요
예스스탁입니다.
Input:전환가격(1),종가사용여부(1),파동선두께(1),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
Input:전환가격2(2),종가사용여부2(1),파동선두께2(1),수치표시2(1);
Var:j2(0),jj2(0),HH2(0),LL2(0),hiBar2(0),loBar2(0),최종꼭지점2(""),처리구분2(""),TL21(0),Text21(0);
Array:고2[10,4](0),저2[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,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
}
If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가
{
hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다.
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1] + 전환가격 < HH and hiBar == 0;
// 전저점에서 전환가격만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식
Condition2 = 고[1,1] - 전환가격 > LL and loBar == 0;
// 전고점에서 전환가격만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식
처리구분 = "";
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
{
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
// 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다.
// 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다.
loBar = -1;
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);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Red);
}
Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
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
{
If 최종꼭지점 == "고점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Blue);
}
Else If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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));
}
}
최종꼭지점 = "저점";
}
#========================================#
# 지표식
#========================================#
var1 = iff(최종꼭지점 == "고점",1,iff(최종꼭지점 == "저점",-1,0));
if var1 = -1 Then{
PLOT1(저[2,1]);
PLOT2(고[1,1]);
}
Else{
PLOT1(저[1,1]);
PLOT2(고[2,1]);
}
#==========================================#
HH2 = IFF(종가사용여부2 == 1,C,H);
LL2 = IFF(종가사용여부2 == 1,C,L);
If Index == 0 Then
{
고2[1,1] = HH2;
고2[1,2] = 0;
고2[1,3] = sDate;
고2[1,4] = sTime;
저2[1,1] = LL2;
저2[1,2] = 0;
저2[1,3] = sDate;
저2[1,4] = sTime;
}
If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가
{
hiBar2 = hiBar2 + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다.
loBar2 = loBar2 + 1;
}
If HH2[hiBar2] < HH2 Then hiBar2 = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화
If LL2[loBar2] > LL2 Then loBar2 = 0;
Condition21 = 저2[1,1] + 전환가격2 < HH2 and hiBar2 == 0;
// 전저점에서 전환가격2만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식
Condition22 = 고2[1,1] - 전환가격2 > LL2 and loBar2 == 0;
// 전고점에서 전환가격2만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식
처리구분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 처리구분2 == "고점처리" Then
{
If 최종꼭지점2 == "저점" Then
{
For j2 = 10 DownTo 2
{
For jj2 = 1 To 4
{
고2[j2,jj2] = 고2[j2-1,jj2];
}
}
고2[1,1] = HH2[hiBar2];
고2[1,2] = Index - hiBar2;
고2[1,3] = sDate[hiBar2];
고2[1,4] = sTime[hiBar2];
hiBar2 = -1;
// 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다.
// 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다.
loBar2 = -1;
TL21 = TL_New(저2[1,3],저2[1,4],저2[1,1],고2[1,3],고2[1,4],고2[1,1]);
If 수치표시2 == 1 Then
{
Text21 = Text_New(고2[1,3],고2[1,4],고2[1,1],NumToStr(고2[1,1],2));
Text_SetStyle(Text21, 2, 1);
}
TL_SetSize(TL21,파동선두께2);
TL_SetColor(TL21,Red);
}
Else If 고2[1,1] < HH2[hiBar2] Then // 1번 고점보다 높은 고가 출현
{
고2[1,1] = HH2[hiBar2];
고2[1,2] = Index - hiBar2;
고2[1,3] = sDate[hiBar2];
고2[1,4] = sTime[hiBar2];
hiBar2 = -1;
loBar2 = -1;
TL_SetEnd(TL21,고2[1,3],고2[1,4],고2[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시2 == 1 Then
{
Text_SetLocation(Text21,고2[1,3],고2[1,4],고2[1,1]);
Text_SetString(Text21,NumToStr(고2[1,1],2));
}
}
최종꼭지점2 = "고점";
}
#==========================================#
If 처리구분2 == "저점처리" Then
{
If 최종꼭지점2 == "고점" Then
{
For j2 = 10 DownTo 2
{
For jj2= 1 To 4
{
저2[j2,jj2] = 저2[j2-1,jj2];
}
}
저2[1,1] = LL2[loBar2];
저2[1,2] = Index - loBar2;
저2[1,3] = sDate[loBar2];
저2[1,4] = sTime[loBar2];
hiBar2 = -1;
loBar2 = -1;
TL21 = TL_New(고2[1,3],고2[1,4],고2[1,1],저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text21 = Text_New(저2[1,3],저2[1,4],저2[1,1],NumToStr(저2[1,1],2));
Text_SetStyle(Text21, 2, 0);
}
TL_SetSize(TL21,파동선두께2);
TL_SetColor(TL21,Blue);
}
Else If 저2[1,1] > LL2[loBar2] Then
{
저2[1,1] = LL2[loBar2];
저2[1,2] = Index - loBar2;
저2[1,3] = sDate[loBar2];
저2[1,4] = sTime[loBar2];
hiBar2 = -1;
loBar2 = -1;
TL_SetEnd(TL21,저2[1,3],저2[1,4],저2[1,1]);
If 수치표시2 == 1 Then
{
Text_SetLocation(Text21,저2[1,3],저2[1,4],저2[1,1]);
Text_SetString(Text21,NumToStr(저2[1,1],2));
}
}
최종꼭지점2 = "저점";
}
#========================================#
# 지표식
#========================================#
var2 = iff(최종꼭지점2 == "고점",1,iff(최종꼭지점2 == "저점",-1,0));
if var2 = -1 Then{
PLOT3(저2[2,1]);
PLOT4(고2[1,1]);
}
Else{
PLOT3(저2[1,1]);
PLOT4(고2[2,1]);
}
즐거운 하루되세요
> 너무조아 님이 쓴 글입니다.
> 제목 : 병합차트
> 아래의 수식과 같이
input : 전환가격(N) 에서 var1 의 꺾은선 차트의 지표식이 생성 되었다면
input : 전환가격(N),전환가격(P) 2개의 전환가격 변수로
var1 의 꺾은선차트 및
var2 의 꺾은선차트의 지표식을 부탁드립니다.
만일 동일차트에서 두개의 병합 된 지표식이 가능하지 않다면 data2 를 활용한 꺾은선차트 의 지표식을 부탁드립니다.
<아래의 수식>
Input:전환가격(N),종가사용여부(1),파동선두께(1),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),hiBar(0),loBar(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,2] = 0;
고[1,3] = sDate;
고[1,4] = sTime;
저[1,1] = LL;
저[1,2] = 0;
저[1,3] = sDate;
저[1,4] = sTime;
}
If Index > 0 Then // Index가 0일때는 이전 봉이 없으므로 Index가 1일때부터 1씩 증가
{
hiBar = hiBar + 1; // 최고점을 찍은 고[저]가의 위치를 저장 해놓기 위해 봉번호를 카운트한다.
loBar = loBar + 1;
}
If HH[hiBar] < HH Then hiBar = 0; // 현재 봉이 최고가이면 봉번호를 0으로 초기화
If LL[loBar] > LL Then loBar = 0;
Condition1 = 저[1,1] + 전환가격 < HH and hiBar == 0;
// 전저점에서 전환가격만큼 더한 값보다 고가가 크다면 추세가 변한 것으로 보고 신규 고점으로 인식
Condition2 = 고[1,1] - 전환가격 > LL and loBar == 0;
// 전고점에서 전환가격만큼 뺀 값보다 저가가 작다면 추세가 변한 것으로 보고 신규 저점으로 인식
처리구분 = "";
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
{
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
// 다음 봉의 고가가 기준 고가로 인식되려면 hiBar 값이 0이 되어야 한다.
// 봉이 바뀔 때마다 hiBar의 값을 1씩 증가시키므로 다음 봉의 hiBar 값은 0이 된다.
loBar = -1;
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);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Red);
}
Else If 고[1,1] < HH[hiBar] Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH[hiBar];
고[1,2] = Index - hiBar;
고[1,3] = sDate[hiBar];
고[1,4] = sTime[hiBar];
hiBar = -1;
loBar = -1;
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
{
If 최종꼭지점 == "고점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,Blue);
}
Else If 저[1,1] > LL[loBar] Then
{
저[1,1] = LL[loBar];
저[1,2] = Index - loBar;
저[1,3] = sDate[loBar];
저[1,4] = sTime[loBar];
hiBar = -1;
loBar = -1;
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));
}
}
최종꼭지점 = "저점";
}
#========================================#
# 지표식
#========================================#
var1 = iff(최종꼭지점 == "고점",1,iff(최종꼭지점 == "저점",-1,0));
if var1 = -1 Then{
PLOT1(저[2,1]);
PLOT2(고[1,1]);
}
Else{
PLOT1(저[1,1]);
PLOT2(고[2,1]);
}