IL PUNTO DIAMETRALE FABARRI

IL PUNTO DIAMETRALE

Nelle condizioni di questo sistema, c'è che la ricerca del secondo ambo deve essere fatta dentro le 20 estrazioni successive, non sapendo come fare e non volendo disturbare, avevo deciso di farlo solo con una estrazione successiva, l'ho fatto e quando l'ho provato i risultati erano tutti vincenti, avevo stabilito una cinquantina di estrazioni per 5 colpi ciascuna, ho pensato sarà che adesso è un periodo favorevole, allora ho impostato ancora 100 estrazioni indietro, lancio lo script e di nuovo tutti rossi e vincenti, allora ho fatto ancora 1000 estrazioni indietro, controllato ad una ad una tutti i risultati, di nuovo in rosso e vincenti, a questo punto ho tolto i 5 colpi ed ho inserito per un solo colpo per ogni estrazione e di nuovo tutti vincenti, allora l'ho impostato la ricerca dal 1930 ad oggi e risultato di nuovo tutti i colpi vincenti al primo colpo, allora ho pensato che non poteva essere, ci doveva essere un errore da qualche parte nello script, non perchè non ho fiducia che possa esistere un sistema perfetto, ma perchè se fosse stato veramente così il Fabarri se ne sarebbe accorto che tutti i colpi erano vincenti alla prima estrazione, ho controllato per bene ed alla fine ho trovato l'errore.

Allora mi sono impegnato per fare la ricerca del secondo ambo dentro le 20 estrazioni successive all'uscita del primo ambo, e ci sono riuscito, posto i due script il primo è quello fasullo, il secondo è quello vero, senza errori, spero.

'Progetto - IL PUNTO DIAMETRALE - by FABARRI
'Script - by Salvo50
Option Explicit
Dim r1,p1,p2,es,es1,r2,clp,esq,caso,casi,p3,p4
Dim fin,Ini,ru(2),poste(2),amb(2)
Dim idestr,col,esqcol,diam,xdiam
Dim e1,e2,e3,e4,di1,di2,ess,k,ka,ess20
Sub Main
poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9100)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,2))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol: Messaggio(es)
AvanzamentoElab esq,esqcol,es

caso = 0
ess = es + 1
ess20 = es + 20
For ess = ess To ess20
For r1 = 1 To 10
For p1 = 1 To 4
p2 = p1 + 1
e1 = Estratto(es,r1,p1)
e2 = Estratto(es,r1,p2)
di1 = Differenza(e1,e2)
If di1 > 45 Then di1 =(90 - di1)

For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
e3 = Estratto(ess,r2,p1)
e4 = Estratto(ess,r2,p2)
di2 = Differenza(e3,e4)
If di2 > 45 Then di2 =(90 - di2)
If di1 = di2 Then
ru(1) = r1
ru(2) = r2
If e1 = e3 Xor e1 = e4 Xor e2 = e3 Xor e2 = e4 Then
If e1 = e3 Xor e1 = e4 Then diam = e1
If e2 = e3 Xor e2 = e4 Then diam = e2
xdiam =(Diametrale(diam))
uscite
amb(1) = diam
amb(2) = xdiam
ImpostaGiocata 1,amb,ru,poste,clp
Gioca ess
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function uscite
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(90,"*") & " Casi Totali N " & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " - Prima ruota " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),1
Scrivi(" Estrazione n." & Format2(ess) & " del " & DataEstrazione(ess)),0,0
Scrivi " - Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(ess,r2),1
Scrivi " Ambi isotopi "
Scrivi " " & Left(NomeRuota(r1),2) & " " & Format2(e1) & Space(1) & Format2(e2) & " Vertice Comune " & Format2(diam)
Scrivi " " & Left(NomeRuota(r2),2) & " " & Format2(e3) & Space(1) & Format2(e4) & " Diametrale " & Format2(xdiam)
ColoreTesto 0
End Function


IL PUNTO DIAMETRALE CON SCELTA RUOTA D'INIZIO


'Progetto - IL PUNTO DIAMETRALE - by FABARRI
'Nome - IL PUNTO DIAMETRA CON SCELTA RUOTA D'INIZIO
'Script - by Salvo50
Option Explicit
Dim r1,p1,p2,es,es1,r2,clp,esq,caso,casi,p3,p4
Dim fin,Ini,ru(2),poste(2),amb(2)
Dim idestr,col,esqcol,diam,xdiam,xr1
Dim e1,e2,e3,e4,di1,di2,ess,k,ka,ess20
Sub Main
poste(1) = 1
poste(2) = 1
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,2))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,300))
xr1 = CInt(InputBox(" Inserisci la ruota d'inizio (1 - 10) ",,3))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol: Messaggio(es)
AvanzamentoElab esq,esqcol,es
caso = 0
ess = es + 1
ess20 = es + 20
r1 = xr1
For r1 = r1 To 10
For p1 = 1 To 4
p2 = p1 + 1
e1 = Estratto(es,r1,p1)
e2 = Estratto(es,r1,p2)
di1 = Differenza(e1,e2)
If di1 > 45 Then di1 =(90 - di1)
For ess = ess To ess20
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
e3 = Estratto(ess,r2,p1)
e4 = Estratto(ess,r2,p2)
di2 = Differenza(e3,e4)
If di2 > 45 Then di2 =(90 - di2)
If di1 = di2 Then
ru(1) = r1
ru(2) = r2
If e1 = e3 Xor e1 = e4 Xor e2 = e3 Xor e2 = e4 Then
If e1 = e3 Xor e1 = e4 Then diam = e1
If e2 = e3 Xor e2 = e4 Then diam = e2
xdiam =(Diametrale(diam))
uscite
amb(1) = diam
amb(2) = xdiam
ImpostaGiocata 1,amb,ru,poste,clp
Gioca ess
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function uscite
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(90,"*") & " Casi Totali N " & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " - Prima ruota " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),1
Scrivi(" Estrazione n." & Format2(ess) & " del " & DataEstrazione(ess)),0,0
Scrivi " - Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(ess,r2),1
Scrivi " Ambi isotopi "
Scrivi " " & Left(NomeRuota(r1),2) & " " & Format2(e1) & Space(1) & Format2(e2) & " Vertice Comune " & Format2(diam)
Scrivi " " & Left(NomeRuota(r2),2) & " " & Format2(e3) & Space(1) & Format2(e4) & " Diametrale " & Format2(xdiam)
ColoreTesto 0
End Function


IL PUNTO DIAMETRALE - con aggiunta di 3 numeri fissi a scelta


'Progetto - IL PUNTO DIAMETRALE - by FABARRI
'Modifica aggiungere 3 numeri fissi - by Serpico 90
'Script - by Salvo50
Option Explicit
Dim r1,p1,p2,es,es1,r2,clp,esq,caso,casi,p3,p4
Dim fin,Ini,ru(2),poste(5),amb(5),amba(2),posta(2)
Dim idestr,col,esqcol,diam,xdiam
Dim e1,e2,e3,e4,di1,di2,ess,k,ka,ess20
Dim n3,n4,n5
Sub Main
posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
poste(4) = 1
poste(5) = 0.5
fin = EstrazioneFin
esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",,2))
col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,300))
n3 = CInt(InputBox(" Inserisci il primo numero ",,45))
n4 = CInt(InputBox(" Inserisci il secondo numero ",,54))
n5 = CInt(InputBox(" Inserisci il terzo numero ",,90))
esqcol = esq + col
If esqcol > fin Then esqcol = fin
For es = esq To esqcol: Messaggio(es)
AvanzamentoElab esq,esqcol,es
caso = 0
ess = es + 1
ess20 = es + 20
For ess = ess To ess20
For r1 = 1 To 10
For p1 = 1 To 4
p2 = p1 + 1
e1 = Estratto(es,r1,p1)
e2 = Estratto(es,r1,p2)
di1 = Differenza(e1,e2)
If di1 > 45 Then di1 =(90 - di1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
e3 = Estratto(ess,r2,p1)
e4 = Estratto(ess,r2,p2)
di2 = Differenza(e3,e4)
If di2 > 45 Then di2 =(90 - di2)
If di1 = di2 Then
ru(1) = r1
ru(2) = r2
If e1 = e3 Xor e1 = e4 Xor e2 = e3 Xor e2 = e4 Then
If e1 = e3 Xor e1 = e4 Then diam = e1
If e2 = e3 Xor e2 = e4 Then diam = e2
xdiam =(Diametrale(diam))
uscite
amba(1) = diam
amba(2) = xdiam
amb(1) = diam
amb(2) = xdiam
amb(3) = n3
amb(4) = n4
amb(5) = n5
ImpostaGiocata 1,amba,ru,posta,clp
EliminaRipetuti amb
ImpostaGiocata 2,amb,ru,poste,clp
Gioca es
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Function uscite
caso = caso + 1
casi = casi + 1
ColoreTesto 1
Scrivi String(90,"*") & " Caso N " & Format2(caso) & " Estraz. ",0,0
ColoreTesto 2
Scrivi Format2(es)
ColoreTesto 1
Scrivi String(90,"*") & " Casi Totali N " & Format2(casi)
Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
Scrivi " - Prima ruota " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),1
Scrivi(" Estrazione n." & Format2(ess) & " del " & DataEstrazione(ess)),0,0
Scrivi " - Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(ess,r2),1
Scrivi " Ambi isotopi "
Scrivi " " & Left(NomeRuota(r1),2) & " " & Format2(e1) & Space(1) & Format2(e2) & " Vertice Comune " & Format2(diam)
Scrivi " " & Left(NomeRuota(r2),2) & " " & Format2(e3) & Space(1) & Format2(e4) & " Diametrale " & Format2(xdiam)
ColoreTesto 0
End Function