^ 좋은 주말 되십시요.


  * 전일 수정 수식 입니다.

  * 타주기 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);





  

   *  좋은 주말되십시요.