커뮤니티
수식 부탁드립니다.
2018-11-12 10:26:00
214
글번호 123557
#,안녕하세요
1,주봉차트상에서 당월 고,저점의 피보나치등분선을 오른쪽그리기로 표시하면 좋겠습니다
2,주봉차트상에서 전월 고,저점의 피보나치등분선을 오른쪽그리기로 표시하면 좋겠습니다.
(1,2,를 각각 별도수식으로 부탁드립니다)
4, 언제나 늘 고맙습니다.
답변 1
예스스탁 예스스탁 답변
2018-11-12 17:30:50
안녕하세요
예스스탁입니다.
1.
input : per1(23.6),per2(38.2),per3(50.0),per4(61.8),per5(76.4);
var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0);
var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0);
if bdate > bdate[1]+30 then
{
hh = h;
ll = l;
h1 = hh[1];
l1 = ll[1];
dd = sdate[1];
tt = stime[1];
d1 = dd[1];
t1 = tt[1];
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
tl1 = TL_New(dd,tt,hh,sdate,stime,hh);
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl7 = TL_New(dd,tt,ll,sdate,stime,ll);
}
if h > hh Then
{
hh = h;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
tl1 = TL_New(dd,tt,hh,sdate,stime,hh);
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl7 = TL_New(dd,tt,ll,sdate,stime,ll);
}
if l < ll Then
{
ll = l;
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
tl1 = TL_New(dd,tt,hh,sdate,stime,hh);
tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100));
tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100));
tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100));
tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100));
tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100));
tl7 = TL_New(dd,tt,ll,sdate,stime,ll);
}
TL_SetExtRight(tl1,true);
TL_SetExtRight(tl2,true);
TL_SetExtRight(tl3,true);
TL_SetExtRight(tl4,true);
TL_SetExtRight(tl5,true);
TL_SetExtRight(tl6,true);
TL_SetExtRight(tl7,true);
2
input : per1(23.6),per2(38.2),per3(50.0),per4(61.8),per5(76.4);
var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0);
var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0);
if bdate > bdate[1]+30 then
{
hh = h;
ll = l;
h1 = hh[1];
l1 = ll[1];
dd = sdate[1];
tt = stime[1];
d1 = dd[1];
t1 = tt[1];
TL_Delete(tl1);
TL_Delete(tl2);
TL_Delete(tl3);
TL_Delete(tl4);
TL_Delete(tl5);
TL_Delete(tl6);
TL_Delete(tl7);
if h1 > 0 and l1 > 0 then
{
tl1 = TL_New(dd,tt,h1,sdate,stime,h1);
tl2 = TL_New(dd,tt,h1-(h1-l1)*(per1/100),sdate,stime,h1-(h1-l1)*(per1/100));
tl3 = TL_New(dd,tt,h1-(h1-l1)*(per2/100),sdate,stime,h1-(h1-l1)*(per2/100));
tl4 = TL_New(dd,tt,h1-(h1-l1)*(per3/100),sdate,stime,h1-(h1-l1)*(per3/100));
tl5 = TL_New(dd,tt,h1-(h1-l1)*(per4/100),sdate,stime,h1-(h1-l1)*(per4/100));
tl6 = TL_New(dd,tt,h1-(h1-l1)*(per5/100),sdate,stime,h1-(h1-l1)*(per5/100));
tl7 = TL_New(dd,tt,l1,sdate,stime,l1);
}
}
if h > hh Then
{
hh = h;
}
if l < ll Then
{
ll = l;
}
TL_SetExtRight(tl1,true);
TL_SetExtRight(tl2,true);
TL_SetExtRight(tl3,true);
TL_SetExtRight(tl4,true);
TL_SetExtRight(tl5,true);
TL_SetExtRight(tl6,true);
TL_SetExtRight(tl7,true);
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다.
> #,안녕하세요
1,주봉차트상에서 당월 고,저점의 피보나치등분선을 오른쪽그리기로 표시하면 좋겠습니다
2,주봉차트상에서 전월 고,저점의 피보나치등분선을 오른쪽그리기로 표시하면 좋겠습니다.
(1,2,를 각각 별도수식으로 부탁드립니다)
4, 언제나 늘 고맙습니다.