Imaging
Advanced Member >PLATINUM<
No non ho visto non ho il tuo PC davanti a me
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.
La Figura del TRIANGOLO per TRE TERZINE
- Creatore Discussione Imaging
- Data di inizio
Imaging
Advanced Member >PLATINUM<
Metti il listato con la modifica.......è chiaro se ti va puoi mettere anche quello senza modifica......OK
Zetrix
Advanced Premium Member
Codice:
Sub Main()
Dim ruota(5),ruote(5)
Dim posta(5),poste(5)
Dim r1,r2,r3
Dim ambo1(2),ambo2(2),terzina(3)
Dim caso
'
posta(2) = 1
poste(2) = 1
poste(3) = 1
'
rk = InputBox("Quale 1 numero vuoi controllare?",,0)
rv = InputBox("Quale 2 numero vuoi controllare?",,0)
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
'
caso = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
'
For r1 = 1 To 8
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
'-----------------------------------
For r2 = r1 + 1 To 9
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r2,p3)
n4 = Estratto(es,r2,p4)
'----------------------------------
For r3 = r2 + 1 To 10
For p5 = 1 To 4
For p6 = p5 + 1 To 5
n5 = Estratto(es,r3,p5)
n6 = Estratto(es,r3,p6)
'-----------------------------------
For rx = rk To rk
For rw = rv To rv
'--------------------------------
b1 = (n1 + n5)
b2 = (n4 + n6)
'
b3 = (n2 + n6)
b4 = (n3 + n5)
'
b5 = (n3 + n5)
b6 = (n2 + n4)
'
b7 = (n1 + n3)
b8 = (n4 + n6)
'
'--------------------------
n7 = Fuori90(b1 - n2)
n8 = Fuori90(b1 - n3)
n9 = Fuori90(b3 - n1)
n10 = Fuori90(b3 - n4)
'-------------------------
n11 = Fuori90(b5 - n1)
n12 = Fuori90(b5 - n6)
n13 = Fuori90(b7 - n2)
n14 = Fuori90(b7 - n5)
'-------------------------
'
If pari(n1 + n5) And pari(n4 + n6) And b1 = b2 _
Or pari(n2 + n6) And pari(n3 + n5) And b3 = b4 _
Or pari(n3 + n5) And pari(n2 + n4) And b5 = b6 _
Or pari(n1 + n3) And pari(n4 + n6) And b7 = b8 Then
'
'
n15 = Fuori90(b1/2)
n16 = Fuori90(b3/2)
n17 = Fuori90(b5/2)
n18 = Fuori90(b7/2)
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = TT_
ruote(5) = NZ_
'----------------------------
If b1 = b2 Then
ambo1(1) = Fuori90(b1 - n2)
ambo1(2) = Fuori90(b1 - n3)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n15
End If
'-------------------------------
If b3 = b4 Then
ambo1(1) = Fuori90(b3 - n1)
ambo1(2) = Fuori90(b3 - n4)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n16
End If
'----------------------------------
If b5 = b6 Then
ambo1(1) = Fuori90(b5 - n1)
ambo1(2) = Fuori90(b5 - n6)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n17
End If
'----------------------------------
If b7 = b8 Then
ambo1(1) = Fuori90(b7 - n2)
ambo1(2) = Fuori90(b7 - n5)
terzina(1) = ambo1(1)
terzina(2) = ambo1(2)
terzina(3) = n18
End If
'
Scrivi String(99,"-") & " gioco n. " & caso
'
If rx = ambo1(1) And rw = ambo1(2) Or rw = ambo1(1) And rx = ambo1(2) Then
'
'If rx = ambo1(1) Or rx = ambo1(2) Then
'---------------------------------
'
ReDim MatriceCaselleDaEvid(6,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r2 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p4 '
' 5
MatriceCaselleDaEvid(5,0) = r3 '
MatriceCaselleDaEvid(5,1) = p5 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p6 '
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'-------------------------------------------------------------
If b1 = b2 Then
Scrivi "" & n1 & "+" & n5 & Space(0) & " = " & b1 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b2 & " ",1,1,7,3,4
End If
'
If b3 = b4 Then
Scrivi "" & n2 & "+" & n6 & Space(0) & " = " & b3 & " ",1,1,3,7,4
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b4 & " ",1,1,7,3,4
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi "" & n3 & "+" & n5 & Space(0) & " = " & b5 & " ",1,1,3,7,4
Scrivi "" & n2 & "+" & n4 & Space(0) & " = " & b6 & " ",1,1,7,3,4
End If
'
If b7 = b8 Then
Scrivi "" & n1 & "+" & n3 & Space(0) & " = " & b7 & " ",1,1,3,7,4
Scrivi "" & n4 & "+" & n6 & Space(0) & " = " & b8 & " ",1,1,7,3,4
End If
'-------------------------------------------------------------------
Scrivi
If b1 = b2 Then
Scrivi("" & Format2(n8) & "____" & Format2(n7) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n15) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n3) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------
If b3 = b4 Then
Scrivi("" & Format2(n10) & "____" & Format2(n9) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n6) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & Space(4) & Format2(n16) & Space(4) & Format2(n5) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & "____" & Format2(n1) & "____" & Format2(n4) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'--------------------------------------------------------------------
If b5 = b6 Then
Scrivi("" & Format2(n12) & "____" & Format2(n11) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n5) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n2) & Space(4) & Format2(n17) & Space(4) & Format2(n4) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n3) & "____" & Format2(n1) & "____" & Format2(n6) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'-------------------------------------------------------------------
If b7 = b8 Then
Scrivi("" & Format2(n14) & "____" & Format2(n13) & ""),0,0,2,3,6
Scrivi("" & "____" & Format2(n3) & "") & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n4) & Space(4) & Format2(n18) & Space(4) & Format2(n6) & " ",0,1,1,3,6
Scrivi "|" & Space(6) & "|" & Space(5) & "|" & " ",0,1,1,3,6
Scrivi "" & Format2(n1) & "____" & Format2(n2) & "____" & Format2(n5) & " ",0,1,1,3,6
Scrivi "" & Space(15) & "",0,1,1,3,6
End If
'
Scrivi
ImpostaGiocata 1,ambo1,ruote,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
Scrivi
End If
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Scrivi "script di Zetrix",0,1,7,3,4,4,8
Scrivi "sistema a cruciverba",0,1,7,3,4,4,8
End Subfatto la modifica delle somme adesso ce da sistemare meglio il pronostico del cruciverba..
vediamo domani adesso e tardi ..notte
Imaging
Advanced Member >PLATINUM<
OK buona notte..
Zetrix
Advanced Premium Member
vi scrivo un esempio per farvi capire meglio gli algoritmi di calcolo..
25<-------+17---------->?<-----------+17----------->59<----------+17------------>76
1 liv. 25<-------+17---------->42<-----------+17----------->59<----------+17------------>76
2 liv.
3 liv.
4 liv.
questo e un algoritmo di 1 livello immaginate un algoritmo piu complesso di 4 livelllo!
Zetrix
Advanced Premium Member
| 90 42 48 42 90 48 69 63 27 21 18 51 12 15 06 _________________________________ 18 51 12 15 06 33 39 03 09 06 36 06 30 30 90 [BA] [.. .. 90 .. ..] C.3 Estratto [11/08/2022] [66.70.90.71.56] Interrotta per esito verificato |
disegno Piramide inversa...
Imaging sono un dilettante e faccio questi disegni e non ai visto ancora niente..
joe
Advanced Member >PLATINUM PLUS<
Le probabilità si calcolano.
Sono il risultato di un calcolo Matematico e Statistico.
Non c'è alcun bisogno di misurale giocando.
Anzi, giocando, si "rilevano" dei valori istantanei, molto diversi,
da quelli che dovrebbero essere.
Da quelli che poi ... ti inalberi e ...
... quelli che sono nei "Grandi Numeri".
Dunque la PROBABILITA' di vincita, si ottiene per CALCOLO.
(Se si è capaci di ottenerla e se si può calcolare.
Giocando come fai tu, cioè pubblicando risultati già usciti.
è ovvio che i risultati, ci sono e che sono buoni.
Le "statistiche" sono vincenti.
Cioè quelli che poi ... ti inalberi.
Perché sono tutti capaci di fare le previsioni del giorno prima.
Cioè quelle, che poi, non funzionano il giorno dopo.
Domani.
Domani, domani, ti faccio un regalo ...
Ma, questa è altra storia, non è Statistica.
E' una canzone di Laura Luca.
joe
Advanced Member >PLATINUM PLUS<
a si lo so i soldi non danno la felicità
immagina però come può stare chi non li à
E' una canzone di Luca Carboni
No ... è più vecchia ...
cerca meglio, Carboni a quell'epoca
poteva partecipare allo Zecchino d' Oro.
joe
Advanced Member >PLATINUM PLUS<
Buon Giorno a tutte/i.
Con un ragguaglio veloce ... per chi intende seguire con un attimo di attenzione:
Zetrix ha proposto uno script che prevedeva posizioni isotope ( 1-3-5 )
Imaging mi ha chiesto quale potesse essere la migliore prospettiva
(era per altro ma è domanda che si adatta benissimo anche a questo).
Ho risposto che è difficile rispondere, lasciando intendere che
solo con uno studio statistico si può dire cosa sarebbe stato preferibile.
Zetriz ha replicato che studiando le statistiche si perdono le occasioni buone.
Dunque ho utilizzato lo script di Zetrix, confrontando i risultati a tutto l'archivio
per ogni terna di posizioni possibile. Per ognuna delle "prospettive" possibili.
Questi risultati sono riportati in questa Tabella:
Ci sono dunque condizioni ... migliori e peggiori.
Da esse si evince chiaramente che lo script originalmente proposto,
è quello che produce i risultati (quasi) peggiori in assoluto.
Noni su 10.
Questi sono i risultati ottenuti oggi, che siamo in quel "domani",
che avevo solo intuito essere così.
Ma che, scientificamente, è così perché lo dice uno studio che tutti potete riprodurre.
Infatti è sufficiente cambiare le posizioni in quello script ed avere gli stessi risultati.
Riportarli in tabella e ...
Dunque ATTENZIONE a dubitare della scienza.
Perché la SCIENZA si nutre dubbi.
Con un ragguaglio veloce ... per chi intende seguire con un attimo di attenzione:
Zetrix ha proposto uno script che prevedeva posizioni isotope ( 1-3-5 )
Imaging mi ha chiesto quale potesse essere la migliore prospettiva
(era per altro ma è domanda che si adatta benissimo anche a questo).
Ho risposto che è difficile rispondere, lasciando intendere che
solo con uno studio statistico si può dire cosa sarebbe stato preferibile.
Zetriz ha replicato che studiando le statistiche si perdono le occasioni buone.
Dunque ho utilizzato lo script di Zetrix, confrontando i risultati a tutto l'archivio
per ogni terna di posizioni possibile. Per ognuna delle "prospettive" possibili.
Questi risultati sono riportati in questa Tabella:
Ci sono dunque condizioni ... migliori e peggiori.
Da esse si evince chiaramente che lo script originalmente proposto,
è quello che produce i risultati (quasi) peggiori in assoluto.
Noni su 10.
Questi sono i risultati ottenuti oggi, che siamo in quel "domani",
che avevo solo intuito essere così.
Ma che, scientificamente, è così perché lo dice uno studio che tutti potete riprodurre.
Infatti è sufficiente cambiare le posizioni in quello script ed avere gli stessi risultati.
Riportarli in tabella e ...
Dunque ATTENZIONE a dubitare della scienza.
Perché la SCIENZA si nutre dubbi.
joe
Advanced Member >PLATINUM PLUS<
La SCIENZA si nutre di dubbi,
li sa elaborare e trasformare in dimostrazioni.
E' un regalino (ino, ino, ino) che fa a tutti noi.
Queste sono le forbici per aprirlo:
li sa elaborare e trasformare in dimostrazioni.
E' un regalino (ino, ino, ino) che fa a tutti noi.
Queste sono le forbici per aprirlo:
Codice:
Sub Main
Dim L,T,A,B,C,Nu(3),U
Dim Es: Es = 10119
Dim G,R(1),Po(2) : R(1) = 11 : Po(2) = 1
L = "58.53.52.68.38.57.37.72.54"
T = Split("0." & L,".")
OrdinaMatrice Nu,1
Scrivi StringaNumeri(Nu,,True)
U = UBound(T)
For A = 1 To U - 1
Nu(1) = T(A)
For B = A + 1 To U
Nu(2) = T(B)
G = G + 1
ImpostaGiocata G,Nu,R,Po,1
Next
Next
Gioca Es,True
ScriviResoconto
End SubZetrix
Advanced Premium Member
Joe i tuoi dati che scrivi possono essere anche utili ma non seguo tanto la statistica
anche se questa puo essere anche utile per alcune condizioni di gioco..
per i cruciverba come detto si formano tante condizioni a meno che si mettono
altre condizioni da poterle ridurre a poche condizioni di gioco..
dopo vedo lo script che ai fatto e cosa fa..
anche se questa puo essere anche utile per alcune condizioni di gioco..
per i cruciverba come detto si formano tante condizioni a meno che si mettono
altre condizioni da poterle ridurre a poche condizioni di gioco..
dopo vedo lo script che ai fatto e cosa fa..
Ultima modifica:
bubù
Advanced Member >PLATINUM PLUS<
Se posso dire la mia, in questo gioco NON ESISTE NESSUNA CERTEZZA, ma non per questo significa che dobbiamo smettere di provarci, di sognare, di sperare in una o in tante piccole o grandi vincite. Quindi non importa la quantità di combinazioni ma sperare nella scelta di una sperare che sia quella Fortunata , perchè alla fine si tratta di Fortuna unita a impegno, fatica e intuizione, in questo caso Fatica e Impegno di Zetrix . Buona fortuna a Tutti e Grazie a Zetrix
joe
Advanced Member >PLATINUM PLUS<
Bubù ti ringrazio, per la considerazione,
però secondo me le certezze ci sono.
La prima si identifica con il "limite di spesa" che ogni giocatore ha.
Questo limite si divide per il numero di giocate che intende effettuare.
Dunque se uno ha 10 Euro e li gioca tutti assieme ... o vince o perde.
Se li divide in 10 pronostici forse ha qualche possibilità in più.
Se si insegue una combinazione che ha un ritardo naturale di 100.000 Estrazioni,
prima bisogna mettere a bilancio 100.000 Euro per giocarle
e poi sperare di non morire prima, che non "faccia ritardo" ... ecc. ecc.
Dunque la seconda certezza è che Vincere al Lotto
è molto più FACILE che PERDERE al Lotto.
Come fare a braccio di ferro "1 solo" ... "contro 17".
Con queste "proporzioni".
Se poi ci si presenta alla sfida, allegramente, l'esito è certo.
Cioè traumatico.
Dunque si ... un Ambo un Terno o una Quaterna sono soddisfazioni,
ma non ci si arriva sperando.
Perché se si è alla fortuna pura ... è fortuna e basta.
Se invece si vuole o ci si spera ... ce li si deve "guadagnare". (Anche senza virgolette)
però secondo me le certezze ci sono.
La prima si identifica con il "limite di spesa" che ogni giocatore ha.
Questo limite si divide per il numero di giocate che intende effettuare.
Dunque se uno ha 10 Euro e li gioca tutti assieme ... o vince o perde.
Se li divide in 10 pronostici forse ha qualche possibilità in più.
Se si insegue una combinazione che ha un ritardo naturale di 100.000 Estrazioni,
prima bisogna mettere a bilancio 100.000 Euro per giocarle
e poi sperare di non morire prima, che non "faccia ritardo" ... ecc. ecc.
Dunque la seconda certezza è che Vincere al Lotto
è molto più FACILE che PERDERE al Lotto.
Come fare a braccio di ferro "1 solo" ... "contro 17".
Con queste "proporzioni".
Se poi ci si presenta alla sfida, allegramente, l'esito è certo.
Cioè traumatico.
Dunque si ... un Ambo un Terno o una Quaterna sono soddisfazioni,
ma non ci si arriva sperando.
Perché se si è alla fortuna pura ... è fortuna e basta.
Se invece si vuole o ci si spera ... ce li si deve "guadagnare". (Anche senza virgolette)
Zetrix
Advanced Premium Member
grazie Bubù buona fortuna anche a te..per i cruciverba e vero ci sono tante condizioni
ma sto vedendo se ridurle a poche condizioni ma dobbiamo mettere qualche altra condizione
nel cruciverba..e comunque questo cruciverba si deve ancora definire meglio..
un po come i programmi che si aggiornano..Spaziometria quante volte e stato aggiornato..
quindi se ci sarà un nuovo aggiornamento vi metterò il nuovo cruciverba..
xJoe lo script che ai fatto ho visto che splitta una lunghetta di numeri e li suddivide in ambi
ma questo lavoro lo fa anche SpazioLight...
ma sto vedendo se ridurle a poche condizioni ma dobbiamo mettere qualche altra condizione
nel cruciverba..e comunque questo cruciverba si deve ancora definire meglio..
un po come i programmi che si aggiornano..Spaziometria quante volte e stato aggiornato..
quindi se ci sarà un nuovo aggiornamento vi metterò il nuovo cruciverba..
xJoe lo script che ai fatto ho visto che splitta una lunghetta di numeri e li suddivide in ambi
ma questo lavoro lo fa anche SpazioLight...
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 28 settembre 2024Bari4731098552Cagliari4967262968Firenze3701547915Genova8976831459Milano8785307610Napoli7368246205Palermo6227662082Roma0630055337Torino1102385543Venezia8151820120Nazionale0883128742Estrazione Simbolotto
Palermo
1907104536
