커뮤니티
질문 요청 드립니다.
2025-01-10 12:50:37
601
글번호 187077
^ 좋은 주말 되십시요.
* 전일 수정 수식 입니다.
* 타주기 5분봉 좀 부탁 드림니다.
즉 1분봉 차트에서 5분봉 지그 같이 보려고 합니다.
## 이하
## 강사님 수정 본
Input : af(0.005), maxAF(0.2);
var : t(0),tl(0),tl1(0),tl2(0),tx1(0),tx2(0),color(0);
var : hh(0),hd(0),ht(0),hh1(0),tl11(0);
var : ll(0),ld(0),lt(0),ll1(0),tl22(0);
var : ar(0),ad(0),aa(0),cnt(0),br(0),bd(0),bb(0);
Array : aTL[10](0),bTL[10](0);
var1 = SAR(af,maxAF);
if CrossUp(C,var1) Then
{
T = 1;
hh = var1;
hh1 = hh[1];
hd = sDate;
ht = sTime;
if ll > 0 Then
{
tl = TL_New(ld,lt,ll,hd,ht,hh);
tl1 = TL_New(hd,ht,hh,NextBarSdate,NextBarStime,hh);
tx1 = Text_New(sDate,sTime,hh,NumToStr(hh,2)+NewLine+"+"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetStyle(tx1,2,0);
if hh1 == 0 or (hh1 > 0 and hh < hh1) Then
color = Blue;
aD = 0;
if abs(hh-ll) > PriceScale*50 Then
{
aR = Floor(abs(hh-LL)/(PriceScale*50));
aa = hh;
For cnt = 1 to ar
{
if hh+(PriceScale*50)*cnt < LL Then
{
aD = aD+1;
aTL[aD] = TL_New(LD,LT,aa+(PriceScale*50)*cnt,HD,HT,aa+(PriceScale*50)*cnt);
}
}
}
}
}
else if CrossDown(C,var1) Then
{
T = -1;
ll = var1;
ll1 = ll[1];
ld = sDate;
lt = sTime;
if hh > 0 Then
{
tl = TL_New(hd,ht,hh,ld,lt,ll);
tl2 = TL_New(ld,lt,ll,NextBarSdate,NextBarStime,ll);
tx2 = Text_New(sDate,sTime,ll,NumToStr(ll,2)+NewLine+"-"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetStyle(tx2,2,0);
if ll1 == 0 or (ll1 > 0 and ll > ll1) Then
color = Red;
bD = 0;
if abs(hh-ll) > PriceScale*50 Then
{
bR = Floor(abs(hh-LL)/(PriceScale*50));
bb = ll;
For cnt = 1 to br
{
if ll-(PriceScale*50)*cnt > HH Then
{
bD = bD+1;
bTL[bD] = TL_New(HD,HT,bb-(PriceScale*50)*cnt,LD,LT,bb-(PriceScale*50)*cnt);
}
}
}
}
}
Else
{
if t == 1 then
{
TL_SetEnd(tl,hd,ht,hh);
TL_SetBegin(tl1,hd,ht,hh);
TL_SetEnd(tl11,Sdate[1],Stime[1],hh1);
Text_SetString(tx1,NumToStr(hh,2)+NewLine+"+"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetLocation(tx1,sDate,sTime,hh);
if (hh1 > 0 and hh > hh1) Then
color = Red;
}
if t == -1 then
{
TL_SetEnd(tl,ld,lt,ll);
TL_SetBegin(tl2,ld,lt,ll);
TL_SetEnd(tl22,Sdate[1],Stime[1],ll1);
Text_SetString(tx2,NumToStr(ll,2)+NewLine+"-"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetLocation(tx2,sDate,sTime,ll);
if (ll1 > 0 and ll < ll1) Then
color = Blue;
}
}
TL_SetEnd(tl1,NextBarSdate,NextBarStime,hh);
TL_SetEnd(tl2,NextBarSdate,NextBarStime,ll);
TL_SetColor(tl,color);
if abs(HH-LL) >= PriceScale*50 Then
TL_SetSize(tl,5);
Else
TL_SetSize(tl,2);
* 좋은 주말되십시요.
답변 1
예스스탁 예스스탁 답변
2025-01-10 15:15:05
안녕하세요
예스스탁입니다.
올려주신 수식에서는 파라볼릭값을 이용하는데
파라볼릭은 타주기 작성이 어렵습니다.
도움을 드리지 못해 죄송합니다.
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 질문 요청 드립니다.
> ^ 좋은 주말 되십시요.
* 전일 수정 수식 입니다.
* 타주기 5분봉 좀 부탁 드림니다.
즉 1분봉 차트에서 5분봉 지그 같이 보려고 합니다.
## 이하
## 강사님 수정 본
Input : af(0.005), maxAF(0.2);
var : t(0),tl(0),tl1(0),tl2(0),tx1(0),tx2(0),color(0);
var : hh(0),hd(0),ht(0),hh1(0),tl11(0);
var : ll(0),ld(0),lt(0),ll1(0),tl22(0);
var : ar(0),ad(0),aa(0),cnt(0),br(0),bd(0),bb(0);
Array : aTL[10](0),bTL[10](0);
var1 = SAR(af,maxAF);
if CrossUp(C,var1) Then
{
T = 1;
hh = var1;
hh1 = hh[1];
hd = sDate;
ht = sTime;
if ll > 0 Then
{
tl = TL_New(ld,lt,ll,hd,ht,hh);
tl1 = TL_New(hd,ht,hh,NextBarSdate,NextBarStime,hh);
tx1 = Text_New(sDate,sTime,hh,NumToStr(hh,2)+NewLine+"+"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetStyle(tx1,2,0);
if hh1 == 0 or (hh1 > 0 and hh < hh1) Then
color = Blue;
aD = 0;
if abs(hh-ll) > PriceScale*50 Then
{
aR = Floor(abs(hh-LL)/(PriceScale*50));
aa = hh;
For cnt = 1 to ar
{
if hh+(PriceScale*50)*cnt < LL Then
{
aD = aD+1;
aTL[aD] = TL_New(LD,LT,aa+(PriceScale*50)*cnt,HD,HT,aa+(PriceScale*50)*cnt);
}
}
}
}
}
else if CrossDown(C,var1) Then
{
T = -1;
ll = var1;
ll1 = ll[1];
ld = sDate;
lt = sTime;
if hh > 0 Then
{
tl = TL_New(hd,ht,hh,ld,lt,ll);
tl2 = TL_New(ld,lt,ll,NextBarSdate,NextBarStime,ll);
tx2 = Text_New(sDate,sTime,ll,NumToStr(ll,2)+NewLine+"-"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetStyle(tx2,2,0);
if ll1 == 0 or (ll1 > 0 and ll > ll1) Then
color = Red;
bD = 0;
if abs(hh-ll) > PriceScale*50 Then
{
bR = Floor(abs(hh-LL)/(PriceScale*50));
bb = ll;
For cnt = 1 to br
{
if ll-(PriceScale*50)*cnt > HH Then
{
bD = bD+1;
bTL[bD] = TL_New(HD,HT,bb-(PriceScale*50)*cnt,LD,LT,bb-(PriceScale*50)*cnt);
}
}
}
}
}
Else
{
if t == 1 then
{
TL_SetEnd(tl,hd,ht,hh);
TL_SetBegin(tl1,hd,ht,hh);
TL_SetEnd(tl11,Sdate[1],Stime[1],hh1);
Text_SetString(tx1,NumToStr(hh,2)+NewLine+"+"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetLocation(tx1,sDate,sTime,hh);
if (hh1 > 0 and hh > hh1) Then
color = Red;
}
if t == -1 then
{
TL_SetEnd(tl,ld,lt,ll);
TL_SetBegin(tl2,ld,lt,ll);
TL_SetEnd(tl22,Sdate[1],Stime[1],ll1);
Text_SetString(tx2,NumToStr(ll,2)+NewLine+"-"+NumToStr(abs(hh-ll)/PriceScale,0));
Text_SetLocation(tx2,sDate,sTime,ll);
if (ll1 > 0 and ll < ll1) Then
color = Blue;
}
}
TL_SetEnd(tl1,NextBarSdate,NextBarStime,hh);
TL_SetEnd(tl2,NextBarSdate,NextBarStime,ll);
TL_SetColor(tl,color);
if abs(HH-LL) >= PriceScale*50 Then
TL_SetSize(tl,5);
Else
TL_SetSize(tl,2);
* 좋은 주말되십시요.