커뮤니티
문의드립니다
2017-12-15 04:05:54
177
글번호 115008
안녕하세요?
1. 당일 일봉차트의 5, 10, 20, 30, 60, 120, 240, 360, 480 이평선의 값을 60분봉 차트에
수평선으로 표시하고 수평선 좌측끝에 '5 이평'과 같은 이름 표시하기
1. 당일 일봉차트의 5, 10, 20, 30, 60, 120, 240, 360, 480 이평선의 값을 300틱 차트에
수평선으로 표시하고 수평선 좌측끝에 '5 이평'과 같은 이름 표시하기
각 수평선의 색깔: 5 이평선의 값(검정색)
10 이평선의 값(분홍색)
20 이평선의 값(주황색)
30 이평선의 값(녹색)
60 이평선의 값(빨강색)
120 이평선의 값(파랑색)
240 이평선의 값(하늘색)
360 이평선의 값(연두색)
480 이평선의 값(노랑색)
위의 내용을 구현하는 수식이 가능한지요? 가능하면 수식 부탁드립니다.
색깔은 제가 임의로 넣었습니다. 해당색이 없으면 겹치지 않게 다른색으로 해도 괜찮습니다.
감사합니다.
답변 1
예스스탁 예스스탁 답변
2017-12-15 15:19:34
안녕하세요
예스스탁입니다.
차트에 해당일수의 이평을 그릴만큼 데이터가
충분하지 않으면 그려지지 않습니다.
이용에 참고하시기 바랍니다.
input : P1(5),P2(10),P3(20),P4(30),P5(60),P6(120),P7(240),P8(360),P9(480);
var : cnt(0);
var1 = 0;
var2 = 0;
var3 = 0;
var4 = 0;
var5 = 0;
var6 = 0;
var7 = 0;
var8 = 0;
var9 = 0;
for cnt = 0 to P9{
if cnt < P1 Then
var1 = var1+DayClose(cnt);
if cnt < P2 Then
var2 = var2+DayClose(cnt);
if cnt < P3 Then
var3 = var3+DayClose(cnt);
if cnt < P4 Then
var4 = var4+DayClose(cnt);
if cnt < P5 Then
var5 = var5+DayClose(cnt);
if cnt < P6 Then
var6 = var6+DayClose(cnt);
if cnt < P7 Then
var7 = var7+DayClose(cnt);
if cnt < P8 Then
var8 = var8+DayClose(cnt);
if cnt < P9 Then
var9 = var9+DayClose(cnt);
}
if DayClose(P1-1) > 0 then{
value1 = var1/P1;
TL_Delete(value11);
value11 = TL_New(sdate[1],stime[1],value1,sdate,stime,value1);
TL_SetExtRight(value11,true);
TL_SetExtLeft(value11,true);
Text_Delete(value12);
value12 = Text_New(sdate,stime,value1,NumToStr(P1,0)+"이평");
Text_SetStyle(value12,2,1);
TL_SetColor(value11,BLACK);
Text_SetColor(value12,BLACK);
}
if DayClose(P2-1) > 0 then{
value2 = var2/P2;
TL_Delete(value21);
value21 = TL_New(sdate[1],stime[1],value2,sdate,stime,value2);
TL_SetExtRight(value21,true);
TL_SetExtLeft(value21,true);
Text_Delete(value22);
value22 = Text_New(sdate,stime,value2,NumToStr(P2,0)+"이평");
Text_SetStyle(value22,2,1);
TL_SetColor(value21,MAGENTA);
Text_SetColor(value22,MAGENTA);
}
if DayClose(P3-1) > 0 then{
value3 = var3/P3;
TL_Delete(value31);
value31 = TL_New(sdate[1],stime[1],value3,sdate,stime,value3);
TL_SetExtRight(value31,true);
TL_SetExtLeft(value31,true);
Text_Delete(value32);
value32 = Text_New(sdate,stime,value3,NumToStr(P3,0)+"이평");
Text_SetStyle(value32,2,1);
TL_SetColor(value31,PINK);
Text_SetColor(value32,PINK);
}
if DayClose(P4-1) > 0 then{
value4 = var4/P4;
TL_Delete(value41);
value41 = TL_New(sdate[1],stime[1],value4,sdate,stime,value4);
TL_SetExtRight(value41,true);
TL_SetExtLeft(value41,true);
Text_Delete(value42);
value42 = Text_New(sdate,stime,value4,NumToStr(P4,0)+"이평");
Text_SetStyle(value42,2,1);
TL_SetColor(value41,GREEN);
Text_SetColor(value42,GREEN);
}
if DayClose(P5-1) > 0 then{
value5 = var5/P5;
TL_Delete(value51);
value51 = TL_New(sdate[1],stime[1],value5,sdate,stime,value5);
TL_SetExtRight(value51,true);
TL_SetExtLeft(value51,true);
Text_Delete(value52);
value52 = Text_New(sdate,stime,value5,NumToStr(P5,0)+"이평");
Text_SetStyle(value52,2,1);
TL_SetColor(value51,RED);
Text_SetColor(value52,RED);
}
if DayClose(P6-1) > 0 then{
value6 = var6/P6;
TL_Delete(value61);
value61 = TL_New(sdate[1],stime[1],value6,sdate,stime,value6);
TL_SetExtRight(value61,true);
TL_SetExtLeft(value61,true);
Text_Delete(value62);
value62 = Text_New(sdate,stime,value6,NumToStr(P6,0)+"이평");
Text_SetStyle(value62,2,1);
TL_SetColor(value61,BLUE);
Text_SetColor(value62,BLUE);
}
if DayClose(P7-1) > 0 then{
value7 = var7/P7;
TL_Delete(value71);
value71 = TL_New(sdate[1],stime[1],value7,sdate,stime,value7);
TL_SetExtRight(value71,true);
TL_SetExtLeft(value71,true);
Text_Delete(value72);
value72 = Text_New(sdate,stime,value7,NumToStr(P7,0)+"이평");
Text_SetStyle(value72,2,1);
TL_SetColor(value71,CYAN);
Text_SetColor(value72,CYAN);
}
if DayClose(P8-1) > 0 then{
value8 = var8/P8;
TL_Delete(value81);
value81 = TL_New(sdate[1],stime[1],value8,sdate,stime,value8);
TL_SetExtRight(value81,true);
TL_SetExtLeft(value81,true);
Text_Delete(value82);
value82 = Text_New(sdate,stime,value8,NumToStr(P8,0)+"이평");
Text_SetStyle(value82,2,1);
TL_SetColor(value81,GRAY);
Text_SetColor(value82,GRAY);
}
if DayClose(P9-1) > 0 then{
value9 = var9/P9;
TL_Delete(value91);
value91 = TL_New(sdate[1],stime[1],value9,sdate,stime,value9);
TL_SetExtRight(value91,true);
TL_SetExtLeft(value91,true);
Text_Delete(value92);
value92 = Text_New(sdate,stime,value9,NumToStr(P9,0)+"이평");
Text_SetStyle(value92,2,1);
TL_SetColor(value91,YELLOW);
Text_SetColor(value92,YELLOW);
}
즐거운 하루되세요
> 커맨더 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 안녕하세요?
1. 당일 일봉차트의 5, 10, 20, 30, 60, 120, 240, 360, 480 이평선의 값을 60분봉 차트에
수평선으로 표시하고 수평선 좌측끝에 '5 이평'과 같은 이름 표시하기
1. 당일 일봉차트의 5, 10, 20, 30, 60, 120, 240, 360, 480 이평선의 값을 300틱 차트에
수평선으로 표시하고 수평선 좌측끝에 '5 이평'과 같은 이름 표시하기
각 수평선의 색깔: 5 이평선의 값(검정색)
10 이평선의 값(분홍색)
20 이평선의 값(주황색)
30 이평선의 값(녹색)
60 이평선의 값(빨강색)
120 이평선의 값(파랑색)
240 이평선의 값(하늘색)
360 이평선의 값(연두색)
480 이평선의 값(노랑색)
위의 내용을 구현하는 수식이 가능한지요? 가능하면 수식 부탁드립니다.
색깔은 제가 임의로 넣었습니다. 해당색이 없으면 겹치지 않게 다른색으로 해도 괜찮습니다.
감사합니다.
다음글