salvo50
Advanced Member >PLATINUM PLUS<
Ciao Matematico, ma quali sono i numeri da pronosticare?
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<
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.
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.
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
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
Matematico
Advanced Member >PLATINUM<
Sempre grande salvo50...grazie 1000
Matematico
Advanced Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Alien, a me succede quando non ci sono le condizioni poste nello script
Matematico
Advanced Member >PLATINUM<
Prego jure , tieni presente che ci sono anche altre soluzioni mie personali d i applicazione del metodo che presto metterò a disposizione x voi appassionati di tecniche di gioco antiche
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
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.
Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma
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.
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
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.
Allora passo al secondo esempio dice che è la stessa estrazione ma nella ruota di Roma
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
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
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.
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
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
Secondo script senza condizione sestina esagonale
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 SubSecondo 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 >PLATINUM<
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<
Mettilo pure, se sono in grado, quando ho tempo libero lo faccio
Matematico
Advanced Member >PLATINUM<
Uff!Mi dice che il file è troppo grosso ...ci sarebbe un'altro modo x inviarlo?
Ultima modifica:
simon-simon
Junior Member
Ciao a tutti..
ma per farli funzionare con lottodesk?
si puo fare qualcosa?
grazie
salvo50
Advanced Member >PLATINUM PLUS<
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
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
