İDEAL veri terminalinde /Sistem/İndikatör/Robot

[atakanözbaki]

var V = Sistem.GrafikVerileri ;
var period = 100 ;
var atrfact = 5f ;

var H = Sistem.GrafikFiyatOku(V, "Yuksek" ) ;
var L = Sistem.GrafikFiyatOku(V, "Dusuk" ) ;
var C = Sistem.GrafikFiyatOku(V, "Kapanis" ) ;

var HLF = Sistem.Liste(V.Count, 0) ; 

for (int i = 1; i < V.Count; i++) 
{
  HLF[i] = H[i] - L[i] ;
}

var MA1 = Sistem.MA(HLF, "Simple", period ) ;

var a = Sistem.Liste(V.Count, 0) ; 
var HiLo = Sistem.Liste(V.Count, 0) ; 
var Href = Sistem.Liste(V.Count, 0) ; 
var Lref = Sistem.Liste(V.Count, 0) ; 
var diff1 = Sistem.Liste(V.Count, 0) ; 
var diff2 = Sistem.Liste(V.Count, 0) ; 
var atrmod = Sistem.Liste(V.Count, 0) ; 

for (int i = 1; i < V.Count; i++) 
{
  a[i] = 1.5f * MA1[i] ;

  if ( HLF[i] < a[i] )
       HiLo[i] = HLF[i] ;
  else 
       HiLo[i] = a[i] ;

 
  if ( L[i] <= H[i-1] )
      Href[i] = H[i] - C[i-1] ;
  else 
       Href[i] = ( H[i]-C[i-1] )-( L[i]-H[i-1] )/2 ;


  if ( H[i] <= L[i-1] )
       Lref[i] = C[i-1] - L[i] ;
  else 
       Lref[i] = ( C[i-1] - L[i] )-( L[i-1]-H[i] )/2 ;


if ( H[i] <= L[i-1] )
       Lref[i] = C[i-1] - L[i] ;
  else 
       Lref[i] = ( C[i-1] - L[i] )-( L[i-1]-H[i] )/2 ;

if ( HiLo[i] > Href[i] )
       diff1[i] = HiLo[i] ;
  else 
       diff1[i] = Href[i] ;


if ( diff1[i] > Lref[i] )
       diff2[i] = diff1[i] ;
  else 
       diff1[i] = Lref[i] ;

}

atrmod = Sistem.MA(diff2, "Wilder", period ) ;

var loss= Sistem.Liste(V.Count, 0) ; 
var trail= Sistem.Liste(V.Count, 0) ; 


for (int i = 1; i < V.Count; i++) 
{
  loss[i] = atrfact * atrmod[i];

if ( C[i] > trail[i-1] && C[i-1] > trail[i-1]  )
   {
   if ( trail[i-1] > (C[i] - loss[i])  )
       trail[i] = trail[i-1] ;
  else 
       trail[i] = (C[i] - loss[i])  ;

   }

 if ( C[i] < trail[i-1] && C[i-1] < trail[i-1]  )
   {
   if ( trail[i-1] < (C[i] + loss[i])  )
       trail[i] = trail[i-1] ;
  else  
       trail[i] = (C[i] + loss[i])  ;

   }

{
 if ( C[i] > trail[i-1]  )
       trail[i] = C[i] - loss[i] ;
 
else 
       trail[i] = (C[i] + loss[i])  ;
}
  
}

var SonYon = "";
for (int i = 1; i < Sistem.BarSayisi; i++)
{
   if ( C[i] > trail[i]  &&
         SonYon != "A"          )                
      {
      Sistem.Yon[i] = "A";                                       
      SonYon = Sistem.Yon[i] ;
      }
       
   if (  C[i] < trail[i]  &&
         SonYon != "S"          )

                                          
   {
      Sistem.Yon[i] = "S";                                      
      SonYon = Sistem.Yon[i] ;
   }     

}

Sistem.Cizgiler[0].Deger = trail ; 

Şimdi böyle bir sistem var. Eskiden matrikste
var period = 100 ;
var atrfact = 5f ;

yazan yere OPT1 , OPT2 yazıp optimizasyonu yaptırırdık.

İdeale dışardan indikatör ekleyince hem sistemini yazmak, hemde optimizasyon kodunu yazmak gerekiyor. Sisteme çevirmek kolay kalıp sayesinde yapılabiliyor. Bu sistemin optimizasyon formülü için kolay kalıp niteliginde optmiziasyon kalıbı varmıdır.