커뮤니티
수식문의
2022-11-24 16:53:39
877
글번호 164145
선생님,
1) 타주기 월봉, 주봉 일목균형표 지표를 일봉챠트에 적용하면 화면상 지표 출력안됩니다.
2) 타주기 월봉 일목균형표를 주봉챠트에 적용하면 월봉일목이 출력됩니다.
3) 타주기 주봉 일목균형표를 주봉챠트에 적용해도 월봉일목이 출력됩니다.
4) 타주기 월봉 일목균형표를 월봉챠트에 적용하면 월봉일목이 출력됩니다.
5) 타주기 주봉 일목균형표를 월봉챠트에 적용하면 월봉일목이 출력됩니다.
결론 말씀드리면 일봉챠트에서 두 지표가 다 출력 되지않습니다.
수정 또는 이유를 알려주세요.
감사합니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식문의
>
안녕하세요
예스스탁입니다.
후행스팬은 표시하지 못합니다.
또한 차트 오른쪽 여백에 수평이동한 선행스팬들은 그리지 못합니다.
현재봉 기준 26기간 전으로 계산된 선행스팬들이 표시됩니다.
1 월
input : 전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : cnt(0);
var : mH1(0),mL1(0),mH11(0),mL11(0),mH2(0),mL2(0),mH22(0),mL22(0),mH3(0),mL3(0);
var : m전환선(0),m기준선(0),m선행스팬1(0),m선행스팬2(0);
Array : MH[100](0),ML[100](0);
if Bdate > Bdate[1]+30 Then
{
MH[0] = H;
ML[0] = L;
for cnt = 1 to 99{
MH[cnt] = MH[cnt-1][1];
ML[cnt] = ML[cnt-1][1];
}
}
if H > MH[0] Then
MH[0] = H;
if L < ML[0] Then
ML[0] = L;
if MH[선행스팬2기간+25] > 0 and ML[선행스팬2기간+25] > 0 then
{
mH1 = MH[0];
mL1 = ML[0];
mH11 = MH[25];
mL11 = ML[25];
mH2 = MH[0];
mL2 = ML[0];
mH22 = MH[25];
mL22 = ML[25];
mH3 = MH[25];
mL3 = ML[25];
for cnt = 0 to 선행스팬2기간-1{
if cnt < 전환선기간 Then{
if MH[cnt] > mH1 Then
mH1 = MH[cnt];
if ML[cnt] < mL1 Then
mL1 = ML[cnt];
if MH[cnt+25] > mH11 Then
mH11 = MH[cnt+25];
if ML[cnt+25] < mL11 Then
mL11 = ML[cnt+25];
}
if cnt < 기준선기간 Then{
if MH[cnt] > mH2 Then
mH2 = MH[cnt];
if ML[cnt] < mL2 Then
mL2 = ML[cnt];
if MH[cnt+25] > mH22 Then
mH22 = MH[cnt+25];
if ML[cnt+25] < mL22 Then
mL22 = ML[cnt+25];
}
if MH[cnt+25] > mH3 Then
mH3 = MH[cnt+25];
if ML[cnt+25] < mL3 Then
mL3 = ML[cnt+25];
}
m전환선 = (mH1 + mL1)/2;
m기준선 = (mH2 + mL2)/2;
m선행스팬1 = ((mH11+mL11)/2 + (mH22+mL22)/2) / 2 ;
m선행스팬2 = (mH3+mL3) / 2;
plot1(m전환선);
plot2(m기준선);
plot3(m선행스팬1);
plot4(m선행스팬2);
}
2 주
input : 전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : cnt(0);
var : wH1(0),wL1(0),wH11(0),wL11(0),wH2(0),wL2(0),wH22(0),wL22(0),wH3(0),wL3(0);
var : w전환선(0),w기준선(0),w선행스팬1(0),w선행스팬2(0);
Array : wH[100](0),wL[100](0);
if Bdate > Bdate[1]+30 Then
{
wH[0] = H;
wL[0] = L;
for cnt = 1 to 99
{
wH[cnt] = wH[cnt-1][1];
wL[cnt] = wL[cnt-1][1];
}
}
if H > wH[0] Then
wH[0] = H;
if L < wL[0] Then
wL[0] = L;
if wH[선행스팬2기간+25] > 0 and wL[선행스팬2기간+25] > 0 then
{
wH1 = wH[0];
wL1 = wL[0];
wH11 = wH[25];
wL11 = wL[25];
wH2 = wH[0];
wL2 = wL[0];
wH22 = wH[25];
wL22 = wL[25];
wH3 = wH[25];
wL3 = wL[25];
for cnt = 0 to 선행스팬2기간-1{
if cnt < 전환선기간 Then{
if wH[cnt] > wH1 Then
wH1 = wH[cnt];
if wL[cnt] < wL1 Then
wL1 = wL[cnt];
if wH[cnt+25] > wH11 Then
wH11 = wH[cnt+25];
if wL[cnt+25] < wL11 Then
wL11 = wL[cnt+25];
}
if cnt < 기준선기간 Then{
if wH[cnt] > wH2 Then
wH2 = wH[cnt];
if wL[cnt] < wL2 Then
wL2 = wL[cnt];
if wH[cnt+25] > wH22 Then
wH22 = wH[cnt+25];
if wL[cnt+25] < wL22 Then
wL22 = wL[cnt+25];
}
if wH[cnt+25] > wH3 Then
wH3 = wH[cnt+25];
if wL[cnt+25] < wL3 Then
wL3 = wL[cnt+25];
}
w전환선 = (wH1 + wL1)/2;
w기준선 = (wH2 + wL2)/2;
w선행스팬1 = ((wH11+wL11)/2 + (wH22+wL22)/2) / 2 ;
w선행스팬2 = (wH3+wL3) / 2;
plot1(w전환선);
plot2(w기준선);
plot3(w선행스팬1);
plot4(w선행스팬2);
}
즐거운 하루되세요
> knb 님이 쓴 글입니다.
> 제목 : 수식문의
> 안녕하세요, 선생님,
소중한 답변 늘 감사합니다.
문의 :
1) 월봉 일목균형표 -> 일봉챠트에적용;
2) 주봉 일목균형표 -> 일봉챠트에 적용;
감사합니다.
답변 1
예스스탁 예스스탁 답변
2022-11-25 13:10:47
안녕하세요
예스스탁입니다.
월봉일목은 정상적으로 출력되는 식입니다.
주봉일목 수식의 값계산이 월봉으로 되어 있어 주봉일목식만 수정해 드립니다.
일봉에서 월봉이나 주봉 일목을 계산할 만큼 충분한 데이타가 있어야 합니다.
첨부된 그림과 같이 차트 봉을 5000개와 같이 넉넉히 조회하고 적용하시면 됩니다.
input : 전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : cnt(0);
var : wH1(0),wL1(0),wH11(0),wL11(0),wH2(0),wL2(0),wH22(0),wL22(0),wH3(0),wL3(0);
var : w전환선(0),w기준선(0),w선행스팬1(0),w선행스팬2(0);
Array : wH[100](0),wL[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
wH[0] = H;
wL[0] = L;
for cnt = 1 to 99
{
wH[cnt] = wH[cnt-1][1];
wL[cnt] = wL[cnt-1][1];
}
}
if H > wH[0] Then
wH[0] = H;
if L < wL[0] Then
wL[0] = L;
if wH[선행스팬2기간+25] > 0 and wL[선행스팬2기간+25] > 0 then
{
wH1 = wH[0];
wL1 = wL[0];
wH11 = wH[25];
wL11 = wL[25];
wH2 = wH[0];
wL2 = wL[0];
wH22 = wH[25];
wL22 = wL[25];
wH3 = wH[25];
wL3 = wL[25];
for cnt = 0 to 선행스팬2기간-1{
if cnt < 전환선기간 Then{
if wH[cnt] > wH1 Then
wH1 = wH[cnt];
if wL[cnt] < wL1 Then
wL1 = wL[cnt];
if wH[cnt+25] > wH11 Then
wH11 = wH[cnt+25];
if wL[cnt+25] < wL11 Then
wL11 = wL[cnt+25];
}
if cnt < 기준선기간 Then{
if wH[cnt] > wH2 Then
wH2 = wH[cnt];
if wL[cnt] < wL2 Then
wL2 = wL[cnt];
if wH[cnt+25] > wH22 Then
wH22 = wH[cnt+25];
if wL[cnt+25] < wL22 Then
wL22 = wL[cnt+25];
}
if wH[cnt+25] > wH3 Then
wH3 = wH[cnt+25];
if wL[cnt+25] < wL3 Then
wL3 = wL[cnt+25];
}
w전환선 = (wH1 + wL1)/2;
w기준선 = (wH2 + wL2)/2;
w선행스팬1 = ((wH11+wL11)/2 + (wH22+wL22)/2) / 2 ;
w선행스팬2 = (wH3+wL3) / 2;
plot1(w전환선);
plot2(w기준선);
plot3(w선행스팬1);
plot4(w선행스팬2);
}
즐거운 하루되세요
> knb 님이 쓴 글입니다.
> 제목 : 수식문의
>
선생님,
1) 타주기 월봉, 주봉 일목균형표 지표를 일봉챠트에 적용하면 화면상 지표 출력안됩니다.
2) 타주기 월봉 일목균형표를 주봉챠트에 적용하면 월봉일목이 출력됩니다.
3) 타주기 주봉 일목균형표를 주봉챠트에 적용해도 월봉일목이 출력됩니다.
4) 타주기 월봉 일목균형표를 월봉챠트에 적용하면 월봉일목이 출력됩니다.
5) 타주기 주봉 일목균형표를 월봉챠트에 적용하면 월봉일목이 출력됩니다.
결론 말씀드리면 일봉챠트에서 두 지표가 다 출력 되지않습니다.
수정 또는 이유를 알려주세요.
감사합니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 수식문의
>
안녕하세요
예스스탁입니다.
후행스팬은 표시하지 못합니다.
또한 차트 오른쪽 여백에 수평이동한 선행스팬들은 그리지 못합니다.
현재봉 기준 26기간 전으로 계산된 선행스팬들이 표시됩니다.
1 월
input : 전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : cnt(0);
var : mH1(0),mL1(0),mH11(0),mL11(0),mH2(0),mL2(0),mH22(0),mL22(0),mH3(0),mL3(0);
var : m전환선(0),m기준선(0),m선행스팬1(0),m선행스팬2(0);
Array : MH[100](0),ML[100](0);
if Bdate > Bdate[1]+30 Then
{
MH[0] = H;
ML[0] = L;
for cnt = 1 to 99{
MH[cnt] = MH[cnt-1][1];
ML[cnt] = ML[cnt-1][1];
}
}
if H > MH[0] Then
MH[0] = H;
if L < ML[0] Then
ML[0] = L;
if MH[선행스팬2기간+25] > 0 and ML[선행스팬2기간+25] > 0 then
{
mH1 = MH[0];
mL1 = ML[0];
mH11 = MH[25];
mL11 = ML[25];
mH2 = MH[0];
mL2 = ML[0];
mH22 = MH[25];
mL22 = ML[25];
mH3 = MH[25];
mL3 = ML[25];
for cnt = 0 to 선행스팬2기간-1{
if cnt < 전환선기간 Then{
if MH[cnt] > mH1 Then
mH1 = MH[cnt];
if ML[cnt] < mL1 Then
mL1 = ML[cnt];
if MH[cnt+25] > mH11 Then
mH11 = MH[cnt+25];
if ML[cnt+25] < mL11 Then
mL11 = ML[cnt+25];
}
if cnt < 기준선기간 Then{
if MH[cnt] > mH2 Then
mH2 = MH[cnt];
if ML[cnt] < mL2 Then
mL2 = ML[cnt];
if MH[cnt+25] > mH22 Then
mH22 = MH[cnt+25];
if ML[cnt+25] < mL22 Then
mL22 = ML[cnt+25];
}
if MH[cnt+25] > mH3 Then
mH3 = MH[cnt+25];
if ML[cnt+25] < mL3 Then
mL3 = ML[cnt+25];
}
m전환선 = (mH1 + mL1)/2;
m기준선 = (mH2 + mL2)/2;
m선행스팬1 = ((mH11+mL11)/2 + (mH22+mL22)/2) / 2 ;
m선행스팬2 = (mH3+mL3) / 2;
plot1(m전환선);
plot2(m기준선);
plot3(m선행스팬1);
plot4(m선행스팬2);
}
2 주
input : 전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : cnt(0);
var : wH1(0),wL1(0),wH11(0),wL11(0),wH2(0),wL2(0),wH22(0),wL22(0),wH3(0),wL3(0);
var : w전환선(0),w기준선(0),w선행스팬1(0),w선행스팬2(0);
Array : wH[100](0),wL[100](0);
if Bdate > Bdate[1]+30 Then
{
wH[0] = H;
wL[0] = L;
for cnt = 1 to 99
{
wH[cnt] = wH[cnt-1][1];
wL[cnt] = wL[cnt-1][1];
}
}
if H > wH[0] Then
wH[0] = H;
if L < wL[0] Then
wL[0] = L;
if wH[선행스팬2기간+25] > 0 and wL[선행스팬2기간+25] > 0 then
{
wH1 = wH[0];
wL1 = wL[0];
wH11 = wH[25];
wL11 = wL[25];
wH2 = wH[0];
wL2 = wL[0];
wH22 = wH[25];
wL22 = wL[25];
wH3 = wH[25];
wL3 = wL[25];
for cnt = 0 to 선행스팬2기간-1{
if cnt < 전환선기간 Then{
if wH[cnt] > wH1 Then
wH1 = wH[cnt];
if wL[cnt] < wL1 Then
wL1 = wL[cnt];
if wH[cnt+25] > wH11 Then
wH11 = wH[cnt+25];
if wL[cnt+25] < wL11 Then
wL11 = wL[cnt+25];
}
if cnt < 기준선기간 Then{
if wH[cnt] > wH2 Then
wH2 = wH[cnt];
if wL[cnt] < wL2 Then
wL2 = wL[cnt];
if wH[cnt+25] > wH22 Then
wH22 = wH[cnt+25];
if wL[cnt+25] < wL22 Then
wL22 = wL[cnt+25];
}
if wH[cnt+25] > wH3 Then
wH3 = wH[cnt+25];
if wL[cnt+25] < wL3 Then
wL3 = wL[cnt+25];
}
w전환선 = (wH1 + wL1)/2;
w기준선 = (wH2 + wL2)/2;
w선행스팬1 = ((wH11+wL11)/2 + (wH22+wL22)/2) / 2 ;
w선행스팬2 = (wH3+wL3) / 2;
plot1(w전환선);
plot2(w기준선);
plot3(w선행스팬1);
plot4(w선행스팬2);
}
즐거운 하루되세요
> knb 님이 쓴 글입니다.
> 제목 : 수식문의
> 안녕하세요, 선생님,
소중한 답변 늘 감사합니다.
문의 :
1) 월봉 일목균형표 -> 일봉챠트에적용;
2) 주봉 일목균형표 -> 일봉챠트에 적용;
감사합니다.
다음글
이전글