'In questo nuovo appuntamento esamineremo un aspetto molto importante
'legato alla Ciclometria: la riproduzione numerica. Fenomeno nato dalle
'intuizioni del Fabarri e poi portato In auge da Manna (Primo teorema della
'Ciclometria) e Scaravetti (Sequenze Concatenate). Osserviamo un esempio
'molto semplice: nel sorteggio del 20/01/2018, 23/01/2018 e 27/01/2018
'rintracciamo sulle ruote di Genova e Cagliari tre ambi con Somma 61: 23-38 / 8-53 / 68-83.
'Come nostra consuetudine riportiamo i numeri evidenziati nel cerchio Ciclometrico:
'20/01/2018 GENOVA 53 23 27 38 54 23/01/2018 GENOVA 3 8 70 53 17 61 27/01/2018
'CAGLIARI 36 73 76 68 83 61 61 ULTIMO Estratto APPUNTI DI CICLOMETRIA:
'RIPRODUZIONE NUMERICA notiamo la genesi di una delle più importanti Figure:
'l’Esagono Regolare. Da formazioni simili, aventi notevoli proprietà SimmetricoArmoniche,
'possiamo attenderci proprio la riproduzione degli estratti. L’ultimo elemento sorteggiato,
'In ordine di tempo e Posizione, può essere utilizzato come Ambata (nel nostro esempio l’83)
'e per il tentativo di ambo secco abbinato ai restanti numeri rilevati: 8-23- 38-53-68. Esito:
'? Al 2° colpo di gioco Ambata 83 e Ambo Secco 83.8 su CAGLIARI!
Option Explicit
Sub Main
Dim FIn,Es,Es2,Es3,Es4,Ini,Salvo50,E1,E2,R1,R2,R3,E3
Dim Caso,Casi,P1,P2,P3,P4,P5,P6,P7,P8,P9,A,B,C,D,E,F,G
Dim Somma1,Somma2,Somma3,Avanti,Vis,X,Clp1,Clp2,Sp
Dim Ruo(3),Posta(1),Poste(2),Num(6),Amba(1),Ambo(2)
Posta(1) = 1
Poste(2) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10440)'Estrazione 9424 esempio nelle spiegazioni
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,15)
Avanti = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo Derivato?",Salvo50,15))
Vis = InputBox("Vuoi Visualizzare I Cerchi Ciclometrici? Per SI Metti 1 per NO, Metti un Altro Numero",,1)
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " Postato da ScarfaceTony - Script Salvo50",1,,4,,3,,1
ResetTimer
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
Somma1 = Fuori90(A + B)
Es4 = CInt(Es + Avanti + 1)
For Es2 = Es + 1 To Es4 - 1
For R2 = 1 To 10
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
Somma2 = Fuori90(C + D)
If Somma1 = Somma2 Then
For Es3 = Es2 + 1 To Es4
For R3 = 1 To 10
For P5 = 1 To 4
For P6 = P5 + 1 To 5
E = Estratto(Es3,R3,P5)
F = Estratto(Es3,R3,P6)
Somma3 = Fuori90(E + F)
If Somma2 = Somma3 Then
Num(1) = A : Num(2) = B : Num(3) = C
Num(4) = D : Num(5) = E : Num(6) = F
Call OrdinaMatrice(Num,1)
If(Distanza(Num(1),Num(2)) = 15) And(Distanza(Num(2),Num(3)) = 15)_
And(Distanza(Num(3),Num(4)) = 15) And(Distanza(Num(4),Num(5)) = 15)_
And(Distanza(Num(5),Num(6)) = 15) Then
Amba(1) = F
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " Somma Evidenziati = " & Format2(Somma1),1
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P8 = 1 To 5
E2 = Estratto(Es2,R2,P8)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " Somma Evidenziati = " & Format2(Somma2),1
'
Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P9 = 1 To 5
E3 = Estratto(Es3,R3,P9)
If E3 = E Or E3 = F Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi " Somma Evidenziati = " & Format2(Somma3),1
Scrivi
If Vis = 1 Then DisegnaCerchioCiclometrico Num,1,1,,,1,1
'
Ruo(1) = R1 : Ruo(2) = R2 : : Ruo(3) = R3
G = 1
ImpostaGiocata G,Amba,Ruo,Posta,Clp1
For X = 1 To UBound(Num)
If Amba(1) <> Num(X)Then
Ambo(1) = Amba(1): Ambo(2) = Num(X)
If Ambo(2) > 0 Then
G = G + 1
ImpostaGiocata G,Ambo,Ruo,Poste,Clp2
End If
End If
Next
Gioca Es3,1
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
End If
Next
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub
