커뮤니티
부탁드립니다
2024-01-12 14:53:43
1107
글번호 175686
1. 20분마다 최고가와 최저가를 기준으로 피보나치를 우측으로 연장된 추세선으로 구현해 주세요
2. 20분마다 전전전 최고가와 전전 최고가, 전전전 최고가와 전 최고가, 그리고 전전 최고가와 전 최고가를 우측으로 연장하여 연결하는 추세선으로 구현해 주세요, 동시에 전전전 최저가와 전전 최저가, 전전전 최고가와 전 최저가, 그리고 전전 최저가와 전 최저가를 우측으로 연장하는 연결하는 추세선을 구현해 주세요
고맙습니다.
답변 1
예스스탁 예스스탁 답변
2024-01-15 10:33:54
안녕하세요
예스스탁입니다.
1
input : 분1(20);
input : Per1(100.0),Per2(76.4),Per3(61.8),Per4(50.0),Per5(38.2),Per6(23.6),Per7(0.0);
var : S1(0),D1(0),TM(0),TF1(0),cnt(0),DD(0),TT(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
Array : HH1[10](0),LL1[10](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
for cnt = 9 downto 1
{
HH1[cnt] = HH1[cnt-1];
LL1[cnt] = LL1[cnt-1];
}
DD = sDate;
TT = sTime;
HH1[0] = H;
LL1[0] = L;
var1 = HH1[0]-(HH1[0]-LL1[0])*(Per1/100);
var2 = HH1[0]-(HH1[0]-LL1[0])*(Per2/100);
var3 = HH1[0]-(HH1[0]-LL1[0])*(Per3/100);
var4 = HH1[0]-(HH1[0]-LL1[0])*(Per4/100);
var5 = HH1[0]-(HH1[0]-LL1[0])*(Per5/100);
var6 = HH1[0]-(HH1[0]-LL1[0])*(Per6/100);
var7 = HH1[0]-(HH1[0]-LL1[0])*(Per7/100);
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,var1,NextBarSdate,NextBarStime,var1);
TL2 = TL_New(DD,TT,var2,NextBarSdate,NextBarStime,var2);
TL3 = TL_New(DD,TT,var3,NextBarSdate,NextBarStime,var3);
TL4 = TL_New(DD,TT,var4,NextBarSdate,NextBarStime,var4);
TL5 = TL_New(DD,TT,var5,NextBarSdate,NextBarStime,var5);
TL6 = TL_New(DD,TT,var6,NextBarSdate,NextBarStime,var6);
TL7 = TL_New(DD,TT,var7,NextBarSdate,NextBarStime,var7);
TL_SetColor(TL1,Green);
TL_SetColor(TL2,Green);
TL_SetColor(TL3,Green);
TL_SetColor(TL4,Green);
TL_SetColor(TL5,Green);
TL_SetColor(TL6,Green);
TL_SetColor(TL7,Green);
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);
}
if H >= HH1[0] Then
{
HH1[0] = H;
}
if L <= LL1[0] Then
{
LL1[0] = L;
}
var1 = HH1[0]-(HH1[0]-LL1[0])*(Per1/100);
var2 = HH1[0]-(HH1[0]-LL1[0])*(Per2/100);
var3 = HH1[0]-(HH1[0]-LL1[0])*(Per3/100);
var4 = HH1[0]-(HH1[0]-LL1[0])*(Per4/100);
var5 = HH1[0]-(HH1[0]-LL1[0])*(Per5/100);
var6 = HH1[0]-(HH1[0]-LL1[0])*(Per6/100);
var7 = HH1[0]-(HH1[0]-LL1[0])*(Per7/100);
TL_SetBegin(TL1,DD,TT,var1);
TL_SetBegin(TL2,DD,TT,var2);
TL_SetBegin(TL3,DD,TT,var3);
TL_SetBegin(TL4,DD,TT,var4);
TL_SetBegin(TL5,DD,TT,var5);
TL_SetBegin(TL6,DD,TT,var6);
TL_SetBegin(TL7,DD,TT,var7);
TL_SetEnd(TL1,NextBarSdate,NextBarStime,var1);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,var2);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,var3);
TL_SetEnd(TL4,NextBarSdate,NextBarStime,var4);
TL_SetEnd(TL5,NextBarSdate,NextBarStime,var5);
TL_SetEnd(TL6,NextBarSdate,NextBarStime,var6);
TL_SetEnd(TL7,NextBarSdate,NextBarStime,var7);
}
2
input : 분1(20);
var : S1(0),D1(0),TM(0),TF1(0),cnt(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0);
Array : HH1[10](0),HD1[10](0),HT1[10](0),LL1[10](0),LD1[10](0),LT1[10](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF1 = TM%분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
for cnt = 9 downto 1
{
HH1[cnt] = HH1[cnt-1];
HD1[cnt] = HD1[cnt-1];
HT1[cnt] = HT1[cnt-1];
LL1[cnt] = LL1[cnt-1];
LD1[cnt] = LD1[cnt-1];
LT1[cnt] = LT1[cnt-1];
}
HH1[0] = H;
HD1[0] = sDate;
HT1[0] = sDate;
LL1[0] = L;
LD1[0] = sDate;
LT1[0] = sTime;
TL_Delete(TL1);
if HH1[3] > 0 Then
{
TL1 = TL_new(HD1[3],HT1[3],HH1[3],HD1[2],HT1[2],HH1[2]);
TL_SetColor(TL1,Red);
TL_SetExtRight(TL1,true);
}
TL_Delete(TL2);
if HH1[3] > 0 Then
{
TL2 = TL_new(HD1[3],HT1[3],HH1[3],HD1[1],HT1[1],HH1[1]);
TL_SetColor(TL2,Red);
TL_SetExtRight(TL2,true);
}
TL_Delete(TL3);
if HH1[2] > 0 Then
{
TL3 = TL_new(HD1[2],HT1[2],HH1[2],HD1[1],HT1[1],HH1[1]);
TL_SetColor(TL3,Red);
TL_SetExtRight(TL3,true);
}
TL_Delete(TL4);
if LL1[3] > 0 Then
{
TL4 = TL_new(LD1[3],LT1[3],LL1[3],LD1[2],LT1[2],LL1[2]);
TL_SetColor(TL4,Blue);
TL_SetExtRight(TL4,true);
}
TL_Delete(TL5);
if LL1[3] > 0 Then
{
TL5 = TL_new(LD1[3],LT1[3],LL1[3],LD1[1],LT1[1],LL1[1]);
TL_SetColor(TL5,Blue);
TL_SetExtRight(TL5,true);
}
TL_Delete(TL6);
if LL1[2] > 0 Then
{
TL6 = TL_new(LD1[2],LT1[2],LL1[2],LD1[1],LT1[1],LL1[1]);
TL_SetColor(TL6,Blue);
TL_SetExtRight(TL6,true);
}
}
if H >= HH1[0] Then
{
HH1[0] = H;
HD1[0] = sDate;
HT1[0] = sTime;
}
if L <= LL1[0] Then
{
LL1[0] = L;
LD1[0] = sDate;
LT1[0] = sTime;
}
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> 1. 20분마다 최고가와 최저가를 기준으로 피보나치를 우측으로 연장된 추세선으로 구현해 주세요
2. 20분마다 전전전 최고가와 전전 최고가, 전전전 최고가와 전 최고가, 그리고 전전 최고가와 전 최고가를 우측으로 연장하여 연결하는 추세선으로 구현해 주세요, 동시에 전전전 최저가와 전전 최저가, 전전전 최고가와 전 최저가, 그리고 전전 최저가와 전 최저가를 우측으로 연장하는 연결하는 추세선을 구현해 주세요
고맙습니다.
다음글
이전글