METODO "LA PROGRESSIONE CONSECUTIVA"

[cybercesare]

Saluti a tutti.
Solo per completezza, pubblico questa tecnica nell'apposita sezione sperando di essere utile a tutti voi.
Ringrazio Joe91 e LuigiB per i preziosi consigli.


ITER TEORICO:
Si rintracci, in qualsiasi ruota, ad esclusione di (BA-CA-TO-VE), un ambo con distanza ciclometrica 6.
Dopodichè seguire l'esempio qui riportato.

Estrazione del 16.12.1995
A BARI furono estratti: 4.37.22.9.31

L'ambo che ci interess con distanza 6 è: 37.31
Sommare il fisso uno ad entrambi ottenendo le due ambate:
37+1= 38 (ambata n.1)
31+1= 32 (ambata n.2)

Somma ambo base: 31+37=68
Ambi secchi a TUTTE: 38.68 / 32.68

Ora calcoliamo gli ambi secchi da giocare solo sulla ruota di calcolo.
Sommare ora ciascuna ambata con il rispettivo numero dell'ambo base che l'ha generata.
37+38= 75
31+32= 63
primo ambo secco su BARI: 75.63
Diametrali del primo ambo:
75+45=120-90= 30
63+45=108-90= 18
secondo ambo secco su BARI: 30.18
Sommare al primo ambo il fisso 30:
75+30=105-90= 15
63+30=93-90= 3
Terzo ambo secco a BARI: 15.3
Raddoppiare il primo ambo:
75x2=150-90= 60
62x2=126-90= 36
Quarto ambo secco su BARI 60.36
Integrazione al fisso 90 del primo ambo:
90-75= 15
90-63= 27
Quinto ambo secco su BARI 15.27

ESITO DELLA PREVISIONE: ambo secco 15.3 su BARI al terzo colpo di gioco

NOTE TECNICHE:
1) GIOCO VALIDO PER 12 COLPI
2) GIOCO NON VALIDO SE UNA DELLE AMBATE E' PRESENTE SULL'ESTRAZIONE DI CALCOLO O IN QUELLA PRECEDENTE
NESSUN CONTROLLO PRECEDENTE PER GLI AMBI
3) INTERROMPERE IL GIOCO ALLA PRIMA VINCITA

Segue listato.



LISTATO SPAZIOMETRIA:
Sub Main()
Scrivi "Metodo di cybercesare 'La progressione consecutiva' ",1,,2,4,4
Dim ruota(10), ruote(11)
Dim am(2), ambo1(2), ambo2(2), ambo3(2), ambo4(2),ambo5(2), ambo6(2)
Dim posta(1),poste(5)
posta(1) = 1
poste(2) = 2
ruote(1)=11
KK = InputBox("Quante estrazioni vuoi verificare? ",,100)
dis = 6
k = InputBox("Colpi di Gioco",,12)
fin = EstrazioneFin
For es = fin-kk To fin
Messaggio DataEstrazione(es) & " 'LA PROGRESSIONE CONSECUTIVA' DI CYBERCESARE'"
Call AvanzamentoElab(ini,fin,es)
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
n1 = Estratto(es,r,p) : n2 = Estratto(es,r,q)
If Distanza(n1,n2)=dis And((r<>1)And(r<>2)And(r<>9)And(r<>10)) Then
ruota(1) = r
co = co + 1
'Calcoli x Ambate
n4 = Fuori90(n1+1) '1 Ambata
n5 = Fuori90(n2+1) '2 Ambata
Scrivi String(106,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " Ambo Dist. 6 = " & Format2(n1) & "." & Format2(n2),1,,,1,2
am(1) = n4
am(2) = n5
ritn4 = EstrattoRitardo(r,n4,Ini,es)
ritn5 = EstrattoRitardo(r,n5,Ini,es)
If ritn4 > 1 Then
If ritn5 > 1 Then
Scrivi "I relativi Ritardi delle AMBATE allo stato della ricerca giocata " & n4 & "." & n5 & " sono " & ritn4 & " - " & ritn5,True,True,,7,3
If ritn4 <= 1 Or ritn5 <= 1 Then Scrivi "" Else Scrivi "PREVISIONE VALIDA",1,,1,5,3
ImpostaGiocata 1,am,ruota,posta,k,2
somma = Fuori90 (n1+n2)
ambo1(1)= am(1)
ambo1(2)= somma
ambo2(1)= am(2)
ambo2(2)= somma
ambo3(1)=Fuori90(am(1)+n1)
ambo3(2)=Fuori90(am(2)+n2)
ambo4(1)=Diametrale(ambo3(1))
ambo4(2)=Diametrale(ambo3(2))
ambo5(1)=Fuori90 (ambo3(1)*2)
ambo5(2)=Fuori90 (ambo3(2)*2)
ambo6(1)=90-ambo3(1)
ambo6(2)=90-ambo3(2)
ImpostaGiocata 2,ambo1,ruote,poste,k,2
ImpostaGiocata 3,ambo2,ruote,poste,k,2
ImpostaGiocata 4,ambo3,ruota,poste,k,2
ImpostaGiocata 5,ambo4,ruota,poste,k,2
ImpostaGiocata 6,ambo5,ruota,poste,k,2
ImpostaGiocata 7,ambo6,ruota,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi "*******************************************", 1
ScriviResoconto
End Sub