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 uguale per i 2 ambi deve essere fatta col Fuori90
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 uguale per i 2 ambi deve essere fatta col Fuori90
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 = 1 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 Sub
Ultima modifica:
filippo1963
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
filippo1963
Member
di quale script parli Salvo50??
Settenario
Super Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Dell'ultimo script che oh fatto, quello del post 1063.
Volevo chiedere di alcuni chiarimenti sulla tua richiesta
del post 1064.
Il fatto che deve essere 1a e 2a posizione è sempre così
o è solo un esempio.
Poi hai scritto che se nell'ambo trovato il primo numero è più piccolo si fa la somma
e poi si procede con i calcoli.
Ma se il primo numero è più grande si fa la differenza,
domanda:
come si procede con i calcoli come nel primo caso oppure cambia?
Cioè dato che al contrario del primo caso si procedeva sempre sommando
se inizio sottraendo perche il primo numero è più grande del secondo
in questo caso quando procedo nei calcoli successivi devo farli sommando
o sottraendo?
Ultima modifica:
filippo1963
Member
Sempre 1a e 2a Posizione, se il numero in 1a Posizione e' più grande del numero in 2a posizione si fa sempre la differenza aritmetica anche con i calgoli seguenti
bubù
Advanced Member >PLATINUM PLUS<
Se può interessare c'è la nuova condizione, ed ecco il nuovo pronostico come da script:Grazie a Te per la tua disponibilità e la tua gentilezza, e scusami ancora se ho approfittato ancora del tuo sapere. Grazie di, non posso far altro che postare i miei pensieri per tutti Voi, a volte come ieri riesco a regalare qualche piccolo sorriso a chi mi segue sulla sezione specifica, a volte purtroppo no, ma continuerò finchè riesco, sperando di non essere frainteso perchè per scoraggiare scrivo sempre che NON SI GARANTISCE NESSUNA VINCITA anche perchè questo resta solo un bellissimo gioco e non paga bollette o affitti. Ciao e grazie
Estrazione generatrice del pronostico 10669 [ 98 - 20/06/2025]
G 0001 Numeri in gioco : 26 su GE RO per Estratto
In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 17 su GE RO per Estratto
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 26.17 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 26.35 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 26.53 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0006 Numeri in gioco : 17.53 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0007 Numeri in gioco : 17.08 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0008 Numeri in gioco : 26.35.53 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
G 0009 Numeri in gioco : 17.53.08 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
G 0010 Numeri in gioco : 17.26.35.53 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
io ho fatto una piccola modifica a mano e ho postato questo nella sezione Ciclometria :G 0001 Numeri in gioco : 26 su GE RO per Estratto
In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 17 su GE RO per Estratto
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 26.17 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 26.35 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 26.53 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0006 Numeri in gioco : 17.53 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0007 Numeri in gioco : 17.08 su GE RO TT per Ambo
In corso per altre 12 estrazioni
G 0008 Numeri in gioco : 26.35.53 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
G 0009 Numeri in gioco : 17.53.08 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
G 0010 Numeri in gioco : 17.26.35.53 su GE RO TT per Ambo,Terno
In corso per altre 12 estrazioni
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 21 giugno 2025Bari0703452505Cagliari2073885015Firenze0419095255Genova2147655324Milano1164706751Napoli5966833303Palermo6174286204Roma2529155444Torino3422305928Venezia4275068384Nazionale3667415456Estrazione Simbolotto
Napoli
0240062629
