Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Scusa, Joe.È pressoché quanto si era fatto per trovare il massimo rapporto rsl/rc. Si può fare. Sarebbe utile sapere se è possibile eseguire la ricerca su un super PC.
Al momento senza sconfinare nella fantascienza, vorrei provare a velocizzare la ricerca.
OkCiao Cinzia,Credo che joe si riferisca alla tecnica utilizzata.
Ciao, Ilegend. Buona idea.Ciao Cinzia,Credo che joe si riferisca alla tecnica utilizzata.
Studiare il problema in blocchi più piccoli, diviso in più persone .
Se fossimo 100 persone il lavoro sarebbe pronto in pochi secondi.
Approssimando
8000000:100= 80000 formazioni a testa
In una manciata di secondi tutto fatto.
Ma saremmo fortunati a trovare 10 persone. Interessate a collaborare .
Ok, Joe.Cinzia ricordo che per trovare il massimo Rapporto Rsl/Rc
ci si era "divisi" l'archivio tra più persone ... cercando ognuno nel proprio intervallo di estrazioni .
Per poi riunire e confrontare i risultati sino a trovare il massimo.
Sino a trovare il massimo valore calcolabile con le estrazioni di tutto l'archivio.
Indicativamente il mio script impiega 0.25 secondi per biambo.
che dovrebbero corrispondere a circa 600 ore di elaborazione.
Come si è detto ... con ogni AMBO (considerato come capogioco)
si sviluppano 4004 ambi che sono pertanto i biambi.
Se essi vengono calcolati in un paio di secondi ... bisogna essere in 4000.
Dunque se non si trova un mega-computer o un cospicuo numero di utenti
diventa abbastanza difficile fare da sè.
Sub main()
Dim ambi(4005,2)
Dim biambo(2,2)
Dim ruote(2)
Dim sorte
Dim i, j
ruote(1)=11
ruote(2)=12
sorte=2
For i= 1 To 89
For j= i+1 To 90
c=c+1
ambi(c,1)=i
ambi(c,2)=j
Next
Next
For i=1 To 4004
biambo(1,1)=ambi(i,1)
biambo(2,1)=ambi(i,2)
For j=i+1 To 4005'i
biambo(1,2)=ambi(j,1)
biambo(2,2)=ambi(j,2)
rt=SerieRitardo (EstrazioneFin-60 , EstrazioneFin,biambo,ruote,sorte)
If rt<150 Then 'imposta il ritardo attuale
st=SerieStorico (EstrazioneIni , EstrazioneFin,biambo,ruote,sorte)
If st<150 Then 'imposta il ritardo storico
Scrivi "Biambo: " & CStr(biambo(1,1)) & "." & CStr(biambo(2,1)) & ";" & _
CStr(biambo(1,2)) & "." & CStr(biambo(2,2)) & vbtab & " Sto:" & _
(FormatSpace(st,4,1))& " At:" &(FormatSpace(rt,4,1))
End If
End If
Next
Next
End Sub