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
joe
Advanced Member >PLATINUM PLUS<
Zetrix,
secondo me non ha nessun senso sommare degli Estratti.
Altra cosa è la Statistica che è una branca della Matematica.
In quanto tale è Scienza.
Dunque se, io volessi inserire i numeri in uno schema,
probabilmente lo potrei fare.
Questo per esempio è uno schemino (ino, ino, ino / pure "sbagliato")
Però ... contiene molta più ricerca statistica (molto diversa dalla tua)
Ma ti chiedo: I numeri seguono uno schema ?
E' diverso da quello dell'essere casuale ?
Le nuove Estrazioni ... ripetono i numeri che "aggiungiamo" allo schema ?
Io a differenza d'altri, NON CREDO fintanto che non c'è dimostrazione.
Mi spiace ma la Scienza si nutre di dubbi.
Ha (cioè ho) tanti dubbi e poche certezze.
Sono un tecnico e per diletto studio le cose tecniche.
Dunque se c'è ... tecnica ... mi interessa, fintanto che non si trasforma in fumo.
E qui, sembrava avere già preso il fuoco.
Dunque ben vengano i portatori d'acqua.
Onestamente non amo inserire colori ... disegnare linee, legami ...
... perché richiedono tempo per elaborarli sia a livello di script,
sia poi ... come tempo di esecuzione.
In ultimo occupano moltissimo spazio sul monitor.
Cioè in tutto uno schermo ci sta un pronostico o poco più.
secondo me non ha nessun senso sommare degli Estratti.
Altra cosa è la Statistica che è una branca della Matematica.
In quanto tale è Scienza.
Dunque se, io volessi inserire i numeri in uno schema,
probabilmente lo potrei fare.
Questo per esempio è uno schemino (ino, ino, ino / pure "sbagliato")
Però ... contiene molta più ricerca statistica (molto diversa dalla tua)
Ma ti chiedo: I numeri seguono uno schema ?
E' diverso da quello dell'essere casuale ?
Le nuove Estrazioni ... ripetono i numeri che "aggiungiamo" allo schema ?
Io a differenza d'altri, NON CREDO fintanto che non c'è dimostrazione.
Mi spiace ma la Scienza si nutre di dubbi.
Ha (cioè ho) tanti dubbi e poche certezze.
Sono un tecnico e per diletto studio le cose tecniche.
Dunque se c'è ... tecnica ... mi interessa, fintanto che non si trasforma in fumo.
E qui, sembrava avere già preso il fuoco.
Dunque ben vengano i portatori d'acqua.
Onestamente non amo inserire colori ... disegnare linee, legami ...
... perché richiedono tempo per elaborarli sia a livello di script,
sia poi ... come tempo di esecuzione.
In ultimo occupano moltissimo spazio sul monitor.
Cioè in tutto uno schermo ci sta un pronostico o poco più.
Imaging
Advanced Member >PLATINUM<
Come anche le previsioni....
Zetrix
Advanced Premium Member
Joe vedi questo cruciverba..qua ci sono i fatti..vedi se gli altri li mettono questi cruciverba
nel forum..
[TO] [.. .. 33 .. 56] C. 1 Ambo [06/08/2022] [69.67.33.78.56]
39+39=78
a dato anche il terno 33 56 78
questo cruciverba a gia pagato ma si potrebbe provare la versione 2
del cruciverba..
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Sub Main
'
Dim ambata1(2),ambata2(2),ambata3(2),ambata4(2),calc(10),ruota(5),ruote(5),posta(1),poste(2)
Dim ambo1(4),ambo2(4),ambo3(4),ambo4(4),ambo5(4)
Dim r1,r2,r3
'
posta(1) = 1
poste(2) = 1
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 8
For r2 = r1 + 1 To r2
For r3 = r2 + 1 To r3
'
For p1 = 1 To 3
For p2 = p1 + 1 To p2
For p3 = p2 + 1 To p3
'
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r1,p3)
'
d = Estratto(es,r2,p1)
e = Estratto(es,r2,p3)
'
f = Estratto(es,r3,p1)
g = Estratto(es,r3,p2)
h = Estratto(es,r3,p3)
'---------------------
'
q1 = Fuori90(a + h)
q2 = Fuori90(d + e)
'
x = Fuori90(q1 - b)
y = Fuori90(q2 - c)
'
z = Fuori90(q1 - f)
w = Fuori90(q2 - g)
'
n1 = Distanza(a,b)
n2 = Distanza(b,c)
n3 = Distanza(a,d)
n4 = Distanza(c,e)
n5 = Distanza(d,x)
n6 = Distanza(f,g)
n7 = Distanza(e,h)
n8 = Distanza(g,h)
'
If q1 = q2 Then
'
ambata1(1) = y
ambata2(1) = z
'
ambo1(1) = x
ambo1(2) = y
'
ambo2(1) = z
ambo2(2) = w
'
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
'
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruote(4) = 11
ruote(5) = 12
'
ReDim MatriceCaselleDaEvid(10,1)
' 1
MatriceCaselleDaEvid(1,0) = r1 '
MatriceCaselleDaEvid(1,1) = p1 '
' 2
MatriceCaselleDaEvid(2,0) = r1 '
MatriceCaselleDaEvid(2,1) = p2 '
' 3
MatriceCaselleDaEvid(3,0) = r1 '
MatriceCaselleDaEvid(3,1) = p3 '
' 4
MatriceCaselleDaEvid(4,0) = r2 '
MatriceCaselleDaEvid(4,1) = p1 '
' 5
MatriceCaselleDaEvid(5,0) = r2 '
MatriceCaselleDaEvid(5,1) = p3 '
' 6
MatriceCaselleDaEvid(6,0) = r3 '
MatriceCaselleDaEvid(6,1) = p1 '
' 7
MatriceCaselleDaEvid(7,0) = r3 '
MatriceCaselleDaEvid(7,1) = p2 '
' 8
MatriceCaselleDaEvid(8,0) = r3 '
MatriceCaselleDaEvid(8,1) = p3 '
'----------------------------------------------------
ReDim MatriceLegami(10,3)
' 1
MatriceLegami(1,0) = r1 '
MatriceLegami(1,1) = p1 '
MatriceLegami(1,2) = r1 '
MatriceLegami(1,3) = p3 '
' 2
MatriceLegami(2,0) = r1 '
MatriceLegami(2,1) = p1 '
MatriceLegami(2,2) = r3 '
MatriceLegami(2,3) = p1 '
' 3
MatriceLegami(3,0) = r3 '
MatriceLegami(3,1) = p1 '
MatriceLegami(3,2) = r3 '
MatriceLegami(3,3) = p3 '
' 4
MatriceLegami(4,0) = r1 '
MatriceLegami(4,1) = p2 '
MatriceLegami(4,2) = r3 '
MatriceLegami(4,3) = p2 '
' 5
MatriceLegami(5,0) = r1 '
MatriceLegami(5,1) = p3 '
MatriceLegami(5,2) = r3 '
MatriceLegami(5,3) = p3 '
' 6
MatriceLegami(6,0) = r2 '
MatriceLegami(6,1) = p1 '
MatriceLegami(6,2) = r2 '
MatriceLegami(6,3) = p3 '
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
'
'
Scrivi
Scrivi("" & Format2(a) & Space(2) & Format2(b) & Space(2) & Format2(c) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(d) & Space(3) & Space(3) & Format2(e) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(y) & Space(2) & Format2(x) & ""),0,0,2,3,6
Scrivi("" & Space(2) & Format2(h) & "") & "",0,0,1,3,6
Scrivi
'
Scrivi
Scrivi("" & Format2(a) & Space(2) & ""),0,0,1,3,6
Scrivi("" & Format2(w) & Space(2) & Format2(z) & "") & "",0,1,2,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(d) & Space(3) & Space(3) & Format2(e) & ""),0,1,1,3,6
Scrivi("" & Space(4) & "" & Space(4) & "") & " ",0,1,1,3,6
Scrivi("" & Format2(f) & Space(2) & Format2(g) & Space(2) & Format2(h) & ""),0,1,1,3,6
Scrivi
'
ImpostaGiocata 1,ambata1,ruota,posta,k,0
ImpostaGiocata 2,ambata2,ruota,posta,k,0
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k,2
ImpostaGiocata 2,ambo2,ruote,poste,k,2
Gioca es,1,,1
Scrivi
End If
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 Sub
Zetrix
Advanced Premium Member
Alien il programma SpazioLight lo scarichi in questo link l'ultima versione e 1.0.38
per aggiornare le estr devi usare un listato script che e stato creato apposta
con SpazioMetria per aggiornare le estr in formato csv..
ho diversi script scritti con SpazioLight..
per aggiornare le estr devi usare un listato script che e stato creato apposta
con SpazioMetria per aggiornare le estr in formato csv..
ho diversi script scritti con SpazioLight..
InstallazioneUtente_v_1_0_38
MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.
www.mediafire.com
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Class Script
Sub Main
Dim Ru(1),Nu(10),E(10) As Integer
Dim ini , fin As Integer
Dim r,k,z,p As Integer
Dim T() As String
ini = EstrazioniArchivio - 0
fin = EstrazioniArchivio
'Scrivi ("Quadro Ritardi su Ruote alla Estrazione fine di : " & GetInfoEstrazione(fin) ,1)
T = {" E1"," E2"," E3"," E4"," E5"," E6"," E7"," E8"," E9","E10"}
Call InitTabella(T,ColoreGiallo,,,ColoreBlu,,"Dubai")
For k = 1 To 9
Ru(1) = 1
'For p = 1 To 10
'For z = 1 To 90 Step - 1
'Nu(p) = EstrattoRitardo(fin,r,z,p)
E(k) = (k*9)
'Next
'Next
T = {E(1),E(2),E(3),E(4),E(5),E(6),E(7),E(8),E(9),E(10)}
Call AddRigaTabella(T,ColoreVerde,,,ColoreBianco,,"Dubai")
'------------ colore celle e righe --------------------------------------------
For x As Integer = 1 To 10
Call SetColoreCellaRighe(0,ColoreBlu,ColoreBianco) ' colora 1 riga
Call SetColoreCellaRighe(1,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(2,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(3,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(4,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(5,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(6,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(7,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(8,ColoreBlu,ColoreBianco)
Call SetColoreCellaRighe(9,ColoreBlu,ColoreBianco)
'If k Then Call SetColoreCellaRighe,ColoreRosso,ColoreBianco )
'If k Then Call SetColoreCellaRighe,ColoreVerde,ColoreBianco )
Next
'------------------------------------------------------------------------------
Next
Call CreaTabella()
End Sub
End ClassZetrix
Advanced Premium Member
Codice:
Class Script
Sub Main
Dim rp(),z ,y,elencoRit() As Integer
y = InputBox("Quale numero vuoi tabellare ?",,0)
Dim aNomi () As String = {"",y}
Dim aColori () As Integer = {0 , ColoreBlu}
Dim nu(1),ruota As Integer
nu(1) = y
For ruota = 1 To 11
Dim aSerie (20,1)
ReDim rp(20)
Dim inizio As Integer = 1
Dim fine As Integer = EstrazioniArchivio
For z = 1 To 20 ' ultimi 20 ritardi prec
rp(z) = SerieRitardo(nu,ruota,1,fine,,,inizio )
fine = fine -(rp(z) + 1)
Next
'Scrivi ("Numero : " & nu(1) & " : " & NomeRuota(ruota,False) & " Sequenza Ritardi : " & StringaNumeri(rp) )
For x As Integer = 0 To 20
ReDim Preserve elencoRit(x)
elencoRit(x) = rp(x)
aSerie (x ,0) = x
aSerie (x ,1) = elencoRit(x)
Next
'DisegnaGrafico (aSerie ,aNomi ,aColori ,DataEstrazione(EstrazioniArchivio),,TipoGrafico_Linea)
DisegnaGrafico (aSerie ,aNomi ,aColori ,NomeRuota(ruota,False),,TipoGrafico_Column )
'DisegnaGrafico (aSerie ,aNomi ,aColori ,DataEstrazione(EstrazioniArchivio),,TipoGrafico_Torta )
'DisegnaGrafico (aSerie ,aNomi ,aColori ,DataEstrazione(EstrazioniArchivio),,TipoGrafico_Barre )
Scrivi ("Numero " & nu(1) & " : " & NomeRuota(ruota,False) & " Serie Ritardi : " & StringaNumeri(rp) )
Next
End Sub
End Classnota se leggete alla fine dello script End Class vuol dire che sono di SpazioLight
se leggete invece End Sub allora i listati sono per SpazioMetria..
Ultima modifica:
Zetrix
Advanced Premium Member
estrazione di martedi 16 agosto
questa e una estrazione con numeri ordinati..
come si applica il calcolo del numero mancante..?
vediamo un esempio di gioco sulla ruota di BA..
50.....(+7).....57.....(+5).....62.....(+7).....69.....(+5)......74
50....(+12).....62 ..........57...(+12)....69.......... 62...(+12)....74
il numero mancante e 50
il programma calcola tutte le sequenze di combinazioni...
con algoritmi semplici a quelli piu complessi...
con carta e penna non li potete fare..
questo e un algoritmo semplice..
Imaging prova a giocare l'ambata 50 a BA..
posso inserire cinque estratti su una ruota qualsiasi e il programma
calcola tutte le sequenze di combinazioni..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
