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 di Fabarri
- Creatore Discussione salvo50
- Data di inizio
Enplein
Super Member >PLATINUM<
HTML:
02.05.2018 Na 85.88.23.47.75 --> 23.47 Som. 70 Dist. 24 Pos. 3^ 4^
02.05.2018 Nz 16.18.05.29.10 --> 05.29 Som. 34 Dist. 24 Pos. 3^ 4^
Quadrato
Som. Dist.
70 24
34 24 = SOMMA Somme 14 Diam. del T.S. = 75 Somma X [61] Dist. X [15]
Prospetto
61 15
76
--------
Ambi Principali Ambi Trasposti Ambi Incrociati
38 23 33 28 38 68
83 68 88 63 83 23Nuova previsione,, Enplein.
salvo50
Advanced Member >PLATINUM PLUS<
LE DISTANZE SPIA INFALLIBILI
Codice:
'PROGETTO - Le distanze spia infallibili - by FABARRI
'SCRIPT BY SALVO50
'Rintracciare su due ruote consecutive la Differenza aritmetica in Posizione isotopa.
'Si giocano i numeri corrispondenti per ambata
'In Posizione predeterminata (quella degli ambi che abbiamo rintracciato).
Option Explicit
Sub Main
Dim FIn,Es,Esq,Clp,Col,Esqcol
Dim Posta(10),Ruote(2),Amb(2)
Dim Caso,Casi,R1,R2,P1,P2,A,B,C,D,E1,E2
Dim PP1,PP2,Dab,Dcd
'Posta(1) = 1
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,6)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Messaggio Es
AvanzamentoElab Esq,Esqcol,Es
Caso = 0
For R1 = 1 To 10
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1) : If A > 0 Then
B = Estratto(Es,R1,P2)
C = Estratto(Es,R2,P1) : If C > 0 Then
D = Estratto(Es,R2,P2)
Dab = Differenza(A,B)
Dcd = Differenza(C,D)
If Dab = Dcd Then
Amb(1) = Fuori90(Dab + 25)
Amb(2) = Fuori90(Dab + 65)
Posta(6) = 0 : Posta(7) = 0 : Posta(8) = 0 : Posta(9) = 0 : Posta(10) = 0
Posta(P1 + 5) = 1
Posta(P2 + 5) = 1
Ruote(1) = R1
Ruote(2) = R2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For PP1 = 1 To 5
E1 = Estratto(Es,R1,PP1)
If E1 = A Or E1 = B 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 PP2 = 1 To 5
E2 = Estratto(Es,R2,PP2)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Ambi Isot." & Space(6) & "Differenze" & Space(7) & "Pronostico" & Space(7) & "Pos. di Gioco",1
Scrivi " " & Format2(A) & " " & Format2(B) & Space(12) & Format2(Dab) & Space(16) & Format2(Amb(1)),1,0
Scrivi Space(16) & Format2(P1),1
Scrivi " " & Format2(C) & " " & Format2(D) & Space(12) & Format2(Dcd) & Space(16) & Format2(Amb(2)),1,0
Scrivi Space(16) & Format2(P2),1
ImpostaGiocata 1,Amb,Ruote,Posta,Clp
Gioca Es
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
R
Roby
Guest
Salvo ma sei un fucile a ripetizione...
kubes
Senior Member
FABARRI E “I SIMBOLI BINARI”
I 90 numeri del lotto comprendono vari raggruppamenti tipici: decine, cadenze, figure ed altri. Ai fini della nostra classificazione interessano però soltanto e precisamente le figure e le cadenze. Come tutti sanno, le figure sono 9, mentre le cadenze o finali sono 10. Ogni numero appartiene ad una figura e ad una cadenza: ad esempio il N° 23 fa parte della figura 5 e della cadenza 3.
Ora, se noi vogliamo esprime ciascun numero in funzione del suo valore figurale e del suo valore cadenzale, dobbiamo necessariamente rappresentarlo con due cifre. Così diciamo che gli indici di figura e di cadenza di ogni numero ha un simbolo binario (il proprio simbolo binario) e tutti questi simboli formano una serie che ha come primo termine il valore 10 (Figura 1 e cadenza 0) e come ultimo termine il valore 99 (Figura 9 cadenza 9). Si tratta dunque di una serie di 90 numeri che si differenzia da quella naturale per alcuni aspetti.
Pubblicità
Con il presente articolo noi ci siamo proposti di additare ai lettori una particolare tecnica che si può adottare esprimendo i 90 numeri secondo la rispettiva struttura figurale e cadenzale e quindi attraverso i propri simboli binari di cui abbiamo detto. Dal punto di vista pratico, tale tecnica vene utilizzata per elaborare, per qualsiasi coppia o ambo, una previsione che si articola in due distinte forme. La prima forma riguarda 2 ambate valide per la ruota da cui si trae la coppia base; la seconda forma riguarda 2 ambi secchi validi per tutte le ruote.
Ed ecco ora la descrizione del procedimento.
Dall’estrazione del 13 Aprile 1968 prendiamo la coppia seguente:
FIRENZE 80.63. Esprimiamo ciascuno dei numeri con i rispettivi simboli binari ed abbiamo:
80 = 80: 63 = 93.
A questo punto teniamo presente che la somma media di due indici di figura è uguale a 10, mentre la somma media per le cadenze è 11 (e per brevità non ci attardiamo a spiegarne le ragioni matematiche). Allora operiamo come segue: prima sulla figure, poi sulle cadenze: 8 per arrivare a 10 occorre 2 e scriviamo 2 sotto l’8; o (che rappresenta 10), per arrivare a 11 = 1 che scriviamo sotto lo 0. Similmente per il secondo numero e disponendo le operazioni in colonna:
80.93
21.18
Ora dobbiamo trasformare questa nuova coppia 21.18 nei numeri corrispondenti. 21 significa figura 2 finale 1, quindi è il N° 11; 18 significa figura 1 e finale 8, quindi = 28. Vediamo dunque che la coppia elaborata si compone dei numeri 11.28, che costituiscono la previsione di ambata.
Per la previsione dei due ambi dobbiamo ancora aggiungere il coefficiente fisso 45 a ciascun numero ed abbiamo: 11+45=56; 28+45=73. Ed ecco quindi i due ambi validi per tutte le ruote: 11.28 – 56.73. La risposta è alternativa: nella maggior parte dei casi si verifica l’uscita di un’ambata nella ruota un termine di 6/7 estrazioni; altre volte invece si vede sortire un ambo per tutte presso a poco nello stesso termine. Si comprende bene che la sortita dell’ambata elimina il gioco degli ambi e viceversa. Nell’esempio riportato si presentava dopo due estrazioni l’ambo 11.28 a Napoli.
Altro esempio: 8 Giugno 1968 – Palermo 26.31
Operazioni 26=86; 31=41 25.70=65.70 ambate; 65.70+45=20.65 ambi 65.70 e 20. 25.
Esito: Palermo 65 ambata dopo 4 estrazioni (dopo 9 settimane si presentava anche l’ambo principale 65.70 a Torino).
Bisogna precisare che non sempre la previsione riesce vincente in breve termine. Questa speciale rappresentazione dei numeri in simboli binari ha uno scopo prevalentemente descrittivo ed informativo circa la struttura numerica, che senza dubbio riveste una notevole importanza per comprendere ed interpretare gli eventi delle estrazioni. Quante volte, perseguendo per esempio la previsione del N° 8, vediamo uscire al suo posto l’88, che è il suo simbolo binario: oppure, aspettando il 33 vediamo la sortita del 3, che è il suo corrispondente numerale?
In atri termini, diciamo che sussiste un legame fra i numeri ed i loro simboli binari, legami o correlazione che non è cosa molto semplice n’è facile descrivere compiutamente. Questo è però un campo di studio, una speciale prospettiva che non deve essere trascurata soprattutto dagli studiosi dell’evoluzione numerica, e noi siamo convinti che l’avanzamento ed il progresso in questa ardua materia d’indagine potrà condurre a ritrovamenti molto interessanti.
I 90 numeri del lotto comprendono vari raggruppamenti tipici: decine, cadenze, figure ed altri. Ai fini della nostra classificazione interessano però soltanto e precisamente le figure e le cadenze. Come tutti sanno, le figure sono 9, mentre le cadenze o finali sono 10. Ogni numero appartiene ad una figura e ad una cadenza: ad esempio il N° 23 fa parte della figura 5 e della cadenza 3.
Ora, se noi vogliamo esprime ciascun numero in funzione del suo valore figurale e del suo valore cadenzale, dobbiamo necessariamente rappresentarlo con due cifre. Così diciamo che gli indici di figura e di cadenza di ogni numero ha un simbolo binario (il proprio simbolo binario) e tutti questi simboli formano una serie che ha come primo termine il valore 10 (Figura 1 e cadenza 0) e come ultimo termine il valore 99 (Figura 9 cadenza 9). Si tratta dunque di una serie di 90 numeri che si differenzia da quella naturale per alcuni aspetti.
Pubblicità
Con il presente articolo noi ci siamo proposti di additare ai lettori una particolare tecnica che si può adottare esprimendo i 90 numeri secondo la rispettiva struttura figurale e cadenzale e quindi attraverso i propri simboli binari di cui abbiamo detto. Dal punto di vista pratico, tale tecnica vene utilizzata per elaborare, per qualsiasi coppia o ambo, una previsione che si articola in due distinte forme. La prima forma riguarda 2 ambate valide per la ruota da cui si trae la coppia base; la seconda forma riguarda 2 ambi secchi validi per tutte le ruote.
Ed ecco ora la descrizione del procedimento.
Dall’estrazione del 13 Aprile 1968 prendiamo la coppia seguente:
FIRENZE 80.63. Esprimiamo ciascuno dei numeri con i rispettivi simboli binari ed abbiamo:
80 = 80: 63 = 93.
A questo punto teniamo presente che la somma media di due indici di figura è uguale a 10, mentre la somma media per le cadenze è 11 (e per brevità non ci attardiamo a spiegarne le ragioni matematiche). Allora operiamo come segue: prima sulla figure, poi sulle cadenze: 8 per arrivare a 10 occorre 2 e scriviamo 2 sotto l’8; o (che rappresenta 10), per arrivare a 11 = 1 che scriviamo sotto lo 0. Similmente per il secondo numero e disponendo le operazioni in colonna:
80.93
21.18
Ora dobbiamo trasformare questa nuova coppia 21.18 nei numeri corrispondenti. 21 significa figura 2 finale 1, quindi è il N° 11; 18 significa figura 1 e finale 8, quindi = 28. Vediamo dunque che la coppia elaborata si compone dei numeri 11.28, che costituiscono la previsione di ambata.
Per la previsione dei due ambi dobbiamo ancora aggiungere il coefficiente fisso 45 a ciascun numero ed abbiamo: 11+45=56; 28+45=73. Ed ecco quindi i due ambi validi per tutte le ruote: 11.28 – 56.73. La risposta è alternativa: nella maggior parte dei casi si verifica l’uscita di un’ambata nella ruota un termine di 6/7 estrazioni; altre volte invece si vede sortire un ambo per tutte presso a poco nello stesso termine. Si comprende bene che la sortita dell’ambata elimina il gioco degli ambi e viceversa. Nell’esempio riportato si presentava dopo due estrazioni l’ambo 11.28 a Napoli.
Altro esempio: 8 Giugno 1968 – Palermo 26.31
Operazioni 26=86; 31=41 25.70=65.70 ambate; 65.70+45=20.65 ambi 65.70 e 20. 25.
Esito: Palermo 65 ambata dopo 4 estrazioni (dopo 9 settimane si presentava anche l’ambo principale 65.70 a Torino).
Bisogna precisare che non sempre la previsione riesce vincente in breve termine. Questa speciale rappresentazione dei numeri in simboli binari ha uno scopo prevalentemente descrittivo ed informativo circa la struttura numerica, che senza dubbio riveste una notevole importanza per comprendere ed interpretare gli eventi delle estrazioni. Quante volte, perseguendo per esempio la previsione del N° 8, vediamo uscire al suo posto l’88, che è il suo simbolo binario: oppure, aspettando il 33 vediamo la sortita del 3, che è il suo corrispondente numerale?
In atri termini, diciamo che sussiste un legame fra i numeri ed i loro simboli binari, legami o correlazione che non è cosa molto semplice n’è facile descrivere compiutamente. Questo è però un campo di studio, una speciale prospettiva che non deve essere trascurata soprattutto dagli studiosi dell’evoluzione numerica, e noi siamo convinti che l’avanzamento ed il progresso in questa ardua materia d’indagine potrà condurre a ritrovamenti molto interessanti.
salvo50
Advanced Member >PLATINUM PLUS<
kubes;n2176941 ha scritto:
Ciao Kubes, i calcoli non sono semplici, parecchie volte mi sono incasinato, ma alla fine sono riuscito a farli tutti senza errore, ed ho potuto constatare che nel primo esempio i calcoli sono giusti, ma nel secondo esempio sono sbagliati le 2 ambate finali sono 65 e 60 non 65 e 70.
Ho lanciato lo script, e subito mi è saltato agli occhi un particolare, le ambate da giocare non erano altro che il complemento a 91 degli estratti, cioè si sono fatti un mucchio di calcoli astrusi, quando bastava fare il complemento a 91, naturalmente io non penso che il Fabarri abbia fatto il furbo, perche non aveva gli script a disposizione, magari prima che si accorgeva di questo particolare ne doveva fare di calcoli.
Di script ne ho fatto 2, il primo è con tutti i calcoli originali, il secondo invece l'ho fatto con il complemento a 91, quindi dato che ci sono pochi calcoli, è più veloce
primo script calcoli originali
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Clp,Es,Salvo50,Amba,Abb1,Abb2
Dim R1,P1,P2,P3,A,B,Caso,Casi,E1,E2
Dim FiA,FiB,CaA,CaB,A1,B1,A2,B2,A3,B3
Dim CaA2,CaB2,DeA2,DeB2,A4,B4
Dim CaA3,CaB3,DeA3,DeB3
Dim Ambo1(2),Ambo2(2),Ru(2),Po1(2),Po2(2)
Po1(1) = 1
Po1(2) = 1
Po2(2) = 1
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9630)) '5075 ESEMPIO NELL'ARTICOLO 13-04-1968 RUOTA FIRENZE
Clp = CInt(InputBox(" Per quanti colpi vuoi fare il controllo?",Salvo50,5))
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
Scrivi Space(12) & "METODO FABARRI ED I SIMBOLI BINARI - SCRIPT SALVO50",1,,4,,3,,1'CALCOLI ORIGINALI
Po1(1) = 1
Po2(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
'K = 0
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If A > 0 Then
FiA = Figura(A) : FiB = Figura(B)
CaA = Cadenza(A) : CaB = Cadenza(B)
A1 = FiA & CaA : B1 = FiB & CaB
DeA2 = 10 - FiA : If DeA2 = 10 Then DeA2 = 0
DeB2 = 10 - FiB : If DeB2 = 10 Then DeB2 = 0
CaA2 = 11 - CaA : If CaA2 = 11 Then CaA2 = 1
If CaA2 = 10 Then CaA2 = 0
CaB2 = 11 - CaB : If CaB2 = 11 Then CaB2 = 1
If CaB2 = 10 Then CaB2 = 0
A2 = DeA2 & CaA2 : B2 = DeB2 & CaB2
DeA3 = FuoriX(9 +(DeA2 - CaA2),9)
DeB3 = FuoriX(9 +(DeB2 - CaB2),9)
A3 = DeA3 & CaA2 : B3 = DeB3 & CaB2
A3 = Fuori90(A3) : B3 = Fuori90(B3)
A4 = Diametrale(A3) : B4 = Diametrale(B3)
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 P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(20) & " COPPIA ESTRATTI " & Format2(A) & " " & Format2(B),1
Scrivi Space(20) & " RISPETTIVI BINARI " & Format2(A1) & " " & Format2(B1),1
Scrivi Space(20) & " INDICI DEI BINARI " & Format2(A2) & " " & Format2(B2),1
Scrivi Space(20) & " AMBATE PRINCIPALI " & Format2(A3) & " " & Format2(B3),1
Scrivi Space(20) & " AMBATE SECONDARIE " & Format2(A4) & " " & Format2(B4),1
Ru(1) = R1
Ambo1(1) = A3 : Ambo1(2) = B3
ImpostaGiocata 1,Ambo1,Ru,Po1,Clp
Ambo2(1) = A4 : Ambo2(2) = B4
ImpostaGiocata 2,Ambo2,Ru,Po2,Clp
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Subsecondo script calcoli non originali
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Clp,Es,Salvo50,Amba,Abb1,Abb2
Dim R1,P1,P2,P3,A,B,A1,B1,A2,B2,Caso,Casi,E1,E2
Dim Ambo1(2),Ambo2(2),Ru(2),Po1(2),Po2(2)
Po1(1) = 1
Po1(2) = 1
Po2(2) = 1
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9630)) '5075 ESEMPIO NELL'ARTICOLO 13-04-1968 RUOTA FIRENZE
Clp = CInt(InputBox(" Per quanti colpi vuoi fare il controllo?",Salvo50,5))
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
Scrivi Space(12) & "METODO FABARRI ED I SIMBOLI BINARI - SCRIPT SALVO50",1,,4,,3,,1
Po1(1) = 1
Po2(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
'K = 0
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = CInt(Estratto(Es,R1,P1))
B = CInt(Estratto(Es,R1,P2))
If A > 0 Then
A1 = 91 - A : B1 = 91 - B
A2 = Diametrale(A1) : B2 = Diametrale(B1)
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 P3 = 1 To 5
E1 = Estratto(Es,R1,P3)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(20) & " COPPIA ESTRATTI " & Format2(A) & " " & Format2(B),1
Scrivi Space(20) & " AMBATE PRINCIPALI " & Format2(A1) & " " & Format2(B1),1
Scrivi Space(20) & " AMBATE SECONDARIE " & Format2(A2) & " " & Format2(B2),1
Ru(1) = R1
Ambo1(1) = A1 : Ambo1(2) = B1
ImpostaGiocata 1,Ambo1,Ru,Po1,Clp
Ambo2(1) = A2 : Ambo2(2) = B2
ImpostaGiocata 2,Ambo2,Ru,Po2,Clp
Gioca Es
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 21 novembre 2024Bari0679305215Cagliari0385614425Firenze3076843413Genova3963065081Milano0134788636Napoli6351826107Palermo1166095934Roma1526323889Torino3843773342Venezia7660784731Nazionale8583791251Estrazione Simbolotto
Torino
3138420610
