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

**gurcanxx** · 22-10-2020, 21:06

Periods:=Input("periods",1,260,260);
Topbox:=If(Ref(H,-3)>=Ref(HHV(H,Periods),-4) AND Ref(H,-2)<Ref(H,-3) AND Ref(H,-1)<Ref(H,-3) AND H< Ref(H,-3),Ref(H,-3),PREV);

Botbox:=If(Ref(H,-3)>=Ref(HHV(H,Periods),-4) AND Ref(H,-2)<Ref(H,-3) AND Ref(H,-1)<Ref(H,-3) AND H< Ref(H,-3),LLV(L,4),PREV);

Topbox;
Botbox

Darvas box'lı

LowL:=If(L=LLV(L,5),L,If (Ref(L,-1)=LLV(L,5),Ref(L,-1), If(Ref(L,-2)=LLV(L,5),Ref(L,-2),If(Ref(L,-3)=LLV(L,5),Ref(L,-3), If(Ref(L,-4)=LLV(L,5),Ref(L,-4),0)))));
NewH:=ValueWhen(1,H>Ref(HHV (H,5),-1),H);
box1:=HHV(H,3)<HHV(H,4);
box2:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,NewH);
box3:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,LowL);
TopBox:=box2;
BottomBox:=box3;
TopBox;
BottomBox;
BottomBox-(BottomBox*1.5)/100;
BottomBox-(BottomBox*2.5)/100
İyi akşamlar.Bu formül ideale çevrilebilir mi?Saygılarımla.

**gurcanxx** · 25-10-2020, 22:58

Darvas box formülünü Sezai KILIÇ Hocam çevirmiş.Kendisine çok teşekkür ediyorum.İhtiyacı olan faydalansın.

var LOW = Sistem.GrafikFiyatSec("Dusuk");

var HIGH = Sistem.GrafikFiyatSec("Yuksek");

var boxp = 5;

var LLV = Sistem.LLV(boxp, LOW);

var HHV = Sistem.HHV(boxp, HIGH);

var HHV3 = Sistem.HHV(boxp-2, HIGH);

var HHV4 = Sistem.HHV(boxp-1, HIGH);

var LowL = Sistem.Liste(0);

var NewH = Sistem.Liste(0);

var box1 = Sistem.Liste(0);

var box2 = Sistem.Liste(0);

var box3 = Sistem.Liste(0);

var bsince=0;

for (int i=5; i< Sistem.BarSayisi; i++)

{

if (LOW[i] == LLV[i])

LowL[i] = LOW[i];

if (LOW[i-1] == LLV[i])

LowL[i] = LOW[i-1];

if(LOW[i-2] == LLV[i])

LowL[i] = LOW[i-2];

if(LOW[i-3] == LLV[i])

LowL[i] = LOW[i-3];

if(LOW[i-4] == LLV[i])

LowL[i] = LOW[i-4];

else

LowL[i] = LLV[i];

if (HIGH[i] > HHV[i-1])

NewH[i] = HIGH[i];

else

NewH[i] = NewH[i-1];

if(HHV3[i] < HHV4[i])

box1[i] = 1;

else

box1[i] = -1;

if (HIGH[i] > HHV[i-1] && box1[i] == -1)

bsince = i;

if (i-bsince == 3)

{

bsince = 0;

box2[i]= NewH[i];

box3[i]= LowL[i];

}

else

{

box2[i] = box2[i-1];

box3[i] = box3[i-1];

}

}

Sistem.Cizgiler[0].Deger = box2;

Sistem.Cizgiler[1].Deger = box3;

**BORSA_TRAD** · 31-10-2020, 09:05

Originally Posted by gurcanxx

Darvas box formülünü Sezai KILIÇ Hocam çevirmiş.Kendisine çok teşekkür ediyorum.İhtiyacı olan faydalansın.

var LOW = Sistem.GrafikFiyatSec("Dusuk");

var HIGH = Sistem.GrafikFiyatSec("Yuksek");

var boxp = 5;

var LLV = Sistem.LLV(boxp, LOW);

var HHV = Sistem.HHV(boxp, HIGH);

var HHV3 = Sistem.HHV(boxp-2, HIGH);

var HHV4 = Sistem.HHV(boxp-1, HIGH);

var LowL = Sistem.Liste(0);

var NewH = Sistem.Liste(0);

var box1 = Sistem.Liste(0);

var box2 = Sistem.Liste(0);

var box3 = Sistem.Liste(0);

var bsince=0;

for (int i=5; i< Sistem.BarSayisi; i++)

{

if (LOW[i] == LLV[i])

LowL[i] = LOW[i];

if (LOW[i-1] == LLV[i])

LowL[i] = LOW[i-1];

if(LOW[i-2] == LLV[i])

LowL[i] = LOW[i-2];

if(LOW[i-3] == LLV[i])

LowL[i] = LOW[i-3];

if(LOW[i-4] == LLV[i])

LowL[i] = LOW[i-4];

else

LowL[i] = LLV[i];

if (HIGH[i] > HHV[i-1])

NewH[i] = HIGH[i];

else

NewH[i] = NewH[i-1];

if(HHV3[i] < HHV4[i])

box1[i] = 1;

else

box1[i] = -1;

if (HIGH[i] > HHV[i-1] && box1[i] == -1)

bsince = i;

if (i-bsince == 3)

{

bsince = 0;

box2[i]= NewH[i];

box3[i]= LowL[i];

}

else

{

box2[i] = box2[i-1];

box3[i] = box3[i-1];

}

}

Sistem.Cizgiler[0].Deger = box2;

Sistem.Cizgiler[1].Deger = box3;

Kod:

var LOW = Sistem.GrafikFiyatSec("Dusuk");
var HIGH = Sistem.GrafikFiyatSec("Yuksek");

var boxp = 5;

var LLV = Sistem.LLV(boxp, LOW);
var HHV = Sistem.HHV(boxp, HIGH);

var HHV3 = Sistem.HHV(boxp-2, HIGH);
var HHV4 = Sistem.HHV(boxp-1, HIGH);

var LowL = Sistem.Liste(0);
var NewH = Sistem.Liste(0);
var box1 = Sistem.Liste(0);
var box2 = Sistem.Liste(0);
var box3 = Sistem.Liste(0);

var bt15 = Sistem.Liste(0);
var bt25 = Sistem.Liste(0);


var bsince = 0 ;

for (int i=5; i< Sistem.BarSayisi; i++)
{

 if (LOW  [i] == LLV[i]) LowL[i] = LOW[i] ;
 if (LOW[i-1] == LLV[i]) LowL[i] = LOW[i-1] ;
 if (LOW[i-2] == LLV[i]) LowL[i] = LOW[i-2] ;
 if (LOW[i-3] == LLV[i]) LowL[i] = LOW[i-3] ;
 if (LOW[i-4] == LLV[i]) LowL[i] = LOW[i-4] ;
  else LowL[i] = LLV[i]; //LowL:=If(L=LLV(L,5),L, 
                               //If(Ref(L,-1)=LLV(L,5),Ref(L,-1), 
                               //If(Ref(L,-2)=LLV(L,5),Ref(L,-2),
                               //If(Ref(L,-3)=LLV(L,5),Ref(L,-3), 
                               //If(Ref(L,-4)=LLV(L,5),Ref(L,-4), 0)))));

 if ( HIGH[i] > HHV[i-1] ) NewH[i] = HIGH[i];
  else NewH[i] = NewH[i-1];  //NewH:=ValueWhen(1,H>Ref(HHV (H,5),-1),H);

 if( HHV3[i] < HHV4[i] ) box1[i] = 1;
  else box1[i] = -1;  //box1:=HHV(H,3)<HHV(H,4);


 if ( HIGH[i] > HHV[i-1] && box1[i] == -1 ) bsince = i ;

 if ( i-bsince == 3 )
                     {
                      bsince = 0 ;
                      box2 [i] = NewH[i] ; 
                      box3 [i] = LowL[i] ; 
                     }

  else
      {
       box2 [i] = box2 [i-1] ; //box2:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,NewH);
       box3 [i] = box3 [i-1] ; //box3:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,LowL);
      }
  
  bt15 [i] = box3[i] - ( box3[i] * 1.5f ) /100 ; //BottomBox-(BottomBox*1.5)/100;
  bt25 [i] = box3[i] - ( box3[i] * 2.5f ) /100 ; //BottomBox-(BottomBox*2.5)/100

}



Sistem.Cizgiler[0].Deger = box2 ;
Sistem.Cizgiler[0].Aciklama = "TopBox";

Sistem.Cizgiler[1].Deger = box3 ;
Sistem.Cizgiler[1].Aciklama = "BottomBox";

Sistem.Cizgiler[2].Deger = bt15 ;
Sistem.Cizgiler[2].Aciklama = "1.5f-";

Sistem.Cizgiler[3].Deger = bt25 ;
Sistem.Cizgiler[3].Aciklama = "2.5f-";


////

**mehmetoruc** · 11-02-2024, 09:25

Originally Posted by BORSA_TRAD

Kod:

var LOW = Sistem.GrafikFiyatSec("Dusuk");
var HIGH = Sistem.GrafikFiyatSec("Yuksek");

var boxp = 5;

var LLV = Sistem.LLV(boxp, LOW);
var HHV = Sistem.HHV(boxp, HIGH);

var HHV3 = Sistem.HHV(boxp-2, HIGH);
var HHV4 = Sistem.HHV(boxp-1, HIGH);

var LowL = Sistem.Liste(0);
var NewH = Sistem.Liste(0);
var box1 = Sistem.Liste(0);
var box2 = Sistem.Liste(0);
var box3 = Sistem.Liste(0);

var bt15 = Sistem.Liste(0);
var bt25 = Sistem.Liste(0);


var bsince = 0 ;

for (int i=5; i< Sistem.BarSayisi; i++)
{

 if (LOW  [i] == LLV[i]) LowL[i] = LOW[i] ;
 if (LOW[i-1] == LLV[i]) LowL[i] = LOW[i-1] ;
 if (LOW[i-2] == LLV[i]) LowL[i] = LOW[i-2] ;
 if (LOW[i-3] == LLV[i]) LowL[i] = LOW[i-3] ;
 if (LOW[i-4] == LLV[i]) LowL[i] = LOW[i-4] ;
  else LowL[i] = LLV[i]; //LowL:=If(L=LLV(L,5),L, 
                               //If(Ref(L,-1)=LLV(L,5),Ref(L,-1), 
                               //If(Ref(L,-2)=LLV(L,5),Ref(L,-2),
                               //If(Ref(L,-3)=LLV(L,5),Ref(L,-3), 
                               //If(Ref(L,-4)=LLV(L,5),Ref(L,-4), 0)))));

 if ( HIGH[i] > HHV[i-1] ) NewH[i] = HIGH[i];
  else NewH[i] = NewH[i-1];  //NewH:=ValueWhen(1,H>Ref(HHV (H,5),-1),H);

 if( HHV3[i] < HHV4[i] ) box1[i] = 1;
  else box1[i] = -1;  //box1:=HHV(H,3)<HHV(H,4);


 if ( HIGH[i] > HHV[i-1] && box1[i] == -1 ) bsince = i ;

 if ( i-bsince == 3 )
                     {
                      bsince = 0 ;
                      box2 [i] = NewH[i] ; 
                      box3 [i] = LowL[i] ; 
                     }

  else
      {
       box2 [i] = box2 [i-1] ; //box2:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,NewH);
       box3 [i] = box3 [i-1] ; //box3:=ValueWhen(1,BarsSince(H>Ref(HHV(H,5),-1))=3 AND box1=true,LowL);
      }
  
  bt15 [i] = box3[i] - ( box3[i] * 1.5f ) /100 ; //BottomBox-(BottomBox*1.5)/100;
  bt25 [i] = box3[i] - ( box3[i] * 2.5f ) /100 ; //BottomBox-(BottomBox*2.5)/100

}



Sistem.Cizgiler[0].Deger = box2 ;
Sistem.Cizgiler[0].Aciklama = "TopBox";

Sistem.Cizgiler[1].Deger = box3 ;
Sistem.Cizgiler[1].Aciklama = "BottomBox";

Sistem.Cizgiler[2].Deger = bt15 ;
Sistem.Cizgiler[2].Aciklama = "1.5f-";

Sistem.Cizgiler[3].Deger = bt25 ;
Sistem.Cizgiler[3].Aciklama = "2.5f-";


////

buna al sat sinyali ekleyebilir miyiz.

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
BURCELIK BURCE	63,80	10%	246,50 Mn	59,00 / 63,80
TARKIM BITKI KORUMA TARKM	440,25	9.99%	436,07 Mn	408,25 / 440,25
UCAY MUHENDISLIK UCAYM	35,00	9.99%	1,07 Mr	34,96 / 35,00
BAYDONER RESTORANLARI BYDNR	33,56	9.96%	22,91 Mn	29,70 / 33,56
BURCELIK VANA BURVA	575,50	9.93%	58,80 Mn	523,50 / 575,50

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
TURK PRYSMIAN KABLO PRKAB	49,86	-10%	72,88 Mn	49,86 / 52,45
YESIL GMYO YGYO	1,80	-10%	11,92 Mn	1,80 / 2,00
SARKUYSAN SARKY	46,44	-10%	307,06 Mn	46,44 / 49,00
CUHADAROGLU METAL CUSAN	29,62	-9.97%	114,38 Mn	29,62 / 32,82
PARK ELEK.MADENCILIK PRKME	22,58	-9.97%	91,15 Mn	22,58 / 23,98

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
TURK HAVA YOLLARI THYAO	304,00	0.58%	25,31 Mr	298,50 / 308,25
ASELSAN ASELS	303,25	-4.94%	16,25 Mr	303,25 / 317,25
IS BANKASI (C) ISCTR	16,66	2.46%	14,30 Mr	16,06 / 16,84
AKBANK AKBNK	92,95	4.44%	13,94 Mr	87,90 / 92,95
YAPI VE KREDI BANK. YKBNK	41,08	1.68%	11,12 Mr	39,66 / 41,42

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
ANADOLU EFES AEFES	19,21	2.18%	1,26 Mr	18,59 / 19,21
AKBANK AKBNK	92,95	4.44%	13,94 Mr	87,90 / 92,95
ASELSAN ASELS	303,25	-4.94%	16,25 Mr	303,25 / 317,25
ASTOR ENERJI ASTOR	159,80	-2.02%	5,13 Mr	158,80 / 164,10
BIM MAGAZALAR BIMAS	664,00	-1.63%	5,48 Mr	656,00 / 677,00

Hisse	Fiyat	Fark%	Hacim (TL)	Düşük / Yüksek
ANADOLU EFES AEFES	19,21	2.18%	1,26 Mr	18,59 / 19,21
AKBANK AKBNK	92,95	4.44%	13,94 Mr	87,90 / 92,95
ALARKO HOLDING ALARK	108,00	-1.37%	1,50 Mr	106,30 / 110,10
ARCELIK ARCLK	114,00	-2.31%	934,01 Mn	113,10 / 117,80
ASELSAN ASELS	303,25	-4.94%	16,25 Mr	303,25 / 317,25

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

Seçenekler

Başlıklarda Ara

Görünüm

Hybrid View

paylaşım için teşekkürler. eksik olan kısımları ekledim.

Yer İmleri

Yer İmleri

Gönderi Kuralları