커뮤니티
지표 부탁드립니다.
2024-02-28 19:12:19
1120
글번호 177049
안녕하세요
늘 감사드립니다.
아래의 지표는 삼각가중 고,저라인을 수평으로 그은지표 입니다.
부탁드릴것은 상향이든 하향이든 60틱 이상 나오는 고,저라인은 피보나치(23.6, 38.2, 50, 61.8,
76.4, )로 하고 60틱 이하는 그냥 고,저,중심 으로 3등분 부탁드립니다.
(틱수는 변수 ,선 굵기 조절 부탁드립니다.
고맙습니다.
input : P(20);
var : t(0);
var : hh(0),hd(0),ht(0),htl(0),htx(0);
var : ll(0),ld(0),lt(0),ltl(0),ltx(0);
Var : TLen1(0);
TLen1 = Ceiling((P + 1) * .5);
var1 = ma(ma(C, TLen1), TLen1);
if var1 > var1[1] Then
T = 1;
if var1 < var1[1] Then
T = -1;
Plot1(var1,"이평", iff(T==1,Magenta,Cyan));
if t == 1 Then
{
if t != t[1] Then
{
hd = sDate;
ht = sTime;
hh = h;
Htl = tl_new(hd,ht,hh,NextBarSdate,NextBarStime,hh);
TL_SetColor(htl,Blue);
TL_SetSize(htl,0);
htx = Text_New(NextBarSdate,NextBarStime,hh,NumToStr(hh,2));
Text_SetStyle(htx,0,1);
Text_SetColor(htx,Blue);
}
Else
{
if h > hh Then
{
hh = h;
}
}
TL_SetBegin(htl,hd,ht,hh);
TL_SetEnd(htl,NextBarSdate,NextBarStime,hh);
Text_SetString(htx,NumToStr(hh,2));
Text_SetLocation(htx,NextBarSdate,NextBarStime,hh);
}
if t == -1 Then
{
if t != t[1] Then
{
ld = sDate;
lt = sTime;
ll = l;
ltl = tl_new(ld,lt,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(ltl,Red);
TL_SetSize(ltl,0);
ltx = Text_New(NextBarSdate,NextBarStime,ll,NumToStr(ll,2));
Text_SetStyle(ltx,0,0);
Text_SetColor(ltx,Red);
}
Else
{
if l < ll Then
{
ll = l;
}
}
TL_SetBegin(ltl,ld,lt,ll);
TL_SetEnd(ltl,NextBarSdate,NextBarStime,ll);
Text_SetString(ltx,NumToStr(ll,2));
Text_SetLocation(ltx,NextBarSdate,NextBarStime,ll);
}
답변 1
예스스탁 예스스탁 답변
2024-02-29 14:31:09
안녕하세요
예스스탁입니다.
input : P(20),틱수(60);
input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4);
var : T(0),TLen1(0);
var : HD(0),HT(0),HV(0);
var : LD(0),LT(0),LV(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
TLen1 = Ceiling((P + 1) * .5);
var1 = ma(ma(C, TLen1), TLen1);
if var1 > var1[1] Then
T = 1;
if var1 < var1[1] Then
T = -1;
Plot1(var1,"이평", iff(T==1,Magenta,Cyan));
if T == 1 Then
{
if T != T[1] Then
{
HD = sDate;
HT = sTime;
HV = var1;
Condition1 = False;
if LV > 0 Then
{
value1 = LV+(HV-LV)*(Per1/100);
value2 = LV+(HV-LV)*(Per2/100);
value3 = LV+(HV-LV)*(Per3/100);
value4 = LV+(HV-LV)*(Per4/100);
value5 = LV+(HV-LV)*(Per5/100);
TL1 = TL_New(LD,LT,HV,NextBarSdate,NextBarStime,HV);
TL2 = TL_New(LD,LT,LV,NextBarSdate,NextBarStime,LV);
TL3 = TL_New(LD,LT,Value3,NextBarSdate,NextBarStime,Value3);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Blue);
TL_SetColor(TL3,Green);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetSize(TL3,1);
if Condition1 == False and HV > LV+PriceScale*틱수 Then
{
Condition1 = true;
TL4 = TL_New(LD,LT,Value1,NextBarSdate,NextBarStime,Value1);
TL5 = TL_New(LD,LT,Value2,NextBarSdate,NextBarStime,Value2);
TL6 = TL_New(LD,LT,Value4,NextBarSdate,NextBarStime,Value4);
TL7 = TL_New(LD,LT,Value5,NextBarSdate,NextBarStime,Value5);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
TL_SetColor(TL6,Magenta);
TL_SetColor(TL7,Magenta);
TL_SetSize(TL4,1);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,1);
}
}
}
Else
{
if var1 > HV[0] Then
{
HD = sDate;
HT = sTime;
HV = var1;
value1 = LV+(HV-LV)*(Per1/100);
value2 = LV+(HV-LV)*(Per2/100);
value3 = LV+(HV-LV)*(Per3/100);
value4 = LV+(HV-LV)*(Per4/100);
value5 = LV+(HV-LV)*(Per5/100);
TL_SetBegin(TL1,LD,LT,HV);
TL_SetBegin(TL2,LD,LT,LV);
TL_SetBegin(TL3,LD,LT,Value3);
if Condition1 == False Then
{
if HV > LV+PriceScale*틱수 Then
{
Condition1 = true;
TL4 = TL_New(LD,LT,Value1,NextBarSdate,NextBarStime,Value1);
TL5 = TL_New(LD,LT,Value2,NextBarSdate,NextBarStime,Value2);
TL6 = TL_New(LD,LT,Value4,NextBarSdate,NextBarStime,Value4);
TL7 = TL_New(LD,LT,Value5,NextBarSdate,NextBarStime,Value5);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
TL_SetColor(TL6,Magenta);
TL_SetColor(TL7,Magenta);
TL_SetSize(TL4,1);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,1);
}
}
Else
{
TL_SetBegin(TL4,LD,LT,value1);
TL_SetBegin(TL5,LD,LT,Value2);
TL_SetBegin(TL6,LD,LT,Value4);
TL_SetBegin(TL7,LD,LT,Value5);
}
}
TL_SetEnd(TL1,Sdate,Stime,HV);
TL_SetEnd(TL2,Sdate,Stime,LV);
TL_SetEnd(TL3,Sdate,Stime,Value3);
if Condition1 == true Then
{
TL_SetEnd(TL4,Sdate,Stime,value1);
TL_SetEnd(TL5,Sdate,Stime,Value2);
TL_SetEnd(TL6,Sdate,Stime,Value4);
TL_SetEnd(TL7,Sdate,Stime,Value5);
}
}
}
if T == -1 Then
{
if T != T[1] Then
{
LD = sDate;
LT = sTime;
LV = var1;
Condition1 = False;
if LV > 0 Then
{
value1 = LV+(HV-LV)*(Per1/100);
value2 = LV+(HV-LV)*(Per2/100);
value3 = LV+(HV-LV)*(Per3/100);
value4 = LV+(HV-LV)*(Per4/100);
value5 = LV+(HV-LV)*(Per5/100);
TL1 = TL_New(HD,HT,HV,NextBarSdate,NextBarStime,HV);
TL2 = TL_New(HD,HT,LV,NextBarSdate,NextBarStime,LV);
TL3 = TL_New(HD,HT,Value3,NextBarSdate,NextBarStime,Value3);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Blue);
TL_SetColor(TL3,Green);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetSize(TL3,1);
if Condition1 == False and HV > LV+PriceScale*틱수 Then
{
Condition1 = true;
TL4 = TL_New(HD,HT,Value1,NextBarSdate,NextBarStime,Value1);
TL5 = TL_New(HD,HT,Value2,NextBarSdate,NextBarStime,Value2);
TL6 = TL_New(HD,HT,Value4,NextBarSdate,NextBarStime,Value4);
TL7 = TL_New(HD,HT,Value5,NextBarSdate,NextBarStime,Value5);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
TL_SetColor(TL6,Magenta);
TL_SetColor(TL7,Magenta);
TL_SetSize(TL4,1);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,1);
}
}
}
Else
{
if var1 < LV Then
{
LD = sDate;
LT = sTime;
LV = var1;
value1 = LV+(HV-LV)*(Per1/100);
value2 = LV+(HV-LV)*(Per2/100);
value3 = LV+(HV-LV)*(Per3/100);
value4 = LV+(HV-LV)*(Per4/100);
value5 = LV+(HV-LV)*(Per5/100);
TL_SetBegin(TL1,HD,HT,HV);
TL_SetBegin(TL2,HD,HT,LV);
TL_SetBegin(TL3,HD,HT,Value3);
if Condition1 == False Then
{
if HV > LV+PriceScale*틱수 Then
{
Condition1 = true;
TL4 = TL_New(HD,HT,Value1,NextBarSdate,NextBarStime,Value1);
TL5 = TL_New(HD,HT,Value2,NextBarSdate,NextBarStime,Value2);
TL6 = TL_New(HD,HT,Value4,NextBarSdate,NextBarStime,Value4);
TL7 = TL_New(HD,HT,Value5,NextBarSdate,NextBarStime,Value5);
TL_SetColor(TL4,Cyan);
TL_SetColor(TL5,Cyan);
TL_SetColor(TL6,Magenta);
TL_SetColor(TL7,Magenta);
TL_SetSize(TL4,1);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,1);
}
}
Else
{
TL_SetBegin(TL4,HD,HT,value1);
TL_SetBegin(TL5,HD,HT,Value2);
TL_SetBegin(TL6,HD,HT,Value4);
TL_SetBegin(TL7,HD,HT,Value5);
}
}
TL_SetEnd(TL1,Sdate,Stime,HV);
TL_SetEnd(TL2,Sdate,Stime,LV);
TL_SetEnd(TL3,Sdate,Stime,Value3);
if Condition1 == true Then
{
TL_SetEnd(TL4,Sdate,Stime,value1);
TL_SetEnd(TL5,Sdate,Stime,Value2);
TL_SetEnd(TL6,Sdate,Stime,Value4);
TL_SetEnd(TL7,Sdate,Stime,Value5);
}
}
}
즐거운 하루되세요
> 라몬 님이 쓴 글입니다.
> 제목 : 지표 부탁드립니다.
> 안녕하세요
늘 감사드립니다.
아래의 지표는 삼각가중 고,저라인을 수평으로 그은지표 입니다.
부탁드릴것은 상향이든 하향이든 60틱 이상 나오는 고,저라인은 피보나치(23.6, 38.2, 50, 61.8,
76.4, )로 하고 60틱 이하는 그냥 고,저,중심 으로 3등분 부탁드립니다.
(틱수는 변수 ,선 굵기 조절 부탁드립니다.
고맙습니다.
input : P(20);
var : t(0);
var : hh(0),hd(0),ht(0),htl(0),htx(0);
var : ll(0),ld(0),lt(0),ltl(0),ltx(0);
Var : TLen1(0);
TLen1 = Ceiling((P + 1) * .5);
var1 = ma(ma(C, TLen1), TLen1);
if var1 > var1[1] Then
T = 1;
if var1 < var1[1] Then
T = -1;
Plot1(var1,"이평", iff(T==1,Magenta,Cyan));
if t == 1 Then
{
if t != t[1] Then
{
hd = sDate;
ht = sTime;
hh = h;
Htl = tl_new(hd,ht,hh,NextBarSdate,NextBarStime,hh);
TL_SetColor(htl,Blue);
TL_SetSize(htl,0);
htx = Text_New(NextBarSdate,NextBarStime,hh,NumToStr(hh,2));
Text_SetStyle(htx,0,1);
Text_SetColor(htx,Blue);
}
Else
{
if h > hh Then
{
hh = h;
}
}
TL_SetBegin(htl,hd,ht,hh);
TL_SetEnd(htl,NextBarSdate,NextBarStime,hh);
Text_SetString(htx,NumToStr(hh,2));
Text_SetLocation(htx,NextBarSdate,NextBarStime,hh);
}
if t == -1 Then
{
if t != t[1] Then
{
ld = sDate;
lt = sTime;
ll = l;
ltl = tl_new(ld,lt,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(ltl,Red);
TL_SetSize(ltl,0);
ltx = Text_New(NextBarSdate,NextBarStime,ll,NumToStr(ll,2));
Text_SetStyle(ltx,0,0);
Text_SetColor(ltx,Red);
}
Else
{
if l < ll Then
{
ll = l;
}
}
TL_SetBegin(ltl,ld,lt,ll);
TL_SetEnd(ltl,NextBarSdate,NextBarStime,ll);
Text_SetString(ltx,NumToStr(ll,2));
Text_SetLocation(ltx,NextBarSdate,NextBarStime,ll);
}
다음글
이전글