120틱 연결선물지수 차트 씁니다.
상한선 HH ----------------------------------
현주가위치 : HH와 LL선 사이에 있음
하한선 LL-----------------------------------
일봉기준 이평선
ma5 ma10 ma20 ma60
(1) 시작 LineH = HH ,, LineL = LL
(2) 현주가가 상한선 돌파한이후에 4개 이평선중 HH보다 높은 이평선중 가장 HH에 가까운선
을 LineH 에 대입
모든이평이 HH 밑에 있음 초기값 LineH=HH 유지
(3) 반대로 하향선 돌파한이후에 4개 이평선중 LL보다 낮은 이평선중 가장 LL에 까운선을
LineL에 대입
모든이평이 LL 위에 있음 초기값 LineL=LL 유지
글로 쓸려니 복잡하네요..
항시 감사합니다.
답변 1
예스스탁
예스스탁 답변
2020-09-04 14:42:19
안녕하세요
예스스탁입니다.
input : p1(5),P2(10),P3(20),p4(60);
var : cnt(0),sum1(0),sum2(0),sum3(0),sum4(0);
var : ma5(0),ma10(0),ma20(0),ma60(0);
var : HH(0),LL(0),LineH(0),diffh(0),Linel(0),diffl(0);
if DayClose(P4-1) > 0 Then
{
sum1 = 0;
sum2 = 0;
sum3 = 0;
sum4 = 0;
For cnt = 0 to P4
{
if cnt < P1 Then
sum1 = sum1 + DayClose(cnt);
if cnt < P2 Then
sum2 = sum2 + DayClose(cnt);
if cnt < P3 Then
sum3 = sum3 + DayClose(cnt);
if cnt < P4 Then
sum4 = sum4 + DayClose(cnt);
}
ma5 = sum1/P1;
ma10 = sum2/p2;
ma20 = sum3/P3;
ma60 = sum4/P4;
}
if CrossUp(c,HH) Then
{
LineH = HH;
diffh = 0;
}
if CrossDown(c,LL) Then
{
Linel = ll;
diffl = 0;
}
if LineH > 0 Then
{
if ma5 > 0 and ma5 > hh and (diffh == 0 or (diffh > 0 and abs(ma5-hh) < diffh)) Then
{
diffh = abs(ma5-hh);
LineH = ma5;
}
if ma10 > 0 and ma10 > hh and (diffh == 0 or (diffh > 0 and abs(ma10-hh) < diffh)) Then
{
diffh = abs(ma10-hh);
LineH = ma10;
}
if ma20 > 0 and ma20 > hh and (diffh == 0 or (diffh > 0 and abs(ma20-hh) < diffh)) Then
{
diffh = abs(ma20-hh);
LineH = ma20;
}
if ma60 > 0 and ma60 > hh and (diffh == 0 or (diffh > 0 and abs(ma60-hh) < diffh)) Then
{
diffh = abs(ma60-hh);
LineH = ma60;
}
}
if Linel > 0 Then
{
if ma5 > 0 and ma5 < ll and (diffl == 0 or (diffl > 0 and abs(ma5-ll) < diffl)) Then
{
diffl = abs(ma5-ll);
Linel = ma5;
}
if ma10 > 0 and ma10 < ll and (diffl == 0 or (diffl > 0 and abs(ma10-ll) < diffl)) Then
{
diffl = abs(ma10-ll);
Linel = ma10;
}
if ma20 > 0 and ma20 < ll and (diffl == 0 or (diffl > 0 and abs(ma20-ll) < diffl)) Then
{
diffl = abs(ma20-ll);
Linel = ma20;
}
if ma60 > 0 and ma60 < ll and (diffl == 0 or (diffl > 0 and abs(ma60-ll) < diffl)) Then
{
diffl = abs(ma60-ll);
Linel = ma60;
}
}
Plot1(lineh);
Plot2(linel);
즐거운 하루되세요
> 묻어가는자 님이 쓴 글입니다.
> 제목 : 선을 그리고 싶습니다.
> 120틱 연결선물지수 차트 씁니다.
상한선 HH ----------------------------------
현주가위치 : HH와 LL선 사이에 있음
하한선 LL-----------------------------------
일봉기준 이평선
ma5 ma10 ma20 ma60
(1) 시작 LineH = HH ,, LineL = LL
(2) 현주가가 상한선 돌파한이후에 4개 이평선중 HH보다 높은 이평선중 가장 HH에 가까운선
을 LineH 에 대입
모든이평이 HH 밑에 있음 초기값 LineH=HH 유지
(3) 반대로 하향선 돌파한이후에 4개 이평선중 LL보다 낮은 이평선중 가장 LL에 까운선을
LineL에 대입
모든이평이 LL 위에 있음 초기값 LineL=LL 유지
글로 쓸려니 복잡하네요..
항시 감사합니다.