커뮤니티
피보나치 폭 위치
2024-02-21 19:26:54
939
글번호 176862
input : Per2(38.2),Per3(50.0),Per4(61.8);
var : HH(0),LL(0),D1(0),T1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),tx(0);
Plot1 (c);
if sDate >= CurrentDate and sTime >= 103000 Then
{
Condition1 = True;
if hh == 0 or (hh > 0 and h > hh) Then
hh = h;
if ll == 0 or (ll > 0 and L < ll) Then
ll = l;
var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100));
var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100));
var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100));
if Condition1[1] == False Then
{
D1 = sDate;
T1 = sTime;
TL1 = TL_New_Self(D1,T1,HH,NextBarSdate,NextBarStime,HH);
TL3 = TL_New_Self(D1,T1,var2,NextBarSdate,NextBarStime,var2);
TL4 = TL_New_Self(D1,T1,var3,NextBarSdate,NextBarStime,var3);
TL5 = TL_New_Self(D1,T1,var4,NextBarSdate,NextBarStime,var4);
TL7 = TL_New_Self(D1,T1,LL,NextBarSdate,NextBarStime,LL);
TL_SetSize(TL4,2);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL3,Orange);
TL_SetColor(TL4,Gold);
TL_SetColor(TL5,Orange);
TL_SetColor(TL7,Green);
TX = Text_New_Self(sDate,sTime,HH,NumToStr(HH-LL,2));
Text_SetStyle(tx,2,1);
Text_SetSize(tx,25);
Text_SetColor(tx,Magenta);
Text_SetBold(tx,1);
}
Else
{
TL_SetBegin(TL1,D1,T1,HH);
TL_SetBegin(TL3,D1,T1,Var2);
TL_SetBegin(TL4,D1,T1,Var3);
TL_SetBegin(TL5,D1,T1,Var4);
TL_SetBegin(TL7,D1,T1,LL);
TL_SetEnd(TL1,Sdate,Stime,HH);
TL_SetEnd(TL3,Sdate,Stime,Var2);
TL_SetEnd(TL4,Sdate,Stime,Var3);
TL_SetEnd(TL5,Sdate,Stime,Var4);
TL_SetEnd(TL7,Sdate,Stime,LL);
Text_SetString(TX,NumToStr(HH-LL,2));
Text_SetLocation(TX,D1,T1,HH);
}
}
text 표기 위치를, 왼쪽 상단에서 고점을 따라가며 최고점 상단으로 수정. 감사합니다.
답변 1
예스스탁 예스스탁 답변
2024-02-22 12:59:25
안녕하세요
예스스탁입니다.
input : Per2(38.2),Per3(50.0),Per4(61.8);
var : HH(0),LL(0),D1(0),T1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),tx(0);
Plot1 (c);
if sDate >= CurrentDate and sTime >= 103000 Then
{
Condition1 = True;
if hh == 0 or (hh > 0 and h > hh) Then
hh = h;
if ll == 0 or (ll > 0 and L < ll) Then
ll = l;
var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100));
var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100));
var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100));
if Condition1[1] == False Then
{
D1 = sDate;
T1 = sTime;
TL1 = TL_New_Self(D1,T1,HH,NextBarSdate,NextBarStime,HH);
TL3 = TL_New_Self(D1,T1,var2,NextBarSdate,NextBarStime,var2);
TL4 = TL_New_Self(D1,T1,var3,NextBarSdate,NextBarStime,var3);
TL5 = TL_New_Self(D1,T1,var4,NextBarSdate,NextBarStime,var4);
TL7 = TL_New_Self(D1,T1,LL,NextBarSdate,NextBarStime,LL);
TL_SetSize(TL4,2);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL3,Orange);
TL_SetColor(TL4,Gold);
TL_SetColor(TL5,Orange);
TL_SetColor(TL7,Green);
TX = Text_New_Self(sDate,sTime,HH,NumToStr(HH-LL,2));
Text_SetStyle(tx,2,1);
Text_SetSize(tx,25);
Text_SetColor(tx,Magenta);
Text_SetBold(tx,1);
}
Else
{
TL_SetBegin(TL1,D1,T1,HH);
TL_SetBegin(TL3,D1,T1,Var2);
TL_SetBegin(TL4,D1,T1,Var3);
TL_SetBegin(TL5,D1,T1,Var4);
TL_SetBegin(TL7,D1,T1,LL);
TL_SetEnd(TL1,Sdate,Stime,HH);
TL_SetEnd(TL3,Sdate,Stime,Var2);
TL_SetEnd(TL4,Sdate,Stime,Var3);
TL_SetEnd(TL5,Sdate,Stime,Var4);
TL_SetEnd(TL7,Sdate,Stime,LL);
Text_SetString(TX,NumToStr(HH-LL,2));
Text_SetLocation(TX,sDate,sTime,HH);
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 피보나치 폭 위치
> input : Per2(38.2),Per3(50.0),Per4(61.8);
var : HH(0),LL(0),D1(0),T1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),tx(0);
Plot1 (c);
if sDate >= CurrentDate and sTime >= 103000 Then
{
Condition1 = True;
if hh == 0 or (hh > 0 and h > hh) Then
hh = h;
if ll == 0 or (ll > 0 and L < ll) Then
ll = l;
var2 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per2/100));
var3 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per3/100));
var4 = 10^(LOG10(HH)-(LOG10(HH)-LOG10(LL))*(Per4/100));
if Condition1[1] == False Then
{
D1 = sDate;
T1 = sTime;
TL1 = TL_New_Self(D1,T1,HH,NextBarSdate,NextBarStime,HH);
TL3 = TL_New_Self(D1,T1,var2,NextBarSdate,NextBarStime,var2);
TL4 = TL_New_Self(D1,T1,var3,NextBarSdate,NextBarStime,var3);
TL5 = TL_New_Self(D1,T1,var4,NextBarSdate,NextBarStime,var4);
TL7 = TL_New_Self(D1,T1,LL,NextBarSdate,NextBarStime,LL);
TL_SetSize(TL4,2);
TL_SetColor(TL1,Magenta);
TL_SetColor(TL3,Orange);
TL_SetColor(TL4,Gold);
TL_SetColor(TL5,Orange);
TL_SetColor(TL7,Green);
TX = Text_New_Self(sDate,sTime,HH,NumToStr(HH-LL,2));
Text_SetStyle(tx,2,1);
Text_SetSize(tx,25);
Text_SetColor(tx,Magenta);
Text_SetBold(tx,1);
}
Else
{
TL_SetBegin(TL1,D1,T1,HH);
TL_SetBegin(TL3,D1,T1,Var2);
TL_SetBegin(TL4,D1,T1,Var3);
TL_SetBegin(TL5,D1,T1,Var4);
TL_SetBegin(TL7,D1,T1,LL);
TL_SetEnd(TL1,Sdate,Stime,HH);
TL_SetEnd(TL3,Sdate,Stime,Var2);
TL_SetEnd(TL4,Sdate,Stime,Var3);
TL_SetEnd(TL5,Sdate,Stime,Var4);
TL_SetEnd(TL7,Sdate,Stime,LL);
Text_SetString(TX,NumToStr(HH-LL,2));
Text_SetLocation(TX,D1,T1,HH);
}
}
text 표기 위치를, 왼쪽 상단에서 고점을 따라가며 최고점 상단으로 수정. 감사합니다.