Ambata contata

Zetrix · Martedì alle 08:12

buongiorno a tutti i lettori e lettrici..scriviamo come se scrivessimo su una rivista di lotto..
Ciao Pandit mi spiace per l'altra discussione che ho chiusa ma volevo cambiare pagina..
quante le cose non vanno bisogna sempre cambiare le cose..
ho scritto questa discussione e tratta esclusivamente lo studio sull'Ambata contata
non so se in altri forum trattano questi studi o sulle riviste di lotto
ma visto che sono delle esclusive non credo proprio che trattano questi studi..
il segreto del lotto sta in una tabella ma spiegare queste cose non e semplice per chi sa poco di lotto..
toglimi una curiosità ma ho letto nell'area download programmato da Pandit ma allora sai scrivere gli script..
ma sei un programmatore oppure scrivi solo gli script..

Zetrix · Martedì alle 08:22

ecco la tabella il segreto del lotto sta in questa tabella..queste cose nessuno ve la spiegate..
immaginate le estr sovrapposte su questa tabella
ho un programma che puo sovrapporre due tabelle ma adesso non voglio metterla nel forum..
su questa tabella succedono delle cose sbalorditive forse all'epoca Fabarri non aveva intuito questa tabella..
perche trattava solo la ciclometria e altri studi vari che sono comunque interessanti..
ma io tratto un altro studio ho un altra visione del Fabarri sulle tabelle dei numeri estratti..

Zemira · Martedì alle 09:04

Buongiorno Zetrix,puoi fare quache esempio.
Grazie

Zetrix · Martedì alle 09:32

buongiorno Zemira,
stavo sistemando uno script,tra poco vediamo qualche esempio..

Zetrix · Martedì alle 09:41

allora ragazzi adesso vediamo la teoria sull'ambata contata
adesso vediamo prima la quadratura di questi numeri

FI____41____01____42______
______|____________|______
______30__________30______
______|____________|______
MI____71____01____72______

non e difficile fare questa quadratura si puo fare anche con carta e penna
il numero del quadrato e il 41

[MI] [.. .. 41 .. ..] C.6 Estratto 02417 [25/10/2024] [90.74.41.61.45]

a MI e uscito solo il 41 ma ce un numero che non abbiamo considerato che e il 14
allora immaginate questa tabella sovrapposta sopra la tabella dell'ambata contata
che numero leggiamo al posto del 14 ?
ambata contata13

14+13=27

[TT] [RO] [27 .. .. 41 ..] C. 4 Ambo 02415 [22/10/2024] [27.25.23.41.10]

FI ruota diam RO,in teoria questo ambo avrebbe dovuto fare a FI ..
ma ci sono anche le ruote diam e gemelle,ma questo e un altro discorso,
avete visto come si combina l'ambo con l'ambata contata sulla tabella..

Pandit · Martedì alle 10:01

Ciao Zetrix, nell'altra discussione non ho risposto subito perchè non sono sempre a casa, infatti ero via e col telefono non amo smanettare, poi per la Tua domanda iniziale, non sono un programmatore e con gli script me la cavicchio, se stiamo sul semplice, perchè l'età non mi aiuta, la memoria non è più quella in cui scrivevo listati per C64 e mi divertivo a piratare..
Già, non si dice...

Zetrix · Martedì alle 10:11

Ciao Pandit,
neanche io ho potuto scrivere visto che la giuseppa e stata rapida a mettere il lucchetto..
comunque giriamo pagina..
quindi non sei un programmatore quindi non scrivi programmi..
neanche io sono bravo con gli script ma scrivo quello che posso fare
se trovo difficoltà su qualche script chiedo nel forum..

Zetrix · Martedì alle 10:20

Codice:

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7,T8,T9,T10
   Dim X,N,E,Y,R,F,Q
   Dim A(5),V(5),B(5)
   Dim A2,B2,C2,D2,E2
   Dim S1,S2,S3,S4,S5
   Dim R1,R2
   Dim ES,SR
   '
   ' ambata-contata
   '
   tv = InputBox("Inserire quante estrazione",,0)
   '
   '
   ex = EstrazioneFin - tv
   For ES = ex To ex
      Messaggio(ES)
      '
      For R1 = 1 To 10
         '
         A(1) = Estratto(ES,R1,1)
         A(2) = Estratto(ES,R1,2)
         A(3) = Estratto(ES,R1,3)
         A(4) = Estratto(ES,R1,4)
         A(5) = Estratto(ES,R1,5)
         '---------------------------
         '
         For X = 1 To 5
            '
            '------------------------------------
            '
            Y = Y + 1
            V(X) = Y
            '
         Next
         '----------------------------------
         T1 = Array(T1," I "," II "," III "," IV "," V ")
         Call InitTabella(T1,Magenta_,"center",4,Nero_,"arial black")
         '
         T2 = Array(T2,Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)))
         Call AddRigaTabella(T2,Verde_,"center",4,Nero_,"arial black")
         '
         T3 = Array(T3," + "," + "," + "," + "," + ")
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai LiGHT")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '
         T4 = Array(T4,(V(1)),(V(2)),(V(3)),(V(4)),(V(5)))
         Call AddRigaTabella(T4,Magenta_,"center",4,Nero_,"arial black")
         T5 = Array(T5," = "," = "," = "," = "," = ")
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '
         S1 = Fuori90(A(1) + V(1))
         S2 = Fuori90(A(2) + V(2))
         S3 = Fuori90(A(3) + V(3))
         S4 = Fuori90(A(4) + V(4))
         S5 = Fuori90(A(5) + V(5))
         '
         N = 0
         '
         'If S1 = N Or S2 = N Or S3 = N Or S4 = N Or S5 = N Then
         '
         '
         T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5))
         Call AddRigaTabella(T6,Verde_,"center",4,Nero_,"arial black")
         T7 = Array(T7,"  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
         T8 = Array(T8,"  ","  "," ADDIZIONE  ","  ","  ")
         Call AddRigaTabella(T8,Magenta_,"center",3,Nero_,"Dubai medium")
         R = SiglaRuota(R1)
         F = DataEstrazione(ES)
         T9 = Array(T9,R,"  ",F,"  ","  ")
         Call AddRigaTabella(T9,Ciano_,"center",3,Nero_,"Dubai medium")
         T10 = Array(T10,"  ","  ","  ","  ","  ")
         Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetTableWidth("21%")
         CreaTabella
         Scrivi
         '
         '
         A(1) = Estratto(ES,R1,1)
         A(2) = Estratto(ES,R1,2)
         A(3) = Estratto(ES,R1,3)
         A(4) = Estratto(ES,R1,4)
         A(5) = Estratto(ES,R1,5)
         '
         '
         T1 = Array(T1," I "," II "," III "," IV "," V ")
         Call InitTabella(T1,Magenta_,"center",4,Nero_,"arial black")
         '
         '-------------------------------
         T2 = Array(T2,Format2(A(1)),Format2(A(2)),Format2(A(3)),Format2(A(4)),Format2(A(5)))
         Call AddRigaTabella(T2,Verde_,"center",4,Nero_,"arial black")
         '-------------------------------
         '---------------------------------
         T3 = Array(T3," - "," - "," - "," - "," - ")
         Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Dubai LiGHT")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         '-------------------------------
         '
         T4 = Array(T4,(V(1)),(V(2)),(V(3)),(V(4)),(V(5)))
         Call AddRigaTabella(T4,Magenta_,"center",4,Nero_,"arial black")
         '--------------------------------
         T5 = Array(T5," = "," = "," = "," = "," = ")
         Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetColoreCella(1,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(2,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(3,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(4,RGB(255,255,255),RGB(0,0,0))
         Call SetColoreCella(5,RGB(255,255,255),RGB(0,0,0))
         S1 = Fuori90(A(1) - V(1))
         S2 = Fuori90(A(2) - V(2))
         S3 = Fuori90(A(3) - V(3))
         S4 = Fuori90(A(4) - V(4))
         S5 = Fuori90(A(5) - V(5))
         '
         N = 0
         '
         'If S1 = N Or S2 = N Or S3 = N Or S4 = N Or S5 = N Then
         '
         '
         T6 = Array(T6,Format2(S1),Format2(S2),Format2(S3),Format2(S4),Format2(S5))
         Call AddRigaTabella(T6,Verde_,"center",4,Nero_,"arial black")
         '-------------------------------
         T7 = Array(T7,"  ","  ","  ","  ","  ")
         Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Dubai Light")
         T8 = Array(T8,"  ","  "," SOTTRAZIONE ","  ","  ")
         Call AddRigaTabella(T8,Magenta_,"center",3,Nero_,"Dubai medium ")
         R = SiglaRuota(R1)
         F = DataEstrazione(ES)
         T9 = Array(T9,R,"  ",F,"  ","  ")
         Call AddRigaTabella(T9,Giallo_,"center",3,Nero_,"Dubai medium")
         T10 = Array(T10,"  ","  ","  ","  ","  ")
         Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Dubai Light")
         Call SetTableWidth("21%")
         CreaTabella
         Scrivi
      Next
   Next
End Sub

ecco lo script sull'ambata contata addizione e sottrazione..

Pandit · Martedì alle 10:24

Però devo dire che te la cavi niente male anche lavorando sugli script, visto che riesci a fare delle ottime tabelle.
Ho notato che se nei quinti estratti escono due decine isotope uguali, le cifre che li compongono, si ripropongono sulle stesse ruote ricombinati, formando ambi e terni, prova a dare un'occhiata...e se riesci a fare una tabella.. non sarebbe niente male..

Zetrix · Martedì alle 10:25

Zemira adesso vi farò vedere un altro gioco che si puo fare con l'ambata contata..

Zetrix · Martedì alle 10:27

Pandit grazie dei complimenti ma non sono bravo con gli script non sai quanti errori combino
con gli script

se metti un esempio vedrò se riesco a fare qualcosa..

Zetrix · Martedì alle 10:32

FI ambata contata 14

Zemira vedi questa tabella ho scritto uno script che calcola tutte le combinazioni
dei numeri sull'ambata contata,in questa estr questa e l'unica somma 90 che si combina
con l'ambata contata..
quanto leggi questa tabella leggi anche la tabella sull'ambata contata..
che numero ce al posto del 76 ?
ambata contata 14
76+14=90

previsione in gioco

14-90 x TT

Pandit · Martedì alle 10:33

Ora devo scappare, ma prima di sera non mancherò di chiarire il concetto...
Grazie della Tabella, molto interessante ...

Zetrix · Martedì alle 10:46

TO ambata contata 41

ok Pandit a stasera,
metto questo esempio di gioco sull'ambata contata..
49+41=90

AMBO 41-90 x TT

[TT] [MI] [90 .. 41 .. ..] C.10 Ambo 02417 [25/10/2024] [90.74.41.61.45]

Zetrix · Martedì alle 10:48

se ho qualche aggiornamento sull'ambata contata lo scrivo dopo nel forum..
adesso sto scrivendo uno script e non ho aggiornato ancora tutte le tabelle..

Zetrix · Martedì alle 11:53

Pandit ho avuto questa idea e se disponiamo cosi i numeri in tabella
cosi si hanno a vista tutti i numeri dell'ambata contata..sino a 50..
sarà difficile forse fare questa tabella..
mi sono dimenticato di mettere la sigla della ruota..
inoltre vorrei aggiungere la somma e la differenza tra loro ma la tabella
diverebbe troppo estesa se aggiungiamo altri numeri..

Zetrix · Martedì alle 12:28

se no dobbiamo usare questa tabella che e piu facile scriverla
ho aggiunto anche la nazionale
adesso devo sostituire i numeri 1 2 3 4 5 con i numeri estratti ..

Zetrix · Martedì alle 12:40

ho combinato un casino con questa tabella volevo scrivere i numeri estratti
ma scrive tanti 41

Zetrix · Martedì alle 13:09

Codice:

Sub Main
   Dim E,S,X,Y,A,K,R,B,C,D,F,V,Z,W,J,L,N
   Dim Nu(5),Na(11)
   Dim Righe,Colonne
   Dim nCaselleDaEvid
   Dim aQuadroNum
   Dim aNumDaEvid
   Dim ES
   '
   Righe = 11
   Colonne = 11
   ReDim aQuadroNum(Righe,Colonne)
   ReDim aNumDaEvid(500,1) ' Quantità di caselle possibili
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   Scrivi DataEstrazione(EstrazioneFin - X,,,"/"),0,1,5
   '
   For ES = EstrazioneFin - X To EstrazioneFin
      '
      For S = 1 To 11 'Righe della Tabella
         For E = 1 To 5 'Colonne della Tabella
            Y = E + 6
            Nu(E) = E - 1 *5 + S*5 ' Formato della Tabella
            '
            For R = 1 To 12
               If R > 11 Then
                  '
                  A = Estratto(ES,R,1)
                  B = Estratto(ES,R,2)
                  C = Estratto(ES,R,3)
                  D = Estratto(ES,R,4)
                  F = Estratto(ES,R,5)
                  '-------------------------
                  '-------------------------
                  '
                  aQuadroNum(S,E) = Nu(E)
                  aQuadroNum(S,Y) = Na(Y)
                  '
                  aQuadroNum(S,Y) = A : aQuadroNum(S,Y) = B : aQuadroNum(S,Y) = C : aQuadroNum(S,Y) = D : aQuadroNum(S,Y) = F
                  '
                  'If aQuadroNum(S,E) = A Or aQuadroNum(S,E) = B Or aQuadroNum(S,E) = C Or aQuadroNum(S,E) = D Or aQuadroNum(S,E) = F Then
                  '
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  aNumDaEvid(nCaselleDaEvid,0) = S
                  aNumDaEvid(nCaselleDaEvid,1) = Y
                  '
                  '
                  '
                  ReDim MatriceCaselleDaEvid(5,1)
                  '
                  MatriceCaselleDaEvid(1,0) = R
                  MatriceCaselleDaEvid(1,1) = 1
                  '
                  MatriceCaselleDaEvid(2,0) = R
                  MatriceCaselleDaEvid(2,1) = 2
                  '
                  MatriceCaselleDaEvid(3,0) = R
                  MatriceCaselleDaEvid(3,1) = 3
                  '
                  MatriceCaselleDaEvid(4,0) = R
                  MatriceCaselleDaEvid(4,1) = 4
                  '
                  MatriceCaselleDaEvid(5,0) = R
                  MatriceCaselleDaEvid(5,1) = 5
                  '
                  'Call DisegnaEstrazione(ES,MatriceCaselleDaEvid)
                  'End If
               End If
            Next
         Next
      Next
   Next
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
   Scrivi SiglaRuota(R) & " " & StringaEstratti(EstrazioneFin - X,R),0,1,5
   Scrivi
   Call DisegnaEstrazione(EstrazioneFin - X,MatriceCaselleDaEvid)
End Sub

Pandit vedi un po te se riesci a scrivere i numeri estratti a me scrive tanti 41

Pandit · Martedì alle 14:08

A me da l'estrazione giusta..

Ambata contata

Advanced Premium Member

Advanced Premium Member

Advanced Member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Super member