Rengi gölgelere ayırma işlevi.

Nikolai Semko 2018.10.12 11:37 #171

Реter Konow :

"R = Initial_R" konusuna gelince, haklısın ama ben böyle bıraktım çünkü algoritmanın prensibi bu şekilde daha net.

Algoritmanın kesinlikle daha fazla çalışmaya ihtiyacı var. O mükemmel değil. Belki sonunda seninkiyle aynı algoritmaya geleceğim. Ama bunca yolu gittikten sonra, kıyaslanamayacak kadar fazlasını elde edeceğim. Sonuçta, bilgi ve anlayış yolundan gideceğim, bu da algoritmamı uyguladığım yaratıcı alanın birinin çözümünü kopyalamamdan çok daha geniş olacağı anlamına geliyor. Bu nedenle, her zaman kendi yolumu seçerim.

astar

 StringToColor (( string ) MathRound (Первая_компонента) + "," + ( string ) MathRound (Вторая_компонента) + "," + ( string ) MathRound (Третья_компонента));

çılgın frenlerin kaynağı

Profil oluşturmayı deneyin.

bu çok daha hızlı olacak:

(( uint ) MathRound (Первая_компонента))|(( uint ) MathRound (Вторая_компонента)<< 8 )|(( uint ) MathRound (Третья_компонента)<< 16 );

Реter Konow 2018.10.12 11:42 #172

Nikolai Semko :

astar

çılgın frenlerin kaynağı

Profil oluşturmayı deneyin.

bu çok daha hızlı olacak:

Saçmalık. Benim algoritmam seninkiyle aynı hıza sahip.))

Teşekkürler Nikolay!

Sadece bu tür operasyonlara aşina değilim.

Nikolai Semko 2018.10.12 11:44 #173

Реter Konow :

Saçmalık. Benim algoritmam seninkiyle aynı hıza sahip.))

Teşekkürler Nikolay!

henüz değil. Düzeltilmesi gereken birkaç şey daha var.

Реter Konow 2018.10.12 12:05 #174

Gereksiz özellikler kaldırıldı. Şimdi sadece ana işlev:

 //+------------------------------------------------------------------+
//|                                              Gradient test 1.mq4 |
//|                                                      Peter Konow |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Peter Konow"
#property link        "https://www.mql5.com"
#property version    "1.00"
#include <Canvas\Canvas.mqh>
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
union rgb { uint clr; uchar c[ 4 ];};
rgb C,cc;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void OnStart ()
  {
   CCanvas canvas;
   if (!canvas.CreateBitmapLabel( "Gradient" , 200 , 200 , 768 , 256 , COLOR_FORMAT_ARGB_NORMALIZE )) { Print ( "Error creating canvas: " , GetLastError ()); }
   double d= 5 ;
   uint Gradient[ 256 ];
   while (! IsStopped ())
     {
      C.c[ 2 ]= uchar ( 127.5 *( 1 + sin (d* 1.2 ))+ 0.4999 ); C.c[ 1 ]= uchar ( 127.5 *( 1 + sin (d* 1.9 ))+ 0.4999 ); C.c[ 0 ]= uchar ( 127.5 *( 1 + sin (d* 2.8 ))+ 0.4999 );   // генерируем новый цвет
      cc.clr=C.clr;
       ulong t= GetMicrosecondCount ();
      Диапазон_оттенков(C.clr,Gradient);
       //Gradient(C.clr,Gradient,256);
      t= GetMicrosecondCount ()-t;
       for ( int y= 0 ; y< 256 ; y++)
        {
         //Alert(__FUNCTION__,"  Gradient[",y,"]  ",Gradient[y]);
         //canvas.LineHorizontal(0,767,y,ColorToARGB(StringToColor(Gradient[y]),255));
         canvas.LineHorizontal( 0 , 767 ,y, ColorToARGB (Gradient[y], 255 ));
         C.clr=Gradient[y];
         canvas.PixelSet(( int )C.c[ 2 ]+( int )C.c[ 1 ]+( int )C.c[ 0 ],y, ColorToARGB ( clrWhite ));
         if (C.c[ 1 ]> 0 ) canvas.PixelSet( int ( 50.0 *( int )C.c[ 2 ]/( double )C.c[ 1 ]+ 50.0 *( int )C.c[ 0 ]/( double )C.c[ 1 ]),y, ColorToARGB ( clrGreen ));
         if (C.c[ 2 ]> 0 ) canvas.PixelSet( int ( 50.0 *( int )C.c[ 1 ]/( double )C.c[ 2 ]+ 50.0 *( int )C.c[ 0 ]/( double )C.c[ 2 ]),y, ColorToARGB ( clrRed ));
         if (C.c[ 0 ]> 0 ) canvas.PixelSet( int ( 50.0 *( int )C.c[ 2 ]/( double )C.c[ 0 ]+ 50.0 *( int )C.c[ 1 ]/( double )C.c[ 0 ]),y, ColorToARGB ( clrBlue ));
        }
      canvas.FillRectangle( 500 , 75 , 660 , 150 , ColorToARGB (cc.clr, 240 ));
      canvas.FontSet( "Tahoma" , 20 ); 
      canvas. TextOut ( 510 , 85 , "R = " + string (cc.c[ 2 ]), ColorToARGB (~cc.clr)); 
      canvas. TextOut ( 510 , 107 , "G = " + string (cc.c[ 1 ]), ColorToARGB (~cc.clr)); 
      canvas. TextOut ( 510 , 129 , "B = " + string (cc.c[ 0 ]), ColorToARGB (~cc.clr));
      canvas.FontSet( "Times New Roman" , 15 );
      canvas. TextOut ( 300 , 10 , "Время формирования градиентного массива из 256 элементов = " + string (t)+ " микросекунд" , ColorToARGB ( clrWhite ));
      canvas.Update();
      d+= 0.01 ;
       Sleep ( 30 );
     }
   canvas.Destroy();
//------------------------
// for(int a1 = 0; a1 < 256; a1++)Alert(__FUNCTION__,"  Gradient[",a1,"]  ",Gradient[a1]);
  }
//+------------------------------------------------------------------+
//================================================================================================================================================================
void Диапазон_оттенков( color _Цвет, uint &Все_оттенки[])
{
 color R = 0 , G = 0 ,  B = 0 ;
 int    q = 0 , w1 = 0 , w2 = 0 ;
 double Components[ 3 ];
 //------------------------------------------------------
 uint Этот_цвет;
 double Тангенс_угла_старшего_треугольника_1,      
        Тангенс_угла_среднего_треугольника_1,                  
        Тангенс_угла_младшего_треугольника_1,                       
        Значение_в_точке_преломления_старшей_компоненты,  
        Значение_в_точке_преломления_средней_компоненты,
        Значение_в_точке_преломления_младшей_компоненты,    
        Тангенс_угла_старшего_треугольника_2,
        Тангенс_угла_среднего_треугольника_2,    
        Тангенс_угла_младшего_треугольника_2;
 //------------------------------------------------------
 double pi = 3.1415926536 ,
        Comp_1,Comp_2,Comp_3,
         //-----------------------------------------------
        Первая_компонента = 0.0 ,
        Вторая_компонента = 0.0 ,
        Третья_компонента = 0.0 ,
         //-----------------------------------------------
        Исходный_R = (_Цвет)& 0xff , 
        Исходный_G = (_Цвет>> 8 )& 0xff , 
        Исходный_B = (_Цвет>> 16 )& 0xff ;        
         //-----------------------------------------------

   //-----------------------------------------------
   Components[ 0 ] = Исходный_R;
   Components[ 1 ] = Исходный_G;
   Components[ 2 ] = Исходный_B;
   //---------------------------
   ArraySort (Components);
   //---------------------------
   double Старшая_компонента         = Components[ 2 ]; 
   double Средняя_компонента         = Components[ 1 ]; 
   double Младшая_компонента         = Components[ 0 ]; 
//-----------------------------------------------
   double Координата_исходного_цвета=Старшая_компонента/ tan (( 63.43989 *pi)/ 180 )+Младшая_компонента/ 2 ;
//-----------------------------------------------
 //-----------------------------------------------
 if (Старшая_компонента == Исходный_R)R = ( color )Старшая_компонента;
 if (Старшая_компонента == Исходный_G)G = ( color )Старшая_компонента; 
 if (Старшая_компонента == Исходный_B)B = ( color )Старшая_компонента;     
 //------------------------
 if (Средняя_компонента == Исходный_R)R = ( color )Средняя_компонента;
 if (Средняя_компонента == Исходный_G)G = ( color )Средняя_компонента; 
 if (Средняя_компонента == Исходный_B)B = ( color )Средняя_компонента; 
 //------------------------
 if (Младшая_компонента == Исходный_R)R = ( color )Младшая_компонента;
 if (Младшая_компонента == Исходный_G)G = ( color )Младшая_компонента; 
 if (Младшая_компонента == Исходный_B)B = ( color )Младшая_компонента; 
 //------------------------------------------------
   
 //==========================================================================================
 if (Координата_исходного_цвета <= 127 )
   {
    Тангенс_угла_старшего_треугольника_1  = Старшая_компонента/Координата_исходного_цвета;
    Тангенс_угла_среднего_треугольника_1  = Средняя_компонента/Координата_исходного_цвета;     
    Тангенс_угла_младшего_треугольника_1  = Младшая_компонента/Координата_исходного_цвета;
     //-----------------------------------------------
    Значение_в_точке_преломления_старшей_компоненты  = Тангенс_угла_старшего_треугольника_1* 128 ;
    Значение_в_точке_преломления_средней_компоненты  = Тангенс_угла_среднего_треугольника_1* 128 ;
    Значение_в_точке_преломления_младшей_компоненты  = Тангенс_угла_младшего_треугольника_1* 128 ;    
     //-----------------------------------------------    
    Тангенс_угла_старшего_треугольника_2  = ( 255 - Значение_в_точке_преломления_старшей_компоненты)/ 128 ;
    Тангенс_угла_среднего_треугольника_2  = ( 255 - Значение_в_точке_преломления_средней_компоненты)/ 128 ;       
    Тангенс_угла_младшего_треугольника_2  = ( 255 - Значение_в_точке_преломления_младшей_компоненты)/ 128 ;
     //-----------------------------------------------    
     for ( int a1 = 0 ; a1 < 128 ; a1++)
      {
       Comp_1 = Тангенс_угла_старшего_треугольника_1*a1;
       Comp_2 = Тангенс_угла_среднего_треугольника_1*a1;
       Comp_3 = Тангенс_угла_младшего_треугольника_1*a1;
       //---------------------------------------------------
       if (Comp_1 > 255 )Comp_1 = 255 ;
       if (Comp_1 > 255 )Comp_2 = 255 ;
       if (Comp_1 > 255 )Comp_3 = 255 ;
       if (Comp_1 < 0 )Comp_1 = 0 ;
       if (Comp_2 < 0 )Comp_2 = 0 ;
       if (Comp_3 < 0 )Comp_3 = 0 ;           
       //---------------------------------------------------
       if (R == Старшая_компонента)Первая_компонента = Comp_1;
       if (R == Средняя_компонента)Первая_компонента = Comp_2;
       if (R == Младшая_компонента)Первая_компонента = Comp_3;
       //---------------------------------------------------
       if (G == Старшая_компонента)Вторая_компонента = Comp_1;
       if (G == Средняя_компонента)Вторая_компонента = Comp_2;
       if (G == Младшая_компонента)Вторая_компонента = Comp_3;
       //---------------------------------------------------
       if (B == Старшая_компонента)Третья_компонента = Comp_1;
       if (B == Средняя_компонента)Третья_компонента = Comp_2;
       if (B == Младшая_компонента)Третья_компонента = Comp_3;
       //---------------------------------------------------
       Все_оттенки[a1] = (( uint ) MathRound (Первая_компонента))|(( uint ) MathRound (Вторая_компонента)<< 8 )|(( uint ) MathRound (Третья_компонента)<< 16 );
       //---------------------------------------------------------------------------    
       w1++;
      }
     //------------------------------------------------------------------------------
     for ( int a2 = 255 ; a2 >= w1; a2--)
      {
       Comp_1 = 255 - Тангенс_угла_старшего_треугольника_2*q;
       Comp_2 = 255 - Тангенс_угла_среднего_треугольника_2*q;
       Comp_3 = 255 - Тангенс_угла_младшего_треугольника_2*q;
       //---------------------------------------------------
       if (Comp_1 > 255 )Comp_1 = 255 ;
       if (Comp_1 > 255 )Comp_2 = 255 ;
       if (Comp_1 > 255 )Comp_3 = 255 ;
       if (Comp_1 < 0 )Comp_1 = 0 ;
       if (Comp_2 < 0 )Comp_2 = 0 ;
       if (Comp_3 < 0 )Comp_3 = 0 ;           
       //---------------------------------------------------       
       if (R == Старшая_компонента)Первая_компонента = Comp_1;
       if (R == Средняя_компонента)Первая_компонента = Comp_2;
       if (R == Младшая_компонента)Первая_компонента = Comp_3;
       //---------------------------------------------------
       if (G == Старшая_компонента)Вторая_компонента = Comp_1;
       if (G == Средняя_компонента)Вторая_компонента = Comp_2;
       if (G == Младшая_компонента)Вторая_компонента = Comp_3;
       //---------------------------------------------------
       if (B == Старшая_компонента)Третья_компонента = Comp_1;
       if (B == Средняя_компонента)Третья_компонента = Comp_2;
       if (B == Младшая_компонента)Третья_компонента = Comp_3;
       //---------------------------------------------------
       Все_оттенки[a2] = (( uint ) MathRound (Первая_компонента))|(( uint ) MathRound (Вторая_компонента)<< 8 )|(( uint ) MathRound (Третья_компонента)<< 16 );
       //---------------------------------------------------------------------------
       q++;
      }
  } 
 //------------------------------------------------------------------------------
 if (Координата_исходного_цвета > 127 )
   {
    Тангенс_угла_старшего_треугольника_1  = ( 255 - Старшая_компонента)/( 255 - Координата_исходного_цвета);
    Тангенс_угла_среднего_треугольника_1  = ( 255 - Средняя_компонента)/( 255 - Координата_исходного_цвета);       
    Тангенс_угла_младшего_треугольника_1  = ( 255 - Младшая_компонента)/( 255 - Координата_исходного_цвета);
     //-----------------------------------------------
    Значение_в_точке_преломления_старшей_компоненты  = 255 - (Тангенс_угла_старшего_треугольника_1* 128 );
    Значение_в_точке_преломления_средней_компоненты  = 255 - (Тангенс_угла_среднего_треугольника_1* 128 );
    Значение_в_точке_преломления_младшей_компоненты  = 255 - (Тангенс_угла_младшего_треугольника_1* 128 );    
     //-----------------------------------------------    
    Тангенс_угла_старшего_треугольника_2  = Значение_в_точке_преломления_старшей_компоненты/ 128 ;
    Тангенс_угла_среднего_треугольника_2  = Значение_в_точке_преломления_средней_компоненты/ 128 ;      
    Тангенс_угла_младшего_треугольника_2  = Значение_в_точке_преломления_младшей_компоненты/ 128 ;
     //-----------------------------------------------    
     for ( int b1 = 0 ; b1 < 128 ; b1++)
      {
       Comp_1 = Тангенс_угла_старшего_треугольника_2*b1;
       Comp_2 = Тангенс_угла_среднего_треугольника_2*b1;
       Comp_3 = Тангенс_угла_младшего_треугольника_2*b1;
       //---------------------------------------------------
       if (Comp_1 > 255 )Comp_1 = 255 ;
       if (Comp_1 > 255 )Comp_2 = 255 ;
       if (Comp_1 > 255 )Comp_3 = 255 ;
       if (Comp_1 < 0 )Comp_1 = 0 ;
       if (Comp_2 < 0 )Comp_2 = 0 ;
       if (Comp_3 < 0 )Comp_3 = 0 ;           
       //---------------------------------------------------
       if (R == Старшая_компонента)Первая_компонента = Comp_1;
       if (R == Средняя_компонента)Первая_компонента = Comp_2;
       if (R == Младшая_компонента)Первая_компонента = Comp_3;
       //---------------------------------------------------
       if (G == Старшая_компонента)Вторая_компонента = Comp_1;
       if (G == Средняя_компонента)Вторая_компонента = Comp_2;
       if (G == Младшая_компонента)Вторая_компонента = Comp_3;
       //---------------------------------------------------
       if (B == Старшая_компонента)Третья_компонента = Comp_1;
       if (B == Средняя_компонента)Третья_компонента = Comp_2;
       if (B == Младшая_компонента)Третья_компонента = Comp_3;
       //---------------------------------------------------
       Все_оттенки[b1] = (( uint ) MathRound (Первая_компонента))|(( uint ) MathRound (Вторая_компонента)<< 8 )|(( uint ) MathRound (Третья_компонента)<< 16 );
       //---------------------------------------------------------------------------    
       w2++;
      }
     //------------------------------------------------------------------------------
     for ( int b2 = 255 ; b2 >= w2; b2--)
      {
       Comp_1 = 255 - Тангенс_угла_старшего_треугольника_1*q;
       Comp_2 = 255 - Тангенс_угла_среднего_треугольника_1*q;
       Comp_3 = 255 - Тангенс_угла_младшего_треугольника_1*q;
       //---------------------------------------------------
       if (Comp_1 > 255 )Comp_1 = 255 ;
       if (Comp_1 > 255 )Comp_2 = 255 ;
       if (Comp_1 > 255 )Comp_3 = 255 ;
       if (Comp_1 < 0 )Comp_1 = 0 ;
       if (Comp_2 < 0 )Comp_2 = 0 ;
       if (Comp_3 < 0 )Comp_3 = 0 ;           
       //---------------------------------------------------       
       if (R == Старшая_компонента)Первая_компонента = Comp_1;
       if (R == Средняя_компонента)Первая_компонента = Comp_2;
       if (R == Младшая_компонента)Первая_компонента = Comp_3;
       //---------------------------------------------------
       if (G == Старшая_компонента)Вторая_компонента = Comp_1;
       if (G == Средняя_компонента)Вторая_компонента = Comp_2;
       if (G == Младшая_компонента)Вторая_компонента = Comp_3;
       //---------------------------------------------------
       if (B == Старшая_компонента)Третья_компонента = Comp_1;
       if (B == Средняя_компонента)Третья_компонента = Comp_2;
       if (B == Младшая_компонента)Третья_компонента = Comp_3;
       //---------------------------------------------------
       Этот_цвет = (( uint ) MathRound (Первая_компонента))|(( uint ) MathRound (Вторая_компонента)<< 8 )|(( uint ) MathRound (Третья_компонента)<< 16 );
       //---------------------------------------------------------------------------    
       Все_оттенки[b2] = Этот_цвет; 
       //---------------------------------------------------------------------------
       q++;
      }
   }   
 //------------------------------------------------------------------------------  
}
//=============================================================================

Andrey Khatimlianskii 2018.10.13 20:11 #175

Nikolai Semko :
Berbat, Andrey. :)

Aslında ilginç bir görev, renk pıhtıları ve minimum renk bozulması olmayan bir renk paleti elde etmektir. Açıkçası, renk bileşenleri arasındaki delta sabit olmamalı ve düzgün bir şekilde değişmelidir. Yukarıdaki örneklerde iki değeri vardır: siyahtan ve beyazdan. Bu yüzden beni kendine bağladı.

Evet, 18 sayfa sorunun tartışılmasına ayrılmıştır. Ve OOP, Rus değişken isimleri ve otomatik ticaretin geleceği hakkında tek bir kelime yok)

Nikolai Semko 2018.10.13 20:32 #176

Andrey Khatimlianskii :

Evet, 18 sayfa sorunun tartışılmasına ayrılmıştır. Ve OOP, Rus değişken isimleri ve otomatik ticaretin geleceği hakkında tek bir kelime yok)

Neden, Kiril alfabesinden sadece bu başlıkta birkaç kez bahsettim . Ama Peter, OOP ve Kiril konusunda aşılmaz, zaten vazgeçtim ve onun üzerindeki "hareketimin" Kirilsiz ve hata ayıklama kullanmadan kendi sınıflarıyla kodunu görene kadar onun üzerindeki "hareketimin" bittiğini düşünüyorum. Ona defalarca OOP ve hata ayıklama olasılığı olan bir stil (yani, Kiril olmadan) olmadan GUI'nin asla gün ışığına çıkmayacağını ve eğer görürse, yuhalanıp çürük yumurta ve domateslerle fırlatılacağını söyledim. . Peter, olağanüstü azmi ve verimliliğiyle (hata ayıklayıcı olmadan kod yazmayı başarıyor) aynı fantastik derecede muhafazakarlık ve inatçılığa sahipse ne yapabilirsiniz?

Ama Peter olmadan bu forum bu kadar karizmatik olmazdı. ))

Benim yaklaşımım. Çekirdek - MQL5 için dilekler MT5'te MQL kodunun yazarlığının

Nikolai Semko 2018.10.14 21:27 #177

TheXpert :

belki şöyle biraz daha hızlı olur:

 void Gradient( uint clr1, uint clr2, uint &arr[], uint size)
  {
   if (size== 0 ) return ;
   ArrayResize (arr,size);
   arr[ 0 ]=clr1; 
   rgb c1,c2;
   c1.clr=clr1;
   c2.clr=clr2;
   double R1=c1.c[ 2 ],G1=c1.c[ 1 ],B1=c1.c[ 0 ];
   double R2=c2.c[ 2 ],G2=c2.c[ 1 ],B2=c2.c[ 0 ];
   double deltaR=(R2-R1)/(size- 1 );
   double deltaG=(G2-G1)/(size- 1 );
   double deltaB=(B2-B1)/(size- 1 );
   R1 += 0.4999 ;
   G1 += 0.4999 ;
   B1 += 0.4999 ;
   for ( uint i= 1 ;i<size;i++)
     {
      R1+=deltaR; c1.c[ 2 ]= uchar (R1);
      G1+=deltaG; c1.c[ 1 ]= uchar (G1);
      B1+=deltaB; c1.c[ 0 ]= uchar (B1);
      arr[i]=c1.clr;
     }
  }

Kabul ediyorum.

Реter Konow 2018.10.15 10:16 #178

Nikolai Semko :

Kabul ediyorum.

Nicholas, objektif olalım.

Bu testte alakasız olan çizimi kaldırarak, senaryoyu olabildiğince basit hale getirdim ve aşağıdaki tutarsızlıkları ortaya çıkardım:

Gördüğünüz gibi, algoritmanızdaki renk aralığının merkezi en üste kaydırılıyor. En parlak bant merkezde olmalıdır. Bu, Windows paleti tarafından onaylanır:

Aşağıda test için bir komut dosyası verilmiştir:

Dosyalar:

Gradient_test_2.mq4 31 kb

Teoriden pratiğe Yeni başlayanlardan sorular MQL4 Ticarette makine öğrenimi: teori,

Реter Konow 2018.10.15 10:22 #179

Hücre 127, renk tonu dizisinin merkezidir. Bu hücre, paletteki ile aynı rengi içermelidir. 1 hatam var, 63 var.

Titreşen ve aşırı çizim, algoritmanın doğruluğunu kontrol etmeye konsantre olmayı zorlaştırdı. Bu nedenle, Alert'te çıktı ile kontrol etmeyi önerdim.

not. Genel olarak, dizinin merkezi 128 hücresidir, ancak bu özü değiştirmez.

Genel sınıflar kütüphanesi - Ticarette makine öğrenimi: teori, kiracı

Реter Konow 2018.10.15 10:52 #180

Yeni ilginç gerçekler:

Renk mavi - C'0,0,255'

Yeşil renk - C'0,255,0'

Renk gri - C'128,128,128' (her iki seçenek de aynıdır)

Renk - C'128,64,0' (büyük fark)

Alınma Nikolai, ancak algoritmanız daha hızlı ve daha kısa (gerçek), ancak doğru çalışmıyor (ayrıca bir gerçek). Düşünceli bir kavramsal temelden yoksundur.

Algoritmam başlangıçta hızdan (ama sen yardım ettin) ve hata ayıklamadan yoksundu. Aynı zamanda, çalışmalarında başlangıçta düşünceli ve doğru bir kavram ortaya kondu.

Bu nedenle, böyle bir fark ortaya çıktı.

iBarShift'e benzer Hizmet Çalışması: En İyi Karşı pozisyonlar: kendini aldatma

Rengi gölgelere ayırma işlevi. - sayfa 18