커뮤니티
부탁드립니다.
2025-02-08 19:51:24
369
글번호 187953
1. 당일 최고가와 전일 최고가, 그리고 당일 최고가와 전전일 최고가를 각각 서로 연결한 우측 추세선을, 당일 최저가와 전일 최저가, 그리고 당일 최저가와 전전일 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
2. 당시간대(60분) 최고가와 전시간대 최고가, 그리고 당시간대 최고가와 전전시간대 최고가를 각각 서로 연결한 우측 추세선을, 당시간대 최저가와 전시간대 최저가, 그리고 당시간대 최저가와 전전시간대 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
2. 당월 최고가와 전월 최고가, 그리고 당일 최고가와 전전월 최고가를 각각 서로 연결한 우측 추세선을, 당월 최저가와 전월 최저가, 그리고 당월 최저가와 전전월 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
고맙습니다.
답변 1
예스스탁 예스스탁 답변
2025-02-10 15:49:32
안녕하세요
예스스탁입니다.
1
var : cnt(0),htl1(0),htl2(0),ltl1(0),ltl2(0);
Array : HD[10](0),HT[10](0),HH[10](0);
Array : LD[10](0),LT[10](0),LL[10](0);
if Bdate != Bdate[1] Then
{
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HH[cnt] = HH[cnt-1];
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LL[cnt] = LL[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HH[0] = H;
LD[0] = sDate;
LT[0] = sTime;
LL[0] = L;
if HH[1] > 0 Then
{
TL_Delete(htl1);
htl1 = TL_New(HD[1],HT[1],HH[1],HD[0],HT[0],HH[0]);
TL_SetColor(htl1,Red);
TL_SetSize(htl1,1);
TL_SetExtRight(htl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(htl2);
htl2 = TL_New(HD[2],HT[2],HH[2],HD[0],HT[0],HH[0]);
TL_SetColor(htl2,Red);
TL_SetSize(htl2,1);
TL_SetExtRight(htl2,true);
}
if LL[1] > 0 Then
{
TL_Delete(ltl1);
ltl1 = TL_New(LD[1],LT[1],LL[1],LD[0],LT[0],LL[0]);
TL_SetColor(ltl1,Blue);
TL_SetSize(ltl1,1);
TL_SetExtRight(ltl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(ltl2);
ltl2 = TL_New(LD[2],LT[2],LL[2],LD[0],LT[0],LL[0]);
TL_SetColor(ltl2,Blue);
TL_SetSize(ltl2,1);
TL_SetExtRight(ltl2,true);
}
}
Else
{
if HH[0] > 0 and H > HH[0] Then
{
HH[0] = H;
HD[0] = sDate;
HT[0] = sTime;
if HH[1] > 0 Then
{
TL_SetEnd(htl1,sDate,sTime,HH[0]);
}
if HH[2] > 0 Then
{
TL_SetEnd(htl2,sDate,sTime,HH[0]);
}
}
if LL[0] > 0 and L < LL[0] Then
{
LL[0] = L;
LD[0] = sDate;
LT[0] = sTime;
if LL[1] > 0 Then
{
TL_SetEnd(ltl1,sDate,sTime,LL[0]);
}
if LL[2] > 0 Then
{
TL_SetEnd(ltl2,sDate,sTime,LL[0]);
}
}
}
2
input : 타주기분(60);
var : s1(0),d1(0),tm(0),tf(0);
var : cnt(0),htl1(0),htl2(0),ltl1(0),ltl2(0);
Array : HD[10](0),HT[10](0),HH[10](0);
Array : LD[10](0),LT[10](0),LL[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;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HH[cnt] = HH[cnt-1];
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LL[cnt] = LL[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HH[0] = H;
LD[0] = sDate;
LT[0] = sTime;
LL[0] = L;
if HH[1] > 0 Then
{
TL_Delete(htl1);
htl1 = TL_New(HD[1],HT[1],HH[1],HD[0],HT[0],HH[0]);
TL_SetColor(htl1,Red);
TL_SetSize(htl1,1);
TL_SetExtRight(htl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(htl2);
htl2 = TL_New(HD[2],HT[2],HH[2],HD[0],HT[0],HH[0]);
TL_SetColor(htl2,Red);
TL_SetSize(htl2,1);
TL_SetExtRight(htl2,true);
}
if LL[1] > 0 Then
{
TL_Delete(ltl1);
ltl1 = TL_New(LD[1],LT[1],LL[1],LD[0],LT[0],LL[0]);
TL_SetColor(ltl1,Blue);
TL_SetSize(ltl1,1);
TL_SetExtRight(ltl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(ltl2);
ltl2 = TL_New(LD[2],LT[2],LL[2],LD[0],LT[0],LL[0]);
TL_SetColor(ltl2,Blue);
TL_SetSize(ltl2,1);
TL_SetExtRight(ltl2,true);
}
}
Else
{
if HH[0] > 0 and H > HH[0] Then
{
HH[0] = H;
HD[0] = sDate;
HT[0] = sTime;
if HH[1] > 0 Then
{
TL_SetEnd(htl1,sDate,sTime,HH[0]);
}
if HH[2] > 0 Then
{
TL_SetEnd(htl2,sDate,sTime,HH[0]);
}
}
if LL[0] > 0 and L < LL[0] Then
{
LL[0] = L;
LD[0] = sDate;
LT[0] = sTime;
if LL[1] > 0 Then
{
TL_SetEnd(ltl1,sDate,sTime,LL[0]);
}
if LL[2] > 0 Then
{
TL_SetEnd(ltl2,sDate,sTime,LL[0]);
}
}
}
}
3
var : cnt(0),htl1(0),htl2(0),ltl1(0),ltl2(0);
Array : HD[10](0),HT[10](0),HH[10](0);
Array : LD[10](0),LT[10](0),LL[10](0);
if Bdate > Bdate[1]+30 Then
{
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HH[cnt] = HH[cnt-1];
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LL[cnt] = LL[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HH[0] = H;
LD[0] = sDate;
LT[0] = sTime;
LL[0] = L;
if HH[1] > 0 Then
{
TL_Delete(htl1);
htl1 = TL_New(HD[1],HT[1],HH[1],HD[0],HT[0],HH[0]);
TL_SetColor(htl1,Red);
TL_SetSize(htl1,1);
TL_SetExtRight(htl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(htl2);
htl2 = TL_New(HD[2],HT[2],HH[2],HD[0],HT[0],HH[0]);
TL_SetColor(htl2,Red);
TL_SetSize(htl2,1);
TL_SetExtRight(htl2,true);
}
if LL[1] > 0 Then
{
TL_Delete(ltl1);
ltl1 = TL_New(LD[1],LT[1],LL[1],LD[0],LT[0],LL[0]);
TL_SetColor(ltl1,Blue);
TL_SetSize(ltl1,1);
TL_SetExtRight(ltl1,true);
}
if HH[2] > 0 Then
{
TL_Delete(ltl2);
ltl2 = TL_New(LD[2],LT[2],LL[2],LD[0],LT[0],LL[0]);
TL_SetColor(ltl2,Blue);
TL_SetSize(ltl2,1);
TL_SetExtRight(ltl2,true);
}
}
Else
{
if HH[0] > 0 and H > HH[0] Then
{
HH[0] = H;
HD[0] = sDate;
HT[0] = sTime;
if HH[1] > 0 Then
{
TL_SetEnd(htl1,sDate,sTime,HH[0]);
}
if HH[2] > 0 Then
{
TL_SetEnd(htl2,sDate,sTime,HH[0]);
}
}
if LL[0] > 0 and L < LL[0] Then
{
LL[0] = L;
LD[0] = sDate;
LT[0] = sTime;
if LL[1] > 0 Then
{
TL_SetEnd(ltl1,sDate,sTime,LL[0]);
}
if LL[2] > 0 Then
{
TL_SetEnd(ltl2,sDate,sTime,LL[0]);
}
}
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 1. 당일 최고가와 전일 최고가, 그리고 당일 최고가와 전전일 최고가를 각각 서로 연결한 우측 추세선을, 당일 최저가와 전일 최저가, 그리고 당일 최저가와 전전일 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
2. 당시간대(60분) 최고가와 전시간대 최고가, 그리고 당시간대 최고가와 전전시간대 최고가를 각각 서로 연결한 우측 추세선을, 당시간대 최저가와 전시간대 최저가, 그리고 당시간대 최저가와 전전시간대 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
2. 당월 최고가와 전월 최고가, 그리고 당일 최고가와 전전월 최고가를 각각 서로 연결한 우측 추세선을, 당월 최저가와 전월 최저가, 그리고 당월 최저가와 전전월 최저가를 각각 서로 연결한 우측 추세선을 계속하여 구현해 주세요
고맙습니다.