커뮤니티
부탁드립니다.
2015-03-31 18:12:22
193
글번호 84623
1. 현재 종가가 이동평균선 60일선 위로 상승하면, 그 전 이동평균선 상승시 봉 중에서 최고점인 봉과 그 전전 이동평균선 상승시 봉 중에서 최고점인 봉과 서로 연결하는 추세선을 나올 때마다 우측으로 계속 자동 연장하여 표시되도록 해 주세요(만약,봉의 최고점의 높이가 똑 같을 경우에는 마지막 최근 봉을 기준으로 만들어 주세요)
동시에,
2 현재 종가가 이동평균선 60일선 아래로 하락하면, 그 전 이동평균선 하락시 봉 중에서 최저점인 봉과 그 전전 이동평균선 하락시 봉 중에서 최저점인 봉과 서로 연결하는 추세선을 나올 때마다 우측으로 계속 자동 연장하여 표시되도록 해 주세요(만약,봉의 최저점의 높이가 똑 같을 경우에는 마지막 최근 봉을 기준으로 만들어 주세요)
답변 1
예스스탁 예스스탁 답변
2015-04-01 09:33:42
안녕하세요
예스스탁입니다.
input : P(60);
var : mav(0),T(0),cnt(0),T1(0),T2(0);
Array : HD[3](0),HT[3](0),HV[3](0);
Array : LD[3](0),LT[3](0),LV[3](0);
mav = ma(c,P);
if crossup(C,mav) Then{
T = 1;
HD[0] = sdate;
HT[0] = stime;
HV[0] = H;
for cnt = 1 to 2{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HV[cnt] = HV[cnt-1][1];
}
}
if CrossDown(C,mav) Then{
T = -1;
LD[0] = sdate;
LT[0] = stime;
LV[0] = L;
for cnt = 1 to 2{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LV[cnt] = LV[cnt-1][1];
}
}
if T == 1 Then{
if H >= HV[0] Then{
HD[0] = sdate;
HT[0] = stime;
HV[0] = H;
}
TL_Delete(T1);
if HV[1] > HV[2] Then
T1 = TL_New(HD[1],HT[1],HV[1],HD[0],HT[0],HV[0]);
Else
T1 = TL_New(HD[2],HT[2],HV[2],HD[0],HT[0],HV[0]);
TL_SetExtRight(T1,true);
TL_SetColor(T1,RED);
}
if T == -1 Then{
if L <= LV[0] Then{
LD[0] = sdate;
LT[0] = stime;
LV[0] = L;
}
TL_Delete(T2);
if LV[1] < LV[2] Then
T2 = TL_New(LD[1],LT[1],LV[1],LD[0],LT[0],LV[0]);
Else
T2 = TL_New(LD[2],LT[2],LV[2],LD[0],LT[0],LV[0]);
TL_SetExtRight(T2,true);
TL_SetColor(T2,blue);
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 1. 현재 종가가 이동평균선 60일선 위로 상승하면, 그 전 이동평균선 상승시 봉 중에서 최고점인 봉과 그 전전 이동평균선 상승시 봉 중에서 최고점인 봉과 서로 연결하는 추세선을 나올 때마다 우측으로 계속 자동 연장하여 표시되도록 해 주세요(만약,봉의 최고점의 높이가 똑 같을 경우에는 마지막 최근 봉을 기준으로 만들어 주세요)
동시에,
2 현재 종가가 이동평균선 60일선 아래로 하락하면, 그 전 이동평균선 하락시 봉 중에서 최저점인 봉과 그 전전 이동평균선 하락시 봉 중에서 최저점인 봉과 서로 연결하는 추세선을 나올 때마다 우측으로 계속 자동 연장하여 표시되도록 해 주세요(만약,봉의 최저점의 높이가 똑 같을 경우에는 마지막 최근 봉을 기준으로 만들어 주세요)
다음글
이전글