mister1729
Banned
Grazie Salvo anche se non ti ho fatto una richiesta specifica, comunque rinnovo e auguro buana vincita a tutti!
Ultima modifica:
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.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
Matematico
Advanced Member >PLATINUM<
Grazie1000 salvo50 , sei il top!
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Mister1729, ho controllato di nuovo le spiegazioni dell'Ambo Ripetuto e non ho controllato tutti gli esempi che fa l'autore, perchè è un lavoraccio, però ho controllato gli ultimi 5 perchè si capiscono un po' meglio degli altri esempi
come vedi in questi 5 esempi non ce ne neanche uno con ambi incrociati, quindi io nello script ho rispettato questa disposizione
per non essere incrociati intendo prendendo ad esempio l'ultimo dell'immagine sopra
BA 75 51
PA 75 51
che non devono essere
BA 75 51
PA 51 75
Però se tu chiedi di vedere anche quelli incrociati, non c'è problema, nel post 442, ho messo un'altro script che cerca riscontri anche di ambi ripetuti incrociati
Ultima modifica:
mister1729
Banned
Ciao salvo50, cosa dire ti ringrazio per il tuo interessamento ed è chiaro ciò che fai notare.
In realtà a me servivano solo come diciamo così numeri spia dato che con excel si perde un sacco di tempo rintracciarli!
Invece approfitto della tua bontà chiedendoti se e quando vuoi avrei sotto mano un metodo che ha per esempio con l'estrazione di oggi ha dato un bel ambo sulla ruota designata!
Ti saluto e arrigrazie.
In realtà a me servivano solo come diciamo così numeri spia dato che con excel si perde un sacco di tempo rintracciarli!
Invece approfitto della tua bontà chiedendoti se e quando vuoi avrei sotto mano un metodo che ha per esempio con l'estrazione di oggi ha dato un bel ambo sulla ruota designata!
Ti saluto e arrigrazie.
salvo50
Advanced Member >PLATINUM PLUS<
Mettilo se sono in grado lo faccio volentieri
Naturalmente attenersi al titolo
Metodi Cabalisti, Ciclometrici ecc..
Ultima modifica:
mister1729
Banned
Grazie salvo , vorrei essere sicuro prima di non fare brutta figura e non farti perdere tempo è per questo vorrei
ricontrollarmi i vari passaggi ed essere più chiaro e sintetico possibile , grazie intanto !
ricontrollarmi i vari passaggi ed essere più chiaro e sintetico possibile , grazie intanto !
Matematico
Advanced Member >PLATINUM<
Buona domenica a tutti ed in particolare a salvo50 , questo ch allego è un grande metodo di ottima fattura di Giorgio Bononcini ...raro da trovare e che dà ancora ad oggi ottime soddisfazioni , speriamo che salvo 50 riesca quando potrà a fare lo script per la gioia di tutti noi 
Matematico
Advanced Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs.
Grazie.
Metodo lunghissimo ma con molte spiegazioni, il metodo si basa su una spiegazione generale e poi con una miriade di varianti, riguardo allo script ho fatto il metodo principale che cerca un ambo unito e poi in un'altra ruota andando a ritroso per 20 estrazioni (per questo numero ho messo un inputbox, quindi si può variare) trovare un ambo unito chiamato TRASPORTO e poi ci sono una serie di calcoli e si arriva all'ambata e agli ambi, una variante è quella di cercare l'ambo TRASPORTO NON UNITO che ho inserito ed i calcoli sono diversi dal metodo principale, nonostante si veda che l'ambo TRASPORTO non è unito, gli ho messo una segnalazione, per le altre varianti i calcoli ci sono già, sono visibili basta seguire le disposizioni.
Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs.
Grazie.
Metodo lunghissimo ma con molte spiegazioni, il metodo si basa su una spiegazione generale e poi con una miriade di varianti, riguardo allo script ho fatto il metodo principale che cerca un ambo unito e poi in un'altra ruota andando a ritroso per 20 estrazioni (per questo numero ho messo un inputbox, quindi si può variare) trovare un ambo unito chiamato TRASPORTO e poi ci sono una serie di calcoli e si arriva all'ambata e agli ambi, una variante è quella di cercare l'ambo TRASPORTO NON UNITO che ho inserito ed i calcoli sono diversi dal metodo principale, nonostante si veda che l'ambo TRASPORTO non è unito, gli ho messo una segnalazione, per le altre varianti i calcoli ci sono già, sono visibili basta seguire le disposizioni.
Codice:
Option Explicit
Sub Main
Dim FIn,Es1,Es2,Es3,Ini,Clp1,Salvo50
Dim C2,D2,Sp,Caso,Casi,A,B,C,D,E1,E2
Dim R1,R2,P1,P2,P3,P4,P,PP,G,X,Ind,SoDi
Dim DeA,DeB,CaA,CaB ' Decine e Cadenze
Dim DiOr1,DiOr2,DiVe1,DiVe2 ' Distanze Orizzontali e verticali
Dim PSe1,PSe2,PSe3,PSe4 'Prima Serie
Dim SSe1,SSe2,SSe3,SSe4 'Seconda Serie
Dim S1,S2,S3,Abb1,Abb2,Amba1 'Somme Prima Serie
Dim S4,S5,S6,Abb3,Abb4,Amba2 'Somme Seconda Serie
Dim M1(4),Num(5),Amba(1),Ambo(2)
Dim Posta(1),Poste(2),Posts(5),Ruo(3),Ruote(2)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10274)'Estrazione 5421 esempio nel metodo
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",Salvo50,7)
Ind = InputBox("Quante estrazioni a Ritroso Controllare per Ricerca Ambo Trasporto?",Salvo50,20)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & "LA TECNICA TRASPOSIZIONALE - di GIORGIO BONONCINI - Script by Salvo50" & Space(8),1,,4,1,3,,1
Posta(1) = 1
Poste(2) = 1
Posts(2) = 1
Posts(3) = 1
Sp = " "
For Es1 = Ini To FIn
Messaggio Es1
AvanzamentoElab Ini,FIn,Es1
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 4
P2 = P1 + 1
A = Estratto(Es1,R1,P1)
B = Estratto(Es1,R1,P2)
If A > 9 And B > 9 Then
DeA = Decina(A) : DeB = Decina(B)
CaA = Cadenza(A) : CaB = Cadenza(B)
C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
Es3 = CInt(Es1 - Ind)
For Es2 = Es1 To Es3 Step - 1
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P3 = 1 To 4
P4 = P3 + 1
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
If A <> C And A <> D Then
M1(1) = A : M1(2) = B : M1(3) = C : M1(4) = D
Call OrdinaMatrice(M1,1)
DiOr1 = Distanza(M1(4),M1(1)) : DiOr2 = Distanza(M1(3),M1(2))
DiVe1 = Distanza(M1(4),M1(3)) : DiVe2 = Distanza(M1(1),M1(2))
'CALCOLI PRIMA SERIE
PSe1 = Fuori90(M1(4) + DiVe2) : PSe2 = Differenza(DiVe2,M1(3))
PSe3 = Fuori90(M1(2) + DiVe1) : PSe4 = Differenza(DiVe1,M1(1))
S1 = Fuori90(PSe4 + PSe3) : S2 = Fuori90(PSe3 + PSe2) : S3 = Fuori90(PSe2 + PSe1)
Abb1 = Fuori90(S1 + S2) : Abb2 = Fuori90(S2 + S3) : Amba1 = Fuori90(Abb1 + Abb2)
'CALCOLI SECONDA SERIE
SSe1 = Fuori90(DiOr2 + M1(4)) : SSe2 = Fuori90(90 +(M1(1)) - DiOr2)
SSe3 = Fuori90(DiOr1 + M1(3)) : SSe4 = Fuori90(90 +(M1(2)) - DiOr1)
S4 = Fuori90(SSe1 + SSe3) : S5 = Fuori90(SSe4 + SSe3) : S6 = Fuori90(SSe4 + SSe2)
Abb3 = Fuori90(S4 + S5) : Abb4 = Fuori90(S5 + S6) : Amba2 = Fuori90(Abb3 + Abb4)
'
Amba(1) = Amba1
If Amba1 <> Amba2 Then Amba(1) = Fuori90(Amba1 + Amba2)
Num(1) = Abb1 : Num(2) = Abb2 : Num(3) = Abb3 : Num(4) = Abb4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,1
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P = 1 To 5
E1 = Estratto(Es1,R1,P)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Ambo Base",1,,,7
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP = 1 To 5
E2 = Estratto(Es2,R2,PP)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
Scrivi
Scrivi " Estratti Evid. in " & Space(11) & " Distanze" & Space(7) & " Distanze",1
Scrivi " Ordine Crescente " & Space(10) & " Orizontali" & Space(7) & "Verticali",1
Scrivi Space(8) & Format2(M1(4)) & Sp & Format2(M1(1)) & Space(23),1,0
Scrivi Format2(DiOr1) & Space(14) & Format2(DiVe1),1
Scrivi Space(8) & Format2(M1(3)) & Sp & Format2(M1(2)) & Space(23),1,0
Scrivi Format2(DiOr2) & Space(14) & Format2(DiVe2),1
Scrivi
Scrivi Space(1) & "PRIMA SERIE" & Space(36) & "SECONDA SERIE",1
Scrivi Space(1) & Format2(M1(4)) & " + " & Format2(DiVe2) & " = " & Format2(PSe1),1,0 'Prima Serie
Scrivi Space(35) & Format2(DiOr2) & " + " & Format2(M1(4)) & " = " & Format2(SSe1),1 'Seconda Serie
Scrivi Space(1) & Format2(M1(3)) & " - " & Format2(DiVe2) & " = " & Format2(PSe2),1,0 'Prima Serie
Scrivi Space(35) & Format2(DiOr2) & " - " & Format2(M1(1)) & " = " & Format2(SSe2),1 'Seconda Serie
Scrivi Space(1) & Format2(M1(2)) & " + " & Format2(DiVe1) & " = " & Format2(PSe3),1,0 'Prima Serie
Scrivi Space(35) & Format2(DiOr1) & " + " & Format2(M1(3)) & " = " & Format2(SSe3),1 'Seconda Serie
Scrivi Space(1) & Format2(M1(1)) & " - " & Format2(DiVe1) & " = " & Format2(PSe4),1,0 'Prima Serie
Scrivi Space(35) & Format2(DiOr1) & " - " & Format2(M1(2)) & " = " & Format2(SSe4),1 'Seconda Serie
Scrivi
Scrivi Space(1) & Format2(PSe4) & " + " & Format2(PSe3) & " = " & Format2(S1),1,0 'Prima Serie
Scrivi Space(3) & Format2(S1) & " + " & Format2(S2) & " = " & Format2(Abb1),1,0 'Prima Serie
Scrivi Space(3) & Format2(Abb1) & " + " & Format2(Abb2) & " = ",1,0 'Prima Serie
Scrivi Format2(Amba1),1,0,,2 'Prima Serie
Scrivi Space(5) & Format2(SSe1) & " + " & Format2(SSe3) & " = " & Format2(S4),1,0 'Seconda Serie
Scrivi Space(3) & Format2(S4) & " + " & Format2(S5) & " = " & Format2(Abb3),1,0 'Seconda Serie
Scrivi Space(3) & Format2(Abb3) & " + " & Format2(Abb4) & " = ",1,0 'Seconda Serie
Scrivi Format2(Amba2),1,,,2 'Seconda Serie
Scrivi Space(1) & Format2(PSe3) & " + " & Format2(PSe2) & " = " & Format2(S2),1,0 'Prima Serie
Scrivi Space(3) & Format2(S2) & " + " & Format2(S3) & " = " & Format2(Abb2),1,0 'Prima Serie
Scrivi Space(20) & Format2(SSe3) & " + " & Format2(SSe4) & " = " & Format2(S5),1,0 'Seconda Serie
Scrivi Space(3) & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Abb4),1 'Seconda Serie
Scrivi Space(1) & Format2(PSe2) & " + " & Format2(PSe1) & " = " & Format2(S3),1,0 'Prima Serie
Scrivi Space(35) & Format2(SSe4) & " + " & Format2(SSe2) & " = " & Format2(S6),1 'Seconda Serie
Scrivi
Ruote(1) = R1 : Ruote(2) = R2
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
EliminaRipetuti Num
G = 1
ImpostaGiocata G,Amba,Ruote,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,Clp1
End If
End If
Next
Gioca Es1,1,,1
End If
End If
Next
End If
Next
Next
End If
Next
If ScriptInterrotto Then Exit Sub
Next
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 4
P2 = P1 + 1
A = Estratto(Es1,R1,P1)
B = Estratto(Es1,R1,P2)
If A > 9 And B > 9 Then
DeA = Decina(A) : DeB = Decina(B)
CaA = Cadenza(A) : CaB = Cadenza(B)
C2 = CInt(DeA & CaB) : D2 = CInt(DeB & CaA)
Es3 = CInt(Es1 - Ind)
For Es2 = Es1 To Es3 Step - 1
For R2 = 1 To 12
If R2 = 11 Then R2 = 12
If R2 <> R1 Then
For P3 = 1 To 3
For P4 = P3 + 2 To 5
C = Estratto(Es2,R2,P3)
D = Estratto(Es2,R2,P4)
If(C2 = C And D2 = D)Or(C2 = D And D2 = C) Then
If A <> C And A <> D Then
SoDi = Fuori90(A + D)
'
Num(1) = A : Num(2) = B : Num(3) = C : Num(4) = D : Num(5) = SoDi
Amba(1) = SoDi
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),,,,2
Scrivi Space(22) & "Ambo di Trasporto non Unito",1,,,1,3
Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P = 1 To 5
E1 = Estratto(Es1,R1,P)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Ambo Base",1,,,7
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP = 1 To 5
E2 = Estratto(Es2,R2,PP)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Ambo Trasporto",1,,,7
Scrivi
Scrivi " Estratti Evid. in " & Space(12) & " Somma ",1
Scrivi " Ordine Naturale " & Space(10) & " Diagonale",1
Scrivi Space(8) & Format2(A) & Sp & Format2(B) & Space(23),1,0
Scrivi Format2(SoDi),1
Scrivi Space(8) & Format2(C) & Sp & Format2(D) & Space(23),1
Scrivi
Ruote(1) = R1 : Ruote(2) = R2
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TU_
EliminaRipetuti Num
G = 1
ImpostaGiocata G,Amba,Ruote,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,Clp1
End If
End If
Next
G = G + 1
ImpostaGiocata G,Num,Ruo,Posts,Clp1
Gioca Es1,1,,1
End If
End If
Next
Next
End If
Next
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Grazie di cuore salvo50 , sempre al top!
Matematico
Advanced Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
MarcoElle, Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs, Paki144.
Grazie.
Dei 2 metodi postate da matematico, per il momento ho fatto solo il primo, il secondo lo farò in seguito quando mi libero di faccende personali.
Riguardo a questo metodo ho fatto delle prove, e ce ne sono pochissime in tutto l'archivio, solo 6, quindi per averne di più ho messo la ricerca a ritroso che si può cambiare tramite inputbox, l'ho impostata a 25 e ne sono venute molte di più, ho messo la visualizzazione del cerchio ciclometrico, il primo è il trapezio con i 4 numeri di figura 8, nel secondo ci sono gli altri numeri pronosticati anche i cerchi ciclometrici si possono non visualizzare tramite inputbox.
MarcoElle, Matematico, Mister1729, Rudivall, Tiberio1, Xeroxs, Paki144.
Grazie.
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp1,Clp2,Salvo50
Dim R1,Caso,Casi,Sp,IniR,FinR
Dim Estr1,Estr2,Estr4,Ruota
Dim AmbaP,AmbaS,Abb1,Abb2,Abb3,Abb4,Abb5
Dim Settina(7),Ambata(2),Ambo(2)
Dim Posta(1),Poste(5),Post(2),Ruo(1),Ruot(4)
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9822)
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e la settina?",,13)
Call ScegliRange(Ini,FIn,Ini,FIn)
Posta(1) = 1
Post(2) = 1
Poste(2) = 1
'Poste(3) = 1
'Poste(4) = 1
'Poste(5) = 1
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,1)
If Ruota = 11 Then
IniR = 1
FinR = 12
Else
IniR = Ruota
FinR = Ruota
End If
Scrivi Space(8) & " Sommativo-Vertibile di Mister1729 - Script Salvo50",1,,4,,3,,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
Estr1 = Estratto(Es,R1,1)
Estr2 = Estratto(Es,R1,2)
Estr4 = Estratto(Es,R1,4)
AmbaP = Fuori90(Estr1 + Estr2)
AmbaS = Differenza(Estr1,Estr2)
Abb1 = Fuori90(AmbaS + 10)
Abb2 = Vert(Abb1)
Abb3 = Fuori90(Abb1 + 10)
Abb4 = Fuori90(Abb3 + 1)
Abb5 = Vert(Abb4)
Ambata(1) = AmbaP : Ambata(2) = AmbaS
Ambo(1) = AmbaP : Ambo(2) = AmbaS
Settina(1) = AmbaP : Settina(2) = AmbaS : Settina(3) = Abb1 : Settina(4) = Abb2
Settina(5) = Abb3 : Settina(6) = Abb4 : Settina(7) = Abb5
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) & " " & StringaEstratti(Es,R1),1
Scrivi
Scrivi
Scrivi Space(6) & Format2(Estr1) & " + " & Format2(Estr2) & " = " & Format2(AmbaP),1,0
Scrivi " Ambata Principale",1
Scrivi Space(6) & Format2(Estr1) & " - " & Format2(Estr2) & " = " & Format2(AmbaS),1,0
Scrivi " Ambata Secondaria",1
Scrivi Space(6) & Format2(AmbaS) & " + 10 = " & Format2(Abb1),1,0
Scrivi " Abbinamento 1",1
Scrivi Space(1) & "Vertibile " & Format2(Abb1) & " = " & Format2(Abb2),1,0
Scrivi " Abbinamento 2",1
Scrivi Space(6) & Format2(Abb1) & " + 10 = " & Format2(Abb3),1,0
Scrivi " Abbinamento 3",1
Scrivi Space(6) & Format2(Abb3) & " + 01 = " & Format2(Abb4),1,0
Scrivi " Abbinamento 4",1
Scrivi Space(1) & "Vertibile " & Format2(Abb4) & " = " & Format2(Abb5),1,0
Scrivi " Abbinamento 5",1
Scrivi
Scrivi Space(6) & "Settina " & StringaNumeri(Settina," ",True),1
Scrivi
Ruo(1) = R1
Ruot(1) = BA_
Ruot(2) = NA_
Ruot(3) = VE_
Ruot(4) = NZ_
ImpostaGiocata 1,Ambata,Ruo,Posta,Clp1
ImpostaGiocata 2,Ambo,Ruo,Post,Clp2
EliminaRipetuti Settina
ImpostaGiocata 3,Settina,Ruot,Poste,Clp2
Gioca Es,,,1
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubDei 2 metodi postate da matematico, per il momento ho fatto solo il primo, il secondo lo farò in seguito quando mi libero di faccende personali.
Riguardo a questo metodo ho fatto delle prove, e ce ne sono pochissime in tutto l'archivio, solo 6, quindi per averne di più ho messo la ricerca a ritroso che si può cambiare tramite inputbox, l'ho impostata a 25 e ne sono venute molte di più, ho messo la visualizzazione del cerchio ciclometrico, il primo è il trapezio con i 4 numeri di figura 8, nel secondo ci sono gli altri numeri pronosticati anche i cerchi ciclometrici si possono non visualizzare tramite inputbox.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,F,Clp,Es,Cer,Salvo50,Sp
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,E1,E2,E3
Dim FgA,FgB,FgC,FgD,FgE,FgF,Ind,Es2,Es3,Caso,Casi
Dim X,XX,X1,X2,X3,X4,X5,DM12,DM34,DM13,DM24,DM14,DM23
Dim Amba(1),Ambo(2),Terno(3),L(8),M(4)
Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9644))'9644 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
Ind = CInt(InputBox(" Quante estrazioni a ritroso per cercare l'ambo figura 8?",Salvo50,25))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & "Ambo da 250 VLP Oppure Terno da 4500 VLP - Angelo Gargiulo - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po3(2) = 1
Po3(3) = 1
X = 45
XX = 9
Sp = " "
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)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D)
If FgA = 8 And FgB = 8 And FgC = 8 And FgD = 8 Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
'M1--M2
'| |
'M4--M3
DM12 = Distanza(M(1),M(2)) : DM34 = Distanza(M(3),M(4))' Distanza orizzontale estratti
DM13 = Distanza(M(1),M(3)) : DM24 = Distanza(M(2),M(4))' Distanza diagonale estratti
DM14 = Distanza(M(1),M(4)) : DM23 = Distanza(M(2),M(3))' Distanza Verticale estratti
'
If(DM13 = DM24 Or DM14 = DM23) And DM13 <> X Then
If DM12 = X Or DM23 = X Or DM34 = X Or DM14 = X Then
Es3 = CInt(Es - Ind)
For Es2 = Es - 1 To Es3 Step - 1
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
For P5 = 1 To 4
For P6 = P5 + 1 To 5
E = Estratto(Es2,R3,P5)
F = Estratto(Es2,R3,P6)
If E <> A And E <> B And E <> C And E <> D And F <> A And F <> B And F <> C And F <> D Then
FgE = Figura(E) : FgF = Figura(F)
If FgE = 8 And FgF = 8 Then
X1 = 0 : X2 = 0 : X3 = 0 : X4 = 0 : X5 = 0
If Diametrale(M(1)) = M(2) Then
X1 = Fuori90(M(1) + XX) :
Call Pippo(XX,X1,X2,X3,X4)
X5 = M(2)
End If
If Diametrale(M(2)) = M(3) Then
X1 = Fuori90(M(2) + XX)
Call Pippo(XX,X1,X2,X3,X4)
X5 = M(3)
End If
If Diametrale(M(3)) = M(4) Then
X1 = Fuori90(M(3) + XX)
Call Pippo(XX,X1,X2,X3,X4)
X5 = M(4)
End If
If Diametrale(M(4)) = M(1) Then
X1 = Fuori90(M(4) + XX)
Call Pippo(XX,X1,X2,X3,X4)
X5 = M(1)
End If
If(E = X1 And F = X2) Or(E = X2 And F = X1) Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
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 " <-- Evidenziati Figura 8",1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P8 = 1 To 5
E2 = Estratto(Es,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 " <-- Evidenziati Figura 8",1,,,1
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P9 = 1 To 5
E3 = Estratto(Es2,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 " <-- Evidenziati Figura 8",1,,,1
Scrivi Space(25) & "PRONOSTICO",1
Scrivi Space(25) & "Ambata " & Format2(X4),1
Scrivi Space(25) & "Ambo " & Format2(X4) & Sp & Format2(X3),1
Scrivi Space(25) & "Terno " & Format2(X4) & Sp & Format2(X5) & Sp & Format2(X2),1
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,,,,1
End If
If Cer = 1 Then
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
L(5) = X1 : L(6) = X2 : L(7) = X3 : L(8) = X4
DisegnaCerchioCiclometrico L,1,,,,1
End If
Scrivi
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
Amba(1) = X4
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
Ambo(1) = X4 : Ambo(2) = X3
ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
Terno(1) = X4 : Terno(2) = X5 : Terno(3) = X2
ImpostaGiocata 3,Terno,Ruote,Po3,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
Next
Next
End If
End If
End If
End If
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Next
ScriviResoconto
Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
Function Pippo(XX,X1,X2,X3,X4)
X2 = Fuori90(X1 + XX)
X3 = Fuori90(X2 + XX)
X4 = Fuori90(X3 + XX)
End Function
Ultima modifica:
mister1729
Banned
Ciao Salvo , che dirti grazie infinite e ti auguro tante cose belle!
Matematico
Advanced Member >PLATINUM<
Ciao salvo50 , ti ringrazio di cuore e buona giornata a te e a tutti quelli che ci seguono
salvo50
Advanced Member >PLATINUM PLUS<
MarcoElle, Matematico, Mister1729, Rudivall, Xeroxs.
Grazie.
Ho fatto anche il secondo, l'ho provato ci sono pochissimi riscontri in tutto l'archivio dal numero 1 al numero 9877 solo 3 pronostici, dimenticavo nelle spiegazioni del metodo c'è un errore l'ambata non è 47 ma 48 quindi il diametrale è 3 non 2
Modificato il 28-01-21 la figura si può scegliere
Inserito il 28-01-21
Con controllo figura in automatico
Grazie.
Ho fatto anche il secondo, l'ho provato ci sono pochissimi riscontri in tutto l'archivio dal numero 1 al numero 9877 solo 3 pronostici, dimenticavo nelle spiegazioni del metodo c'è un errore l'ambata non è 47 ma 48 quindi il diametrale è 3 non 2
Modificato il 28-01-21 la figura si può scegliere
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
Dim FgT,FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
Dim X1,X2,X3,DM12,DM23,DM34,DM45
Dim Amba(1),Ambo(2),Terno(3),M(5)
Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
FgT = CInt(InputBox(" Inserisce quale figura vuoi controllare ",Salvo50,3))
Ind = CInt(InputBox(" Inserisci Quante Estrazioni a Ritroso per Cercare l'Ambo Figura ?",Salvo50,25))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & "La Sequenza Passo 9 con Scelta Figura - Angelo Gargiulo - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po3(2) = 1
Po3(3) = 1
Sp = " "
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 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R1 <> R2 Then
If R2 = 11 Then R2 = 12
For P3 = 1 To 3
For P4 = P3 + 1 To 4
For P5 = P4 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
E = Estratto(Es,R2,P5)
If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
If FgA = FgT And FgB = FgT And FgC = FgT And FgD = FgT And FgE = FgT Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
Es3 = CInt(Es - Ind)
For Es2 = Es - 1 To Es3 Step - 1
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
For P6 = 1 To 4
For P7 = P6 + 1 To 5
F = Estratto(Es2,R3,P6)
G = Estratto(Es2,R3,P7)
FgF = Figura(F) : FgG = Figura(G)
If FgF = FgT And FgG = FgT Then
X1 = 0 : X2 = 0 : X3 = 0
If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
X3 = Fuori90(M(5) + 9)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P8 = 1 To 5
E1 = Estratto(Es,R1,P8)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P9 = 1 To 5
E2 = Estratto(Es,R2,P9)
If E2 = C Or E2 = D Or E2 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P10 = 1 To 5
E3 = Estratto(Es2,R3,P10)
If E3 = F Or E3 = G Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi Space(25) & "PRONOSTICO",1
Scrivi Space(25) & "Ambata " & Format2(M(5)),1
Scrivi Space(25) & "Ambo " & Format2(M(5)) & Sp & Format2(X2),1
Scrivi Space(25) & "Terno " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
End If
Scrivi
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
Amba(1) = M(5)
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
Ambo(1) = M(5) : Ambo(2) = X2
ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
ImpostaGiocata 3,Terno,Ruote,Po3,Clp
Gioca Es,,,1
End If
End If
Next
Next
Next
Next
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Next
ScriviResoconto
Scrivi "Tempo Trascorso" & TempoTrascorso,1
End SubInserito il 28-01-21
Con controllo figura in automatico
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,E,F,G,Clp,Es,Cer,Salvo50,Sp
Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,E1,E2,E3
Dim FgT,FgA,FgB,FgC,FgD,FgE,FgF,FgG,Ind,Es2,Es3,Caso,Casi
Dim X1,X2,X3,DM12,DM23,DM34,DM45
Dim Amba(1),Ambo(2),Terno(3),M(5)
Dim Ruo(3),Ruote(4),Po1(1),Po2(2),Po3(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9614))'9614 ESEMPIO NELL'ARTICOLO
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
Ind = CInt(InputBox(" Inserisci Quante estrazioni a ritroso per cercare l'ambo figura ",Salvo50,25))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & "La Sequenza Passo 9 - Angelo Gargiulo - SCRIPT SALVO50" & Space(5),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
Po3(2) = 1
Po3(3) = 1
Sp = " "
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 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R1 <> R2 Then
If R2 = 11 Then R2 = 12
For P3 = 1 To 3
For P4 = P3 + 1 To 4
For P5 = P4 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
E = Estratto(Es,R2,P5)
If A > 0 And C > 0 And A <> C And A <> D And A <> E And B <> C And B <> D And B <> E Then
FgA = Figura(A) : FgB = Figura(B) : FgC = Figura(C) : FgD = Figura(D) : FgE = Figura(E)
For FgT = 1 To 9
If FgA = FgT And FgB = FgT And FgC = FgT And FgD = FgT And FgE = FgT Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D : M(5) = E
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM45 = Distanza(M(4),M(5))
If DM12 = 9 And DM23 = 9 And DM34 = 9 And DM45 = 9 Then
Es3 = CInt(Es - Ind)
For Es2 = Es - 1 To Es3 Step - 1
For R3 = 1 To 12
If R3 = 11 Then R3 = 12
For P6 = 1 To 4
For P7 = P6 + 1 To 5
F = Estratto(Es2,R3,P6)
G = Estratto(Es2,R3,P7)
FgF = Figura(F) : FgG = Figura(G)
If FgF = FgT And FgG = FgT Then
X1 = 0 : X2 = 0 : X3 = 0
If(F = M(4) And G = Diametrale(M(4))) Or(G = M(4) And F = Diametrale(M(4))) Then
X1 = Diametrale(M(4)) : X2 = Diametrale(M(5))
X3 = Fuori90(M(5) + 9)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P8 = 1 To 5
E1 = Estratto(Es,R1,P8)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P9 = 1 To 5
E2 = Estratto(Es,R2,P9)
If E2 = C Or E2 = D Or E2 = E Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P10 = 1 To 5
E3 = Estratto(Es2,R3,P10)
If E3 = F Or E3 = G Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati Figura " & FgT,1,,,1
Scrivi Space(25) & "PRONOSTICO",1
Scrivi Space(25) & "Ambata " & Format2(M(5)),1
Scrivi Space(25) & "Ambo " & Format2(M(5)) & Sp & Format2(X2),1
Scrivi Space(25) & "Terno " & Format2(M(5)) & Sp & Format2(X3) & Sp & Format2(M(1)),1
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
End If
Scrivi
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3 : Ruote(4) = TU_
Amba(1) = M(5)
ImpostaGiocata 1,Amba,Ruo,Po1,Clp
Ambo(1) = M(5) : Ambo(2) = X2
ImpostaGiocata 2,Ambo,Ruo,Po2,Clp
Terno(1) = M(5) : Terno(2) = X3 : Terno(3) = M(1)
ImpostaGiocata 3,Terno,Ruote,Po3,Clp
Gioca Es,,,1
End If
End If
Next
Next
Next
Next
End If
End If
Next
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Next
ScriviResoconto
Scrivi "Tempo Trascorso" & TempoTrascorso,1
End Sub
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Grazie 1000 salvo50...quindi sono rare condizioni di gioco , speriamo si presentino a breve
Matematico
Advanced Member >PLATINUM<
Ti chiedo una piccola cortesia , se volessi cambiare la figura...ad essempio invece della 3 metto la 4 ...cos a devo modificare?
Matematico
Advanced Member >PLATINUM<
Un grazie infinito a salvo 50 ...top top
Matematico
Advanced Member >PLATINUM<
Ciao salvo50 , non sò se questo script è stato fatto del grande Fabarri , il metodo è : Ambi Massimi ...spero si comprenda bene il procedimento.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
