İ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