예스스탁 | 전략 설계부터 자동매매까지

커뮤니티

input : Period(10); Var:선두께(1),상승색(red), 하락색(blue); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 빨강 Text_SetColor(Tx,Green); Text_SetStyle(Tx,2,2); Text_SetSize(tx,7); //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine); //Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]); #TL_SetColor(TL2[1],RED); #TL_SetStyle(TL2[1], 3); #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]); #TL_SetColor(TL2[2],RED); #TL_SetSize(TL2[2],1); #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx2[2],BWHITE); #Text_SetStyle(TX2[2],1,1); #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]); #TL_SetColor(TL2[3],RED); #TL_SetStyle(TL2[3], 3); #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]); #TL_SetColor(TL2[4],RED); #TL_SetSize(TL2[4],1); #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx2[4],BWHITE); #Text_SetStyle(TX2[4],1,0); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 파랑 Text_SetColor(Tx1,Green); Text_SetStyle(Tx1,2,2); Text_SetSize(tx1,7); //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2)); //Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } TL_SetSize(TL1,선두께); //TL_SetEnd(tl,NextBarSdate,NextBarStime,NextBarOpen); 양선에 매수,음선에 매도. 감사합니다.

시스템

답변 1

예스스탁 예스스탁 답변

2022-10-21 10:55:16

안녕하세요
예스스탁입니다.

문의하신 내용이 고점과 저점 꼭지점이면 수식으로 가능하지 않습니다.
후행적으로 연결되는 내용입니다.
양선/음선이 판단되는 첫봉에서 신호가 발생합니다.


input : Period(10);
Var:선두께(1),상승색(red), 하락색(blue);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
     date21(0),date22(0),time21(0),time22(0),
     date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/;
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);

r[0] = 0;
r[1] = 2;
r[2] = 3.;
r[3] = -1;
r[4] = -2.;
r[5] = 1;
r[6] = 0.5;

For j = 0 To 19
{
     HiBar[j] = HiBar[j] + 1;
     LoBar[j] = LoBar[j] + 1;
}

if crossup(c,highest(H,Period)[1]) Then
     T = 1;

if CrossDown(c,Lowest(L,Period)[1]) Then
     T = -1;

If T == -1 Then
{
      If T[1] != -1 Then
      {
           Sell();
            For j = 18 DownTo 0
            {
            LoVal[j+1] = LoVal[j];
            LoBar[j+1] = LoBar[j];
            //ZZ[j+1]    = ZZ[j];
            }
            LoVal[0] = L;
            LoBar[0] = 0;
            //ZZ[0]    = L;
            date11  = date[HiBar[0]];
            time11  = stime[HiBar[0]];
            Value11 = HiVal[0];
            date12  = date[LoBar[0]];
            time12  = stime[LoBar[0]];
            Value12 = LoVal[0];

             TL_Delete(tl);
         TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

            TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
            TL_SetColor(TL1,하락색);
            Tx = Text_New(date11,time11,Value11,"●");
            #동그라미 색상, 빨강
         Text_SetColor(Tx,Green);
            Text_SetStyle(Tx,2,2);
            Text_SetSize(tx,7);
            //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine);
            //Text_SetStyle(tx,2,1);

            date21 = date[HiBar[0]];
            time21 = stime[HiBar[0]];
            date22 = date[0];
            time22 = stime[0];
            for j = 0 to 6 
            {
            fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
            }               
            
            #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]);
            #TL_SetColor(TL2[1],RED);
            #TL_SetStyle(TL2[1], 3);

            #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]);
            #TL_SetColor(TL2[2],RED);
            #TL_SetSize(TL2[2],1);
            
            #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2));
            #Text_SetColor(Tx2[2],BWHITE);
            #Text_SetStyle(TX2[2],1,1);
            
            #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]);
            #TL_SetColor(TL2[3],RED);
            #TL_SetStyle(TL2[3], 3);

            #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]);
            #TL_SetColor(TL2[4],RED);
            #TL_SetSize(TL2[4],1); 
                                  
            #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2));
            #Text_SetColor(Tx2[4],BWHITE);
            #Text_SetStyle(TX2[4],1,0);               
            
      }
      If LoVal[0] > L Then
      {
            LoVal[0] = L;
            LoBar[0] = 0;
            //ZZ[0]    = L;
            date12  = date[LoBar[0]];
            time12  = stime[LoBar[0]];
            Value12 = LoVal[0];
            TL_SetEnd(TL1, date12,time12,Value12);
            date22 = date[0];
            time22 = stime[0];
          
            TL_SetEnd(TL2[0],date22,time22,fr[0]);
            TL_SetEnd(TL2[1],date22,time22,fr[1]);
            TL_SetEnd(TL2[2],date22,time22,fr[2]);
            Text_SetLocation(TX2[2],date22,time22,fr[2]);
            TL_SetEnd(TL2[3],date22,time22,fr[3]);
            TL_SetEnd(TL2[4],date22,time22,fr[4]);
            Text_SetLocation(TX2[4],date22,time22,fr[4]);
            TL_SetEnd(TL2[5],date22,time22,fr[5]);
            TL_SetEnd(TL2[6],date22,time22,fr[6]);

                TL_Delete(tl);
     TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
      }
    
}
If T == 1 Then
{
      If T[1] != 1 Then
      {
			Buy();
            For j = 18 DownTo 0
            {
            HiVal[j+1] = HiVal[j];
            HiBar[j+1] = HiBar[j];
            //ZZ[j+1]    = ZZ[j];
            }
            HiVal[0] = H;
            HiBar[0] = 0;
            //ZZ[0]    = H;
            date11  = date[LoBar[0]];
            time11  = stime[LoBar[0]];
            Value11 = LoVal[0];
            date12  = date[HiBar[0]];
            time12  = stime[HiBar[0]];
            Value12 = HiVal[0];
              TL_Delete(tl);
       TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

            TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
            TL_SetColor(TL1,상승색);
            Tx1 = Text_New(date11,time11,Value11,"●");
            #동그라미 색상, 파랑
         Text_SetColor(Tx1,Green);
            Text_SetStyle(Tx1,2,2);
            Text_SetSize(tx1,7);

            //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2));
            //Text_SetStyle(tx,2,0);

            date31 = date[LoBar[0]];
            time31 = stime[LoBar[0]];
            date32 = date[0];
            time32 = stime[0];
            for j = 0 to 5 
            {
                  fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
            }                                             
      }
      If HiVal[0] < H Then 
      {
            HiVal[0] = H;
            HiBar[0] = 0;
            //ZZ[0]    = H;
            date12  = date[HiBar[0]];
            time12  = stime[HiBar[0]];
            Value12 = HiVal[0];
             TL_SetEnd(TL1, date12,time12,Value12);

            date32 = date[0];
            time32 = stime[0];
            
            TL_SetEnd(TL3[0],date32,time32,fr[0]);
            TL_SetEnd(TL3[1],date32,time32,fr[1]);
            TL_SetEnd(TL3[2],date32,time32,fr[2]);
            Text_SetLocation(TX3[2],date32,time32,fr[2]);
            TL_SetEnd(TL3[3],date32,time32,fr[3]);
            TL_SetEnd(TL3[4],date32,time32,fr[4]);
            Text_SetLocation(TX3[4],date32,time32,fr[4]);
            TL_SetEnd(TL3[5],date32,time32,fr[5]);
            TL_SetEnd(TL3[6],date32,time32,fr[6]);

                    TL_Delete(tl);
                    TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
      }
}
TL_SetSize(TL1,선두께);

//TL_SetEnd(tl,NextBarSdate,NextBarStime,NextBarOpen);


즐거운 하루되세요



> 고성 님이 쓴 글입니다.

> 제목 : 추세선

> input : Period(10);
Var:선두께(1),상승색(red), 하락색(blue);
   Var:j(0),T(0);
   Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
         date21(0),date22(0),time21(0),time22(0),
         date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
   Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/;
   Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);

   r[0] = 0;
   r[1] = 2;
   r[2] = 3.;
   r[3] = -1;
   r[4] = -2.;
   r[5] = 1;
   r[6] = 0.5;

   For j = 0 To 19
   {
         HiBar[j] = HiBar[j] + 1;
         LoBar[j] = LoBar[j] + 1;
   }

   if crossup(c,highest(H,Period)[1]) Then
         T = 1;

   if CrossDown(c,Lowest(L,Period)[1]) Then
         T = -1;

   If T == -1 Then
   {
          If T[1] != -1 Then
          {
                For j = 18 DownTo 0
                {
                LoVal[j+1] = LoVal[j];
                LoBar[j+1] = LoBar[j];
                //ZZ[j+1]    = ZZ[j];
                }
                LoVal[0] = L;
                LoBar[0] = 0;
                //ZZ[0]    = L;
                date11  = date[HiBar[0]];
                time11  = stime[HiBar[0]];
                Value11 = HiVal[0];
                date12  = date[LoBar[0]];
                time12  = stime[LoBar[0]];
                Value12 = LoVal[0];

                 TL_Delete(tl);
             TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

                TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
                TL_SetColor(TL1,하락색);
              
                Tx = Text_New(date11,time11,Value11,"●");
                #동그라미 색상, 빨강
             Text_SetColor(Tx,Green);
                Text_SetStyle(Tx,2,2);
                Text_SetSize(tx,7);
                //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine);
                //Text_SetStyle(tx,2,1);

                date21 = date[HiBar[0]];
                time21 = stime[HiBar[0]];
                date22 = date[0];
                time22 = stime[0];
                for j = 0 to 6 
                {
                fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
                }               
                
                #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]);
                #TL_SetColor(TL2[1],RED);
                #TL_SetStyle(TL2[1], 3);

                #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]);
                #TL_SetColor(TL2[2],RED);
                #TL_SetSize(TL2[2],1);
                
                #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2));
                #Text_SetColor(Tx2[2],BWHITE);
                #Text_SetStyle(TX2[2],1,1);
                
                #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]);
                #TL_SetColor(TL2[3],RED);
                #TL_SetStyle(TL2[3], 3);

                #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]);
                #TL_SetColor(TL2[4],RED);
                #TL_SetSize(TL2[4],1); 
				              
                #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2));
                #Text_SetColor(Tx2[4],BWHITE);
                #Text_SetStyle(TX2[4],1,0);               
                
          }
          If LoVal[0] > L Then
          {
                LoVal[0] = L;
                LoBar[0] = 0;
                //ZZ[0]    = L;
                date12  = date[LoBar[0]];
                time12  = stime[LoBar[0]];
                Value12 = LoVal[0];
                TL_SetEnd(TL1, date12,time12,Value12);
                date22 = date[0];
                time22 = stime[0];
              
                TL_SetEnd(TL2[0],date22,time22,fr[0]);
                TL_SetEnd(TL2[1],date22,time22,fr[1]);
                TL_SetEnd(TL2[2],date22,time22,fr[2]);
                Text_SetLocation(TX2[2],date22,time22,fr[2]);
                TL_SetEnd(TL2[3],date22,time22,fr[3]);
                TL_SetEnd(TL2[4],date22,time22,fr[4]);
                Text_SetLocation(TX2[4],date22,time22,fr[4]);
                TL_SetEnd(TL2[5],date22,time22,fr[5]);
                TL_SetEnd(TL2[6],date22,time22,fr[6]);

                    TL_Delete(tl);
         TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
          }
        
   }
   If T == 1 Then
   {
          If T[1] != 1 Then
          {
                For j = 18 DownTo 0
                {
                HiVal[j+1] = HiVal[j];
                HiBar[j+1] = HiBar[j];
                //ZZ[j+1]    = ZZ[j];
                }
                HiVal[0] = H;
                HiBar[0] = 0;
                //ZZ[0]    = H;
                date11  = date[LoBar[0]];
                time11  = stime[LoBar[0]];
                Value11 = LoVal[0];
                date12  = date[HiBar[0]];
                time12  = stime[HiBar[0]];
                Value12 = HiVal[0];
                  TL_Delete(tl);
           TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);

                TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
                TL_SetColor(TL1,상승색);

                Tx1 = Text_New(date11,time11,Value11,"●");
                #동그라미 색상, 파랑
             Text_SetColor(Tx1,Green);
                Text_SetStyle(Tx1,2,2);
                Text_SetSize(tx1,7);

                //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2));
                //Text_SetStyle(tx,2,0);

                date31 = date[LoBar[0]];
                time31 = stime[LoBar[0]];
                date32 = date[0];
                time32 = stime[0];
                for j = 0 to 5 
                {
                      fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
                }                                             
          }
          If HiVal[0] < H Then 
          {
                HiVal[0] = H;
                HiBar[0] = 0;
                //ZZ[0]    = H;
                date12  = date[HiBar[0]];
                time12  = stime[HiBar[0]];
                Value12 = HiVal[0];
                 TL_SetEnd(TL1, date12,time12,Value12);

                date32 = date[0];
                time32 = stime[0];
                
                TL_SetEnd(TL3[0],date32,time32,fr[0]);
                TL_SetEnd(TL3[1],date32,time32,fr[1]);
                TL_SetEnd(TL3[2],date32,time32,fr[2]);
                Text_SetLocation(TX3[2],date32,time32,fr[2]);
                TL_SetEnd(TL3[3],date32,time32,fr[3]);
                TL_SetEnd(TL3[4],date32,time32,fr[4]);
                Text_SetLocation(TX3[4],date32,time32,fr[4]);
                TL_SetEnd(TL3[5],date32,time32,fr[5]);
                TL_SetEnd(TL3[6],date32,time32,fr[6]);

                        TL_Delete(tl);
                        TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen);
          }
   }
    TL_SetSize(TL1,선두께);

//TL_SetEnd(tl,NextBarSdate,NextBarStime,NextBarOpen);


양선에 매수,음선에 매도. 감사합니다.

안녕하세요 예스스탁입니다. 문의하신 내용이 고점과 저점 꼭지점이면 수식으로 가능하지 않습니다. 후행적으로 연결되는 내용입니다. 양선/음선이 판단되는 첫봉에서 신호가 발생합니다. input : Period(10); Var:선두께(1),상승색(red), 하락색(blue); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { Sell(); For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 빨강 Text_SetColor(Tx,Green); Text_SetStyle(Tx,2,2); Text_SetSize(tx,7); //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine); //Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]); #TL_SetColor(TL2[1],RED); #TL_SetStyle(TL2[1], 3); #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]); #TL_SetColor(TL2[2],RED); #TL_SetSize(TL2[2],1); #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx2[2],BWHITE); #Text_SetStyle(TX2[2],1,1); #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]); #TL_SetColor(TL2[3],RED); #TL_SetStyle(TL2[3], 3); #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]); #TL_SetColor(TL2[4],RED); #TL_SetSize(TL2[4],1); #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx2[4],BWHITE); #Text_SetStyle(TX2[4],1,0); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } If T == 1 Then { If T[1] != 1 Then { Buy(); For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 파랑 Text_SetColor(Tx1,Green); Text_SetStyle(Tx1,2,2); Text_SetSize(tx1,7); //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2)); //Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } TL_SetSize(TL1,선두께); //TL_SetEnd(tl,NextBarSdate,NextBarStime,NextBarOpen); 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 추세선 > input : Period(10); Var:선두께(1),상승색(red), 하락색(blue); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 빨강 Text_SetColor(Tx,Green); Text_SetStyle(Tx,2,2); Text_SetSize(tx,7); //tx = Text_New(date11,time11,Value11,NumToStr(value11,2)+NewLine+NumToStr(value11,2)+NewLine); //Text_SetStyle(tx,2,1); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } #TL2[1] = TL_New(date21,time21,fr[1],date22,time22,fr[1]); #TL_SetColor(TL2[1],RED); #TL_SetStyle(TL2[1], 3); #TL2[2] = TL_New(date21,time21,fr[2],date22,time22,fr[2]); #TL_SetColor(TL2[2],RED); #TL_SetSize(TL2[2],1); #TX2[2] = Text_New(date22,time22,fr[2],NumToStr(fr[2],2)); #Text_SetColor(Tx2[2],BWHITE); #Text_SetStyle(TX2[2],1,1); #TL2[3] = TL_New(date21,time21,fr[3],date22,time22,fr[3]); #TL_SetColor(TL2[3],RED); #TL_SetStyle(TL2[3], 3); #TL2[4] = TL_New(date21,time21,fr[4],date22,time22,fr[4]); #TL_SetColor(TL2[4],RED); #TL_SetSize(TL2[4],1); #TX2[4] = Text_New(date22,time22,fr[4],NumToStr(fr[4],2)); #Text_SetColor(Tx2[4],BWHITE); #Text_SetStyle(TX2[4],1,0); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date11,time11,Value11,"●"); #동그라미 색상, 파랑 Text_SetColor(Tx1,Green); Text_SetStyle(Tx1,2,2); Text_SetSize(tx1,7); //tx = Text_New(date11,time11,Value11,NewLine+NumToStr(value11,2)+NewLine+NumToStr(value11,2)); //Text_SetStyle(tx,2,0); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } TL_SetSize(TL1,선두께); //TL_SetEnd(tl,NextBarSdate,NextBarStime,NextBarOpen); 양선에 매수,음선에 매도. 감사합니다.

시스템 수식변환

Time 사용법

대학생 시스템 트레이딩 챌린지

대학생 시스템 트레이딩 챌린지

대학생 시스템 트레이딩 챌린지

대학생 시스템 트레이딩 챌린지

대학생 시스템 트레이딩 챌린지

커뮤니티

추세선

답변 1

예스스탁 예스스탁 답변

커뮤니티

추세선

답변 1

예스스탁 예스스탁 답변

개인정보 취급방침