선발생시 상승방향적색 과 하락방향청색 수치표시와 도형표시부탁드립니다

 Input:chngRate(1),d굵기(1),중간선d굵기(1);
input : Per1(0),Per2(23.6),Per3(38.2),Per4(50.0),Per5(61.8),Per6(76.4),Per7(100),Per8(123.6),Per9(161.8);
Var : jk(0),zlastHiVal(0),zlastLoVal(0),turnPntBit(""),zTL1(0),zTL2(0);
var : zTL11(0),zTL12(0),zTL13(0),zTL14(0),zTL15(0),zTL16(0),zTL17(0),zTL18(0),zTL19(0);
var : Tx11(0),Tx12(0),Tx13(0),Tx14(0),Tx15(0),Tx16(0),Tx17(0),Tx18(0),Tx19(0);
Array:valArr[10](0),barArr[10](0),turnPntArr[10]("");

For jk = 0 To 9 
{
      barArr[jk] = barArr[jk] + 1; 
}

Condition91 = Min(valArr[1],valArr[2]) * (1 + (chngRate/100)) < H and zlastHiVal < H;
Condition92 = Max(valArr[1],valArr[2]) * (1 - (chngRate/100)) > L and (zlastLoVal > L || zlastLoVal == 0);
If Condition91 Then { zlastHiVal = H;  zlastLoVal = 0; }
If Condition92 Then { zlastLoVal = L;  zlastHiVal = 0; }   

turnPntBit = "";

If Condition91 and Condition92 Then 
{
      If Max(valArr[1],valArr[2]) < H and Min(valArr[1],valArr[2]) > L Then 
            turnPntBit = "HiLo";
      Else If Max(valArr[1],valArr[2]) < H Then turnPntBit = "Hi";
      Else If Min(valArr[1],valArr[2]) > L Then turnPntBit = "Lo";
}
Else If Condition91 Then turnPntBit = "Hi";
Else If Condition92 Then turnPntBit = "Lo";

If turnPntBit <> "" Then 
{
      If turnPntBit == "HiLo" Then
      {
            valArr[1] = IFF(turnPntArr[1] == "Hi",H,L);
            barArr[1] = 0;
            TL_SetEnd(zTL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
            If turnPntArr[1] == "Hi" Then 
                  turnPntBit = "Lo";
            Else   
                  turnPntBit = "Hi";
      }

      If turnPntBit <> turnPntArr[1] Then 
      {
            for jk = 8 downto 1 
            {
              valArr[jk+1] = valArr[jk];
              barArr[jk+1] = barArr[jk];
              turnPntArr[jk+1] = turnPntArr[jk];
            }
      }
var: Text글11(0);
      If turnPntBit <> turnPntArr[1] or
            (turnPntBit == turnPntArr[1] and
            ((turnPntBit == "Hi" and valArr[1] < H) or
            (turnPntBit == "Lo" and valArr[1] > L))) Then 
      { 
            valArr[1] = IFF(turnPntBit == "Hi",H,L);
            barArr[1] = 0;
            turnPntArr[1] = turnPntBit;

            If turnPntArr[1][1] <> turnPntArr[1][0] Then
            {
                zTL1 = TL_New(sDate[barArr[2]],sTime[barArr[2]],valArr[2],sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
                Text글11 = text_New(sdate,stime,Value12,"매수 ▲▲▲"+NumToSTr(Value12,2));
                 value61 =  valArr[2]-valArr[3];
                  
            }
      }




}


      value61 =  valArr[2]-valArr[3];
      TL_SetEnd(zTL1,sDate[barArr[1]],sTime[barArr[1]],valArr[1]);
      

TL_SetSize(zTL1,d굵기);
TL_SetColor(zTL1,black);