R
Roby
Guest
SU IMPOSIZIONE DI LUIGI "QUALCUNO" HA APERTO IL NUOVO POST
BUON DIVERTIMENTO A TUTTI
claudio
BUON DIVERTIMENTO A TUTTI
claudio
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.
- Stato
elephantbig
Advanced Member >PLATINUM<
CLAUDIO ogni suo desiderio è un ordine 
L
LuigiB
Guest
AHAHAHAHAHHAHAHHAHAHHAHAHHAHAHHAH
AHAAHHAHHAHAHHAHAHHAHHAHAHHAHAHHA
Elephant ..muoio dal ridere ....!! Ciao !
AHAAHHAHHAHAHHAHAHHAHHAHAHHAHAHHA
Elephant ..muoio dal ridere ....!! Ciao !
R
Roby
Guest
ciao LuigiB
come si potrebbe fare per realizzare questo metodo spaziometrico???
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
come si potrebbe fare per realizzare questo metodo spaziometrico???
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
L
LuigiB
Guest
ciao Rubino , sinceramente non ne ho idea ...
R
Roby
Guest
Uploaded with ImageShack.us[/img]
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
elephantbig
Advanced Member >PLATINUM<
Ah AH AH Rubino ciao,
Non starai progettando una piramide per il Faraone LUIGIDONOSOR ????
E' ancora presto
Ancora il faraone deve dare all'umanità
Ciao Rubino
Rubino ciao,Non starai progettando una piramide per il Faraone LUIGIDONOSOR ????
E' ancora presto
Ancora il faraone deve dare all'umanità
Ciao Rubino
salve a tutti.
Prima di tutto devo ringraziare Luigi per aver messo a disposizione il programma; è veramente eccezionale
Grazie di cuore.
A tal proposito stavo guardando i vari script e, quando ho lanciato quello riguardante il 10 e lotto per le combinazioni più frequenti,
nella statistica riguardante l'estrazione frequente, l'ultima estrazione rimane fissa al 22 gennaio. C'è qualcosa che non va oppure? scusate ma non sono pratica di script.
Vi posto lo script:
Sub Main
Dim aComb
Dim nClasse
Dim nGaranzia
Dim k,j
Dim sNumeri
Dim idComb
Dim nInizio,nFine
Dim idValoreDaAna
Dim sValoreUsato
Dim TipoArchivio
ReDim aCombMigliori(100,4)
TipoArchivio = ScegliArchivio
nClasse = ScegliClasse
nGaranzia = ScegliGaranzia
idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
Call ImpostaArchivio10ELotto(TipoArchivio)
nFine = EstrazioneFin
nInizio = nFine - 500
If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
Call SviluppaComb(aComb,nClasse)
Call Messaggio("Statistica combinazioni in corso ")
For k = 1 To UBound(aComb)
Call AnalisiComb(aComb,k,nClasse,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
If k Mod 20 = 0 Then
Call Messaggio("Statistica combinazioni in corso " & k)
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For
End If
Next
Call Messaggio("")
ReDim aTitoli(4)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
Call Scrivi("Archivio " & Iif(TipoArchivio = 1,"10 e lotto","10 e lotto 5 minuti"))
Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di " & sValoreUsato)
Call Scrivi("Range analizzato " & GetInfoEstrazioneDL(nInizio) & " fino a " & GetInfoEstrazioneDL(nFine))
Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
Call Scrivi
Call InitTabella(aTitoli)
For k = 1 To UBound(aCombMigliori)
sNumeri = ""
idComb = aCombMigliori(k,4)
For j = 1 To nClasse
sNumeri = sNumeri & Format2(aComb(idComb,j)) & "."
Next
ReDim ADati(4)
ADati(1) = Left(sNumeri,Len(sNumeri) - 1)
ADati(2) = aCombMigliori(k,1)
ADati(3) = aCombMigliori(k,2)
ADati(4) = aCombMigliori(k,3)
Call AddRigaTabella(ADati)
Next
Call CreaTabella
Else
MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
"e che bisogna scegliere quale valore statistico considerare per " & _
"alimentare la lista delle prime 100 Combinazioni "
End If
End Sub
Sub AnalisiComb(aComb,idComb,nClasse,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
Dim k,j
ReDim aNum(nClasse)
Dim Rit
Dim RitMax
Dim Freq
Dim Valore
For k = 1 To nClasse
aNum(k) = aComb(idComb,k)
Next
Call StatisticaFormazioneDL(aNum,Garanzia,Rit,RitMax,0,Freq,nInizio,nFine)
Select Case idValoreDaAna
Case 1
Valore = Freq
Case 2
Valore = Rit
Case 3
Valore = RitMax
End Select
For k = 1 To 90'UBound(aCombMig)
If Valore >= aCombMig(k,0) Then
For j = UBound(aCombMig) To(k + 1) Step - 1
aCombMig(j,0) = aCombMig(j - 1,0)
aCombMig(j,1) = aCombMig(j - 1,1)
aCombMig(j,2) = aCombMig(j - 1,2)
aCombMig(j,3) = aCombMig(j - 1,3)
aCombMig(j,4) = aCombMig(j - 1,4)
Next
aCombMig(k,0) = Valore
aCombMig(k,1) = Freq
aCombMig(k,2) = Rit
aCombMig(k,3) = RitMax
aCombMig(k,4) = idComb
Exit For
End If
Next
End Sub
Sub SviluppaComb(aComb,Classe)
Dim k
ReDim aNum(90)
For k = 1 To 90
aNum(k) = k
Next
aComb = SviluppoIntegrale(aNum,Classe)
End Sub
Function ScegliClasse()
Prima di tutto devo ringraziare Luigi per aver messo a disposizione il programma; è veramente eccezionale
Grazie di cuore.A tal proposito stavo guardando i vari script e, quando ho lanciato quello riguardante il 10 e lotto per le combinazioni più frequenti,
nella statistica riguardante l'estrazione frequente, l'ultima estrazione rimane fissa al 22 gennaio. C'è qualcosa che non va oppure? scusate ma non sono pratica di script.
Vi posto lo script:
Sub Main
Dim aComb
Dim nClasse
Dim nGaranzia
Dim k,j
Dim sNumeri
Dim idComb
Dim nInizio,nFine
Dim idValoreDaAna
Dim sValoreUsato
Dim TipoArchivio
ReDim aCombMigliori(100,4)
TipoArchivio = ScegliArchivio
nClasse = ScegliClasse
nGaranzia = ScegliGaranzia
idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
Call ImpostaArchivio10ELotto(TipoArchivio)
nFine = EstrazioneFin
nInizio = nFine - 500
If nClasse > 0 And nGaranzia > 0 And nGaranzia <= nClasse And idValoreDaAna > 0 Then
Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
Call SviluppaComb(aComb,nClasse)
Call Messaggio("Statistica combinazioni in corso ")
For k = 1 To UBound(aComb)
Call AnalisiComb(aComb,k,nClasse,nGaranzia,aCombMigliori,nInizio,nFine,idValoreDaAna)
If k Mod 20 = 0 Then
Call Messaggio("Statistica combinazioni in corso " & k)
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For
End If
Next
Call Messaggio("")
ReDim aTitoli(4)
aTitoli(1) = "Combinazione"
aTitoli(2) = "Frequenza"
aTitoli(3) = "Ritardo"
aTitoli(4) = "RitardoMax"
Call Scrivi("Archivio " & Iif(TipoArchivio = 1,"10 e lotto","10 e lotto 5 minuti"))
Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nGaranzia)
Call Scrivi("La seguente lista mostra le prime 100 combinazioni in base al valore di " & sValoreUsato)
Call Scrivi("Range analizzato " & GetInfoEstrazioneDL(nInizio) & " fino a " & GetInfoEstrazioneDL(nFine))
Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
Call Scrivi
Call InitTabella(aTitoli)
For k = 1 To UBound(aCombMigliori)
sNumeri = ""
idComb = aCombMigliori(k,4)
For j = 1 To nClasse
sNumeri = sNumeri & Format2(aComb(idComb,j)) & "."
Next
ReDim ADati(4)
ADati(1) = Left(sNumeri,Len(sNumeri) - 1)
ADati(2) = aCombMigliori(k,1)
ADati(3) = aCombMigliori(k,2)
ADati(4) = aCombMigliori(k,3)
Call AddRigaTabella(ADati)
Next
Call CreaTabella
Else
MsgBox "Selezionare la classe di sviluppo e la garanzia , " & _
"si ricorda che la garanzia non puo essere maggiore della classe di sviluppo " & _
"e che bisogna scegliere quale valore statistico considerare per " & _
"alimentare la lista delle prime 100 Combinazioni "
End If
End Sub
Sub AnalisiComb(aComb,idComb,nClasse,Garanzia,aCombMig,nInizio,nFine,idValoreDaAna)
Dim k,j
ReDim aNum(nClasse)
Dim Rit
Dim RitMax
Dim Freq
Dim Valore
For k = 1 To nClasse
aNum(k) = aComb(idComb,k)
Next
Call StatisticaFormazioneDL(aNum,Garanzia,Rit,RitMax,0,Freq,nInizio,nFine)
Select Case idValoreDaAna
Case 1
Valore = Freq
Case 2
Valore = Rit
Case 3
Valore = RitMax
End Select
For k = 1 To 90'UBound(aCombMig)
If Valore >= aCombMig(k,0) Then
For j = UBound(aCombMig) To(k + 1) Step - 1
aCombMig(j,0) = aCombMig(j - 1,0)
aCombMig(j,1) = aCombMig(j - 1,1)
aCombMig(j,2) = aCombMig(j - 1,2)
aCombMig(j,3) = aCombMig(j - 1,3)
aCombMig(j,4) = aCombMig(j - 1,4)
Next
aCombMig(k,0) = Valore
aCombMig(k,1) = Freq
aCombMig(k,2) = Rit
aCombMig(k,3) = RitMax
aCombMig(k,4) = idComb
Exit For
End If
Next
End Sub
Sub SviluppaComb(aComb,Classe)
Dim k
ReDim aNum(90)
For k = 1 To 90
aNum(k) = k
Next
aComb = SviluppoIntegrale(aNum,Classe)
End Sub
Function ScegliClasse()
R
Roby
Guest
ciao ElephantBig
se vuoi fare una lettura, a prima vista un po strana, ma poi può essere utile per la spaziometria.
scarica questo pdf.
basta mettere davanti il vuvuvu.
'''''istitutocintamani.org/libri/EGITTO_MISTERICO.pdf''''
[/URL]
Uploaded with ImageShack.us[/img]
[/URL]
Uploaded with ImageShack.us[/img]
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
se vuoi fare una lettura, a prima vista un po strana, ma poi può essere utile per la spaziometria.
scarica questo pdf.
basta mettere davanti il vuvuvu.
'''''istitutocintamani.org/libri/EGITTO_MISTERICO.pdf''''
Uploaded with ImageShack.us[/img]
Uploaded with ImageShack.us[/img]
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
L
LuigiB
Guest
ciao Pulsar ,grazie dei complimenti.
Per fare in modo che ti controlli sempre le ultime 500 estrazioni
cambia questa riga che coloro di rosso
nFine = EstrazioneFin
con questa colorata di verde
nFine = EstrazioniArchivioDL
poi fai rigirare lo script.
Per fare in modo che ti controlli sempre le ultime 500 estrazioni
cambia questa riga che coloro di rosso
nFine = EstrazioneFin
con questa colorata di verde
nFine = EstrazioniArchivioDL
poi fai rigirare lo script.
L
LuigiB
Guest
ho fatto un aggiornamento al programma , ciao a tutti !
Cla come va con gli script ?
Cla come va con gli script ?
grazie Luigi per la tempestiva risposta.
Ho effettuato la correzione, tutto ok grazie.
Nel precedente post avevo chiesto se fosse possibile fare uno script che genera il tabellone analitico del 10 e lotto 5min. Non mi rendo conto di quanto tempo possa richiedere...però sarebbe una gran cosa.
Comunque grazie
Ho effettuato la correzione, tutto ok
grazie.Nel precedente post avevo chiesto se fosse possibile fare uno script che genera il tabellone analitico del 10 e lotto 5min. Non mi rendo conto di quanto tempo possa richiedere...però sarebbe una gran cosa.
Comunque grazie
L
LuigiB
Guest
Ciao Pulsar , per tabellone analitico intendi quello che fa vedere tutti i numeri escludendo da ogni singola colonna quelli gia sortiti ?
si Luigi, il classico tabellone analitico che usiamo per le dieci ruote. Solo che qui ne abbiamo una con 20 numeri anzichè 5.
L'utilità a mio avviso sta in questo:
parliamo di estrazioni mooolto frequenti e di conseguenza anche i numeri hanno un'altissima frequenza. Ciò che è interessante è che, rispetto al lotto, i ritardi sono minimi e proprio l'individuazione immediata dei numeri non ancora usciti (che presentano un ritardo molto basso)li rende appetibili per la sortita a breve e contemporanea.
L'utilità a mio avviso sta in questo:
parliamo di estrazioni mooolto frequenti e di conseguenza anche i numeri hanno un'altissima frequenza. Ciò che è interessante è che, rispetto al lotto, i ritardi sono minimi e proprio l'individuazione immediata dei numeri non ancora usciti (che presentano un ritardo molto basso)li rende appetibili per la sortita a breve e contemporanea.
L
LuigiB
Guest
Ciao ecco lo script per il tab analitico a beneficio di tutti ...
Codice:
Sub Main
Dim TipoArchivio
Dim nFine,nInizio
Dim TipoLayout
TipoArchivio = ScegliArchivio
TipoLayout =ScegliLayOut
If TipoArchivio >0 And TipoLayout > 0 Then
Call ImpostaArchivio10ELotto(TipoArchivio)
nFine = EstrazioniArchivioDL
nInizio = nFine - 99
ReDim aEstr(100,21)
Call AlimentaQuadroEstr(nInizio,nFine,aEstr)
Call AzzeraNumeriUsciti(aEstr)
Call AlimentaTabella(aEstr ,TipoLayout)
End If
End Sub
Sub AlimentaTabella(aEstr ,TipoLayout)
ReDim aTitoli(4)
Dim k
Dim Ritardo
Dim nPres
' preimposto i titoli delle colonne
aTitoli(1) = " Data" & Space(20)
aTitoli(2) = " Ritardo " & Space(5)
aTitoli(3) = " Colonna " & Space(55)
aTitoli(4) = " Quantita " & Space(5)
' inizializzo la tabella
Call InitTabella(aTitoli,1,,2,5,"Courier New")
Ritardo = UBound(aEstr)
For k = 1 To UBound(aEstr)
nPres = GetQuaNumInCol(aEstr,k)
ReDim aValori(4)
aValori(1) = GetInfoEstrazioneDL(aEstr(k,1)) ' numero
aValori(2) = Ritardo
aValori(3) = GetColonnaString(aEstr,k)
aValori(4) = nPres
If TipoLayout = 1 Then
If nPres > 0 And nPres <= 2 Then
Call AddRigaTabella(aValori,Rosso_,,2,,"Courier New")
ElseIf nPres > 2 And nPres <= 5 Then
Call AddRigaTabella(aValori,Giallo_,,2,,"Courier New")
ElseIf nPres > 5 And nPres <= 10 Then
Call AddRigaTabella(aValori,Verde_,,2,,"Courier New")
ElseIf nPres > 10 And nPres <= 14 Then
Call AddRigaTabella(aValori,Magenta_,,2,,"Courier New")
ElseIf nPres > 14 And nPres <= 17 Then
Call AddRigaTabella(aValori,Blu_,,2,,"Courier New")
ElseIf nPres > 17 Then
Call AddRigaTabella(aValori, Ciano_,,2,,"Courier New")
Else
Call AddRigaTabella(aValori, ,,2,,"Courier New")
End If
Else
Call AddRigaTabella(aValori, ,,2,,"Courier New")
End If
Ritardo = Ritardo - 1
Next
Call CreaTabella()
End Sub
Function GetColonnaString(aEstr,id)
Dim k
Dim s
For k = 2 To 21
If aEstr(id,k) > 0 Then
s = s & Format2(aEstr(id,k)) & " "
Else
s = s & "-- "
End If
Next
GetColonnaString = s
End Function
Function GetQuaNumInCol(aEstr,id)
Dim k
Dim n
'n =0
For k = 2 To 21
If aEstr(id,k) > 0 Then
n = n + 1
End If
Next
GetQuaNumInCol = n
End Function
Sub AzzeraNumeriUsciti(aEstr)
Dim k,kk,j,jj
For k = 2 To UBound(aEstr)
For kk = k - 1 To 1 Step - 1
For j = 2 To 21
If aEstr(k,j) > 0 Then
For jj = 2 To 21
If aEstr(k,j) = aEstr(kk,jj) Then
aEstr(kk,jj) = 0
Exit For
End If
Next
End If
Next
Next
Next
End Sub
Sub AlimentaQuadroEstr(nInizio,nFine,aEstr)
Dim k,j,i
For k = nInizio To nFine
i = i + 1
aEstr(i,1) = k
For j = 1 To 20
aEstr(i,j + 1) = EstrattoDL(k,j)
Next
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "10 e lotto"
aVoci(1) = "10 e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli archivio") + 1
End Function
Function ScegliLayOut()
ReDim aVoci(1)
aVoci(0) = "Colora righe in funzione numeri"
aVoci(1) = "Non colorare"
ScegliLayOut= ScegliOpzioneMenu(aVoci,0,"Secegli opzione colore ") + 1
End Function
silop2005
Advanced Member >PLATINUM<
LuigiB, grazie per le modifiche apportate alla lotteria 10elotto 5minuti, hai fatto
più di quello che avevo suggerito (ripetizione del precedente), bravissimo.
Per le 23 estrazioni vecchie (dic/2010) che ti avevo scritto nell'altro post,
non è stato possibile inserirle o le posso inserire io manualmente?
Se si mi spieghi come fare ?
Ho visto nella funzione FORMAZIONI l'iconcina del lampo, a cosa serve ?[?]
Grazie
Saluti
Silop
grazie per le modifiche apportate alla lotteria 10elotto 5minuti, hai fattopiù di quello che avevo suggerito (ripetizione del precedente), bravissimo.
Per le 23 estrazioni vecchie (dic/2010) che ti avevo scritto nell'altro post,
non è stato possibile inserirle o le posso inserire io manualmente?
Se si mi spieghi come fare ?
Ho visto nella funzione FORMAZIONI l'iconcina del lampo, a cosa serve ?[?]
Grazie
Saluti
Silop
silop2005
Advanced Member >PLATINUM<
LuigiB,
volevo segnalarti che ho effettuato l'aggiornamento dopo l'ultima estrazione odierna (204 - 20/02/2011)
e il programma non ha caricato l'estrazione n. 190 - 20/02/2011 che è stata normalmente estratta,
come puoi vedere sul sito della lottomatica.
Ho rifatto di nuovo l'aggiornamento nel tentativo di attivare l'opzione RECUPERO ma niente, l'estrazione
n. 190 - 20/02/2011 non la legge nell'archivio la riporta a ZERO.
La riporta anche nella lista ELENCO NON VALIDE ….
………………………….
Questo è quello che stavo per comunicarti, poi …
… ho capito come fare per inserirla dal modulo ELENCO NON VALIDE all'archivio
e cosi l'ho inserita l'estrazione n. 190 - 20/02/2011, però nell'elenco generale dell'archivio
di lato all'estrazione riporta come (Id) indice progressivo ZERO e non il progressivo 14.448
Ritornando alle 23 estrazioni vecchie (del post precedente) se ti scrivo per ognuna dell'estrazione (ID) (data) (numero) (ora) e tu le inserisci nel modulo ELENCO NON VALIDE io dopo me le inserisco manualmente, come ho fatto con la 190 di sopra.
Che dici è possibile farlo?[?]
Grazie e scusa l'orario, ti auguro una buona notte.
Silop
volevo segnalarti che ho effettuato l'aggiornamento dopo l'ultima estrazione odierna (204 - 20/02/2011)
e il programma non ha caricato l'estrazione n. 190 - 20/02/2011 che è stata normalmente estratta,
come puoi vedere sul sito della lottomatica.
Ho rifatto di nuovo l'aggiornamento nel tentativo di attivare l'opzione RECUPERO ma niente, l'estrazione
n. 190 - 20/02/2011 non la legge nell'archivio la riporta a ZERO.
La riporta anche nella lista ELENCO NON VALIDE ….
………………………….
Questo è quello che stavo per comunicarti, poi …
… ho capito come fare per inserirla dal modulo ELENCO NON VALIDE all'archivio
e cosi l'ho inserita l'estrazione n. 190 - 20/02/2011, però nell'elenco generale dell'archivio
di lato all'estrazione riporta come (Id) indice progressivo ZERO e non il progressivo 14.448
Ritornando alle 23 estrazioni vecchie (del post precedente) se ti scrivo per ognuna dell'estrazione (ID) (data) (numero) (ora) e tu le inserisci nel modulo ELENCO NON VALIDE io
dopo me le inserisco manualmente, come ho fatto con la 190 di sopra.Che dici è possibile farlo?[?]
Grazie e scusa l'orario, ti auguro una buona notte.
Silop
elephantbig
Advanced Member >PLATINUM<
Grazie rubino, molto interessante.
leggerò con molto interesse
leggerò con molto interesse
R
Roby
Guest
ciao LuigiB
domanda solo per curiosità
creazione di uno strumento o funzione (bottone,iconina, qualcosa del genere)
[/URL]
Uploaded with ImageShack.us[/img]
domanda
prendiamo un punto preciso
il punto (c) che corrisponde ad un numero nel campo spaziometria
(vertice o centrale)
è possibile creare uno strumento che allargando a dx o sx (alto o basso) disegni automaticamente un quadrato
diciamo che lo spazio ipotetico (C) (E)
come nella figura è meta lato del quadrato</u>
quindi i 4 lati del quadrato sono lunghi 2 volte lo spazio (C)(E)
che io vado ad allargare in questo caso abbassando il cursore.
secondo passaggio, se ribaltiamo 2 volte il quadrato facendo
uguale il lato centrale in comune, otteniamo la stessa figura come disegnata nella jpeg.
i punti corrispondenti agli angoli ed il centrale diventano vertici
selezionati ed interessati ad una eventuale ricerca
[?][?]
per ora mi fermo qua:
buona giornata, la mia è già incominciata.
ciao
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
domanda solo per curiosità
creazione di uno strumento o funzione (bottone,iconina, qualcosa del genere)
Uploaded with ImageShack.us[/img]
domanda
prendiamo un punto preciso
il punto (c) che corrisponde ad un numero nel campo spaziometria
(vertice o centrale)
è possibile creare uno strumento che allargando a dx o sx (alto o basso) disegni automaticamente un quadrato
diciamo che lo spazio ipotetico (C) (E)
come nella figura è meta lato del quadrato</u>
quindi i 4 lati del quadrato sono lunghi 2 volte lo spazio (C)(E)
che io vado ad allargare in questo caso abbassando il cursore.
secondo passaggio, se ribaltiamo 2 volte il quadrato facendo
uguale il lato centrale in comune, otteniamo la stessa figura come disegnata nella jpeg.
i punti corrispondenti agli angoli ed il centrale diventano vertici
selezionati ed interessati ad una eventuale ricerca
[?][?]
per ora mi fermo qua:
buona giornata, la mia è già incominciata.
ciao
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 14 gennaio 2025Bari4125127355Cagliari5420483267Firenze7523681038Genova3327817064Milano6801648687Napoli4775451021Palermo5586335370Roma8878610607Torino7608236182Venezia2515492181Nazionale7010327807Estrazione Simbolotto
Bari
0714284531
