x gli amici scripter, posiz.ni determinate su + ruote

[vincenzo4221]

Ciao a tutti , ultimamente sto diventando bravino nel pronosticare ogni 7/8 estrazioni di media, 1 numero su TRE ruote , ora diventa importante trovare una riduzione su posizioni determinate, ho già uno script , gentilmente concesso da Beppignello, ma fa le analisi su solo 1 ruota , CHIEDO , si può modificare? , chiedendo di analizzare TRE ruote , o farne uno nuovo?..
per le prossime estrazioni il 21 è favoritissimo su BA NA e MI , quali saranno le posizioni determinate favorite?

 

[Beppignello]

ho corretto mettendo più ruote e corretto piccolo errore di output precedente.

non ho tempo per verificare se funziona bene ed è esatto

prova controllare i dati nello specchietto che siano esatti, soprattutto le presente teoriche

Option Explicit
Sub Main
 Dim n,est,est2,r,c,retfre,p,tp1,tp2,tp3,tp4,tp5,gen,rae,retrit,retritmax,teo,perc,descr,frelun,ne,v,perc2,qt,m,ruote,nruotesel,nrt
 Dim apos(5),an(10),pr(5)
 ReDim ar(10)
 nruotesel = ScegliRuote(ar)
 ScegliNumeri(an)
 qt = UBound(an)
 ''''''crea tabella combinazione
 Dim atitolo(16),aris(16)
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 atitolo(1) = "Ruota"
 atitolo(2) = "Combin. "
 atitolo(3) = " da estr."
 atitolo(4) = "   a estr. "
 atitolo(5) = " 1°P.d. "
 atitolo(6) = " 2°P.d. "
 atitolo(7) = " 3°P.d. "
 atitolo(8) = " 4°P.d. "
 atitolo(9) = " 5°P.d. "
 atitolo(10) = "Tot.usc."
 atitolo(11) = "Fr.ReaP."
 atitolo(12) = "Fr.TeoP."
 atitolo(13) = "  % Per  "
 atitolo(14) = "Fr.ReaL."
 atitolo(15) = "Fr.TeoL."
 atitolo(16) = " %Lungo"
 SetTableWidth("95%px")
 Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
 ColoreTesto(2)
 For r = 1 To nruotesel
  Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
  nrt = nrt & SiglaRuota(ar(r)) & " - "
 Next
 ColoreTesto(0)
 est = EstrazioneFin - 909
 est2 = EstrazioneFin - 819
 tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
 For c = 1 To 10
  For p = 1 To 5
   apos(p) = True
   Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,est,est2,,apos)
   pr(p) = retfre
   apos(p) = False
  Next
  Scrivi nrt & "      " & StringaNumeri(an,".") & " da.." & est & "  a.." & est2 & "    Presenze..." & pr(1) & "..." & pr(2) & "..." & pr(3) & "..." & pr(4) & "..." & pr(5)
  tp1 = tp1 + pr(1)
  tp2 = tp2 + pr(2)
  tp3 = tp3 + pr(3)
  tp4 = tp4 + pr(4)
  tp5 = tp5 + pr(5)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  aris(1) = nrt
  aris(2) = StringaNumeri(an,".")
  aris(3) = est
  aris(4) = est2
  aris(5) = pr(1)
  aris(6) = pr(2)
  aris(7) = pr(3)
  aris(8) = pr(4)
  aris(9) = pr(5)
  aris(10) = pr(1) + pr(2) + pr(3) + pr(4) + pr(5)
  Call AddRigaTabella(aris,,,1)
  If aris(10) < 10 Then
   Call SetColoreCella(10,RGB(255,255,176),vbBlack)
  End If
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  est = est + 91
  est2 = est2 + 91
 Next
 gen = tp1 + tp2 + tp3 + tp4 + tp5
 ColoreTesto(2)
 Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,EstrazioneFin - 899,EstrazioneFin)
 teo = 900/(18/qt)*nruotesel
 perc = Round((teo - retfre)/teo,2)*100
 If perc > 0 Then
  ColoreTesto(0)
  descr = "(Scarto   "
 Else
  descr = "(Eccesso + "
  perc = 0
  ColoreTesto(2)
 End If
 Scrivi "-------------------  T o t a l e  " & Format2(tp1) & ".." & Format2(tp2) & ".." & Format2(tp3) & ".." & Format2(tp4) & ".." & Format2(tp5) & "------>" & gen & "    RaE.." & retrit & " / " & retritmax & "   Fr.Reale.." & retfre & "   Fr.Teo.." & teo & "  " & descr & retfre - teo & ")       %  " & FormattaStringa(perc,"00.00"),1
 ColoreTesto(0)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   tabella
 aris(1) = nrt
 aris(2) = StringaNumeri(an,".")
 aris(3) = 3950
 aris(4) = EstrazioneFin
 aris(5) = tp1
 aris(6) = tp2
 aris(7) = tp3
 aris(8) = tp4
 aris(9) = tp5
 aris(10) = "Tot. " & gen
 aris(11) = gen
 aris(12) = teo
 aris(13) = FormattaStringa(perc,"00.00")
 Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,3950,EstrazioneFin)
 frelun = retfre
 ne = Int((EstrazioneFin - 3950) /(18/qt))*nruotesel
 aris(14) = frelun
 aris(15) = ne
 perc2 = Round((ne - frelun)/ne,2)*100
 aris(16) = perc2
 Call AddRigaTabella(aris,,,1)
 For v = 1 To 16
  Call SetColoreCella(Int(v),RGB(224,224,224),vbBlack)
 Next
 If aris(11) < aris(12) Then
  Call SetColoreCella(11,RGB(255,128,128),vbBlack)
 End If
 If aris(14) < aris(15) Then
  Call SetColoreCella(14,RGB(255,128,128),vbBlack)
 End If
 Call CreaTabella(3,- 1,1)
End Sub

 

[vincenzo4221]

Grazie Beppi, sembra che vada bene..

 

[Beppignello]

faccio un test per le modifiche apportate nuovamente

FI-GE estratti 12 68 RaE/RxE..57 / 57


negli ultimi 900 concorsi pos.det. 1 e 5 in sottofrequenza
dal estr.3950 ad oggi pos.det. 1 - 4 - 5 in sottofrequenza

lo scarto risulta comunque minimo rispetto alle presenze teoriche di lungo periodo.


questa combinazione risulta al maxmax storico per le 4005 coppie possibili con i 90 numeri.

dall'estraz.3950 il ritardo max sto è stato di 57.