Settenario
Super Member >PLATINUM<
@salvo50 va benissimo!!!
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
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Bubù, Matematico, Rudivall, ScarfaceTony, Settenario
Grazie
Le spiegazioni di questo metodo sono nel post 1050
La visualizzazione del cerchio ciclometrico, per default non lo messo, quindi se si vuole visualizzarlo alla terza domanda mettere 1
Qualche filtro imposto dall'autore e messo nello script
1) La distanza Fuori90 per i 2 ambi deve essere uguale
2) La differenza tra i numeri assegnati in base all'ambo trovato a ritroso deve essere divisibile per 9
3) Si deve controllare nelle ruote considerate che non si sia avuto esito positivo per 20 estrazioni
4) Prima di giocare aspettare per 5 estrazioni
Bubù, Matematico, Rudivall, ScarfaceTony, Settenario
Grazie
Le spiegazioni di questo metodo sono nel post 1050
La visualizzazione del cerchio ciclometrico, per default non lo messo, quindi se si vuole visualizzarlo alla terza domanda mettere 1
Qualche filtro imposto dall'autore e messo nello script
1) La distanza Fuori90 per i 2 ambi deve essere uguale
2) La differenza tra i numeri assegnati in base all'ambo trovato a ritroso deve essere divisibile per 9
3) Si deve controllare nelle ruote considerate che non si sia avuto esito positivo per 20 estrazioni
4) Prima di giocare aspettare per 5 estrazioni
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A1,B1,C1,D1,Clp,Es,Cer,E1,E2
Dim R1,R2,P1,P2,P3,P4,P5,P6,P7,Salvo50
Dim DistAB,DistCD,Ok,Num01,Num02,Num1,Num2
Dim A,B,C,D,AA,BB,CC,DD,DiffNum1Num2
Dim AB,AC,AD,BA,BC,BD,CA,CB,CD,DA,DB,DC
Dim DM12,DM23,DM34,DM41,Caso,Casi,Resto
Dim N1(2),N2(2),N3(2),N4(2),N5(2),N6(2)
Dim N7(2),N8(2),N9(2),N10(2),N11(2),N12(2)
Dim Ruo(2),Posta(2),M(4),Quat(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10660))'L'estrazione 5727 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,0))
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi "Metodo Rettangoli e Trapezi Isoscili di Domenico Manna - Script Salvo50" & Space(5),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 5 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A1 = Estratto(Es,R1,P1)
B1 = Estratto(Es,R1,P2)
DistAB = Fuori90((90 + B1) - A1)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C1 = Estratto(Es,R2,P3)
D1 = Estratto(Es,R2,P4)
DistCD = Fuori90((90 + D1) - C1)
If DistAB = DistCD Then
If A1 > 0 And C1 > 0 Then
If A1 <> C1 And A1 <> D1 And B1 <> C1 And B1 <> D1 Then
M(1) = A1 : M(2) = B1 : M(3) = C1 : M(4) = D1
Call OrdinaMatrice(M,1)
A = M(1) : B = M(2) : C = M(3) : D = M(4)
'Formazione triple da cercare a ritroso
AA = Fuori90(A + A) : AB = Fuori90((90 + AA) - B)
AC = Fuori90((90 + AA) - C) : AD = Fuori90((90 + AA) - D)
'
BB = Fuori90(B + B) : BA = Fuori90((90 + BB) - A)
BC = Fuori90((90 + BB) - C) : BD = Fuori90((90 + BB) - D)
'
CC = Fuori90(C + C) : CA = Fuori90((90 + CC) - A)
CB = Fuori90((90 + CC) - B) : CD = Fuori90((90 + CC) - D)
'
DD = Fuori90(D + D) : DA = Fuori90((90 + DD) - A)
DB = Fuori90((90 + DD) - B) : DC = Fuori90((90 + DD) - C)
'Scomposizione triple in ambi
N1(1) = AB : N1(2) = AC
N2(1) = AB : N2(2) = AD
N3(1) = AC : N3(2) = AD
'
N4(1) = BA : N4(2) = BC
N5(1) = BA : N5(2) = BD
N6(1) = BC : N6(2) = BD
'
N7(1) = CA : N7(2) = CB
N8(1) = CA : N8(2) = CD
N9(1) = CB : N9(2) = CD
'
N10(1) = DA : N10(2) = DB
N11(1) = DA : N11(2) = DC
N12(1) = DB : N12(2) = DC
'
Ruo(1) = R1 : Ruo(2) = R2
Ok = 0
' Ricerche a ritroso degli ambi e assrgnazione numeri
If SerieFreqTurbo(Es - 15,Es,N1,Ruo,2) > 0 Then Num1 = BC : Num2 = CB : Ok = 1
If SerieFreqTurbo(Es - 15,Es,N2,Ruo,2) > 0 Then Num1 = BD : Num2 = DB : Ok = 2
If SerieFreqTurbo(Es - 15,Es,N3,Ruo,2) > 0 Then Num1 = CD : Num2 = DC : Ok = 3
'
If SerieFreqTurbo(Es - 15,Es,N4,Ruo,2) > 0 Then Num1 = AC : Num2 = CA : Ok = 4
If SerieFreqTurbo(Es - 15,Es,N5,Ruo,2) > 0 Then Num1 = AD : Num2 = DA : Ok = 5
If SerieFreqTurbo(Es - 15,Es,N6,Ruo,2) > 0 Then Num1 = CD : Num2 = DC : Ok = 6
'
If SerieFreqTurbo(Es - 15,Es,N7,Ruo,2) > 0 Then Num1 = AB : Num2 = BA : Ok = 7
If SerieFreqTurbo(Es - 15,Es,N8,Ruo,2) > 0 Then Num1 = AD : Num2 = DA : Ok = 8
If SerieFreqTurbo(Es - 15,Es,N9,Ruo,2) > 0 Then Num1 = BD : Num2 = DB : Ok = 9
'
If SerieFreqTurbo(Es - 15,Es,N10,Ruo,2) > 0 Then Num1 = AB : Num2 = BA : Ok = 10
If SerieFreqTurbo(Es - 15,Es,N11,Ruo,2) > 0 Then Num1 = AC : Num2 = CA : Ok = 11
If SerieFreqTurbo(Es - 15,Es,N12,Ruo,2) > 0 Then Num1 = BC : Num2 = CB : Ok = 12
If Ok > 0 And Num1 <> Num2 Then
DiffNum1Num2 = Differenza(Num1,Num2)
Resto = DiffNum1Num2 Mod 9
If Resto = 0 Then
'Assegnazione ad ogni ambo il suo ambo trovato a ritroso
If Ok = 1 Then Num01 = AB : Num02 = AC
If Ok = 2 Then Num01 = AB : Num02 = AD
If Ok = 3 Then Num01 = AC : Num02 = AD
If Ok = 4 Then Num01 = BA : Num02 = BC
If Ok = 5 Then Num01 = BA : Num02 = BD
If Ok = 6 Then Num01 = BC : Num02 = BD
If Ok = 7 Then Num01 = CA : Num02 = CB
If Ok = 8 Then Num01 = CA : Num02 = CD
If Ok = 9 Then Num01 = CB : Num02 = CD
If Ok = 10 Then Num01 = DA : Num02 = DB
If Ok = 11 Then Num01 = DA : Num02 = DC
If Ok = 12 Then Num01 = DB : Num02 = DC
'
'Pronostico
Quat(1) = Fuori90((90 + Num1) - Num01)
Quat(2) = Fuori90((90 + Num2) - Num01)
Quat(3) = Fuori90((90 + Num1) - Num02)
Quat(4) = Fuori90((90 + Num2) - Num02)
If SerieFreqTurbo(Es - 20,Es,Quat,Ruo,2) = 0 Then
'
'
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A1 Or E1 = B1 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziato Ambo Distanza F90 " & Format2(DistAB),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C1 Or E2 = D1 Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziato Ambo Distanza F90 " & Format2(DistCD),1
Scrivi
Scrivi Space(64) & " Triple da cercare a ritroso ",1,,,2
Scrivi Space(5) & Format2(A) & " + " & Format2(A) & " = " & Format2(AA),1,0
Scrivi Space(5) & Format2(AA) & " - " & Format2(B) & " = " & Format2(AB),1,0
Scrivi Space(5) & Format2(AA) & " - " & Format2(C) & " = " & Format2(AC),1,0
Scrivi Space(5) & Format2(AA) & " - " & Format2(D) & " = " & Format2(AD),1,0
Scrivi Space(12) & Format2(AB) & " " & Format2(AC) & " " & Format2(AD),1
'
Scrivi Space(5) & Format2(B) & " + " & Format2(B) & " = " & Format2(BB),1,0
Scrivi Space(5) & Format2(BB) & " - " & Format2(A) & " = " & Format2(BA),1,0
Scrivi Space(5) & Format2(BB) & " - " & Format2(C) & " = " & Format2(BC),1,0
Scrivi Space(5) & Format2(BB) & " - " & Format2(D) & " = " & Format2(BD),1,0
Scrivi Space(12) & Format2(BA) & " " & Format2(BC) & " " & Format2(BD),1
'
Scrivi Space(5) & Format2(C) & " + " & Format2(C) & " = " & Format2(CC),1,0
Scrivi Space(5) & Format2(CC) & " - " & Format2(A) & " = " & Format2(CA),1,0
Scrivi Space(5) & Format2(CC) & " - " & Format2(B) & " = " & Format2(CB),1,0
Scrivi Space(5) & Format2(CC) & " - " & Format2(D) & " = " & Format2(CD),1,0
Scrivi Space(12) & Format2(CA) & " " & Format2(CB) & " " & Format2(CD),1
'
Scrivi Space(5) & Format2(D) & " + " & Format2(D) & " = " & Format2(DD),1,0
Scrivi Space(5) & Format2(DD) & " - " & Format2(A) & " = " & Format2(DA),1,0
Scrivi Space(5) & Format2(DD) & " - " & Format2(B) & " = " & Format2(DB),1,0
Scrivi Space(5) & Format2(DD) & " - " & Format2(C) & " = " & Format2(DC),1,0
Scrivi Space(12) & Format2(DA) & " " & Format2(DB) & " " & Format2(DC),1
Scrivi
Scrivi Space(5) & " Ambo riscontrato a ritroso " & Format2(Num01) & " " & Format2(Num02),1,0
Scrivi " al quale corrispondono i numeri " & Format2(Num1) & " " & Format2(Num2),1
Scrivi
Scrivi Space(15) & " Calcoli per pronosticare i 4 numeri da giocare",1,,,1
Scrivi Space(32) & Format2(Num1) & " - " & Format2(Num01) & " = " & Format2(Quat(1)),1
Scrivi Space(32) & Format2(Num2) & " - " & Format2(Num01) & " = " & Format2(Quat(2)),1
Scrivi Space(32) & Format2(Num1) & " - " & Format2(Num02) & " = " & Format2(Quat(3)),1
Scrivi Space(32) & Format2(Num2) & " - " & Format2(Num02) & " = " & Format2(Quat(4)),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
End If
Scrivi
ImpostaGiocata 1,Quat,Ruo,Posta,Clp,,5
Gioca Es,1
'
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Subfilippo1963
Member
Buongiorno e Buona Domenica a i Bravissimi Scripter di questo Forum: Appena qualcuno di voi ha tempo mi potrebbe trasporre in uno script di questo mio metodo lotto per Estratto su Due Ruote Diametrali, faccio un Esempio se in 1à e 2à posizione su Due Ruote Diametrali si riscontra la presenza di una coppia di Numeri con queste caratteristiche. A) tra i due numeri non ci devono essere Numeretti, Numeri Cadenza Zero e Numeri Gemelli e la coppia di Numeri non deve avere la stessa Cadenza si possono fare i calcoli per la previsione di estratto: Esempio i 02-01-25 su Ba-Na in 1à e 2à posizione abbiamo 39-42 e29-74, il calcolo si può fare coppia 39-42 il 39, più piccolo del 42 si fa la somma con fuori90 se necessario con la coppia 39-42 si formano altre due coppi di numeri la prima unendo la decina con la figura del numero 39=33 e 42=46 coppia 33-46 , la seconda si forma unendo la cadenza del numero con la sua figura 39=93-90=03 e 42=26 coppia 03-26 su queste due coppie si fa sempre la somma perciò 39+42=81 33+46=79 e 03+26=29 ora abbiamo tre numeri 81-79-29 dobbiamo fare la piramide fuori90 dei tre numeri 81-79-29|70-18|88 e la piramide fuori9 delle figure dei tre numeri 972|79 ultimo passaggio sommiamo i due numeri ottenuti dalle due piramidi 88+79=77. Stessa cosa si fa per la coppia di Napoli 29-74 [29+74=13][22+72=04][02+42=44] Piramidi dei Tre numeri 13-04-44 [13-04-44|17-48|65][448|83] somma 65+83=58 adesso abbiamo due numeri il 77 ricavato da Bari e il 58 ricavato da Napoli visto che il 77 e maggiore del 58 dobbiamo fare la differenza aritmetica 77-58=19 , se si fa la differenza l'estratto è il Vertibile del numero ricavato in questo caso Vertibile 19=11 al 1° colpo su Napoli esce il numero 11 in 5à posizione. nelle coppie iniziali se il numero in 1à posizione e maggiore del numero in 2à posizione al posto della somma si usa la Differenza aritmetica. l'estratto va giocato per 9 colpi sulle Due Ruote diametrali di rilevamento
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 21 giugno 2025Bari0703452505Cagliari2073885015Firenze0419095255Genova2147655324Milano1164706751Napoli5966833303Palermo6174286204Roma2529155444Torino3422305928Venezia4275068384Nazionale3667415456Estrazione Simbolotto
Napoli
0240062629
