Tahmin Canlı Basketbol Tahminleri 14:40 19.10.2025

osoman4702' Alıntı:

Ekli dosyayı görüntüle 861595
BU cevaplar yeterlidir sanırım

Genişletmek için tıkla ...

The Magician' Alıntı:

Kardeş sen biraz dolan forumda, attığın fotoğrafa, fotoyu attığın adama bak.

Başarılar sana

Genişletmek için tıkla ...

The Magician' Alıntı:

Kardeş sen biraz dolan forumda, attığın fotoğrafa, fotoyu attığın adama bak.

Başarılar sana

Genişletmek için tıkla ...

osoman4702' Alıntı:

Bu şekilde Hesaplıyorum :
If sayilar Is Nothing OrElse sayilar.Count = 0 Then
Dim sonuc = "❌ Geçerli veri bulunamadı."
output.Add(sonuc)
Invoke(Sub() SonuclarBox.Items.Add(sonuc))
Else
' ----- 1) Aykırı değer temizliği (IQR) -----
Dim sorted = sayilar.OrderBy(Function(x) x).ToList()
Dim n As Integer = sorted.Count
Dim temiz As List(Of Double) = sorted
If n >= 4 Then
Dim q1Idx = CInt(Math.Floor((n + 1) * 0.25)) - 1
Dim q3Idx = CInt(Math.Floor((n + 1) * 0.75)) - 1
q1Idx = Math.Max(0, Math.Min(n - 1, q1Idx))
q3Idx = Math.Max(0, Math.Min(n - 1, q3Idx))
Dim q1 = sorted(q1Idx)
Dim q3 = sorted(q3Idx)
Dim iqr = q3 - q1
Dim lowerFence = q1 - 1.5 * iqr
Dim upperFence = q3 + 1.5 * iqr
Dim filtr = sorted.Where(Function(x) x >= lowerFence AndAlso x <= upperFence).ToList()
If filtr.Count >= Math.Max(2, CInt(Math.Floor(n * 0.5))) Then
temiz = filtr
End If
End If

' ----- 2) Temel istatistikler -----
Dim ort As Double = Math.Round(temiz.Average(), 2)
Dim ilk As Double = If(sayilar.Count > 0, sayilar(0), ort) ' en güncel çizgi
Dim sd As Double = 0.0
If temiz.Count > 1 Then
Dim mean = temiz.Average()
sd = Math.Sqrt(temiz.Sum(Function(v) (v - mean) * (v - mean)) / (temiz.Count - 1))
End If
Dim fark As Double = Math.Abs(ilk - ort)

' ----- 3) Çeyreğe göre alpha (EMA) -----
Dim alpha As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
alpha = 0.35
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
alpha = 0.5
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
alpha = 0.65
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
alpha = 0.85
Else
alpha = 0.5
End If
Dim ema As Double = Math.Round(alpha * ilk + (1 - alpha) * ort, 3)

' ----- 4) Katsayı hesaplama -----
Dim katsayi As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
katsayi = 0.45
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
katsayi = 0.6
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
katsayi = 0.75
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
katsayi = 0.9
Else
katsayi = 0.6
End If

If sd < 1.5 Then katsayi += 0.12
If sd > 4 Then katsayi -= 0.12
If fark > 5 Then katsayi += 0.12
If fark > 10 Then katsayi += 0.18
If ilk < ort - 5 Then katsayi -= 0.08

katsayi = Math.Max(0.2, Math.Min(1.6, katsayi))

' ----- 5) Nihai tahmin puanı (güncel çizgiye göre) -----
Dim tahminiPuan As Double = Math.Round(ilk + (ema - ort) * katsayi, 2)

' ----- 6) Makul sınırlandırma -----
Dim minLimit As Double = Math.Floor(ilk - 15)
Dim maxLimit As Double = Math.Ceiling(ilk + 15)
If tahminiPuan < minLimit Then tahminiPuan = minLimit
If tahminiPuan > maxLimit Then tahminiPuan = maxLimit

' ----- 7) Dinamik karar eşiği -----
Dim dynamicThreshold As Double = 2.0 + sd * 0.45
If temiz.Count < 5 Then dynamicThreshold += 1.5
If temiz.Count < 3 Then dynamicThreshold += 2.0

Dim karar As String = ""
If tahminiPuan >= ilk + dynamicThreshold Then
karar = "ÜST"
ElseIf tahminiPuan <= ilk - dynamicThreshold Then
karar = "ALT"
Else
karar = "DENGEDE"
End If

' ----- 8) Güven yüzdesi -----
Dim guven As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
guven = 0.45
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
guven = 0.62
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
guven = 0.78
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
guven = 0.93
Else
guven = 0.6
End If
guven += Math.Min(0.15, Math.Log10(Math.Max(1, temiz.Count)) * 0.06)
guven -= Math.Min(0.25, sd * 0.03)
guven = Math.Max(0.18, Math.Min(0.99, guven))

' ----- 9) Yorum ve UI -----
' ----- 9) Yorum ve UI -----
Dim yorum As String = ""
Select Case karar
Case "ÜST"
yorum = $"🎯ÜST eğilimli 📈" &
$" 🔥Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
Case "ALT"
yorum = $"🎯ALT eğilimli 📉" &
$" ❄Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
Case Else
yorum = $"🎯Tempo Dengede" &
$" 🟡Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
End Select

Genişletmek için tıkla ...

osoman4702' Alıntı:

Bu şekilde Hesaplıyorum :
If sayilar Is Nothing OrElse sayilar.Count = 0 Then
Dim sonuc = "❌ Geçerli veri bulunamadı."
output.Add(sonuc)
Invoke(Sub() SonuclarBox.Items.Add(sonuc))
Else
' ----- 1) Aykırı değer temizliği (IQR) -----
Dim sorted = sayilar.OrderBy(Function(x) x).ToList()
Dim n As Integer = sorted.Count
Dim temiz As List(Of Double) = sorted
If n >= 4 Then
Dim q1Idx = CInt(Math.Floor((n + 1) * 0.25)) - 1
Dim q3Idx = CInt(Math.Floor((n + 1) * 0.75)) - 1
q1Idx = Math.Max(0, Math.Min(n - 1, q1Idx))
q3Idx = Math.Max(0, Math.Min(n - 1, q3Idx))
Dim q1 = sorted(q1Idx)
Dim q3 = sorted(q3Idx)
Dim iqr = q3 - q1
Dim lowerFence = q1 - 1.5 * iqr
Dim upperFence = q3 + 1.5 * iqr
Dim filtr = sorted.Where(Function(x) x >= lowerFence AndAlso x <= upperFence).ToList()
If filtr.Count >= Math.Max(2, CInt(Math.Floor(n * 0.5))) Then
temiz = filtr
End If
End If

' ----- 2) Temel istatistikler -----
Dim ort As Double = Math.Round(temiz.Average(), 2)
Dim ilk As Double = If(sayilar.Count > 0, sayilar(0), ort) ' en güncel çizgi
Dim sd As Double = 0.0
If temiz.Count > 1 Then
Dim mean = temiz.Average()
sd = Math.Sqrt(temiz.Sum(Function(v) (v - mean) * (v - mean)) / (temiz.Count - 1))
End If
Dim fark As Double = Math.Abs(ilk - ort)

' ----- 3) Çeyreğe göre alpha (EMA) -----
Dim alpha As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
alpha = 0.35
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
alpha = 0.5
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
alpha = 0.65
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
alpha = 0.85
Else
alpha = 0.5
End If
Dim ema As Double = Math.Round(alpha * ilk + (1 - alpha) * ort, 3)

' ----- 4) Katsayı hesaplama -----
Dim katsayi As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
katsayi = 0.45
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
katsayi = 0.6
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
katsayi = 0.75
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
katsayi = 0.9
Else
katsayi = 0.6
End If

If sd < 1.5 Then katsayi += 0.12
If sd > 4 Then katsayi -= 0.12
If fark > 5 Then katsayi += 0.12
If fark > 10 Then katsayi += 0.18
If ilk < ort - 5 Then katsayi -= 0.08

katsayi = Math.Max(0.2, Math.Min(1.6, katsayi))

' ----- 5) Nihai tahmin puanı (güncel çizgiye göre) -----
Dim tahminiPuan As Double = Math.Round(ilk + (ema - ort) * katsayi, 2)

' ----- 6) Makul sınırlandırma -----
Dim minLimit As Double = Math.Floor(ilk - 15)
Dim maxLimit As Double = Math.Ceiling(ilk + 15)
If tahminiPuan < minLimit Then tahminiPuan = minLimit
If tahminiPuan > maxLimit Then tahminiPuan = maxLimit

' ----- 7) Dinamik karar eşiği -----
Dim dynamicThreshold As Double = 2.0 + sd * 0.45
If temiz.Count < 5 Then dynamicThreshold += 1.5
If temiz.Count < 3 Then dynamicThreshold += 2.0

Dim karar As String = ""
If tahminiPuan >= ilk + dynamicThreshold Then
karar = "ÜST"
ElseIf tahminiPuan <= ilk - dynamicThreshold Then
karar = "ALT"
Else
karar = "DENGEDE"
End If

' ----- 8) Güven yüzdesi -----
Dim guven As Double
If sureEtiketi.Contains("Q1") OrElse sureEtiketi.Contains("1P") Then
guven = 0.45
ElseIf sureEtiketi.Contains("Q2") OrElse sureEtiketi.Contains("2P") Then
guven = 0.62
ElseIf sureEtiketi.Contains("Q3") OrElse sureEtiketi.Contains("3P") Then
guven = 0.78
ElseIf sureEtiketi.Contains("Q4") OrElse sureEtiketi.Contains("4P") Then
guven = 0.93
Else
guven = 0.6
End If
guven += Math.Min(0.15, Math.Log10(Math.Max(1, temiz.Count)) * 0.06)
guven -= Math.Min(0.25, sd * 0.03)
guven = Math.Max(0.18, Math.Min(0.99, guven))

' ----- 9) Yorum ve UI -----
' ----- 9) Yorum ve UI -----
Dim yorum As String = ""
Select Case karar
Case "ÜST"
yorum = $"🎯ÜST eğilimli 📈" &
$" 🔥Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
Case "ALT"
yorum = $"🎯ALT eğilimli 📉" &
$" ❄Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
Case Else
yorum = $"🎯Tempo Dengede" &
$" 🟡Güven: %{Math.Round(guven * 100)} | Katsayı: {katsayi:0.##} | SD: {Math.Round(sd, 2)}"
End Select

Genişletmek için tıkla ...

osoman4702' Alıntı:

Ekli dosyayı görüntüle 861857
▶ Q4 - 05:08 - Nevezis Kedainiai vs Siauliai
↪ Güncel Değer: 190,5
↪ Ortalama: 180,19
🎯ÜST eğilimli 📈 🔥Güven: %91 | Katsayı: 1,08 | SD: 5,72
🎯 Tahmini Toplam Puan: 199,97

▶ Q3 - 04:21 - Pallacanestro Cantù vs Trapani Shark
↪ Güncel Değer: 158,5
↪ Ortalama: 165,77
🎯ALT eğilimli 📉 ❄Güven: %81 | Katsayı: 0,79 | SD: 3,62
🎯 Tahmini Toplam Puan: 154,77

Genişletmek için tıkla ...

osoman4702' Alıntı:

▶ Q2 - 04:23 - Brandys n. Labem vs KP Brno Kadınlar
↪ Güncel Değer: 150,5
↪ Ortalama: 152,23
🎯Tempo Dengede 🟡Güven: %68 | Katsayı: 0,6 | SD: 2,63
🎯 Tahmini Toplam Puan: 149,98
-----
▶ OT - 02:17 - Yeni Taipei Kralları vs Taipei Taishin Mars
↪ Güncel Değer: 220,5
↪ Ortalama: 205,5
🎯ÜST eğilimli 📈 🔥Güven: %54 | Katsayı: 0,78 | SD: 7,03
🎯 Tahmini Toplam Puan: 226,35
-----
▶ Q1 - 12:00 - Meralco Cıvataları vs Magnolia Sıcak Noktaları
↪ Güncel Değer: 184,5
↪ Ortalama: 186,27
🎯Tempo Dengede 🟡Güven: %48 | Katsayı: 0,57 | SD: 1,36
🎯 Tahmini Toplam Puan: 184,15
-----
▶ Q4 - 00:22 - UP Savaşan Bordolar vs DLSU Yeşil Okçular
↪ Güncel Değer: 144,5
↪ Ortalama: 155,05
🎯ALT eğilimli 📉 ❄Güven: %92 | Katsayı: 1 | SD: 5,4
🎯 Tahmini Toplam Puan: 135,53
-----
▶ Q2 - 04:00 - Aanekosken Huima Women vs Turun Riento Kadınlar
↪ Güncel Değer: 147,5
↪ Ortalama: 146,63
🎯Tempo Dengede 🟡Güven: %67 | Katsayı: 0,72 | SD: 1,36
🎯 Tahmini Toplam Puan: 147,81
-----
▶ Q2 - 00:26 - Pyrinto Akatemia Kadınlar vs Hyvinkaan Ponteva Women
↪ Güncel Değer: 146,5
↪ Ortalama: 137,1
🎯Tempo Dengede 🟡Güven: %60 | Katsayı: 0,6 | SD: 5,37
🎯 Tahmini Toplam Puan: 149,32
-----
▶ Q3 - 10:00 - Bluefire Valkyries (W) vs Tagaytay Tol Patriots (W)
↪ Güncel Değer: 161,5
↪ Ortalama: 149,8
🎯ÜST eğilimli 📈 🔥Güven: %73 | Katsayı: 0,93 | SD: 6,1
🎯 Tahmini Toplam Puan: 168,57
-----
▶ Q4 - 06:33 - DKV Joventut vs Bizkaia Bilbao
↪ Güncel Değer: 167,5
↪ Ortalama: 164,28
🎯Tempo Dengede 🟡Güven: %99 | Katsayı: 0,9 | SD: 2,57
🎯 Tahmini Toplam Puan: 169,96
-----
▶ Q3 - 04:40 - Real Madrid Basketbol vs San Pablo Burgos
↪ Güncel Değer: 185,5
↪ Ortalama: 178,96
🎯Tempo Dengede 🟡Güven: %79 | Katsayı: 0,75 | SD: 4,22
🎯 Tahmini Toplam Puan: 188,69
-----
▶ Q4 - 07:20 - Dinamo Sassari vs Olimpia Milano
↪ Güncel Değer: 156,5
↪ Ortalama: 157,37
🎯Tempo Dengede 🟡Güven: %93 | Katsayı: 0,78 | SD: 5,03
🎯 Tahmini Toplam Puan: 155,92
-----
▶ Q3 - 08:31 - Gernika Bizkaia K vs Zaragoza K
↪ Güncel Değer: 161,5
↪ Ortalama: 149,59
🎯ÜST eğilimli 📈 🔥Güven: %67 | Katsayı: 0,93 | SD: 9,2
🎯 Tahmini Toplam Puan: 168,7
-----
▶ Q2 - 01:27 - Universitario De Ferrol Kadınlar vs Araski K
↪ Güncel Değer: 117,5
↪ Ortalama: 124,28
🎯Tempo Dengede 🟡Güven: %51 | Katsayı: 0,52 | SD: 8,59
🎯 Tahmini Toplam Puan: 115,74
-----
▶ OT - 02:19 - Alvark Tokyo vs Ibaraki Robots
↪ Güncel Değer: 143,5
↪ Ortalama: 147,75
🎯Tempo Dengede 🟡Güven: %64 | Katsayı: 0,6 | SD: 3,54
🎯 Tahmini Toplam Puan: 142,22
-----
▶ Q3 - 02:10 - Chiba vs Gunma
↪ Güncel Değer: 160,5
↪ Ortalama: 158,37
🎯Tempo Dengede 🟡Güven: %81 | Katsayı: 0,63 | SD: 4,11
🎯 Tahmini Toplam Puan: 161,37
-----

Genişletmek için tıkla ...

bella' Alıntı:

Birşey anlamadım Oralet Osman daha açığı yok mu

Genişletmek için tıkla ...

• Maçın adı
• güncel anlık alt üst puanı
• ortalama = maç başından beri değişen bahis şirketlerinin nverdiği tüm alt üst puanı ortalması
• tempo alt -üst - dengede
• guven: tahminin doğruluk oranı
• katsayi: istatistiksel katsayı
• sd: tahminin dağılım genişliği, yani ne kadar oynaklık var

osoman4702' Alıntı:

Uzun zamandır geliştirdiğim analiz programını bugün bitirdim 8 kupondan 6sı kazandı gayet stabil çalışıyor

• Maçın adı
• güncel anlık alt üst puanı
• ortalama = maç başından beri değişen bahis şirketlerinin nverdiği tüm alt üst puanı ortalması
• tempo alt -üst - dengede
• guven: tahminin doğruluk oranı
• katsayi: oran veya istatistiksel katsayı
• sd: tahminin dağılım genişliği, yani ne kadar oynaklık var

Genişletmek için tıkla ...

Barrios' Alıntı:

Sariların Osman bırak bu işleri yol yakınken

Genişletmek için tıkla ...

osoman4702' Alıntı:

8 kupon yaptım 6sı kazandı gayet güzel çalışıyor kimseden para falanda istemiyorum sadece paylaşıyorum
videosu

Genişletmek için tıkla ...

osoman4702' Alıntı:

Uzun zamandır geliştirdiğim analiz programını bugün bitirdim 8 kupondan 6sı kazandı gayet stabil çalışıyor

• Maçın adı
• güncel anlık alt üst puanı
• ortalama = maç başından beri değişen bahis şirketlerinin nverdiği tüm alt üst puanı ortalması
• tempo alt -üst - dengede
• guven: tahminin doğruluk oranı
• katsayi: istatistiksel katsayı
• sd: tahminin dağılım genişliği, yani ne kadar oynaklık var

Genişletmek için tıkla ...

bella' Alıntı:

İtalya (şike)ligi hariç denenebilir teşekkürler kral

Genişletmek için tıkla ...

TorosKaplanı' Alıntı:

Bu kadar kafa yorup 500 tl mi basiyorsun

Genişletmek için tıkla ...

osoman4702' Alıntı:

programı ücretsiz bir şekilde kupon paylaşım alanınnda paylaşıcam şimdi isterse ordann bakabilirsin

dostum daha bugün doğru formülü buldum

Genişletmek için tıkla ...

osoman4702' Alıntı:

admin izin vermedi programı paylaşmaya daha fazla kişi test etse güzel olurdu

Genişletmek için tıkla ...