커뮤니티
부탁드립니다
2014-10-27 15:16:42
189
글번호 79779
아래의 지표는 선생님께서 만드신 지표입니다.
아래의 지표에서 추세선이 상승각도이면 빨강선으로 ,추세선이 하락각도이면 파랑선으로
표시되도록 부탁합니다..선굵기도 조절이 되면 굵었으면 합니다....
//////////////////////////////////////////////////////////
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:16:44
안녕하세요
예스스탁입니다.
//////////////////////////////////////////////////////////
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);
if H[var1] > HV Then
TL_SetColor(H1,RED);
Else
TL_SetColor(H1,BLUE);
TL_SetSize(H1,Size);
TL_Delete(L1);
L1 = TL_New(LD,LT,LV,Sdate[var11],Stime[var11],L[var11]);
TL_SetExtRight(L1,true);
if L[var11] > LV Then
TL_SetColor(L1,red);
Else
TL_SetColor(L1,blue);
TL_SetSize(L1,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H2);
H2 = TL_New(HD,HT,HV,Sdate[var2],Stime[var2],H[var2]);
TL_SetExtRight(H2,true);
if H[var2] > HV Then
TL_SetColor(H2,RED);
Else
TL_SetColor(H2,BLUE);
TL_SetSize(H2,Size);
TL_Delete(L2);
L2 = TL_New(LD,LT,LV,Sdate[var12],Stime[var12],L[var12]);
TL_SetExtRight(L2,true);
if L[var12] > LV Then
TL_SetColor(L2,red);
Else
TL_SetColor(L2,blue);
TL_SetSize(L2,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H3);
H3 = TL_New(HD,HT,HV,Sdate[var3],Stime[var3],H[var3]);
TL_SetExtRight(H3,true);
if H[var3] > HV Then
TL_SetColor(H3,RED);
Else
TL_SetColor(H3,BLUE);
TL_SetSize(H3,Size);
TL_Delete(L3);
L3 = TL_New(LD,LT,LV,Sdate[var13],Stime[var13],L[var13]);
TL_SetExtRight(L3,true);
if L[var13] > LV Then
TL_SetColor(L3,red);
Else
TL_SetColor(L3,blue);
TL_SetSize(L3,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H4);
H4 = TL_New(HD,HT,HV,Sdate[var4],Stime[var4],H[var4]);
TL_SetExtRight(H4,true);
if H[var4] > HV Then
TL_SetColor(H4,RED);
Else
TL_SetColor(H4,BLUE);
TL_SetSize(H4,Size);
TL_Delete(L4);
L4 = TL_New(LD,LT,LV,Sdate[var14],Stime[var14],L[var14]);
TL_SetExtRight(L4,true);
if L[var14] > LV Then
TL_SetColor(L4,red);
Else
TL_SetColor(L4,blue);;
TL_SetSize(L4,Size);
////////////////////////////////////////////////////////////////
TL_Delete(H5);
H5 = TL_New(HD,HT,HV,Sdate[var5],Stime[var5],H[var5]);
TL_SetExtRight(H5,true);
if H[var5] > HV Then
TL_SetColor(H5,RED);
Else
TL_SetColor(H5,BLUE);
TL_SetSize(H5,Size);
TL_Delete(L5);
L5 = TL_New(LD,LT,LV,Sdate[var15],Stime[var15],L[var15]);
TL_SetExtRight(L5,true);
if L[var15] > LV Then
TL_SetColor(L5,red);
Else
TL_SetColor(L5,blue);
TL_SetSize(L5,Size);
////////////////////////////////////////////////////////////
TL_Delete(H6);
H6 = TL_New(HD,HT,HV,Sdate[var6],Stime[var6],H[var6]);
TL_SetExtRight(H6,true);
if H[var6] > HV Then
TL_SetColor(H6,RED);
Else
TL_SetColor(H6,BLUE);
TL_SetSize(H6,Size);
TL_Delete(L6);
L6 = TL_New(LD,LT,LV,Sdate[var16],Stime[var16],L[var16]);
TL_SetExtRight(L6,true);
if L[var16] > LV Then
TL_SetColor(L6,red);
Else
TL_SetColor(L6,blue);
TL_SetSize(L6,Size);
////////////////////////////////////////////////////////////
TL_Delete(H7);
H7 = TL_New(HD,HT,HV,Sdate[var7],Stime[var7],H[var7]);
TL_SetExtRight(H7,true);
if H[var7] > HV Then
TL_SetColor(H7,RED);
Else
TL_SetColor(H7,BLUE);
TL_SetSize(H7,Size);
TL_Delete(L7);
L7 = TL_New(LD,LT,LV,Sdate[var17],Stime[var17],L[var17]);
TL_SetExtRight(L7,true);
if L[var17] > LV Then
TL_SetColor(L7,red);
Else
TL_SetColor(L7,blue);
TL_SetSize(L7,Size);
////////////////////////////////////////////////////////////
TL_Delete(H8);
H8 = TL_New(HD,HT,HV,Sdate[var8],Stime[var8],H[var8]);
TL_SetExtRight(H8,true);
if H[var8] > HV Then
TL_SetColor(H8,RED);
Else
TL_SetColor(H8,BLUE);
TL_SetSize(H8,Size);
TL_Delete(L8);
L8 = TL_New(LD,LT,LV,Sdate[var18],Stime[var18],L[var18]);
TL_SetExtRight(L8,true);
if L[var18] > LV Then
TL_SetColor(L8,red);
Else
TL_SetColor(L8,blue);
TL_SetSize(L8,Size);
////////////////////////////////////////////////////////////
TL_Delete(H9);
H9 = TL_New(HD,HT,HV,Sdate[var9],Stime[var9],H[var9]);
TL_SetExtRight(H9,true);
if H[var9] > HV Then
TL_SetColor(H9,RED);
Else
TL_SetColor(H9,BLUE);;
TL_SetSize(H9,Size);
TL_Delete(L9);
L9 = TL_New(LD,LT,LV,Sdate[var19],Stime[var19],L[var19]);
TL_SetExtRight(L9,true);
if L[var19] > LV Then
TL_SetColor(L9,red);
Else
TL_SetColor(L9,blue);;
TL_SetSize(L9,Size);
////////////////////////////////////////////////////////////
TL_Delete(H10);
H10 = TL_New(HD,HT,HV,Sdate[var10],Stime[var10],H[var10]);
TL_SetExtRight(H10,true);
if H[var10] > HV Then
TL_SetColor(H10,RED);
Else
TL_SetColor(H10,BLUE);
TL_SetSize(H10,Size);
TL_Delete(L10);
L10 = TL_New(LD,LT,LV,Sdate[var20],Stime[var20],L[var20]);
TL_SetExtRight(L10,true);
if L[var20] > LV Then
TL_SetColor(L10,red);
Else
TL_SetColor(L10,blue);
TL_SetSize(L10,Size);
즐거운 하루되세요
> 오동도물개 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> 아래의 지표는 선생님께서 만드신 지표입니다.
아래의 지표에서 추세선이 상승각도이면 빨강선으로 ,추세선이 하락각도이면 파랑선으로
표시되도록 부탁합니다..선굵기도 조절이 되면 굵었으면 합니다....
//////////////////////////////////////////////////////////
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);