커뮤니티
지표 문의 드립니다
2014-10-27 12:24:13
163
글번호 79768
감사합니다
아래 수식은 예전에 작성해주신 추세선 지표입니다
1, 추세선을 여러개 사용하려 하는데
추세선이 겹치면 선이 보이지 않는데
추세선이 겹쳐도
선이 나타나게 부탁드립니다
2, 추세선을 적용하면 장시작시 차트가 바로 움직이지않고
몇십초 지나서 차트가 움직이는데
차트가 바로 움직이게 할수있으면 부탁드립니다
감사합니다
좋은하루 되세요
//////////////////////////////////////////////////////////
Input : P(3);
input : Size(1);
Input : R(100),G(0),B(0);
/////////////////////////////////////////////////////////////////////////////
var : cnt(0);
var : H1(0),H2(0),H3(0),H4(0),H5(0),H6(0),H7(0),H8(0),H9(0),H10(0);
var : L1(0),L2(0),L3(0),L4(0),L5(0),L6(0),L7(0),L8(0),L9(0),L10(0);
var : Hv(0),HD(0),HT(0);
var : Lv(0),LD(0),LT(0);
if date != date[1] Then{
HV = H;
HD = sdate;
HT = stime;
LV = L;
LD = sdate;
LT = stime;
}
if H > HV Then{
HV = H;
HD = sdate;
HT = stime;
}
if L < LV Then{
LV = L;
LD = sdate;
LT = stime;
}
var1 = NthHighestBar(1,H,P);
var2 = NthHighestBar(1,H,P*2);
var3 = NthHighestBar(1,H,P*3);
var4 = NthHighestBar(1,H,P*4);
var5 = NthHighestBar(1,H,P*5);
var6 = NthHighestBar(1,H,P*6);
var7 = NthHighestBar(1,H,P*7);
var8 = NthHighestBar(1,H,P*8);
var9 = NthHighestBar(1,H,P*9);
var10 = NthHighestBar(1,H,P*10);
var11 = NthLowestBar(1,L,P);
var12 = NthLowestBar(1,L,P*2);
var13 = NthLowestBar(1,L,P*3);
var14 = NthLowestBar(1,L,P*4);
var15 = NthLowestBar(1,L,P*5);
var16 = NthLowestBar(1,L,P*6);
var17 = NthLowestBar(1,L,P*7);
var18 = NthLowestBar(1,L,P*8);
var19 = NthLowestBar(1,L,P*9);
var20 = NthLowestBar(1,L,P*10);
////////////////////////////////////////////////////////////
TL_Delete(H1);
H1 = TL_New(HD,HT,HV,Sdate[var1],Stime[var1],H[var1]);
TL_SetExtRight(H1,true);
TL_SetColor(H1,RGB(R,G,B));
TL_SetSize(H1,Size);
TL_Delete(L1);
L1 = TL_New(LD,LT,LV,Sdate[var11],Stime[var11],L[var11]);
TL_SetExtRight(L1,true);
TL_SetColor(L1,RGB(B,G,R));
TL_SetSize(L1,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H2);
H2 = TL_New(HD,HT,HV,Sdate[var2],Stime[var2],H[var2]);
TL_SetExtRight(H2,true);
TL_SetColor(H2,RGB(R,G,B));
TL_SetSize(H2,Size);
TL_Delete(L2);
L2 = TL_New(LD,LT,LV,Sdate[var12],Stime[var12],L[var12]);
TL_SetExtRight(L2,true);
TL_SetColor(L2,RGB(B,G,R));
TL_SetSize(L2,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H3);
H3 = TL_New(HD,HT,HV,Sdate[var3],Stime[var3],H[var3]);
TL_SetExtRight(H3,true);
TL_SetColor(H3,RGB(R,G,B));
TL_SetSize(H3,Size);
TL_Delete(L3);
L3 = TL_New(LD,LT,LV,Sdate[var13],Stime[var13],L[var13]);
TL_SetExtRight(L3,true);
TL_SetColor(L3,RGB(B,G,R));
TL_SetSize(L3,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H4);
H4 = TL_New(HD,HT,HV,Sdate[var4],Stime[var4],H[var4]);
TL_SetExtRight(H4,true);
TL_SetColor(H4,RGB(R,G,B));
TL_SetSize(H4,Size);
TL_Delete(L4);
L4 = TL_New(LD,LT,LV,Sdate[var14],Stime[var14],L[var14]);
TL_SetExtRight(L4,true);
TL_SetColor(L4,RGB(B,G,R));
TL_SetSize(L4,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H5);
H5 = TL_New(HD,HT,HV,Sdate[var5],Stime[var5],H[var5]);
TL_SetExtRight(H5,true);
TL_SetColor(H5,RGB(R,G,B));
TL_SetSize(H5,Size);
TL_Delete(L5);
L5 = TL_New(LD,LT,LV,Sdate[var15],Stime[var15],L[var15]);
TL_SetExtRight(L5,true);
TL_SetColor(L5,RGB(B,G,R));
TL_SetSize(L5,Size);
////////////////////////////////////////////////////////////
TL_Delete(H6);
H6 = TL_New(HD,HT,HV,Sdate[var6],Stime[var6],H[var6]);
TL_SetExtRight(H6,true);
TL_SetColor(H6,RGB(R,G,B));
TL_SetSize(H6,Size);
TL_Delete(L6);
L6 = TL_New(LD,LT,LV,Sdate[var16],Stime[var16],L[var16]);
TL_SetExtRight(L6,true);
TL_SetColor(L6,RGB(B,G,R));
TL_SetSize(L6,Size);
////////////////////////////////////////////////////////////
TL_Delete(H7);
H7 = TL_New(HD,HT,HV,Sdate[var7],Stime[var7],H[var7]);
TL_SetExtRight(H7,true);
TL_SetColor(H7,RGB(R,G,B));
TL_SetSize(H7,Size);
TL_Delete(L7);
L7 = TL_New(LD,LT,LV,Sdate[var17],Stime[var17],L[var17]);
TL_SetExtRight(L7,true);
TL_SetColor(L7,RGB(B,G,R));
TL_SetSize(L7,Size);
////////////////////////////////////////////////////////////
TL_Delete(H8);
H8 = TL_New(HD,HT,HV,Sdate[var8],Stime[var8],H[var8]);
TL_SetExtRight(H8,true);
TL_SetColor(H8,RGB(R,G,B));
TL_SetSize(H8,Size);
TL_Delete(L8);
L8 = TL_New(LD,LT,LV,Sdate[var18],Stime[var18],L[var18]);
TL_SetExtRight(L8,true);
TL_SetColor(L8,RGB(B,G,R));
TL_SetSize(L8,Size);
////////////////////////////////////////////////////////////
TL_Delete(H9);
H9 = TL_New(HD,HT,HV,Sdate[var9],Stime[var9],H[var9]);
TL_SetExtRight(H9,true);
TL_SetColor(H9,RGB(R,G,B));
TL_SetSize(H9,Size);
TL_Delete(L9);
L9 = TL_New(LD,LT,LV,Sdate[var19],Stime[var19],L[var19]);
TL_SetExtRight(L9,true);
TL_SetColor(L9,RGB(B,G,R));
TL_SetSize(L9,Size);
////////////////////////////////////////////////////////////
TL_Delete(H10);
H10 = TL_New(HD,HT,HV,Sdate[var10],Stime[var10],H[var10]);
TL_SetExtRight(H10,true);
TL_SetColor(H10,RGB(R,G,B));
TL_SetSize(H10,Size);
TL_Delete(L10);
L10 = TL_New(LD,LT,LV,Sdate[var20],Stime[var20],L[var20]);
TL_SetExtRight(L10,true);
TL_SetColor(L10,RGB(B,G,R));
TL_SetSize(L10,Size);
답변 1
예스스탁 예스스탁 답변
2014-10-27 19:04:49
안녕하세요
예스스탁입니다.
문의하신 내용들은 수식안에서 처리가 되지 않습니다.
도움을 드리지 못해 죄송합니다.
1.
추세선이 겹치면 보이지 않는 부분은 따로 프로그램쪽에 건의를 하도록 하겠습니다.
2.
추세선은 봉완성시에 그려지게 됩니다.
차트에 시가가 수신되면 전일마지막봉이 완성되고
차트에 기존에 그려진 추세선을 지우고 새로 그리는 작업을 하게 됩니다.
해당 내용이 봉완성시때마다 수행이 됩니다.
작성하신 내용에 많은 루프를 계산을 합니다.
해당 부분은 따로 내용을 줄일만한 부분이 보이지 않습니다.
즐거운 하루되세요
> 감사1 님이 쓴 글입니다.
> 제목 : 지표 문의 드립니다
> 감사합니다
아래 수식은 예전에 작성해주신 추세선 지표입니다
1, 추세선을 여러개 사용하려 하는데
추세선이 겹치면 선이 보이지 않는데
추세선이 겹쳐도
선이 나타나게 부탁드립니다
2, 추세선을 적용하면 장시작시 차트가 바로 움직이지않고
몇십초 지나서 차트가 움직이는데
차트가 바로 움직이게 할수있으면 부탁드립니다
감사합니다
좋은하루 되세요
//////////////////////////////////////////////////////////
Input : P(3);
input : Size(1);
Input : R(100),G(0),B(0);
/////////////////////////////////////////////////////////////////////////////
var : cnt(0);
var : H1(0),H2(0),H3(0),H4(0),H5(0),H6(0),H7(0),H8(0),H9(0),H10(0);
var : L1(0),L2(0),L3(0),L4(0),L5(0),L6(0),L7(0),L8(0),L9(0),L10(0);
var : Hv(0),HD(0),HT(0);
var : Lv(0),LD(0),LT(0);
if date != date[1] Then{
HV = H;
HD = sdate;
HT = stime;
LV = L;
LD = sdate;
LT = stime;
}
if H > HV Then{
HV = H;
HD = sdate;
HT = stime;
}
if L < LV Then{
LV = L;
LD = sdate;
LT = stime;
}
var1 = NthHighestBar(1,H,P);
var2 = NthHighestBar(1,H,P*2);
var3 = NthHighestBar(1,H,P*3);
var4 = NthHighestBar(1,H,P*4);
var5 = NthHighestBar(1,H,P*5);
var6 = NthHighestBar(1,H,P*6);
var7 = NthHighestBar(1,H,P*7);
var8 = NthHighestBar(1,H,P*8);
var9 = NthHighestBar(1,H,P*9);
var10 = NthHighestBar(1,H,P*10);
var11 = NthLowestBar(1,L,P);
var12 = NthLowestBar(1,L,P*2);
var13 = NthLowestBar(1,L,P*3);
var14 = NthLowestBar(1,L,P*4);
var15 = NthLowestBar(1,L,P*5);
var16 = NthLowestBar(1,L,P*6);
var17 = NthLowestBar(1,L,P*7);
var18 = NthLowestBar(1,L,P*8);
var19 = NthLowestBar(1,L,P*9);
var20 = NthLowestBar(1,L,P*10);
////////////////////////////////////////////////////////////
TL_Delete(H1);
H1 = TL_New(HD,HT,HV,Sdate[var1],Stime[var1],H[var1]);
TL_SetExtRight(H1,true);
TL_SetColor(H1,RGB(R,G,B));
TL_SetSize(H1,Size);
TL_Delete(L1);
L1 = TL_New(LD,LT,LV,Sdate[var11],Stime[var11],L[var11]);
TL_SetExtRight(L1,true);
TL_SetColor(L1,RGB(B,G,R));
TL_SetSize(L1,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H2);
H2 = TL_New(HD,HT,HV,Sdate[var2],Stime[var2],H[var2]);
TL_SetExtRight(H2,true);
TL_SetColor(H2,RGB(R,G,B));
TL_SetSize(H2,Size);
TL_Delete(L2);
L2 = TL_New(LD,LT,LV,Sdate[var12],Stime[var12],L[var12]);
TL_SetExtRight(L2,true);
TL_SetColor(L2,RGB(B,G,R));
TL_SetSize(L2,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H3);
H3 = TL_New(HD,HT,HV,Sdate[var3],Stime[var3],H[var3]);
TL_SetExtRight(H3,true);
TL_SetColor(H3,RGB(R,G,B));
TL_SetSize(H3,Size);
TL_Delete(L3);
L3 = TL_New(LD,LT,LV,Sdate[var13],Stime[var13],L[var13]);
TL_SetExtRight(L3,true);
TL_SetColor(L3,RGB(B,G,R));
TL_SetSize(L3,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H4);
H4 = TL_New(HD,HT,HV,Sdate[var4],Stime[var4],H[var4]);
TL_SetExtRight(H4,true);
TL_SetColor(H4,RGB(R,G,B));
TL_SetSize(H4,Size);
TL_Delete(L4);
L4 = TL_New(LD,LT,LV,Sdate[var14],Stime[var14],L[var14]);
TL_SetExtRight(L4,true);
TL_SetColor(L4,RGB(B,G,R));
TL_SetSize(L4,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H5);
H5 = TL_New(HD,HT,HV,Sdate[var5],Stime[var5],H[var5]);
TL_SetExtRight(H5,true);
TL_SetColor(H5,RGB(R,G,B));
TL_SetSize(H5,Size);
TL_Delete(L5);
L5 = TL_New(LD,LT,LV,Sdate[var15],Stime[var15],L[var15]);
TL_SetExtRight(L5,true);
TL_SetColor(L5,RGB(B,G,R));
TL_SetSize(L5,Size);
////////////////////////////////////////////////////////////
TL_Delete(H6);
H6 = TL_New(HD,HT,HV,Sdate[var6],Stime[var6],H[var6]);
TL_SetExtRight(H6,true);
TL_SetColor(H6,RGB(R,G,B));
TL_SetSize(H6,Size);
TL_Delete(L6);
L6 = TL_New(LD,LT,LV,Sdate[var16],Stime[var16],L[var16]);
TL_SetExtRight(L6,true);
TL_SetColor(L6,RGB(B,G,R));
TL_SetSize(L6,Size);
////////////////////////////////////////////////////////////
TL_Delete(H7);
H7 = TL_New(HD,HT,HV,Sdate[var7],Stime[var7],H[var7]);
TL_SetExtRight(H7,true);
TL_SetColor(H7,RGB(R,G,B));
TL_SetSize(H7,Size);
TL_Delete(L7);
L7 = TL_New(LD,LT,LV,Sdate[var17],Stime[var17],L[var17]);
TL_SetExtRight(L7,true);
TL_SetColor(L7,RGB(B,G,R));
TL_SetSize(L7,Size);
////////////////////////////////////////////////////////////
TL_Delete(H8);
H8 = TL_New(HD,HT,HV,Sdate[var8],Stime[var8],H[var8]);
TL_SetExtRight(H8,true);
TL_SetColor(H8,RGB(R,G,B));
TL_SetSize(H8,Size);
TL_Delete(L8);
L8 = TL_New(LD,LT,LV,Sdate[var18],Stime[var18],L[var18]);
TL_SetExtRight(L8,true);
TL_SetColor(L8,RGB(B,G,R));
TL_SetSize(L8,Size);
////////////////////////////////////////////////////////////
TL_Delete(H9);
H9 = TL_New(HD,HT,HV,Sdate[var9],Stime[var9],H[var9]);
TL_SetExtRight(H9,true);
TL_SetColor(H9,RGB(R,G,B));
TL_SetSize(H9,Size);
TL_Delete(L9);
L9 = TL_New(LD,LT,LV,Sdate[var19],Stime[var19],L[var19]);
TL_SetExtRight(L9,true);
TL_SetColor(L9,RGB(B,G,R));
TL_SetSize(L9,Size);
////////////////////////////////////////////////////////////
TL_Delete(H10);
H10 = TL_New(HD,HT,HV,Sdate[var10],Stime[var10],H[var10]);
TL_SetExtRight(H10,true);
TL_SetColor(H10,RGB(R,G,B));
TL_SetSize(H10,Size);
TL_Delete(L10);
L10 = TL_New(LD,LT,LV,Sdate[var20],Stime[var20],L[var20]);
TL_SetExtRight(L10,true);
TL_SetColor(L10,RGB(B,G,R));
TL_SetSize(L10,Size);