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

[serseri26]

yüzeysel veride bildiðim kadarý ile yoktu.
aþaðýdaki kod direk çalýþan ideal sistem kodudur. Bununla brüt takas bilgisini çekebilirsiniz.
Bir hissenin brüt takas uygulamasýnda olup olmadýðýný ve eðer brüt takasta ise;
Baþlangýç ve bitiþ tarihlerini, kredi yasaðý, açýk yasaðý, internet yasaðý, tek fiyat uygulamasý var mý yok mu ve hisse pazarýný okuyabilirsiniz.
Pratikte her döngüde webden veri çekmeyi tavsiye etmem. günde bir kez veri çekip yazan yardýmcý bir robot yazýp bu kodlardan faydalanarak ideal tablosuna veya dosyaya yazabilirsiniz. asýl robotda ise yazdýðýnýz yerden okuyabilirsiniz.

//Brüt Takas listesini gedik yatýrým sayfasýndan oku.
string webData = System.Text.Encoding.UTF8.GetString((new System.Net.WebClient()).DownloadData("https://www.gedik.com/bilgi-egitimler/tedbirli-hisseler"));
string pattern = "(?<=\\t\\t\\t<p>)(.+?)(?=</p>)";
System.Text.RegularExpressions.MatchCollection matches = System.Text.RegularExpressions.Regex.Matches(webData, pattern);
var  BrutTakasList = new Dictionary< string, List<string> >();
for (int i = 9; i < matches.Count; i+=9)
{
   List<string> HisseDetayBilgileri = new List<string>(); 
   HisseDetayBilgileri.Add(matches[i+1].Value.ToString()); // 0-Baþlangýç Tarihi
   HisseDetayBilgileri.Add(matches[i+2].Value.ToString()); // 1-Bitiþ Tarihi
   HisseDetayBilgileri.Add(matches[i+3].Value.ToString()); // 2-Brüt Takas
   HisseDetayBilgileri.Add(matches[i+4].Value.ToString()); // 3-Kredi Yasaðý
   HisseDetayBilgileri.Add(matches[i+5].Value.ToString()); // 4-Açýk Satýþ Yasaðý
   HisseDetayBilgileri.Add(matches[i+6].Value.ToString()); // 5-Ýnternet Yasaðý
   HisseDetayBilgileri.Add(matches[i+7].Value.ToString()); // 6-Tek Fiyat Uygulamasý
   HisseDetayBilgileri.Add(matches[i+8].Value.ToString()); // 7-Hisse Pazar
   BrutTakasList[matches[i].Value.ToString()] = HisseDetayBilgileri;
}

//Örnek Kullaným
string TemizAd= Sistem.Sembol.Replace("IMKBH'","");
if( BrutTakasList.ContainsKey(TemizAd))
 Sistem.Mesaj(TemizAd+": Bu Hissede Brüt Takas Uygulamasý bulunuyor! Bitiþ Tarihi:"+BrutTakasList[TemizAd][1] +" Tek Fiyat Uygulamasý: "+BrutTakasList[TemizAd][6] );
else
 Sistem.Mesaj(TemizAd+": Alýnýr abi alýnýr.."); 

Hocam bunun haricinde gün içinde bir hissenin kaç kez devre kestiðini kontol edebileceðimiz bir yönetim biliyor musunuz?

[Hector Salamanca]

Hocam bunun haricinde gün içinde bir hissenin kaç kez devre kestiðini kontol edebileceðimiz bir yönetim biliyor musunuz?

KeserOS kullanabilirsiniz.kesintinin bittiði barda 1 diðer barlarda 0 döndürür.
ihtiyacýnýza göre veya farklý durumlara göre ayarlayabilirsiniz, iyileþtirirseniz tekrar yazýn buraya.

var V = Sistem.GrafikVerileri ;

//KeserOS: Devre Kesici Osilatörü
var KeserOS = Sistem.Liste(0); 
for (int i = 2 ; i < V.Count; i++) 
if(V[i].Date.Subtract(V[i-1].Date).TotalMinutes==30) { KeserOS [i]= 1f;  Sistem.DikeyCizgiEkle(i, Color.Yellow, 2, 1); }

Sistem.Cizgiler[0].Deger=KeserOS; 

[alekss]

Bir ara youtube da bir video izlemiþtim bulamadým, düþen trendin kýrýlýmý ile ilgili bir tarama yapýlýyordu, kodu mevcut mu aceba?

string Periyot = "5";
string Msg = "";
string Statu = "";
var Trendperiyodu = 800; //son 800 bar içindeki trend
var SonXbar= 50; //son 50 barý dikkate alma

var Liste = Sistem.YuzeyselListeGetir("IMKBH'");
for (var i = 0; i < Liste.Count; i++)
{
if (Liste[i].IndexType == "100" && Sistem.Saat.CompareTo("10:00:00") > 0)
{
var Sembol = Liste[i].Symbol;
var Kod = Liste[i].Root;
var V = Sistem.GrafikVerileriniOku(Sembol, Periyot);

Statu = " ";
var Yukselen = Sistem.OtoTrendYukselen(V, Trendperiyodu , SonXbar);
var Dusen = Sistem.OtoTrendDusen(V, Trendperiyodu , SonXbar);

if (V[V.Count - 1].Close < V[V.Count - Trendperiyodu].Close && V[V.Count - 1].High > Dusen[Dusen.Count - 1] && Dusen[Dusen.Count - 1] != 0)
{
Statu = "Yukarý Kýrýldý";
Msg += Kod + " Son Fiyat = " + V[V.Count - 1].Close + " " + " Düþen Trend Deðeri = " + Dusen[Dusen.Count - 1].ToString("0.00") + " " + "Durum =" + Statu + "\r\n";
}
else if (V[V.Count - 1].Close > V[V.Count - Trendperiyodu].Close && V[V.Count - 1].Low < Yukselen[Yukselen.Count - 1] && Yukselen[Yukselen.Count - 1] != 0)
{
Statu = "Aþaðý Kýrýldý";
Msg += Kod + " Son Fiyat = " + V[V.Count - 1].Close + " " + " Yükselen Trend Deðeri = " + Yukselen[Yukselen.Count - 1].ToString("0.00") + " " + "Durum =" + Statu + "\r\n";
}

}
}
Sistem.Mesaj(Msg);

[akg58]

string Periyot = "5";
string Msg = "";
string Statu = "";
var Trendperiyodu = 800; //son 800 bar içindeki trend
var SonXbar= 50; //son 50 barý dikkate alma

var Liste = Sistem.YuzeyselListeGetir("IMKBH'");
for (var i = 0; i < Liste.Count; i++)
{
if (Liste[i].IndexType == "100" && Sistem.Saat.CompareTo("10:00:00") > 0)
{
var Sembol = Liste[i].Symbol;
var Kod = Liste[i].Root;
var V = Sistem.GrafikVerileriniOku(Sembol, Periyot);

Statu = " ";
var Yukselen = Sistem.OtoTrendYukselen(V, Trendperiyodu , SonXbar);
var Dusen = Sistem.OtoTrendDusen(V, Trendperiyodu , SonXbar);

if (V[V.Count - 1].Close < V[V.Count - Trendperiyodu].Close && V[V.Count - 1].High > Dusen[Dusen.Count - 1] && Dusen[Dusen.Count - 1] != 0)
{
Statu = "Yukarý Kýrýldý";
Msg += Kod + " Son Fiyat = " + V[V.Count - 1].Close + " " + " Düþen Trend Deðeri = " + Dusen[Dusen.Count - 1].ToString("0.00") + " " + "Durum =" + Statu + "\r\n";
}
else if (V[V.Count - 1].Close > V[V.Count - Trendperiyodu].Close && V[V.Count - 1].Low < Yukselen[Yukselen.Count - 1] && Yukselen[Yukselen.Count - 1] != 0)
{
Statu = "Aþaðý Kýrýldý";
Msg += Kod + " Son Fiyat = " + V[V.Count - 1].Close + " " + " Yükselen Trend Deðeri = " + Yukselen[Yukselen.Count - 1].ToString("0.00") + " " + "Durum =" + Statu + "\r\n";
}

}
}
Sistem.Mesaj(Msg);

çok teþekkürler.

[coskunc]

Merhaba,

Ýstediðim bir zaman aralýðýndaki, mesela 9.30 - 10.01 HH ve LL deðerlerini okutup bir deðiþkene atamak istiyorum. Bunu nasýl yapabilirim?

[Hector Salamanca]

Merhaba,

Ýstediðim bir zaman aralýðýndaki, mesela 9.30 - 10.01 HH ve LL deðerlerini okutup bir deðiþkene atamak istiyorum. Bunu nasýl yapabilirim?

var V = Sistem.GrafikVerileri;

//Zaman aralýðýndaki en Düþük ve En Yüksek deðerleri Bulur
var Baslangic = "09:30";
var Bitis = "10:01";
var SabahHH = 0f; 
var SabahLL = 0f;
for (int i=V.Count-1; i > V.Count-1000 ; i--)
{
 if ( V[i].Date.ToString("HH:mm").CompareTo(Baslangic ) >= 0 
      && V[i].Date.ToString("HH:mm").CompareTo(Bitis ) <= 0
    )
 {  
   SabahLL = (SabahLL ==0 ? V[i].Low : Math.Min(SabahLL, V[i].Low )); 
   SabahHH = Math.Max(SabahHH, V[i].High); 
 }

 if (V[i].Date.ToString("HH:mm").CompareTo(Baslangic ) == 0) break;
}
//--------------------------------------------------------

Sistem.Mesaj("En Yüksek: "+ SabahHH.ToString() + "  En Düþük: "+ SabahLL.ToString() ); 

[coskunc]

var V = Sistem.GrafikVerileri;

//Zaman aralýðýndaki en Düþük ve En Yüksek deðerleri Bulur
var Baslangic = "09:30";
var Bitis = "10:01";
var SabahHH = 0f; 
var SabahLL = 0f;
for (int i=V.Count-1; i > V.Count-1000 ; i--)
{
 if ( V[i].Date.ToString("HH:mm").CompareTo(Baslangic ) >= 0 
      && V[i].Date.ToString("HH:mm").CompareTo(Bitis ) <= 0
    )
 {  
   SabahLL = (SabahLL ==0 ? V[i].Low : Math.Min(SabahLL, V[i].Low )); 
   SabahHH = Math.Max(SabahHH, V[i].High); 
 }

 if (V[i].Date.ToString("HH:mm").CompareTo(Baslangic ) == 0) break;
}
//--------------------------------------------------------

Sistem.Mesaj("En Yüksek: "+ SabahHH.ToString() + "  En Düþük: "+ SabahLL.ToString() ); 

Çok saðolun. Þu satýrý bana mantýksal adýmlar þeklinde açýklayabilir misiniz? Diðer kýsýmlar tamam, burayý çözemiyorum. Anlayýp öðrenmek de istiyorum.

SabahLL = (SabahLL ==0 ? V[i].Low : Math.Min(SabahLL, V[i].Low ));

[Hector Salamanca]

Çok saðolun. Þu satýrý bana mantýksal adýmlar þeklinde açýklayabilir misiniz? Diðer kýsýmlar tamam, burayý çözemiyorum. Anlayýp öðrenmek de istiyorum.

SabahLL = (SabahLL ==0 ? V[i].Low : Math.Min(SabahLL, V[i].Low ));

0 ise en düþüðü ata, aksi halde en son atanan ile en düþüðü kýyaslayýp küçük olaný ata.
neden HH a göre karýþýk bu? çünkü default 0 ile baþladýk ve 0 ý neyle kýyaslarsak kýyaslayalým sonuç 0 dýr. böyle olmasýn diye böyle