cumulativo

vincenzo4221 · 25 Marzo 2017

itardo globale quartine superiore al 2000

Rit. x Ambo Ba Ca Fi Ge Mi Na Pa Ro To Ve SOMMA

01.07.14.47 258 135 393 116 15 326 264 196 22 302 2027
02.03.16.57 24 346 159 23 59 883 368 22 273 3 2160
03.14.22.85 752 58 134 108 396 128 157 146 86 92 2057
03.16.50.76 785 219 181 43 202 188 289 7 4 152 2070
03.52.71.77 128 16 275 244 66 52 58 128 52 1103 2122
04.14.62.79 249 138 187 662 72 89 157 65 398 38 2055
04.18.35.47 264 425 15 464 77 190 82 53 633 83 2286
05.62.67.79 97 733 101 255 120 5 165 105 662 30 2273
07.66.68.79 430 2 157 457 139 338 219 95 155 63 2055
09.22.49.67 355 230 49 493 140 34 220 63 255 193 2032
09.48.49.88 85 256 76 484 382 218 517 63 17 141 2239
10.60.66.68 346 117 106 285 1 40 133 95 428 468 2019
13.35.70.87 30 292 8 127 515 108 48 56 659 164 2007
14.15.77.85 381 169 67 48 287 81 157 72 569 235 2066
14.16.57.82 391 397 127 57 40 76 555 169 204 14 2030
15.33.71.83 106 254 623 68 31 81 26 58 48 782 2077
16.32.68.84 511 44 98 9 224 538 224 172 27 437 2284
16.49.60.90 28 44 26 117 310 40 231 801 343 64 2004
18.38.47.60 204 117 15 253 415 105 136 341 429 49 2064
18.38.61.77 122 407 6 88 710 24 140 127 336 151 2111
18.38.77.85 122 240 6 88 460 14 352 35 463 342 2122
18.47.60.74 107 144 15 253 178 105 168 475 769 49 2263
22.33.71.83 36 254 595 288 26 81 2 86 228 480 2076
22.42.67.79 135 286 226 457 140 17 173 561 12 43 2050
25.51.70.87 70 81 92 533 29 425 44 142 353 296 2065
29.52.71.83 133 362 16 221 179 26 83 11 484 560 2075
36.39.45.50 249 15 178 130 47 91 10 595 65 675 2055
44.49.60.67 385 502 17 10 237 216 121 263 131 180 2062

Aggiornato al 21.01.2017
Ciao a Tutti , volevo chiedere agli scripters del forum uno script per la ricerca del ritardo cumulato come sopra , nell'elenco di kabila , magari con la possibilità di cercare diverse classi( coppie, terzine, quartine,cinquin sestine).ciao

vincenzo4221 · 27 Marzo 2017

"runtime error 203 et 06A272C " è quello che appare in seguito alla finestrella "memoria esaurita "quando chiedo di esaminare le coppie per estratto ..per quello che ne capisco (poco);
... per come elabora lo script, impiega troppa memoria

Membro cancellato 16574 · 31 Marzo 2017

Buongirno,
Salutandola,
Abbiamo eliminato il Listato .
Quello fatto da Beppignello , e'molto piu' performante e preciso .

vincenzo4221 · 1 Aprile 2017

ciao magia , grazie per la collaborazione , in passato abbiamo già discusso e postato qualke script a riguardo , ma molto elaborati, se si riesce a fare questo che dovrebbe essere più semplice , con le indicazioni di cui sopra , poi si potranno utilizzare quelli messi già a disposizione di Luigi e Beppignello e farli girare con indicazioni più restrittive e quindi capaci di dare un risultato in tempi più brevi , per questo motivo ho chiesto uno script con solo quelle primarie indicazioni "la somma". ciao

Beppignello · 3 Aprile 2017

Ho fatto un ulteriore modifica ad un mio script per lottotom e sky

se ti puo' servire te lo posto

Membro cancellato 16574 · 4 Aprile 2017

Buongiorno,
Salutando tutti ,
Abbiamo modificato , il listato , anche prendendo spunto dai listati
di Beppignello, di cui c' eravamo dimenticati di menzionare tra i " prof ".
Controllare Sempre .
Salvo Errori ed Omissis .

vincenzo4221 · 4 Aprile 2017

Grazie Beppignello , mi potrebbe essere di aiuto , rimango in attesa...

vorrei approfittare , chiedendo anche lo script che usi per definire le posizioni determinate , dalla tua risposta in altro post ,l'output da te postato a riguardo mi è piaciuto , visto che contiene anche le presenze per ciclo...

lotto_tom75 · 4 Aprile 2017

magia;n2055577 ha scritto:

Buongiorno,
Salutandola, in attesa dei " prof " , LuigiB,Beppignello,Joe91,Ilegend ,Moro80,Mike58 ed altri.
Le proponiamo questolistato, ancora da migliorare .

Codice:

Option Explicit
'ritardo cumulativo di vincenzo4221
'uno script che serve a tutti di vincenzo4221
'http://forum.lottoced.com/forum/lottoced/area-download/2054993-uno-script-che-serve-a-tutti
Dim clsHSS
Dim clsSvil
Sub Main
Dim sFileBd : sFileBd = GetDirectoryAppData & "BaseDati.dat"
Set clsHSS = CreateObject("HSS.ClsHighSpeedStat") : Call clsHSS.Init(sFileBd,01)
Set clsSvil = GetMotoreSviluppoIntegrale
Dim nClasse : nClasse = ScegliClasse
Dim nGaranzia : nGaranzia = ScegliGaranzia
Dim RitMin : If nClasse = 02 Then RitMin = 8500 : If nClasse = 03 Then RitMin = 3200
If nClasse = 04 Then RitMin = 2000 : If nClasse = 05 Then RitMin = 1000
Dim Min : Min = CInt(InputBox("Somma Ritardo Totale da evidenziare "," SOMMA RITARDO TOTALE ",RitMin))
Dim nInizio,nFine : nInizio = EstrazioneIni : nFine = EstrazioneFin
Dim aR01(01),aR02(01),aR03(01),aR04(01),aR05(01),aR06(01),aR07(01),aR08(01),aR09(01),aR10(01)
aR01(01) = BA_ : aR02(01) = CA_ : aR03(01) = FI_ : aR04(01) = GE_ : aR05(01) = MI_
aR06(01) = NA_ : aR07(01) = PA_ : aR08(01) = RO_ : aR09(01) = TO_ : aR10(01) = VE_
ReDim aCombMigliori(100,012)
If nClasse > 00 And nGaranzia > 00 And nGaranzia <= nClasse Then
Dim nStart : nStart = Timer
Dim CombTot,Num : CombTot = InitSviluppaComb(Num,nClasse)
ReDim aCol(nClasse)
Do While clsSvil.GetCombSviluppo(aCol) = True
Call AnalisiComb(aCol,aR01,aR02,aR03,aR04,aR05,aR06,aR07,aR08,aR09,aR10,nGaranzia,aCombMigliori,nInizio,nFine)
Dim k : k = k + 01
If k Mod 20 = 00 Then
Call Messaggio("Statistica combinazioni in corso " & k & " di " & CombTot) : Call AvanzamentoElab(01,CombTot,k)
If ScriptInterrotto Then Exit Do
End If
Loop
Call Messaggio(" Creazione Tabella in corso ")
Dim aTitoli : aTitoli = Array(aTitoli," Combinazione "," BA "," CA "," FI "," GE "," MI ",_
" NA "," PA "," RO "," To "," VE "," SOMMA RIT. ")
Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di Somma Ritardi")
Call Scrivi("Range analizzato " & GetInfoEstrazione(nInizio) & " fino a " & GetInfoEstrazione(nFine))
Call Scrivi("Estrazioni analizzate totali : " &(nFine + 01) - nInizio)
Call Scrivi()
Call InitTabella(aTitoli)
For k = 01 To UBound(aCombMigliori)
Dim ADati : ADati = Array(ADati,aCombMigliori(k,12),aCombMigliori(k,01),aCombMigliori(k,02),_
aCombMigliori(k,03),aCombMigliori(k,04),aCombMigliori(k,05),aCombMigliori(k,06),aCombMigliori(k,07),_
aCombMigliori(k,08),aCombMigliori(k,09),aCombMigliori(k,10),aCombMigliori(k,11))
Call AddRigaTabella(ADati)
If aCombMigliori(k,11) >= Min Then
Call SetColoreCella(01,RGB(255,255,176),vbBlack): Call SetColoreCella(12,RGB(255,255,176),vbBlack)
End If
Next
Call CreaTabellaOrdinabile(012)
Else
MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
"e che bisogna scegliere quale valore statistico considerare per " & _
"alimentare la lista delle prime 100 Combinazioni "
End If
Dim nEnd : nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nEnd + 01) - nStart))
End Sub
Sub AnalisiComb(acol,ar01,ar02,ar03,ar04,ar05,ar06,ar07,ar08,ar09,ar10,Garanzia,aCombMig,nInizio,nFine)
Dim RetRit01,RetRit02,RetRit03,RetRit04,RetRit05
Dim RetRit06,RetRit07,RetRit08,RetRit09,RetRit10
RetRit01 = clsHSS.RitardoCombinazione(ar01,acol,Garanzia,nFine,,,nInizio)
RetRit02 = clsHSS.RitardoCombinazione(ar02,acol,Garanzia,nFine,,,nInizio)
RetRit03 = clsHSS.RitardoCombinazione(ar03,acol,Garanzia,nFine,,,nInizio)
RetRit04 = clsHSS.RitardoCombinazione(ar04,acol,Garanzia,nFine,,,nInizio)
RetRit05 = clsHSS.RitardoCombinazione(ar05,acol,Garanzia,nFine,,,nInizio)
RetRit06 = clsHSS.RitardoCombinazione(ar06,acol,Garanzia,nFine,,,nInizio)
RetRit07 = clsHSS.RitardoCombinazione(ar07,acol,Garanzia,nFine,,,nInizio)
RetRit08 = clsHSS.RitardoCombinazione(ar08,acol,Garanzia,nFine,,,nInizio)
RetRit09 = clsHSS.RitardoCombinazione(ar09,acol,Garanzia,nFine,,,nInizio)
RetRit10 = clsHSS.RitardoCombinazione(ar10,acol,Garanzia,nFine,,,nInizio)
Dim SomRit : SomRit = RetRit01 + RetRit02 + RetRit03 + RetRit04 + _
RetRit05 + RetRit06 + RetRit07 + RetRit08 + RetRit09 + RetRit10
Dim aValore : aValore = SomRit
Dim k : For k = 01 To UBound(aCombMig)
If aValore >= aCombMig(k,0) Then
Dim j : For j = UBound(aCombMig) To(k + 01) Step - 01
aCombMig(j,00) = aCombMig(j - 01,00) : aCombMig(j,01) = aCombMig(j - 01,01)
aCombMig(j,02) = aCombMig(j - 01,02) : aCombMig(j,03) = aCombMig(j - 01,03)
aCombMig(j,04) = aCombMig(j - 01,04) : aCombMig(j,05) = aCombMig(j - 01,05)
aCombMig(j,06) = aCombMig(j - 01,06) : aCombMig(j,07) = aCombMig(j - 01,07)
aCombMig(j,08) = aCombMig(j - 01,08) : aCombMig(j,09) = aCombMig(j - 01,09)
aCombMig(j,10) = aCombMig(j - 01,10) : aCombMig(j,11) = aCombMig(j - 01,11)
Next
aCombMig(k,00) = aValore : aCombMig(k,01) = RetRit01
aCombMig(k,02) = RetRit02 : aCombMig(k,03) = RetRit03
aCombMig(k,04) = RetRit04 : aCombMig(k,05) = RetRit05
aCombMig(k,06) = RetRit06 : aCombMig(k,07) = RetRit07
aCombMig(k,08) = RetRit08 : aCombMig(k,09) = RetRit09
aCombMig(k,10) = RetRit10 : aCombMig(k,11) = SomRit
aCombMig(k,12) = StringaNumeri(acol," ",True)
Exit For
End If
Next
End Sub
Function InitSviluppaComb(num,Classe)
Dim k,aNum(90)
For k = 01 To 90
aNum(k) = k
Next
InitSviluppaComb = clsSvil.InitSviluppoIntegrale(aNum,Classe)
End Function
Function ScegliClasse()
Dim k,i,aVoci(10)
For k = 02 To(02 - 01) + UBound(aVoci)
i = i + 01
aVoci(i) = k
Next
k = ScegliOpzioneMenu(aVoci,01," Scegli Classe Sviluppo Lunghetta ")
ScegliClasse = Int(aVoci(k))
End Function
Function ScegliGaranzia()
Dim aVoci(05)
Dim k,i
For k = 02 To(02 - 01) + UBound(aVoci)
i = i + 01
aVoci(i) = k
Next
k = ScegliOpzioneMenu(aVoci,01," Scegli Sorte ")
ScegliGaranzia = Int(aVoci(k))
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh,Mm,Ss,TimeStr
hh = s \ 3600 : Mm =(s Mod 3600) \ 60 : Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Controllare Sempre .
Salvo Errori ed Omissis .

Interessantissimo! Complimenti!

Come si fa ad aggiungere la sorte di estratto?

Beppignello · 4 Aprile 2017

quando usate questo script

1° se mettete una estrazione di 1 o 2 mesi addietro, uscirà un elenco degli esiti avvenuti dall'estrazione che avete scelto ad oggi.
in altre parole fa il verifica esiti

2° selezionate la ruota "TUTTE"

ho collaudato fino alla quartina (2555190) combinazioni oltre, non ho provato
i 4005 ambi ci impiega circa 20 secondi
la terzine ci impiega circa 2 minuti
le quartine ci impiega circa 30 minuti.
oltre non so.

questo script non serve per calcolare le lunghette più in ritardato.
è tutta un'altra cosa.

Codice:

Option Explicit
Sub Main
 Dim aruote,aCol,r,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,min,aRetRitardi,aRetIdEstr,nrt,y,ct,tt,la,ki,yy,rae,re,j,a,e,ee,ru,somrit
 Dim clsSvil,nClasseSvil
 Dim i,ii,finale,nRuoteSel,leggi,u,uu,rix,rr,maxmax,maxrf,minm,Inizio,retidestr,retestratti,des,cg
 Set clsSvil = GetMotoreSviluppoIntegrale
 ReDim anumeri(90),comb(2700000,2)
 ScegliNumeri(anumeri)
 nClasseSvil = CInt(InputBox("Sviluppo in Classe ",,3))
 nRuoteSel = SelRuote(aruote)
 s = CInt(InputBox("Sorte 1,2,3,4,5, ",,2))
 min = CInt(InputBox("Ritardo somma Glob. >=                             Classe(6) 850..Classe(5) 1200..Classe(4) 2000..Classe(3) 3200..Classe(2) 7300..",,2000))
 finale = InputBox("Situazione all..estrazione n.",,EstrazioneFin)
 Scrivi "Situazione aggiornata : " & finale & " / " & DataEstrazione(finale) & "                |BepLottoTomSky|  ",1
 ColoreTesto(2)
 Scrivi "Numeri selezionati :    " & StringaNumeri(anumeri,".") & "     Sviluppati in classe " & nClasseSvil,1
 Scrivi "Per la sorte..." & s & "      Ritardo Minimo Richiesto...." & min,1
 Scrivi "Ritardo somma Glob. >=                             Classe(6) 850..Classe(5) 1200..Classe(4) 2000..Classe(3) 3200..Classe(2) 7300..",1
 ColoreTesto(1)
 nrt = "": Inizio = Time
 For r = 1 To nRuoteSel
  Scrivi "Ruote Selezionate :" & NomeRuota(aruote(r)),1
  nrt = nrt & SiglaRuota(aruote(r)) & " - "
 Next
 Scrivi "--------------------------------------------------------------",1
 ColoreTesto(0)
 '''''''''''''sviluppa le combinazioni in classe scelta
 Call clsSvil.InitSviluppoIntegrale(anumeri,nClasseSvil)
 Do While clsSvil.GetCombSviluppo(aCol)
  ii = ii + 1
  Messaggio(ii & "    " & i & "     Rmin.." & min)
  If ScriptInterrotto Then Exit Do
  ''''ritardocombinazioneturbo è più veloce di statisticaformazioneturbo
  '               Call StatisticaFormazioneTurbo(aCol,aruote,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,3950,finale)
  somrit = 0
  If min > 0 Then
   '''''cerca somma ritardi globale sulle 10 ruote e se supera il minimo richiesto include combinazione
   ReDim ruo(1)
   For a = 1 To 10
    ruo(1) = a
    RetRit = RitardoCombinazioneTurbo(ruo,aCol,s,finale,,,3950)
    somrit = somrit + RetRit
   Next
   ''''''se min è > 0 calcola tutte le combinazioni con ritardo corrente
   If somrit >= Int(min) Then
    i = i + 1
    comb(i,1) = somrit
    comb(i,2) = StringaNumeri(aCol," ")
   End If
  End If
 Loop
 Scrivi "Totale combinazioni  " & i
 Call OrdinaMatrice(comb,- 1,1)
 ''''''''''''''''''''''''''''crea prospetto ''''''''''''''' tabella output '''''''''''''''''''''''''''''''''''''''''''''''
 ReDim atitoli(14),avalori(14)
 ' preimposto i titoli delle colonne
 atitoli(1) = " Combinazione "
 atitoli(2) = "  - BA -  "
 atitoli(3) = "  - CA -  "
 atitoli(4) = "  - FI -  "
 atitoli(5) = "  - GE -  "
 atitoli(6) = "  - MI -  "
 atitoli(7) = "  - NA -  "
 atitoli(8) = "  - PA -  "
 atitoli(9) = "  - RO -  "
 atitoli(10) = "  - TO -  "
 atitoli(11) = "  - VE -  "
 atitoli(12) = "  - TT -  "
 atitoli(13) = "  - NZ -  "
 atitoli(14) = "Rt.Somma"
 SetTableWidth("92%px")
 Call InitTabella(atitoli,2,"center",1.35,5,"Cambria")
 For a = 1 To i
  ReDim nm(nClasseSvil)
  If Int(comb(a,1)) > 0 Then
   ReDim aqx(0),nm(nClasseSvil)
   Call SplitByChar(comb(a,2)," ",aqx)
   avalori(1) = StringaNumeri(aqx," ")
   ee = 0
   For e = 0 To UBound(aqx)
    ee = ee + 1
    nm(ee) = aqx(e)
   Next
   rix = 2 : somrit = 0:des = ""
   ReDim arRF(1),flag(12)
   For rr = 1 To 12
    arRF(1) = rr
    Call StatisticaFormazioneTurbo(nm,arRF,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,3950,finale)
    somrit = somrit + RetRit
    avalori(rix) = RetRit & " / " & RetRitMax
    rix = rix + 1     
     If RetRit >= RetRitMax Then
      des = des & SiglaRuota(rr) & " | "
     End If     
    '''calcola ritardo maxmax ruote fisse
    If rr <> 11 Then
     If RetRitMax > maxrf Then
      maxrf = RetRitMax
     End If
    End If
    '''prepara flag per individuare le ruote dove c'è il max
    If RetRit >=(RetRitMax - 6) Then
     flag(rr) = 1
    Else
     flag(rr) = 0
    End If
   Next
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   avalori(14) = somrit
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''''seleziona sommaritardi > 2000 oppure minimo richiesto
   If somrit >= min Then
    '''''verifica esiti o risultati
    Call VerificaEsitoTurbo(nm,aruote,finale + 1,2,,,,,retestratti,retidestr)
    If retestratti <> "" Then
    cg = cg + 1
     Scrivi " ...Esito..." & retidestr & "....." & retestratti & " ...Colpo n." & FormattaStringa(retidestr - finale,"000") & "Somrit...." & somrit & "       Comb." & StringaNumeri(nm,".") & "    " & des,1
    End If
    Call AddRigaTabella(avalori,Bianco_,"center",1)
   End If
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call SetColoreCella(12,RGB(255,255,168),vbBlack)
   For ru = 1 To 12
    If flag(ru) = 1 Then
     Call SetColoreCella(1,RGB(255,255,176),vbBlack)
     Call SetColoreCella(Int(ru + 1),RGB(209,209,209),vbBlack)
    End If
   Next
   ' Scrivi comb(a,1) & "............" & StringaNumeri(comb(a,2),".")
  End If
 Next
 ColoreTesto(1)
 Scrivi "Ritardo MaxMax Ruote Fisse......." & maxrf,1
 Scrivi "Totale combinazioni in tabella...." & i,1
 Scrivi "Totale esiti positivi.a Tutte........." & cg,1
 Scrivi "     %  Successi............................." & FormattaStringa((cg/i),"00.0%")
 ColoreTesto(0)
 Call CreaTabellaOrdinabile(12,- 1,,500)
 Scrivi "Tempo di esecuzione:"
 Scrivi "---" & Inizio & " : " & TimeValue(Time)
End Sub
Function SelRuote(aRuote)
 Dim t,k,bTutte
 bTutte = False
 t = ScegliRuote(aRuote)
 For k = 1 To t
  If aRuote(k) = TT_ Then
   bTutte = True
   Exit For
  End If
 Next
 If bTutte Then
  ReDim aRuote(10)
  For k = 1 To 10
   aRuote(k) = k
  Next
  SelRuote = 10
 Else
  SelRuote = t
 End If
End Function

Beppignello · 4 Aprile 2017

questo è quello relativo alle posizioni determinate

provate a controllare l'output.

Codice:

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
 Dim apos(5),an(10),ar(10),pr(5)
 r = InputBox("Ruota  ",,7)
 ScegliNumeri(an)
 qt = UBound(an)
 ''''''crea tabella combinazione con doppia sincronia e  sincro-isocronia
 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)
 Scrivi " Ruota " & NomeRuota(r),1
 ColoreTesto(0)
 est = EstrazioneFin - 909
 est2 = EstrazioneFin - 819
 ar(1) = r : 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 SiglaRuota(r) & "  " & 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) = SiglaRuota(r)
  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)
 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) = SiglaRuota(r)
 aris(2) = StringaNumeri(an,".")
 If r = 12 Then
 aris(3) = 7440
 Else
 aris(3) = 3950
 End If
 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,aris(3),EstrazioneFin)
 frelun = retfre
 ne = Int((EstrazioneFin - aris(3)) /(18/qt))
 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 · 4 Aprile 2017

Grazie Beppi

Membro cancellato 16574 · 10 Aprile 2017

Buongiorno.
Salutando tutti .
Per lotto_tom75 , utilizzi il listato di Beppignello .

lotto_tom75 · 10 Aprile 2017

magia;n2058060 ha scritto:
Buongiorno.
Salutando tutti .
Per lotto_tom75 , utilizzi il listato di Beppignello .

Grazie magia e grazie Beppignello. Ho provato e funziona anche per estratto. Spettacolare. Vi propongo una piccola implementazione che purtroppo non riesco a fare. Ovvero dare la possibilità di avere un quadro generale dei 90 numeri per quanto riguarda scarti ed eccessi per la ruota di volta in volta voluta senza doverli cliccare uno ad uno ogni volta. Ancora meglio sarebbe forse la possibilità di scegliere, sempre da tabella colorata, il gruppo numerico da analizzare nonchè la classe (da estratto a decina per esempio). Se fosse possibile credo che sarebbe davvero la ciliegina sulla già peraltro magnifica 'torta' del bravissimo Beppignello

Beppignello · 15 Aprile 2017

Codice:

Option Explicit
Sub Main
'''''''''''''''''''''''''''''script calcola per le 5 posizioni determinate le situazione di presenze nei 900 concorsi precedenti e quella di lungo periodo dal 3950 ad oggi
'''''''''''''''''''''' effettuare la scelta della ruota o più ruote
'''''''''''''''''''''' effettuare la scelta di sviluppo dei numeri in classi 1,2,3   
 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,Classe
 Dim colonne,scolonna,k,j,maxmax,max,maxdes,fine,RetEstratti,retIdEstr
 ReDim apos(5),anr(90),pr(5)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ''''scegli ruote e quanti numeri a scelti o tutti i 90
 ReDim ar(11)
 nruotesel = ScegliRuote(ar)
 ScegliNumeri(anr)
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '''''sviluppa i numeri scelti in classi 1 2 3
 Do
  Classe = CInt(InputBox(" classe ammessa  1 2 3 ",,1))
  If Classe <= 3 Then
   Exit Do
  Else
   Messaggio("I valori ammesi sono da 1 a 3")
  End If
 Loop
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '''''''''''''''''''''''scegli fino all'estrazione voluta, se precedente all'ultima verrà videnziato il verifica esiti
 fine = InputBox("Situazione all'estrazione n.",,EstrazioneFin)
 qt = Classe
 Scrivi "script --BepPosDetPiùRuote2--"
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''sviluppo delle combinazioni in classe scelta''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 colonne = SviluppoIntegrale(anr,Classe)
 For k = 1 To UBound(colonne)
  scolonna = ""
  Call Messaggio(" Elaboro Sviluppo  " & k)
  If ScriptInterrotto Then Exit For
  Call AvanzamentoElab(1,UBound(colonne),k)
  ReDim an(Classe)
  For j = 1 To Classe
   an(j) = colonne(k,j)
  Next
  ''''''crea tabella combinazione
  ReDim atitolo(21),aris(21)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  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"
  atitolo(17) = " 1°PdS. "
  atitolo(18) = " 2°PdS. "
  atitolo(19) = " 3°PdS. "
  atitolo(20) = " 4°PdS. "
  atitolo(21) = " 5°PdS. "
  SetTableWidth("95%px")
  Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
  ColoreTesto(2)
  nrt = ""
  est = EstrazioneFin - 909
  est2 = EstrazioneFin - 819
  tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
  '''''''''''''''''''''''''verranno messi in tabella riepilogativa solo i numeri aventi ritardo >= ritardo massimo
  Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,fine - 899,fine)
  If retritmax >= maxmax Then
   maxmax = retritmax
  End If
  If retrit >= max Then
   max = retrit
   maxdes = StringaNumeri(an,".")
  End If
  If retrit >= retritmax Then
   For r = 1 To nruotesel
    Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
    nrt = nrt & SiglaRuota(ar(r)) & " - "
   Next
   If ar(1) = 11 Then
    nruotesel = 10
   End If
   ColoreTesto(0)
   For c = 1 To 10
    For p = 1 To 5
     apos(p) = True
     ''''''''calcola presente nelle 5 pos.det nel range di 900 concorsi
     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)
    Call SetColoreCella(11,RGB(254,251,199),vbBlack)
    Call SetColoreCella(12,RGB(254,251,199),vbBlack)
    Call SetColoreCella(14,RGB(255,206,157),vbBlack)
    Call SetColoreCella(15,RGB(255,206,157),vbBlack)
    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,fine - 899,fine)
   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/RxE.." & 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) = fine
   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,fine)
   frelun = retfre
   ne = Int((fine - 3950) /(18/qt))*nruotesel
   aris(14) = frelun
   aris(15) = ne
   perc2 = Round((ne - frelun)/ne,2)*100
   aris(16) = perc2
   ''''''''calcola presente di lungo periodo nelle 5 pos.det nel range (3950:fine)
   ReDim prl(5),apos(5)
   For p = 1 To 5
    apos(p) = False
    apos(p) = True
    ''''''''calcola presente nelle 5 pos.det nel range di 900 concorsi
    Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
    prl(p) = retfre
    apos(p) = False
   Next
   ''''presenze di Lungo periodo
   aris(17) = prl(1)
   aris(18) = prl(2)
   aris(19) = prl(3)
   aris(20) = prl(4)
   aris(21) = prl(5)
   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
   '''''''''''''''''''''''''''''''''''verifica esiti'''''''''''''''
   Call VerificaEsitoTurbo(an,ar,fine + 1,1,,,,,RetEstratti,retIdEstr)
   If RetEstratti <> "" Then
    ColoreTesto(1)
    Scrivi "---Esito-------->    " & retIdEstr & "...n.colpo.." & FormattaStringa(retIdEstr - fine,"000") & "........." & RetEstratti,1
    ColoreTesto(0)
   End If
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   Call CreaTabella(3,- 1,1)
  End If
 Next
 Scrivi
 Scrivi "Il Ritardo Maxmax assoluto è stato di...." & maxmax,1
 Scrivi "Il Ritardo Max    Attuale è di..........." & max & "    Comb." & maxdes,1
End Sub

buona giornata.

Beppignello · 15 Aprile 2017

BARI-NAPOLI 03 04 17 pos.det 1 e 2
[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #e0e0e0, align: center"]BA - NA - [/TD]
[TD="bgcolor: #e0e0e0, align: center"]3.4.17 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]3950 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]9303 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]61 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]46 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]54 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]64 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]63 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]Tot. 288 [/TD]
[TD="bgcolor: #ff8080, align: center"]288 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]300 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]04,00 [/TD]
[TD="bgcolor: #ff8080, align: center"]1769 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]1784 [/TD]
[TD="bgcolor: #e0e0e0, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"]367 [/TD]
[TD="bgcolor: #ffffff, align: center"]331 [/TD]
[TD="bgcolor: #ffffff, align: center"]325 [/TD]
[TD="bgcolor: #ffffff, align: center"]375 [/TD]
[TD="bgcolor: #ffffff, align: center"]371 [/TD]
[/TR]
[/TABLE]

lotto_tom75 · 15 Aprile 2017

Beppignello;n2058744 ha scritto:

Codice:

Option Explicit
Sub Main
'''''''''''''''''''''''''''''script calcola per le 5 posizioni determinate le situazione di presenze nei 900 concorsi precedenti e quella di lungo periodo dal 3950 ad oggi
'''''''''''''''''''''' effettuare la scelta della ruota o più ruote
'''''''''''''''''''''' effettuare la scelta di sviluppo dei numeri in classi 1,2,3
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,Classe
Dim colonne,scolonna,k,j,maxmax,max,maxdes,fine,RetEstratti,retIdEstr
ReDim apos(5),anr(90),pr(5)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''scegli ruote e quanti numeri a scelti o tutti i 90
ReDim ar(11)
nruotesel = ScegliRuote(ar)
ScegliNumeri(anr)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''sviluppa i numeri scelti in classi 1 2 3
Do
Classe = CInt(InputBox(" classe ammessa 1 2 3 ",,1))
If Classe <= 3 Then
Exit Do
Else
Messaggio("I valori ammesi sono da 1 a 3")
End If
Loop
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''scegli fino all'estrazione voluta, se precedente all'ultima verrà videnziato il verifica esiti
fine = InputBox("Situazione all'estrazione n.",,EstrazioneFin)
qt = Classe
Scrivi "script --BepPosDetPiùRuote2--"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''sviluppo delle combinazioni in classe scelta''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
colonne = SviluppoIntegrale(anr,Classe)
For k = 1 To UBound(colonne)
scolonna = ""
Call Messaggio(" Elaboro Sviluppo " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),k)
ReDim an(Classe)
For j = 1 To Classe
an(j) = colonne(k,j)
Next
''''''crea tabella combinazione
ReDim atitolo(21),aris(21)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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"
atitolo(17) = " 1°PdS. "
atitolo(18) = " 2°PdS. "
atitolo(19) = " 3°PdS. "
atitolo(20) = " 4°PdS. "
atitolo(21) = " 5°PdS. "
SetTableWidth("95%px")
Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
ColoreTesto(2)
nrt = ""
est = EstrazioneFin - 909
est2 = EstrazioneFin - 819
tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
'''''''''''''''''''''''''verranno messi in tabella riepilogativa solo i numeri aventi ritardo >= ritardo massimo
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,fine - 899,fine)
If retritmax >= maxmax Then
maxmax = retritmax
End If
If retrit >= max Then
max = retrit
maxdes = StringaNumeri(an,".")
End If
If retrit >= retritmax Then
For r = 1 To nruotesel
Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
nrt = nrt & SiglaRuota(ar(r)) & " - "
Next
If ar(1) = 11 Then
nruotesel = 10
End If
ColoreTesto(0)
For c = 1 To 10
For p = 1 To 5
apos(p) = True
''''''''calcola presente nelle 5 pos.det nel range di 900 concorsi
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)
Call SetColoreCella(11,RGB(254,251,199),vbBlack)
Call SetColoreCella(12,RGB(254,251,199),vbBlack)
Call SetColoreCella(14,RGB(255,206,157),vbBlack)
Call SetColoreCella(15,RGB(255,206,157),vbBlack)
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,fine - 899,fine)
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/RxE.." & 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) = fine
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,fine)
frelun = retfre
ne = Int((fine - 3950) /(18/qt))*nruotesel
aris(14) = frelun
aris(15) = ne
perc2 = Round((ne - frelun)/ne,2)*100
aris(16) = perc2
''''''''calcola presente di lungo periodo nelle 5 pos.det nel range (3950:fine)
ReDim prl(5),apos(5)
For p = 1 To 5
apos(p) = False
apos(p) = True
''''''''calcola presente nelle 5 pos.det nel range di 900 concorsi
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,3950,fine,,apos)
prl(p) = retfre
apos(p) = False
Next
''''presenze di Lungo periodo
aris(17) = prl(1)
aris(18) = prl(2)
aris(19) = prl(3)
aris(20) = prl(4)
aris(21) = prl(5)
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
'''''''''''''''''''''''''''''''''''verifica esiti'''''''''''''''
Call VerificaEsitoTurbo(an,ar,fine + 1,1,,,,,RetEstratti,retIdEstr)
If RetEstratti <> "" Then
ColoreTesto(1)
Scrivi "---Esito--------> " & retIdEstr & "...n.colpo.." & FormattaStringa(retIdEstr - fine,"000") & "........." & RetEstratti,1
ColoreTesto(0)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call CreaTabella(3,- 1,1)
End If
Next
Scrivi
Scrivi "Il Ritardo Maxmax assoluto è stato di...." & maxmax,1
Scrivi "Il Ritardo Max Attuale è di..........." & max & " Comb." & maxdes,1
End Sub

buona giornata.

Ciao grandissimo.
Anche questa versione del tuo script è molto intrigante

Ti volevo chiedere al riguardo...
Se metto ad esempio da tabella colorata BACA (unite): i numeri da 1 a 10 come classe 1 e come ultima estrazione la più attuale (n. 9303) mi da questo output che di per sè sarebbe molto allettante...

Il Ritardo Maxmax assoluto è stato di....52 Il Ritardo Max Attuale è di...........51 Comb.3

Però se vado a verificare in statistica veloce il 3 per BACA unite mi da invece RA 51 e RS 61 con una diff "teoricamente" assoluta molto piu' ampia.. di 10 shots appunto...

Da cosa può dipendere questa divergenza di risultati?

Grazie e ancora complimenti!

Ps: Forse ho capito da cosa dipende ma ti chiedo comunque conferma e come poter cambiare la data di inizio estrazioni da analizzare. Dunque ho riprovato ad effettuare l'analisi di verifica in statistica veloce impostando come inizio data estrazioni anziche 8/7/1939 come sono solito fare per le ruote in generale alla prima estrazione del 1945 e in questo caso i valori ra e rs concidono con i tuoi 51-52 visualizzati in output.

Beppignello · 15 Aprile 2017

Il dato che esce e' relativo all'ultimo ciclo di 900 estrazioni

900 estrazioni e' il ciclo normale teorico di 1 estratto i una posizione determinata

quindi non deve essere visto nel lungo periodo

Beppignello · 15 Aprile 2017

A colpo Esce 3 Napoli in 1 posizione

lotto_tom75 · 15 Aprile 2017

Beppignello;n2058815 ha scritto:
A colpo Esce 3 Napoli in 1 posizione

Complimenti Beppignello!

Al 2° colpo uscito su NA anche l'11 del mio thread li hai forse uniti?

cumulativo

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Membro cancellato 16574

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Membro cancellato 16574

Guest

Advanced Member >PLATINUM<

Advanced Premium Member

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Membro cancellato 16574

Guest

Advanced Premium Member

Beppignello

Guest

Beppignello

Guest

Advanced Premium Member

Beppignello

Guest

Beppignello

Guest

Advanced Premium Member