커뮤니티
부탁드립니다
2024-02-06 09:01:54
581
글번호 176435
1. 현재 종가를 기준으로 4시간전 최고가와 최저가, 그리고 1시간전 최고가, 최저가, 시가, 종가와 현시간대 시가를 우측 추세선으로 구현해 주세요
2. 현재 종가를 기준으로 8시간전 최고가와 최저가, 6시간전 최고가와 최저가, 그리고 3시간전 최고가와 최저가를 우측 추세선으로 구현해 주세요
3. 종가가 이평 50일선 위로 올랐다가 50일선 아래로 내려가면 직전 최고가를 기준으로 우측 추세선으로, 종가가 이평 50일선 아래로 내려갔다가 위로 올라가면 직전 최저가를 기준으로 우측 추세선으로 구현해 주세요
고맙습니다.
답변 1
예스스탁 예스스탁 답변
2024-02-06 11:32:14
안녕하세요
예스스탁입니다.
1
input : ntime1(60);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
Array : hh[50](0),LL[50](0),OO[50](0),CC[50](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or
(Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then
{
For cnt = 49 DownTo 1
{
OO[cnt] = OO[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
CC[cnt] = CC[cnt-1];
}
OO[0] = O;
hh[0] = h;
LL[0] = l;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL1 = TL_new(sDate,stime,HH[8],NextBarSdate,NextBarStime,HH[8]);
TL2 = TL_new(sDate,stime,LL[8],NextBarSdate,NextBarStime,LL[8]);
TL3 = TL_new(sDate,stime,HH[1],NextBarSdate,NextBarStime,HH[1]);
TL4 = TL_new(sDate,stime,LL[1],NextBarSdate,NextBarStime,LL[1]);
TL5 = TL_new(sDate,stime,OO[1],NextBarSdate,NextBarStime,OO[1]);
TL6 = TL_new(sDate,stime,CC[1],NextBarSdate,NextBarStime,CC[1]);
TL7 = TL_new(sDate,stime,OO[0],NextBarSdate,NextBarStime,OO[0]);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Red);
TL_SetColor(TL3,Blue);
TL_SetColor(TL4,Blue);
TL_SetColor(TL5,Blue);
TL_SetColor(TL6,Blue);
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 HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
}
2
input : ntime1(60);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0);
Array : hh[50](0),LL[50](0),OO[50](0),CC[50](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime1 > 1 and TM >= TM[1]+ntime1) or
(Bdate == Bdate[1] and ntime1 == 1 and TM > TM[1]) Then
{
For cnt = 49 DownTo 1
{
OO[cnt] = OO[cnt-1];
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
CC[cnt] = CC[cnt-1];
}
OO[0] = O;
hh[0] = h;
LL[0] = l;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL1 = TL_new(sDate,stime,HH[8],NextBarSdate,NextBarStime,HH[8]);
TL2 = TL_new(sDate,stime,LL[8],NextBarSdate,NextBarStime,LL[8]);
TL3 = TL_new(sDate,stime,HH[6],NextBarSdate,NextBarStime,HH[6]);
TL4 = TL_new(sDate,stime,LL[6],NextBarSdate,NextBarStime,LL[6]);
TL5 = TL_new(sDate,stime,OO[3],NextBarSdate,NextBarStime,OO[3]);
TL6 = TL_new(sDate,stime,CC[3],NextBarSdate,NextBarStime,CC[3]);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Red);
TL_SetColor(TL3,Blue);
TL_SetColor(TL4,Blue);
TL_SetColor(TL5,Green);
TL_SetColor(TL6,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);
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
CC[0] = C;
}
3
var : TL(0),T(0),HH(0),LL(0);
var1 = ma(C,50);
Plot1(var1);
if CrossUp(c,var1) Then
{
T = 1;
HH = h;
TL = TL_New(sdate,sTime,LL,NextBarSdate,NextBarStime,LL);
TL_SetColor(TL,Blue);
}
if CrossDown(c,var1) Then
{
T = -1;
LL = l;
TL = TL_New(sdate,sTime,HH,NextBarSdate,NextBarStime,HH);
TL_SetColor(TL,Red);
}
if T == 1 Then
{
if h > HH Then
HH = h;
TL_SetEnd(TL,NextBarSdate,NextBarStime,LL);
}
if T == -1 Then
{
if l < LL Then
LL = l;
TL_SetEnd(TL,NextBarSdate,NextBarStime,HH);
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> 1. 현재 종가를 기준으로 4시간전 최고가와 최저가, 그리고 1시간전 최고가, 최저가, 시가, 종가와 현시간대 시가를 우측 추세선으로 구현해 주세요
2. 현재 종가를 기준으로 8시간전 최고가와 최저가, 6시간전 최고가와 최저가, 그리고 3시간전 최고가와 최저가를 우측 추세선으로 구현해 주세요
3. 종가가 이평 50일선 위로 올랐다가 50일선 아래로 내려가면 직전 최고가를 기준으로 우측 추세선으로, 종가가 이평 50일선 아래로 내려갔다가 위로 올라가면 직전 최저가를 기준으로 우측 추세선으로 구현해 주세요
고맙습니다.
이전글