커뮤니티
부탁드립니다
2024-01-18 00:29:13
776
글번호 175850
1. 매 20분마다 시가를 우측 연장 수평선으로 구현해 주세요
2. 매 20분마다 전시간대 최고가와 최저가를 기준으로 피보나치를 구현해 주세요
3. 파라볼릭 전전전 최고가, 전전 최고가, 전 최고가를 우측 수평 연장 추세선으로 구현해 주세요 동시에 전전전 최저가, 전전 최저가, 전 최저가를 우측 연장 추세선으로 구현해 주세요
고맙습니다.
답변 1
예스스탁 예스스탁 답변
2024-01-18 14:18:49
안녕하세요
예스스탁입니다.
1
input : 분1(20);
var : S1(0),D1(0),TM(0),TF1(0),TL(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
{
var1 = O;
TL_Delete(TL);
TL = TL_New(sDate,sTime,var1,NextBarSdate,NextBarStime,var1);
TL_SetColor(TL,Green);
TL_SetExtRight(TL,true);
}
}
2
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[1]-(HH1[1]-LL1[1])*(Per1/100);
var2 = HH1[1]-(HH1[1]-LL1[1])*(Per2/100);
var3 = HH1[1]-(HH1[1]-LL1[1])*(Per3/100);
var4 = HH1[1]-(HH1[1]-LL1[1])*(Per4/100);
var5 = HH1[1]-(HH1[1]-LL1[1])*(Per5/100);
var6 = HH1[1]-(HH1[1]-LL1[1])*(Per6/100);
var7 = HH1[1]-(HH1[1]-LL1[1])*(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;
}
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);
}
3
input : af(0.02),maxaf(0.2);
var : S(0),T(0),hh(0),ll(0);
var : htl(0),htl1(0),htl2(0),htl3(0);
var : ltl(0),ltl1(0),ltl2(0),ltl3(0);
Array : HH1[10](0),LL1[10](0);
S = Sar(af,maxaf);
Plot1(S,"파라볼릭",IFf(C>S,Red,Blue));
if CrossUp(C,S) then
{
T = 1;
hh = h;
htl = TL_New(sDate,sTime,hh,NextBarSdate,NextBarStime,hh);
TL_SetColor(htl,Red);
TL_SetExtRight(htl,true);
htl1 = htl[1];
htl2 = htl1[1];
htl3 = htl2[1];
TL_Delete(htl3);
}
if CrossDown(C,S) then
{
T = -1;
ll = l;
ltl = TL_New(sDate,sTime,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(ltl,Blue);
TL_SetExtRight(ltl,true);
ltl1 = ltl[1];
ltl2 = ltl1[1];
ltl3 = ltl2[1];
TL_Delete(ltl3);
}
if T == 1 Then
{
if h > hh Then
{
hh = h ;
TL_SetBegin(htl,sDate,sTime,hh);
TL_SetEnd(htl,NextBarSdate,NextBarStime,hh);
}
}
if T == -1 Then
{
if l < ll Then
{
ll = l ;
TL_SetBegin(ltl,sDate,sTime,ll);
TL_SetEnd(ltl,NextBarSdate,NextBarStime,ll);
}
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> 1. 매 20분마다 시가를 우측 연장 수평선으로 구현해 주세요
2. 매 20분마다 전시간대 최고가와 최저가를 기준으로 피보나치를 구현해 주세요
3. 파라볼릭 전전전 최고가, 전전 최고가, 전 최고가를 우측 수평 연장 추세선으로 구현해 주세요 동시에 전전전 최저가, 전전 최저가, 전 최저가를 우측 연장 추세선으로 구현해 주세요
고맙습니다.
다음글
이전글