non vorrei deviarvi dai vostri studi e ragionamenti,
questa è la tabella dei 24 Numeri Primi tra i i 90 estratti dell'urna, vedi Wikipedia in modo veloce
io avevo fatto qualche anno fa, questo studio e questo script, che ho archvio.
te lo metto, perchè non avendo poi la disponibilità di giocare in società, non ho una ricevitoria .
se può servire in qualcosa per altri, sono lieto di condividere l caraterri della ricerca statistica con altri simili
che cercano (invano) di ridurre e portare almeno al 50% le probabilità di confronto con la Sisal.
questo è lo script , per eventuali vostre osservazioni
[code)
Option Explicit
Sub Main
Dim n,lista,j,fine,k,retestratti,retidestr,s,retrit,retritmax,retfre,retesito,maxmax,ct,Mel,fin,a,retcolpi,sm,smt
Dim last
Dim num(24),riga(90,4)
'''estrazione ultima 6 estratti
fin = EstrazioniArchivioSE
fine = InputBox("n.Estraz.",,fin)
s = CInt(InputBox("Sorte 3-4 ",,3))
Scrivi "@Bep-SuperEnalotto- Capogioco e Nprimi ",1,2,3
Scrivi "Elenco dei 24 NPrimi sommati al capogioco ",1
Scrivi
Scrivi "Estraz.n. " & fine & "/" & DataEstrazioneSE(fine) & " Sorte = " & s,1,2,3
Scrivi "----S----- 02 03 05 07 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 Rc. Rx. Fr. | P2 P3 P4 P5 P6 ",1,2,4
Scrivi
For n = 1 To 90
num(1) = Fuori90(n + 2)
num(2) = Fuori90(n + 3)
num(3) = Fuori90(n + 5)
num(4) = Fuori90(n + 7)
num(5) = Fuori90(n + 11)
num(6) = Fuori90(n + 13)
num(7) = Fuori90(n + 17)
num(8) = Fuori90(n + 19)
num(9) = Fuori90(n + 23)
num(10) = Fuori90(n + 29)
num(11) = Fuori90(n + 31)
num(12) = Fuori90(n + 37)
num(13) = Fuori90(n + 41)
num(14) = Fuori90(n + 43)
num(15) = Fuori90(n + 47)
num(16) = Fuori90(n + 53)
num(17) = Fuori90(n + 59)
num(18) = Fuori90(n + 61)
num(19) = Fuori90(n + 67)
num(20) = Fuori90(n + 71)
num(21) = Fuori90(n + 73)
num(22) = Fuori90(n + 79)
num(23) = Fuori90(n + 83)
num(24) = Fuori90(n + 89)
lista = "": sm = 0
For j = 1 To 24
lista = lista & Format2(num(j)) & " "
sm = sm + num(j)
Next
smt = Fuori90(sm)
''''
''''' calcola Punteggi storia
ReDim punti(6)
Call Punteggi(num,punti,fine)
''''
ReDim aretritardi(0),aretidestr(0)
Call ElencoRitardiSE(num,s,1,fine,aretritardi,aretidestr)
last = UBound(aretritardi)
retrit = aretritardi(last)
retritmax = MassimoV(aretritardi,1)
retfre = last - 1
ct = ct + 1
riga(ct,1) = Format2(n) & ") " & StringaNumeri(num," ",True)
riga(ct,2) = FormattaStringa(retrit,"0000")
riga(ct,3) = FormattaStringa(retritmax,"0000")
riga(ct,4) = FormattaStringa(retfre,"00000")
If retritmax > maxmax Then
maxmax = retritmax
Mel = Format2(n) & ") " & StringaNumeri(num,".")
End If
Scrivi Format2(n) & ") " & Format2(smt) & " - " & lista & " " & GetTestoHtml(FormattaStringa(retrit,"0000"),True,vbWhite,vbRed) & " " & FormattaStringa(retritmax,"0000") & " " & FormattaStringa(retfre,"0000") & " | " & FormattaStringa(punti(2),"0000") & " " & FormattaStringa(punti(3),"0000") & " " & FormattaStringa(punti(4),"0000") & " " & FormattaStringa(punti(5),"0000") & " " & FormattaStringa(punti(6),"0000"),1,1
For k = 1 To 13
Call VerificaEsitoSE(num,fine + k,s,1,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(1)
Scrivi "---> " & retidestr & "/" & DataEstrazioneSE(retidestr) & " nColpo " & FormattaStringa(retidestr - fine,"000") & " " & retestratti & " " & retesito,1
ColoreTesto(0)
End If
Next
Next
Scrivi
Scrivi "Ritardo Massimo tra le 90 righeOrizz. della Matrice = " & GetTestoHtml(maxmax,True,vbWhite,vbBlue) & " " & Mel,1
Scrivi:Scrivi "Elenco delle Combinazioni piu' in ritardo per " & s & " Punti",1,2,4
Call OrdinaMatrice(riga,- 1,2)
For k = 1 To 5
Scrivi "Rc. " & riga(k,2) & " / Rx. " & riga(k,3) & " Fr. " & riga(k,4) & " : " & riga(k,1),1
Next
Scrivi
Scrivi TempoTrascorso,1
End Sub
Function Punteggi(num,punti,fine)
Dim ns,aretidestr,fr
For ns = 2 To 6
ReDim aretritardi(0)
Call ElencoRitardiSE(num,ns,1,fine,aretritardi,aretidestr)
fr = UBound(aretritardi) - 1
If fr = 0 Then
fr = "0"
End If
punti(ns) = punti(ns) + fr
Next
End Function
[/code]
