Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script su Metodi Cabalistici, Ciclometrici & C.

Matematico

Advanced Member
Ciao salvo50 e jure,
Faccio un esempio chiaro:
Cercare un qualsiasi numero isotopo su due ruote qualsiasi anche non consecutive.
8/10/2020
NA-53
TO-53

Nella tabella il 53 corrisponde a:
53
53
16
69
85 a 90= 05

85-5 sono le ambate
53-16-69 abbinamenti x a/t

A colpo 85 su TO! IL 53 và a NA!
Al 4 colpo 85-68 ambetto!NA

N.B
La tabella èdell'autore , la tecnica una mia intuizione più allargata perchè l'autore si ferma alla sola doppia ambata.
 

avio

Senior Member
Ciao salvo50
Hai qualche script di FIBONACCI?

Ciao

ti metto solo un esempio di numeri FIBONACCI

basta avere fantasia e vai avanti

Sub Main
p2=21
p1=47

aa = p2 : bb = p1
For q = 1 To 120
cc = Fuori90(aa + bb)
g = cc
aa = bb:bb = cc
Scrivi g & " " & aa & " " & q
Next
End Sub

come noterai a 120 ritornano i primi numeri scelti (a volte a secondo la coppia numerica si ferma prima di 120)

Buon divertimento
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Matematico, Rudivall, Xeroxs.

Grazie.

I Numeri di Padre Pacifico a cura di Davide Lo Stracco - con Modifica di Matematico

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,Caso,Casi,A,B,C,D,E,F
   Dim P1,P2,P3,P4,E2,E1
   Dim Ruo(2),Rut(1),Posta(1),Ambata(2),Post(4),Poste(4)
   Dim Quar1(4),Quar2(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate? ",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare le Quartine? ",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & " I Numeri di Padre Pacifico a cura di Davide Lo Stracco - Mod Matematico - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               If A > 0 And B = A Then
                  C = Fuori90(A + B)
                  D = Fuori90(B + C)
                  E = Fuori90(C + D)
                  F = ComplAdX(E)
                  If E <> F Then
                     Ambata(1) = E : Ambata(2) = F
                     Quar1(1) = B : Quar1(2) = C : Quar1(3) = D : Quar1(4) = E
                     Quar2(1) = B : Quar2(2) = C : Quar2(3) = D : Quar2(4) = F
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P3 = 1 To 5
                        E1 = Estratto(Es,R1,P3)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P4 = 1 To 5
                        E2 = Estratto(Es,R2,P4)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi Space(20) & Format2(A),1,,,,4
                     Scrivi Space(20) & Format2(B),1,,,,4
                     Scrivi Space(20) & Format2(C),1,,,,4
                     Scrivi Space(20) & Format2(D),1,,,,4
                     Scrivi Space(18) & Format2(E) & Space(2) & Format2(F),1,,,,4
                     Ruo(1) = R1 : Ruo(2) = R2 : Rut(1) = TU_
                     ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
                     ImpostaGiocata 2,Quar1,Ruo,Post,Clp2
                     ImpostaGiocata 3,Quar2,Ruo,Post,Clp2
                     ImpostaGiocata 4,Quar1,Rut,Poste,Clp2
                     ImpostaGiocata 5,Quar2,Rut,Poste,Clp2
                     Gioca Es,1
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 

Alien.

Advanced Premium Member
Ciao,scusa Salvo mi spieghi perchè certi script non mi funzionano mi danno solo il resoconto a zero,grazie. Complimenti per il tuo lavoro.
 

Matematico

Advanced Member
Ciao a Tutti.

Matematico, Rudivall, Xeroxs.

Grazie.

I Numeri di Padre Pacifico a cura di Davide Lo Stracco - con Modifica di Matematico

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50
   Dim R1,R2,Caso,Casi,A,B,C,D,E,F
   Dim P1,P2,P3,P4,E2,E1
   Dim Ruo(2),Rut(1),Posta(1),Ambata(2),Post(4),Poste(4)
   Dim Quar1(4),Quar2(4)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate? ",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare le Quartine? ",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & " I Numeri di Padre Pacifico a cura di Davide Lo Stracco - Mod Matematico - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Post(2) = 1
   Poste(2) = 1
   Poste(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               If A > 0 And B = A Then
                  C = Fuori90(A + B)
                  D = Fuori90(B + C)
                  E = Fuori90(C + D)
                  F = ComplAdX(E)
                  If E <> F Then
                     Ambata(1) = E : Ambata(2) = F
                     Quar1(1) = B : Quar1(2) = C : Quar1(3) = D : Quar1(4) = E
                     Quar2(1) = B : Quar2(2) = C : Quar2(3) = D : Quar2(4) = F
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(96,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(87,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P3 = 1 To 5
                        E1 = Estratto(Es,R1,P3)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                     For P4 = 1 To 5
                        E2 = Estratto(Es,R2,P4)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi Space(20) & Format2(A),1,,,,4
                     Scrivi Space(20) & Format2(B),1,,,,4
                     Scrivi Space(20) & Format2(C),1,,,,4
                     Scrivi Space(20) & Format2(D),1,,,,4
                     Scrivi Space(18) & Format2(E) & Space(2) & Format2(F),1,,,,4
                     Ruo(1) = R1 : Ruo(2) = R2 : Rut(1) = TU_
                     ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
                     ImpostaGiocata 2,Quar1,Ruo,Post,Clp2
                     ImpostaGiocata 3,Quar2,Ruo,Post,Clp2
                     ImpostaGiocata 4,Quar1,Rut,Poste,Clp2
                     ImpostaGiocata 5,Quar2,Rut,Poste,Clp2
                     Gioca Es,1
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Sempre grande salvo50...grazie 1000 :)
 

Matematico

Advanced Member
Ciao

ti metto solo un esempio di numeri FIBONACCI

basta avere fantasia e vai avanti

Sub Main
p2=21
p1=47

aa = p2 : bb = p1
For q = 1 To 120
cc = Fuori90(aa + bb)
g = cc
aa = bb:bb = cc
Scrivi g & " " & aa & " " & q
Next
End Sub

come noterai a 120 ritornano i primi numeri scelti (a volte a secondo la coppia numerica si ferma prima di 120)

Buon divertimento
Grazie
Ciao

ti metto solo un esempio di numeri FIBONACCI

basta avere fantasia e vai avanti

Sub Main
p2=21
p1=47

aa = p2 : bb = p1
For q = 1 To 120
cc = Fuori90(aa + bb)
g = cc
aa = bb:bb = cc
Scrivi g & " " & aa & " " & q
Next
End Sub

come noterai a 120 ritornano i primi numeri scelti (a volte a secondo la coppia numerica si ferma prima di 120)

Buon divertimento
Grazie avio ,ma cosa centra il terzo numero ?
 

salvo50

Advanced Member >PLATINUM PLUS<
Matematico, Rudivall, Xeroxs.
Grazie.

IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Incompleto)

Nella prima parte del "Medio Triplare 15" Nell'esempio fatto dall'autore nelle coppie delle 2 cinquine finali

non ci sono doppioni, ma se si verificano io in questi casi ho eliminato l'estrazione (Obbligato perche

nell'ultima tabella a 2 numeri uguali non corrisponde niente)ed anche perchè se li lascio (non serve a niente

lasciarli)lo script va in errore <INVALIDO USO DI NULL>. Ha riguardo al gruppo delle miste, ho fatto delle prove

e si sono verificate delle coppie miste che non ci sono nel gruppo delle miste, quindi non essendoci la coppia

nel gruppo delle miste il risultato non ci dovrebbe essere ma c'è, anche per le figure stessa cosa la coppia può

essere della stessa figura ma nel gruppo delle figure non c'è,ed anche in questo caso c'è un numero che lo sa

solo lo script con che criterio lo mette, esempio la coppia (15-24) due numeri stessa figura non ci sono

accoppiati nella tabella delle triple gruppo figure, io posso anche non far apparire i numeri che mette lo

script, ma ci sarebbero delle coppie senza numero, avevo eliminato le estrazioni in cui uno o più estratti erano

zerati (cadenza 0) perchè nella prima tabella agli zerati non corrisponde nessun numero piccolo, però l'autore

fa un esempio con uno zerato, ma al posto del 70 fa i calcoli con il 79 ma non lo dice, si capisce che è così

rifacendo tutti i calcoli, quindi l'ho rimesso, inserendo gli zerati nella prima tabella.

esempio dell'autore,immagine 3 in basso a sinistra

63 - 06 - 70 - 36 - 64
83 - 36 - 37 - 06 - 42
----------------------
19 - 33 - 58 - 33 - 59 = medio 15 delle somme



49 - 09 - 55 - 66 - 53 = differenza triplare = Medio 15 somma numeri piccoli, al posto del 55 ci va il 52 e al

posto del 66 ci va lo 09, ennesimi errori di stampa




49 - 09 - 52 - 09 - 53 la riga sopra deve essere così



79 - 66 - 55 - 66 - 56 la cinquina finale giusta è questa con il 55 come terzo numero


(19 49) - 79
(33 09) - 66
(58 52) - 55
(33 09) - 66
(59 53) - 56

La prima parte finisce con un pronostico di una cinquina, script fatto.


La seconda parte dovrebbe pronosticare l'ambata secca, l'autore inizia le spiegazioni ed a un certo punto dice,

<a questo punto riprendiamo i 20 numeri prima ottenuti>. 20 numeri?!?! Che io sappia sono 15, ma ho pensato sarà

l'ennesimo errore di stampa, ed invece continua a parlare di 20 numeri e alla fine li scrive


20 numeri 1.PNG

Dice che li ha ottenuti nella ruota di Cagliari, la quarta settimana di maggio del 1972, ebbene ho impostato

nello script l'estrazione, ma lo script salta quell'estrazione, quindi tolgo le condizioni e risulta che come

coppia finale ci sono 2 numeri uguali, e l'ultima tabella quella delle triple non da nessun numero a 2 numeri

uguali, perchè non ci sono, anche così controllando i numeri scritti dall'autore ed i numeri ottenuti dai

calcoli non vedo riscontri, ho cercato anche qualche estrazione prima ed anche qualche estrazione dopo, niente.

20 numeri 2Cagliari.PNG

Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma

20 numeri 3.PNG

20 numeri 4 Roma.PNG

Ed anche qui non trovo riscontri con i numeri postati dall'autore, quindi non so come li ha ottenuti questi 20

numeri, forse io ho sbagliato ad interpretarli, se qualcuno ha capito da dove prendere questi 20 numeri, la-o

prego di spiegarmelo, forse così si può proseguire lo script per la seconda parte, dico forse perchè non sò

ancora come tradurre in script quello di calcolare nelle figure cadenze e decine quelle maggiormente uscite e

poi come accoppiarle per formare il pronostico, in questultimo esempio nella ruota di Roma i numeri maggiormente

usciti sono:

2 e 5 per le decine
2 e 9 per le cadenze
2, 4, 7, 9 per le figure

l'autore pronostica questi 3 numeri

22
29
52

ma con quale criterio?

Perchè per esempio non ha messo anche il 25 oppure il 25 al posto del 52?

Non lo sapremo mai, a meno che qualcuno non abbia una spiegazione.


Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Clp2,Salvo50,Ruota
   Dim R1,Caso,Casi,IniR,x,K,G,FInR,Ok1
   Dim M1(2),M2(2),M3(2),M4(2)
   Dim A(5),B(5),DecA(5),DecB(5),CadA(5),CadB(5)
   Dim Dec_AB(5),Cad_AB(5),DeAB(5),CaAB(5)
   Dim So_DecAB(5),So_CadAB(5),DecAB_CadAB(5)
   Dim M15_AB(5),Min_A(5),Min_B(5),C(5)
   Dim M15_DePi(5),M15_CaPi(5),M15_Pi(5)
   Dim Num_Pi(5),De_Num_Pi(5),Ca_Num_Pi(5)
   Dim Ruo(1),Posta(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9700)'5289 primo esempio nell'articolo, ruota Milano
   Clp = CInt(InputBox("Per quanti colpi vuoi giocare ?",,8))
   Ruota = InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 a 10 Per Nazionale 12 ?",Salvo50,5)
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "IL MEDIO TRIPLARE 15 di ANTONIO LONGO (Prima Parte) - SCRIPT SALVO50",1,,4,,3,,1
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   'Posta(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = IniR To FInR
         If R1 = 11 Then R1 = 12
         Ok1 = 0
         'CALCOLI PER TROVARE IL MEDIO 15
         For x = 1 To 5
            A(x) = Estratto(Es,R1,x)
            B(x) = Estratto(Es + 1,R1,x)
            DecA(x) = Decina(A(x)) : CadA(x) = Cadenza(A(x))'Decine e cadenze estratto A
            DecB(x) = Decina(B(x)) : CadB(x) = Cadenza(B(x))'Decine e cadenze estratto B
            So_DecAB(x) = FuoriX(DecA(x) + DecB(x),9) ' Somma decine di A e B
            So_CadAB(x) = FuoriX(CadA(x) + CadB(x),9) ' Somma cadenze di A e B
            If CadA(x) = 0 And CadB(x) = 0 Then So_CadAB(x) = 0
            DecAB_CadAB(x) = So_DecAB(x) & So_CadAB(x)
            '
            DeAB(x) = FuoriX(15 - So_DecAB(x),9)'Medio 15 delle decine
            If DeAB(x) = 9 Then DeAB(x) = 0 '--------------------
            CaAB(x) = FuoriX(15 - So_CadAB(x),9)'Medio 15 delle cadenze
            M15_AB(x) = DeAB(x) & CaAB(x)'Medio 15
            'M15_AB(x) = Fuori90(M15_AB(x))
            M15_AB(x) = CInt(M15_AB(x))
            '
            If A(x) = 1 Or A(x) = 4 Or A(x) = 7 Or A(x) = 31 Or A(x) = 34 Or A(x) = 37 Or A(x) = 61 Or A(x) = 64 Or A(x) = 67 Then Min_A(x) = 1
            If A(x) = 2 Or A(x) = 5 Or A(x) = 8 Or A(x) = 32 Or A(x) = 35 Or A(x) = 38 Or A(x) = 62 Or A(x) = 65 Or A(x) = 68 Then Min_A(x) = 2
            If A(x) = 3 Or A(x) = 6 Or A(x) = 9 Or A(x) = 33 Or A(x) = 36 Or A(x) = 30 Or A(x) = 39 Or A(x) = 63 Or A(x) = 66 Or A(x) = 60 Or A(x) = 69 Then Min_A(x) = 3
            If A(x) = 11 Or A(x) = 14 Or A(x) = 17 Or A(x) = 41 Or A(x) = 44 Or A(x) = 47 Or A(x) = 71 Or A(x) = 74 Or A(x) = 77 Then Min_A(x) = 11
            If A(x) = 12 Or A(x) = 15 Or A(x) = 18 Or A(x) = 42 Or A(x) = 45 Or A(x) = 48 Or A(x) = 72 Or A(x) = 75 Or A(x) = 78 Then Min_A(x) = 12
            If A(x) = 13 Or A(x) = 16 Or A(x) = 10 Or A(x) = 19 Or A(x) = 43 Or A(x) = 46 Or A(x) = 40 Or A(x) = 49 Or A(x) = 73 Or A(x) = 76 Or A(x) = 70 Or A(x) = 79 Then Min_A(x) = 13
            If A(x) = 21 Or A(x) = 24 Or A(x) = 27 Or A(x) = 51 Or A(x) = 54 Or A(x) = 57 Or A(x) = 81 Or A(x) = 84 Or A(x) = 87 Then Min_A(x) = 21
            If A(x) = 22 Or A(x) = 25 Or A(x) = 28 Or A(x) = 52 Or A(x) = 55 Or A(x) = 58 Or A(x) = 82 Or A(x) = 85 Or A(x) = 88 Then Min_A(x) = 22
            If A(x) = 23 Or A(x) = 26 Or A(x) = 20 Or A(x) = 29 Or A(x) = 53 Or A(x) = 56 Or A(x) = 50 Or A(x) = 59 Or A(x) = 83 Or A(x) = 86 Or A(x) = 80 Or A(x) = 89 Then Min_A(x) = 23
            '
            If B(x) = 1 Or B(x) = 4 Or B(x) = 7 Or B(x) = 31 Or B(x) = 34 Or B(x) = 37 Or B(x) = 61 Or B(x) = 64 Or B(x) = 67 Then Min_B(x) = 1
            If B(x) = 2 Or B(x) = 5 Or B(x) = 8 Or B(x) = 32 Or B(x) = 35 Or B(x) = 38 Or B(x) = 62 Or B(x) = 65 Or B(x) = 68 Then Min_B(x) = 2
            If B(x) = 3 Or B(x) = 6 Or B(x) = 9 Or B(x) = 33 Or B(x) = 36 Or B(x) = 30 Or B(x) = 39 Or B(x) = 63 Or B(x) = 66 Or B(x) = 60 Or B(x) = 69 Then Min_B(x) = 3
            If B(x) = 11 Or B(x) = 14 Or B(x) = 17 Or B(x) = 41 Or B(x) = 44 Or B(x) = 47 Or B(x) = 71 Or B(x) = 74 Or B(x) = 77 Then Min_B(x) = 11
            If B(x) = 12 Or B(x) = 15 Or B(x) = 18 Or B(x) = 42 Or B(x) = 45 Or B(x) = 48 Or B(x) = 72 Or B(x) = 75 Or B(x) = 78 Then Min_B(x) = 12
            If B(x) = 13 Or B(x) = 16 Or B(x) = 10 Or B(x) = 19 Or B(x) = 43 Or B(x) = 46 Or B(x) = 40 Or B(x) = 49 Or B(x) = 73 Or B(x) = 76 Or B(x) = 70 Or B(x) = 79 Then Min_B(x) = 13
            If B(x) = 21 Or B(x) = 24 Or B(x) = 27 Or B(x) = 51 Or B(x) = 54 Or B(x) = 57 Or B(x) = 81 Or B(x) = 84 Or B(x) = 87 Then Min_B(x) = 21
            If B(x) = 22 Or B(x) = 25 Or B(x) = 28 Or B(x) = 52 Or B(x) = 55 Or B(x) = 58 Or B(x) = 82 Or B(x) = 85 Or B(x) = 88 Then Min_B(x) = 22
            If B(x) = 23 Or B(x) = 26 Or B(x) = 20 Or B(x) = 29 Or B(x) = 53 Or B(x) = 56 Or B(x) = 50 Or B(x) = 59 Or B(x) = 83 Or B(x) = 86 Or B(x) = 80 Or B(x) = 89 Then Min_B(x) = 23
            '
            Num_Pi(x) = Min_A(x) + Min_B(x)'Somma numeri piccoli
            De_Num_Pi(x) = Decina(Num_Pi(x))'Decina della somma dei numeri piccoli
            Ca_Num_Pi(x) = Cadenza(Num_Pi(x))'Cadenza della somma dei numeri piccoli
            M15_DePi(x) = FuoriX(15 - De_Num_Pi(x),9)'Medio 15 decine somma numeri piccoli
            If De_Num_Pi(x) = 0 Then M15_DePi(x) = 0
            M15_CaPi(x) = FuoriX(15 - Ca_Num_Pi(x),9)'Medio 15 cadenza somma numeri piccoli
            If Ca_Num_Pi(x) = 0 Then M15_CaPi(x) = 0
            M15_Pi(x) = M15_DePi(x) & M15_CaPi(x)'Medio 15 decine e cadenze somma numeri piccoli
            M15_Pi(x) = CInt(M15_Pi(x))
            'FINE CALCOLI PER TROVARE IL MEDIO 15
            '*****************************************************************
            'INIZIO CALCOLI PER TROVATE MEDIO TRIPLARE
            If M15_AB(x) <> M15_Pi(x) Then
               Ok1 = Ok1 + 1 ' Elimina i doppioni
               '***********************************************************************
               'DECINE
               If Decina(M15_AB(x)) = Decina(M15_Pi(x)) Then
                  M1(1) = M15_AB(x) : M1(2) = M15_Pi(x)
                  Call OrdinaMatrice(M1,1)
                  If(M1(1) > 0 And M1(1) < 4)Or(M1(1) > 10 And M1(1) < 14)Or(M1(1) > 20 And M1(1) < 24)_
                     Or(M1(1) > 30 And M1(1) < 34)Or(M1(1) > 40 And M1(1) < 44)Or(M1(1) > 50 And M1(1) < 54)_
                     Or(M1(1) > 60 And M1(1) < 64)Or(M1(1) > 70 And M1(1) < 74)Or(M1(1) > 80 And M1(1) < 84) Then
                     If M1(1) + 3 = M1(2) Then C(x) = Fuori90(M1(1) + 6)
                     If M1(1) + 6 = M1(2) Then C(x) = Fuori90(M1(1) + 3)
                  End If
                  If(M1(1) > 3 And M1(1) < 7)Or(M1(1) > 13 And M1(1) < 17)Or(M1(1) > 23 And M1(1) < 27)_
                     Or(M1(1) > 33 And M1(1) < 37)Or(M1(1) > 43 And M1(1) < 47)Or(M1(1) > 53 And M1(1) < 57)_
                     Or(M1(1) > 63 And M1(1) < 67)Or(M1(1) > 73 And M1(1) < 77)Or(M1(1) > 83 And M1(1) < 87) Then
                     If M1(1) + 3 = M1(2) Then C(x) = M1(1) - 3
                  End If
               End If
               '***********************************************************************
               'CADENZE
               If Cadenza(M15_AB(x)) = Cadenza(M15_Pi(x)) Then
                  C(x) = Fuori90(M15_AB(x) + 30)
                  If C(x) = M15_Pi(x) Then C(x) = Fuori90(C(x) + 30)
               End If
               '***********************************************************************
               'FIGURE
               If Figura(M15_AB(x)) = Figura(M15_Pi(x)) Then
                  M3(1) = M15_AB(x) : M3(2) = M15_Pi(x)
                  Call OrdinaMatrice(M3,1)
                  If(M3(1) > 0 And M3(1) < 4) Or(M3(1) > 10 And M3(1) < 14) Or(M3(1) > 20 And M3(1) < 24) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 36
                  End If
                  If(M3(1) > 36 And M3(1) < 40) Or(M3(1) > 46 And M3(1) < 50) Or(M3(1) > 56 And M3(1) < 60) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 36
                  End If
                  If(M3(1) > 3 And M3(1) < 7) Or(M3(1) > 13 And M3(1) < 17) Or(M3(1) > 23 And M3(1) < 27) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 63 Else If M3(1) + 63 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 30 And M3(1) < 34) Or(M3(1) > 40 And M3(1) < 44) Or(M3(1) > 50 And M3(1) < 54) Then
                     If M3(1) + 36 = M3(2) Then C(x) = M3(1) - 27
                  End If
                  If(M3(1) > 6 And M3(1) < 10) Or(M3(1) > 16 And M3(1) < 20) Or(M3(1) > 26 And M3(1) < 30) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) + 54 Else If M3(1) + 54 = M3(2) Then C(x) = M3(1) + 27
                  End If
                  If(M3(1) > 33 And M3(1) < 37) Or(M3(1) > 43 And M3(1) < 47) Or(M3(1) > 53 And M3(1) < 57) Then
                     If M3(1) + 27 = M3(2) Then C(x) = M3(1) - 27
                  End If
               End If
               '***********************************************************************
               'MISTE
               If Figura(M15_AB(x)) <> Figura(M15_Pi(x)) And Decina(M15_AB(x)) <> Decina(M15_Pi(x))_
                  And Cadenza(M15_AB(x)) <> Cadenza(M15_Pi(x))Then
                  M4(1) = M15_AB(x) : M4(2) = M15_Pi(x)
                  Call OrdinaMatrice(M4,1)
                  If(M4(1) > 0 And M4(1) < 4) Or(M4(1) > 10 And M4(1) < 14) Or(M4(1) > 20 And M4(1) < 24) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 66 Else If M4(1) + 66 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 33 And M4(1) < 37) Or(M4(1) > 43 And M4(1) < 47) Or(M4(1) > 53 And M4(1) < 57) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 3 And M4(1) < 7) Or(M4(1) > 13 And M4(1) < 17) Or(M4(1) > 23 And M4(1) < 27) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 33
                  End If
                  If(M4(1) > 36 And M4(1) < 40) Or(M4(1) > 46 And M4(1) < 50) Or(M4(1) > 56 And M4(1) < 60) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) - 33
                  End If
                  If(M4(1) > 6 And M4(1) < 10) Or(M4(1) > 16 And M4(1) < 20) Or(M4(1) > 26 And M4(1) < 30) Then
                     If M4(1) + 24 = M4(2) Then C(x) = M4(1) + 57 Else If M4(1) + 57 = M4(2) Then C(x) = M4(1) + 24
                  End If
                  If(M4(1) > 30 And M4(1) < 34) Or(M4(1) > 40 And M4(1) < 44) Or(M4(1) > 50 And M4(1) < 54) Then
                     If M4(1) + 33 = M4(2) Then C(x) = M4(1) - 24
                  End If
               End If
            End If
         Next
         If Ok1 = 5 Then 'elimina i doppioni
            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 + 1) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es,R1) & "   ",1,0
            Scrivi StringaNumeri(Min_A," ",True) & "   <- Numeri Piccoli ",1
            Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es + 1,R1),1,0
            Scrivi "   " & StringaNumeri(Min_B," ",True) & "   <- Numeri Piccoli ",1
            Scrivi Space(39) & String(14,"-") & Space(3) & String(14,"-"),1,,,2
            Scrivi " Somma Delle Decine e Cadenze Fuori 9  " & StringaNumeri(DecAB_CadAB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(Num_Pi," ",True) & "   <- Somma Numeri Piccoli",1
            Scrivi " Il Medio 15 Delle Somme               " & StringaNumeri(M15_AB," ",True),1,0
            Scrivi Space(3) & StringaNumeri(M15_Pi," ",True) & "   <- Medio 15 Somma Numeri Piccoli",1
            Scrivi
            Scrivi " Le Due Cinquine Ottenute Aprono Cinque Triple ",1,,,1
            Scrivi Format2(M15_AB(1)) & " " & Format2(M15_Pi(1)) & Space(15) & Format2(C(1))
            Scrivi Format2(M15_AB(2)) & " " & Format2(M15_Pi(2)) & Space(15) & Format2(C(2))
            Scrivi Format2(M15_AB(3)) & " " & Format2(M15_Pi(3)) & Space(15) & Format2(C(3))
            Scrivi Format2(M15_AB(4)) & " " & Format2(M15_Pi(4)) & Space(15) & Format2(C(4))
            Scrivi Format2(M15_AB(5)) & " " & Format2(M15_Pi(5)) & Space(15) & Format2(C(5))
            Ruo(1) = R1
            ImpostaGiocata 1,C,Ruo,Posta,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Il medio triplare - il medio 15 - 1a parte - foglio 1 - Antonio Longo.jpg
Il medio triplare - il medio 15 - 1a parte - foglio 2 - Antonio Longo.jpg



Il medio triplare - il medio 15 - 2a parte - foglio 1 - Antonio Longo.jpg




Il medio triplare - il medio 15 - 2a parte - foglio 2 - Antonio Longo.jpg
 
Ultima modifica:

Matematico

Advanced Member
Ciao a tutti e in particolare a salvo50 ,
Ti allego un metodo molto interessante di cui l'autore è : Pasquale Robbe....quando puoi sarebbe utilissimo uno script x cercare le condizioni di gioco e per calcolare già la previsione pronta.
 

Allegati

  • PARALLELOGRAMMO SIMMETRICO.jpg
    PARALLELOGRAMMO SIMMETRICO.jpg
    57,2 KB · Visite: 13
  • PARALLELOGRAMMO SIMMETRICO-SPIEGAZIONE.jpg
    PARALLELOGRAMMO SIMMETRICO-SPIEGAZIONE.jpg
    42,2 KB · Visite: 13
  • PARALLELOGRAMMO SIMMETRICO-SPIEGAZIONE.2jpg.jpg
    PARALLELOGRAMMO SIMMETRICO-SPIEGAZIONE.2jpg.jpg
    43,1 KB · Visite: 13
  • PARALLELOGRAMMO SIMMETRICO.NUMERI DI RINTRACCIOjpg.jpg
    PARALLELOGRAMMO SIMMETRICO.NUMERI DI RINTRACCIOjpg.jpg
    27,2 KB · Visite: 11

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Xeroxs, Master, Paki144, Matematico

Grazie

IL PARALLELOGRAMMA SIMMETRICO di PASQUALE ROBBE

Il metodo chiede di trovare 2 ambi distanza 30 distanti di un estratto e svasati di una posizione, inoltre i 4 numeri devono appartenere ad una delle 15 sestine esagonali con la possibilità che un numero può essere doppio.

Ho fatto 2 script, perchè con queste 3 condizioni dalla prima estrazione del 1871 ad oggi si sono verificate solo 7 casi giocabili di cui 5 vincenti, nell'output ce ne sono solo 3 le altre 4 hanno il numero doppio e sono nel secondo script

Nel primo script ho messo le condizioni della distanza 30 e dell'appartenenza alla sestina esagonale, non ho messo la condizione del numero doppio, perchè non ho trovato il modo di farlo, nel secondo script ho messo solo la condizione della distanza 30 e partendo sempre dalla prima estrazione del 1871 ad oggi i casi giocabili sono 159, uno ogni 62 estrazioni circa, in questo secondo script ci sono i casi di numero doppio e sono solo 4 dal 1871, per questo non ci ho perso tempo a inserirli nell'altro script

Primo script con condizione sestina esagonale, senza condizione numero doppio

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,A1,A2,A3,B1,B2,B3,P1,P2,P3,E1,E2,OK
   Dim DiA13,DiA24,DiA35,DiB13,DiB24,DiB35,K
   Dim DiAB12,DiAB23,DiAB34,DiAB45
   Dim A(5),B(5),Num(6),Nu(4)
   Dim Amba(2),Ruo(1),Posta(1),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,7359)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare gli ambi?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "PARALLELOGRAMMO SIMMETRICO di PASQUALE ROBBE - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "               SENZA CONDIZIONE NUMERO DOPPIO                ",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
         Next
         If A(1) > 0 Then
            DiA13 = Distanza(A(1),A(3)) : DiA24 = Distanza(A(2),A(4)) : DiA35 = Distanza(A(3),A(5))
            If DiA13 = 30 Xor DiA24 = 30 Xor DiA35 = 30 Then
               DiB13 = Distanza(B(1),B(3)) : DiB24 = Distanza(B(2),B(4)) : DiB35 = Distanza(B(3),B(5))
               If DiB13 = 30 Xor DiB24 = 30 Xor DiB35 = 30 Then
                  DiAB12 = Distanza(A(1),B(2)) : DiAB23 = Distanza(A(2),B(3))
                  DiAB34 = Distanza(A(3),B(4)) : DiAB45 = Distanza(A(4),B(5))
                  OK = 0
                  'Combinazione 1
                  If DiA13 = 30 And DiB24 = 30 Then
                     If(DiAB12 = 15 Or DiAB12 = 45) And(DiAB34 = 15 Or DiAB34 = 45) Then
                        A1 = A(1) : A2 = A(2) : A3 = A(3)
                        B1 = B(2) : B2 = B(3) : B3 = B(4)
                        OK = 1
                     End If
                  End If
                  'Combinazione 2
                  If DiA24 = 30 And DiB35 = 30 Then
                     If(DiAB23 = 15 Or DiAB23 = 45) And(DiAB45 = 15 Or DiAB45 = 45) Then
                        A1 = A(2) : A2 = A(3) : A3 = A(4)
                        B1 = B(3) : B2 = B(4) : B3 = B(5)
                        OK = 1
                     End If
                  End If
                  'Combinazione 3
                  If DiA24 = 30 And DiB13 = 30 Then
                     If(DiAB12 = 15 Or DiAB12 = 45) And(DiAB34 = 15 Or DiAB34 = 45) Then
                        A1 = A(2) : A2 = A(3) : A3 = A(4)
                        B1 = B(1) : B2 = B(2) : B3 = B(3)
                        OK = 1
                     End If
                  End If
                  'Combinazione 4
                  If DiA35 = 30 And DiB24 = 30 Then
                     If(DiAB23 = 15 Or DiAB23 = 45) And(DiAB45 = 15 Or DiAB45 = 45) Then
                        A1 = A(3) : A2 = A(4) : A3 = A(5)
                        B1 = B(2) : B2 = B(3) : B3 = B(4)
                        OK = 1
                     End If
                  End If
                  If OK = 1 Then
                     Nu(1) = A1 : Nu(2) = A3 : Nu(3) = B1 : Nu(4) = B3
                     Num(1) = Nu(1)
                     For K = 2 To 6
                        Num(K) = Fuori90(Num(K - 1) + 15)
                     Next
                     Call OrdinaMatrice(Num,1)
                     Amba(1) = Diametrale(A2) : Amba(2) = Diametrale(B2)
                     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 P2 = 1 To 5
                        E1 = Estratto(Es,R1,P2)
                        If E1 = A1 Or E1 = A3 Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P3 = 1 To 5
                        E2 = Estratto(Es + 1,R1,P3)
                        If E2 = B1 Or E2 = B3 Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi " I Quatro Numeri Del Parallelogramma, Appartengono Alla Sestina Esagonale  ",1,0,,1
                     Scrivi StringaNumeri(Num,"  ",True),1,,,7
                     Scrivi
                     Scrivi " Il Diametrale di " & Format2(A2) & " è ",1,0
                     Scrivi Format2(Amba(1)),1,,,2
                     Scrivi " Il Diametrale di " & Format2(B2) & " è ",1,0
                     Scrivi Format2(Amba(2)),1,,,2
                     Scrivi
                     Ruo(1) = R1
                     ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                     ImpostaGiocata 2,Amba,Ruo,Poste,Clp2
                     Gioca Es
                  End If
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub


Secondo script senza condizione sestina esagonale

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp1,Clp2,Salvo50,Caso,Casi
   Dim R1,A1,A2,A3,B1,B2,B3,P1,P2,P3,E1,E2,OK
   Dim DiA13,DiA24,DiA35,DiB13,DiB24,DiB35
   Dim A(5),B(5),Amba(2)
   Dim Ruo(1),Posta(1),Poste(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,7359)
   Clp1 = InputBox("Per quanti colpi vuoi giocare le Ambate?",,5)
   Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(8) & "PARALLELOGRAMMO SIMMETRICO di PASQUALE ROBBE  - SCRIPT SALVO50",1,,4,,3,,1
   Scrivi Space(8) & "                     SENZA SESTINA ESAGONALE                  ",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Estratto(Es + 1,R1,P1)
         Next
         DiA13 = Distanza(A(1),A(3)) : DiA24 = Distanza(A(2),A(4)) : DiA35 = Distanza(A(3),A(5))
         If DiA13 = 30 Xor DiA24 = 30 Xor DiA35 = 30 Then
            DiB13 = Distanza(B(1),B(3)) : DiB24 = Distanza(B(2),B(4)) : DiB35 = Distanza(B(3),B(5))
            If DiB13 = 30 Xor DiB24 = 30 Xor DiB35 = 30 Then
               OK = 0
               'Combinazione 1
               If DiA13 = 30 And DiB24 = 30 Then
                  A1 = A(1) : A2 = A(2) : A3 = A(3)
                  B1 = B(2) : B2 = B(3) : B3 = B(4)
                  OK = 1
               End If
               'Combinazione 2
               If DiA24 = 30 And DiB35 = 30 Then
                  A1 = A(2) : A2 = A(3) : A3 = A(4)
                  B1 = B(3) : B2 = B(4) : B3 = B(5)
                  OK = 1
               End If
               'Combinazione 3
               If DiA24 = 30 And DiB13 = 30 Then
                  A1 = A(2) : A2 = A(3) : A3 = A(4)
                  B1 = B(1) : B2 = B(2) : B3 = B(3)
                  OK = 1
               End If
               'Combinazione 4
               If DiA35 = 30 And DiB24 = 30 Then
                  A1 = A(3) : A2 = A(4) : A3 = A(5)
                  B1 = B(2) : B2 = B(3) : B3 = B(4)
                  OK = 1
               End If
               If OK = 1 Then
                  Amba(1) = Diametrale(A2) : Amba(2) = Diametrale(B2)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A1 Or E1 = A3 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es + 1,R1,P3)
                     If E2 = B1 Or E2 = B3 Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi " Il Diametrale di " & Format2(A2) & " è ",1,0
                  Scrivi Format2(Amba(1)),1,,,2
                  Scrivi " Il Diametrale di " & Format2(B2) & " è ",1,0
                  Scrivi Format2(Amba(2)),1,,,2
                  Ruo(1) = R1
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
                  ImpostaGiocata 2,Amba,Ruo,Poste,Clp2
                  Gioca Es
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Matematico

Advanced Member
Grazie di cuore salvo50 , tra le mie vecchie scartoffie mi ritrovo il metodo Ambo Relativo di Giuseppe Pezzella ...se ti và d i farne uno script ti allego il file che è un PDF
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a tutti..
ma per farli funzionare con lottodesk?
si puo fare qualcosa?
grazie
Ciao Simon, metti la spunta a queste tre righe, forse non ci dovrebbe essere altro

Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & "PARALLELOGRAMMO SIMMETRICO di PASQUALE ROBBE - SCRIPT SALVO50",1,,4,,3,,1
Scrivi Space(8) & " SENZA SESTINA ESAGONALE ",1,,4,,3,,1
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 21 gennaio 2021
    Bari
    18
    43
    19
    69
    15
    Cagliari
    17
    27
    61
    09
    76
    Firenze
    69
    63
    81
    26
    61
    Genova
    89
    36
    07
    81
    66
    Milano
    39
    82
    74
    12
    40
    Napoli
    07
    53
    05
    73
    88
    Palermo
    27
    58
    08
    52
    19
    Roma
    17
    38
    39
    40
    29
    Torino
    66
    90
    17
    74
    29
    Venezia
    08
    12
    88
    40
    87
    Nazionale
    71
    21
    54
    79
    77
    Estrazione Simbolotto
    Bari
    38
    04
    36
    33
    01
Alto