mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...
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
mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...
Matematico
Advanced Member >PLATINUM<
Ciao salvo50, e a tutti quelli che seguono la sezione , ecco un'altra tecnica molto forte tratta dal forum di Enzob ,non sò se è stato già fatto lo script, ma non credo.
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ecco lo script salvo errori o dimenticanze
Codice:
Sub Main
Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
Call InitTabella(T)
Fin = EstrazioneFin
Ini = Fin - 300
R1 = BA_
R2 = NA_
Ind_Me = 1
Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
Scrivi
For Es = Ini To Fin
If IndiceMensile(Es) = Ind_Me Then
A = Estratto(Es,R1,1)
B = Estratto(Es,R2,1)
SomAB = Fuori90(A + B)
SomAB_Z =(SomAB -(Cadenza(SomAB)))
If SomAB_Z = 0 Then SomAB_Z = 90
DiffAB = Differenza(A,B)
A_Z =(A -(Cadenza(A)))
If A_Z = 0 Then A_Z = 90
B_Z =(B -(Cadenza(B)))
If B_Z = 0 Then B_Z = 90
T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
Call AddRigaTabella(T)
End If
Next
CreaTabella
End SubGrazie, la tabella era un esempio di calcolo.... ma il mio intento era verificare gli esiti della giocata in base alle combinazioni.
Pertanto così va bene ma a completamento vorrei che controllasse le giocate di ambo terno quaterna cinquina
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Phil79
In questo thread non faccio script statistici, frquenze, ritardi, attenersi al titolo
SCRIPT SU METODI CABALISTICI CICLOMETRICI & C.
Matematico
Advanced Member >PLATINUM<
Buongiorno salvo50 e tutto il forum , ecco a mio avviso un procedimento molto interessante del compianto e mitico D.Manna :
Allegati
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie
Le spiegazioni di questo metodo sono al post 1042
Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.
Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio
Bubù, Cicalotto,Matematico, Phil79, ScarfaceTony
Grazie
Le spiegazioni di questo metodo sono al post 1042
Nel metodo la prima condizione è che si devono eseguire solo gli estratti che appartengono alla stessa tripla figurale, questa condizione non l'ho messa, perché per me è un lavorone, comunque a pagina 8, l'autore fa un esempio e neanche lui rispetta questa condizione.
Siccome i calcoli sono tanti e se si fa una ricerca lunga possono rallentare lo script,
alla terza domanda ho predisposto che si possono non visualizzare
con 1 si visualizzano con un qualsiasi altro numero non si visualizzano
Come autore ho messo Domenico Manna se non è lui lo cambio
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,R1,R2,Caso,Amba1,Amba2
Dim P1,P2,P3,P4,P,PP,E1,E2,A,B,C,D,Casi,Calcoli
Dim Som1,Som2,xSom3,Som3,Salvo50,Diff3,Diff4
Dim CadA,CadB,CadC,CadD,DecA,DecB,DecC,DecD
Dim xNoveA,xNoveB,xNoveC,xNoveD,NoveA,NoveB,NoveC,NoveD
Dim DAB,DCD,SomVe1,SomVe2,SomDi1,SomDi2,xAmba
Dim DistOr1,DistOr2,DistVe1,DistVe2,DistDi1,DistDi2
Dim DistOr1b,DistOr2b,DistVe3,DistVe4,DistDi3,DistDi4
Dim Amba(1),M(4),N(4),Ruote(2),Posta(1)
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10660)'ESTRAZIONE 6346 ESEMPIO NELLE SPIEGAZIONI
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,6)
Calcoli = InputBox("Vuoi visualizzare i calcoli? Per si metti 1 per no un quasiasi altro numero ",,1)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & " L'Ambata Mandoman di Domenico Manna - Script Salvo50",1,,4,,3,,1
Posta(1) = 1
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)
DAB = Distanza(A,B) : DCD = Distanza(C,D)
If DAB = DCD Then
DecA = Decina(A) : DecB = Decina(B) : DecC = Decina(C) : DecD = Decina(D)
CadA = Cadenza(A) : CadB = Cadenza(B) : CadC = Cadenza(C) : CadD = Cadenza(D)
xNoveA = Fuori90(DecA * 9) : NoveA = Fuori90(xNoveA + CadA)
xNoveB = Fuori90(DecB * 9) : NoveB = Fuori90(xNoveB + CadB)
xNoveC = Fuori90(DecC * 9) : NoveC = Fuori90(xNoveC + CadC)
xNoveD = Fuori90(DecD * 9) : NoveD = Fuori90(xNoveD + CadD)
M(1) = NoveA : M(2) = NoveB : M(3) = NoveC : M(4) = NoveD
Call OrdinaMatrice(M,1)
'M4--M1
'| |
'M3--M2
DistOr1b = Distanza(M(4),M(1)) : DistOr2b = Distanza(M(3),M(2))
DistVe1 = Distanza(M(4),M(3)) : DistVe2 = Distanza(M(1),M(2))
DistDi1 = Distanza(M(4),M(2)) : DistDi2 = Distanza(M(1),M(3))
If(DistVe1 = DistVe2) And(DistDi1 = DistDi2) Then
SomVe1 = FuoriX((M(4) + M(3)),81) : SomVe2 = FuoriX((M(1) + M(2)),81)
SomDi1 = FuoriX((M(4) + M(2)),81) : SomDi2 = FuoriX((M(1) + M(3)),81)
N(1) = SomVe1 : N(2) = SomVe2 : N(3) = SomDi1 : N(4) = SomDi2
Call OrdinaMatrice(N,1)
'N4--N1
'| |
'N3--N2
DistVe3 = Distanza(N(4),N(3)) : DistVe4 = Distanza(N(1),N(2))'-------------
If(DistVe3 = DistVe4) And(DistOr1b = DistVe3 Or DistOr2b = DistVe3) Then
DistDi3 = Distanza(N(4),N(2)) : DistDi4 = Distanza(N(1),N(3))
DistOr1 = FuoriX((N(1) + 81) - N(4),81) : DistOr2 = FuoriX((N(3) + 81) - N(2),81)
Som1 = FuoriX((N(4) + DistOr2),81)
Som2 = FuoriX((N(2) + DistOr1),81)
xSom3 = FuoriX((DistDi3 * 2),81)
Som3 = 81 - xSom3
Diff3 = FuoriX(((81 + N(2)) - Som3),81)
Diff4 = FuoriX(((81 + Diff3) - Som1),81)
Amba1 = FuoriX(((81 + Som1) - M(2)),81)
Amba2 = FuoriX(((81 + Som2) - M(2)),81)
xAmba = FuoriX((M(4) * 2),81)
Amba(1) = FuoriX((81 + xAmba) - M(1),81)
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 P = 1 To 5
E1 = Estratto(Es,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 con Distanza " & Format2(DAB),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP = 1 To 5
E2 = Estratto(Es,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 con Distanza " & Format2(DCD),1,,,1
Scrivi
If Calcoli = 1 Then
Scrivi " Trasformazione dei 4 estratti con distanza uguale in sistema di numerazione novenario",1
Scrivi Space(17) & Format2(C) & " Diventa " & Format2(DecC) & " * 9 = " & Format2(xNoveC),1,0
Scrivi " + " & Format2(CadC) & " = " & Format2(NoveC),1
Scrivi Space(17) & Format2(D) & " Diventa " & Format2(DecD) & " * 9 = " & Format2(xNoveD),1,0
Scrivi " + " & Format2(CadD) & " = " & Format2(NoveD),1
Scrivi Space(17) & Format2(A) & " Diventa " & Format2(DecA) & " * 9 = " & Format2(xNoveA),1,0
Scrivi " + " & Format2(CadA) & " = " & Format2(NoveA),1
Scrivi Space(17) & Format2(B) & " Diventa " & Format2(DecB) & " * 9 = " & Format2(xNoveB),1,0
Scrivi " + " & Format2(CadB) & " = " & Format2(NoveB),1
Scrivi
Scrivi Space(1) & " Novenari in " & Space(5) & "Distanze " & Space(4) & "Distanze ",1,0
Scrivi Space(3) & " Distanze " & Space(4) & "Somme F81" & Space(4) & "Somme F81",1
Scrivi Space(1) & " Senso Orario" & Space(4) & "Orizontali " & Space(3) & "Verticali ",1,0
Scrivi Space(3) & "Diagonali " & Space(2) & " Verticali " & Space(2) & " Diagonali ",1
Scrivi Space(5) & Format2(M(4)) & " " & Format2(M(1)) & Space(11) & Format2(DistOr1b),1,0
Scrivi Space(11) & Format2(DistVe1) & Space(11) & Format2(DistDi1),1,0
Scrivi Space(11) & Format2(SomVe1) & Space(11) & Format2(SomDi1),1
Scrivi Space(5) & Format2(M(3)) & " " & Format2(M(2)) & Space(11) & Format2(DistOr2b),1,0
Scrivi Space(11) & Format2(DistVe2) & Space(11) & Format2(DistDi2),1,0
Scrivi Space(11) & Format2(SomVe2) & Space(11) & Format2(SomDi2),1
Scrivi String(70,"-")
Scrivi Space(2) & "Nuovo Quadr." & Space(4) & "Distanze " & Space(4) & "Distanze ",1,0
Scrivi Space(3) & "Dist. Or F81",1
Scrivi Space(1) & " Senso Orario" & Space(4) & "Verticali " & Space(3) & "Diagonali ",1,0
Scrivi Space(2) & " Orizontali ",1
Scrivi Space(5) & Format2(N(4)) & " " & Format2(N(1)) & Space(10) & Format2(DistVe3),1,0
Scrivi Space(11) & Format2(DistDi3) & Space(11) & Format2(DistOr1),1
Scrivi Space(5) & Format2(N(3)) & " " & Format2(N(2)) & Space(10) & Format2(DistVe4),1,0
Scrivi Space(11) & Format2(DistDi4) & Space(11) & Format2(DistOr2),1
Scrivi String(70,"-")
Scrivi Space(12) & " Da Qui tutti i Calcoli sono Col Fuori 81",1,,,1
Scrivi Space(17) & "Numeri più Distanze Orizontali ",1
Scrivi Space(15) & Format2(N(4)) & " + " & Format2(DistOr2) & " = ",1,0
Scrivi Format2(Som1),1,0,,2
Scrivi Space(10) & Format2(N(2)) & " + " & Format2(DistOr1) & " = ",1,0
Scrivi Format2(Som2),1,,,2
Scrivi Space(18) & " 81 Meno Diagonale per due ",1
Scrivi Space(15) & Format2(DistDi3) & " * 02" & " = " & Format2(xSom3),1,0
Scrivi Space(10) & "81 - " & Format2(xSom3) & " = " & Format2(Som3),1
Scrivi Space(15) & String(35,"-")
Scrivi Space(15) & Format2(N(2)) & " - " & Format2(Som3) & " = ",1,0
Scrivi Format2(Diff3),1,0,,2
Scrivi Space(10) & Format2(Diff3) & " - " & Format2(Som1) & " = ",1,0,,2
Scrivi Format2(Diff4),1,,,1
Scrivi Space(18) & " Il Numero Regolatore è ",1,0,,1
Scrivi Format2(M(2)),1,,,2
Scrivi Space(15) & Format2(Som1),1,0,,2
Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba1),1,0
Scrivi Space(10) & Format2(Som2),1,0,,2
Scrivi " - " & Format2(M(2)) & " = " & Format2(Amba2),1
Scrivi
Scrivi " Per Stabilire tra " & Format2(Amba1) & " e " & Format2(Amba2),1,0
Scrivi " Qualè l'Ambata si Applica la Formula (2d-a)",1
Scrivi Space(20) & Format2(M(4)) & " * 2 = " & Format2(xAmba) & " - " & Format2(M(1)) & " = ",1,0
Scrivi Format2(Amba(1)),1,,,2
End If
Scrivi
Ruote(1) = R1
Ruote(2) = R2
ImpostaGiocata 1,Amba,Ruote,Posta,Clp
Gioca Es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Grazie 1000 salvo 50, ottimo script ...si l'autore è Manna
Settenario
Super Member >PLATINUM<
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 13 giugno 2025Bari5131664901Cagliari6405113184Firenze6156046445Genova4716747912Milano3190084019Napoli2073562282Palermo2802253906Roma5338884574Torino5440817801Venezia0450613962Nazionale6743873854Estrazione Simbolotto
Napoli
0836224245
