커뮤니티
지표식 부탁합니다
2017-01-31 04:17:22
126
글번호 106353
세해 복많이 받으세요
일봉 차트에서 일목 구름대 돌파한 종목 지표식 부탁합니다.
이때 주봉과 월봉 차트도 주가가 구름대 상단에 위치하고 있어야만
일봉 차트에서 구름대 돌파 지표식 나오도록 지표식 부탁합니다
답변 1
예스스탁 예스스탁 답변
2017-01-31 15:50:39
안녕하세요
예스스탁입니다.
어떤 방식으로 표시를 원하시는지 알수없어
조건만족하면 1, 아니면 0이 리턴되게 작성했습니다.
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),w구름상단(0),w구름하단(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),m구름상단(0),m구름하단(0);
Var : 기준선(0), 전환선(0), 선행스팬1(0), 선행스팬2(0),구름상단(0),구름하단(0);
Array : WH[100](0),WL[100](0);
Array : MH[100](0),ML[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;
w구름상단 = max(w선행스팬1,w선행스팬2);
w구름하단 = Min(w선행스팬1,w선행스팬2);
}
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;
m구름상단 = max(m선행스팬1,m선행스팬2);
m구름하단 = Min(m선행스팬1,m선행스팬2);
}
전환선 = (Highest(H, 9) + Lowest(L, 9)) / 2;
기준선 = (Highest(H, 26) + Lowest(L, 26)) / 2;
선행스팬1 = (전환선[25] + 기준선[25]) / 2 ;
선행스팬2 = (Highest(H, 52)[25] + Lowest(L, 52)[25]) / 2;
구름상단 = max(선행스팬1,선행스팬2);
구름하단 = Min(선행스팬1,선행스팬2);
if crossup(C,구름상단) and C > w구름상단 and C > m구름상단 Then
plot1(1);
else
plot1(0);
즐거운 하루되세요
> 미래테크 님이 쓴 글입니다.
> 제목 : 지표식 부탁합니다
> 세해 복많이 받으세요
일봉 차트에서 일목 구름대 돌파한 종목 지표식 부탁합니다.
이때 주봉과 월봉 차트도 주가가 구름대 상단에 위치하고 있어야만
일봉 차트에서 구름대 돌파 지표식 나오도록 지표식 부탁합니다
다음글
이전글