figura Pentagona

[genlotto]

quote:Originally posted by lottosenior

Cara dulce,
ecco la traduzione dal francese.
Di fatto conferma anche grazie alla punteggiatura, (in particolare ai punto e virgola)la mia decifrazione.
Ci sono in più rispetto alle versioni italiane, l'indicazione delle estrazioni, ma purtroppo non ci sono i numeri di partenza per poter fare una verifica.
Comunque, sia io che Cebino abbiamo fatto qualche modesta vincita, anche se è ancora presto per cantare vittoria. La prudenza è sempre d'obbligo.

<center>SPIEGAZIONE DELLA FIGURA PENTAGONA

Che è stata aggiunta, nell’anno 1755, dallo stampatore per l’aumento di questo libro, così come la si vede qui.</center>
<center>**************************</center>
Vi ho promesso , miei cari lettori, nella mia prefazione dell’anno scorso, di darvi quest’anno,1755, un metodo matematico per tentare la fortuna nelle frequenti estrazioni delle lotterie.
Ho voluto farne anch’io qualche prova in quelle che si estraggono qui , che per la verità, mi hanno causato qualche perdita; perché nella prima che feci alla lotteria di Parma, del 5 gennaio 1754, non ci vinsi che un semplice estratto, n° 26; replicai alla lotteria di Mantova, del 17 gennaio, e lì vinsi due estratti e un ambo sui numeri che vi sortirono, 38, 80.
Volli provare per la terza volta alla lotteria di Venezia, che fu estratta il 7 febbraio 1754; felicemente per me, la paura di non vincere non mi impedì di caricare i miei 5 numeri, come li sentii nominare da tutti, 7, 34, 29, ed ebbi una vincita di mille scudi.
Eccovi la prova evidente di ciò che ho l’onore di dirvi con la spiegazione della suddetta figura.
Avendomi un mio amico pregato di spiegargli le virtù della Figura Pentagona, gliela disegnai come la si vede, per rispondere alle sue richieste e gli feci notare che scrivendo i numeri estratti come indicato nella detta figura, si comincia con l’ultimo estratto e lo si piazza nell’angolo A; poi nell’angolo B, il quarto estratto; ancora, nell’angolo D, il terzo; nell’angolo C, il secondo estratto; e infine nell’angolo superiore E , il primo estratto.
Fatto ciò, gli aggiunsi che si doveva sommare il numero A con i corrispondenti B e C; poi il numero C con i corrispondenti A e D; poi il numero C con il corrispondente D, e con la somma A, B; poi ancora il numero D, con il numero corrispondente C, e con questa ultima somma dividendo, e moltiplicando i prodotti col numero superiore E; si troveranno sempre tre numeri, che molto spesso danno il terno, l’ambo, l’estratto.

TRADUZIONE dal francese a cura di Belgius (lottosenior).

Per la figura, vedere i miei vecchi file EXCEL trasmessi al forum.
Comunque, con le formule fatte l'immagine non serve.

A = 5°es..................corrisp. A = 2
B = 4°es..................corrisp. B = 9
C = 2°es..................corrisp. C = 7
D = 3°es..................corrisp. D = 34
E = 1°es

1° fattore K1 = A + corr.A + corr.B = A +2 +9
2° fattore K2 = C + corr.A + corr.D = C +2 +34
3° fattore K3 = C + corr.D + A + B = C +34 +A +B

divisore K4 = D + corr.C moltiplicatore = E

N1 = K1*E/K4 N2 = K2*E/K4 N3 = K3*E/K4


Decifrato da Belgius (lottosenior) - 02 maggio 2010

Purtroppo , con tutta la mia scienza, non ho ancora imparato ad allegare le immagini.
Ciao,
Giuseppe.

Hasta la victoria siempre

..sintesi elaborato...

----------------------------------------------------------------
Ruota di > Milano 68 56 14 31 74
mar 29.06.2010  [8240]
  G  1:  MA      65.44.05   Mi    1/9    
     in corso (1° su 9)
----------------------------------------------------------------
Ruota di > Napoli 46 73 18 72 88
mar 29.06.2010  [8240]
  G  1:  MA      53.47.74   Na    1/9    
     in corso (1° su 9)
----------------------------------------------------------------
Ruota di >

 

[lottosenior]

Caro gen8,
se scarichi il programma EXCEL
puoi verificare tutte le giocate che vuoi.
C'è anche quello di Francesco pfca che comprende sia la mia figura pentagona che l'ambata determinata di Salva 57.
Puoi scaricarlo da megaupload.
E' più facile da aggiornare anche se l'artchivio estrazioni parte solo dal 02/01/2010.
Devo fargli un ritocchino e poi col permesso di Francesco penso di pubblicarlo come lavoro comune.
Direi che è uno dei pochissimi esempi sul forum di un programma migliorato da 2 utenti in collaborazione.

Anzi, direi 3 utenti in coillaborazione, visrto che tu hai realizzato il listato Lottodesk.
Spero tu lo voglia condividere qui o su altri forum specializzati anche per consentire eventuali miglioramenti.

Ciao,
Giuseppe.




Hasta la victoria siempre

 

[lottosenior]

quote:Originally posted by cebino

quote:Originally posted by lottosenior

In pole position per Armageddone nuovi interessati.
Ciao,
Giuseppe.


Hasta la victoria siempre

Giuseppe a cosa ti riferisci hai delle news sul software ??

Stai facendo la statistica ???
ciao

Dalla Risposta di genlotto capisco che ha realizzato lo script per produrre il listato che ha postato qui.
Sper lo metta a disposizione anche per eventuali miglioramenti da parte di chi sai.

Ciao,
Giuseppe.


Hasta la victoria siempre

 

[genlotto]

quote:Originally posted by lottosenior

Dalla Risposta di genlotto capisco che ha realizzato lo script per produrre il listato che ha postato qui.
Sper lo metta a disposizione anche per eventuali miglioramenti da parte di chi sai.

Ciao,
Giuseppe.

Hasta la victoria siempre

Ciao Giuseppe, certo ke lo metto a disposizione di tutti!!

'Figura Pentagona
'http://forum.lottoced.com/topic.asp?TOPIC_ID=117040&whichpage=2
'Lottosenior - 03/07/2010
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(1)=1
poste(2)=1

m="Figura Pentagona"
ri = InputBox ("Scrivi la data GG/MM/AAAA per il periodo da esaminare.",m,"01/01/2010")
im=CInt(InputBox("Da quale estrazione iniziamo ?","Indice Mensile",1))
k=CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",12))

For n=PrimaSuccessiva(ri) To EstrazioneFin
  If Indicemensile(n)=im Then 
     Messaggio "elab. del "&dataestrazione(n)&" [ by Genlotto ]"
     For r= 1 To 10 
       ruote(1)=r
       a=Estratto(n,r,5) 
       b=Estratto(n,r,4)
       c=Estratto(n,r,2)
       d=Estratto(n,r,3)
       e=Estratto(n,r,1)
       crA=2 :crB=9 :crC=7 :crD=34
'-----------------------------------
	 aa=(a+crB+crC) :bb=(c+2+34) 
	 cc=(c+34+a+b) :dd=e :ee=d+crC
	 nu1=Fuori90 ((aa*dd)/ee)
	 nu2=Fuori90 ((bb*dd)/ee)
	 nu3=Fuori90 ((cc*dd)/ee)
Scrivi "----------------------------------------------------------------" 
ColoreTesto 2 :Scrivi "Ruota di > "&Left(NomeRuota(r),10)&" "&Cint(E)& " "&Cint(C)&_
" "&Cint(D)&" "&Cint(B)&" "&Cint(A),1 :coloretesto 0
'------------------------------------------------------------------------
	 numeri1(1)=nu1 :numeri1(2)=nu2 :numeri1(3)=nu3
	 ImpostaGiocata 1,numeri1,ruote,poste,k
	 Gioca n
     Next
   End If
Next 
ScriviResoconto
End Sub

.. buona serata a tutti!!
Gen[8]

 

[lottosenior]

L'estrazione del 22 ha pagato con 2 ambate in posizione determinata l'attesa dell'ambo e del terno.
Continuo la giocata parallela su 6 ruote che finora si è ripagata con le determinate quasi sempre a colpo.
Su 5 giocate ne ho azeccate 4 e questa doppia.
Questa cabala è davvero straordinaria.
Sei terzine (una per ruota) da portare avanti fino al terno.
1 euro per determinata in 1°, 1euro per determinata in 2°, 40 cent per ambo, 10 cent per terno. Totale 15 euro.
Una determinata ne paga quasi 18.
Finora è andata bene.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[lottosenior]

l'unico metodo che vede sortire spesso 1 numero su 3 in pochi colpi.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[Debora73]

Buongiorno,
gentilmente avrei bisogno di un aiuto,non riesco ad aggiornare le estrazioni,ho anche letto la procedura,ma niente da fare[:I]
sono andata su lotto scientifico,ho scaricato le estrazioni lotto DBF e le ho salvate in un'unica cartella

adesso non capisco perchè i file risultano aggiornati mentre il programma no?

Grazie

 

[lottosenior]

Prova a leggere per esempio la formula nella casella B5.
Dalla riga in alto di EXCEL che si apre quando vai sulla casella con la formula, selezionala e premi i tasti <Ctrl> <C> per copiare il contenuto.
poi incollalo con <Ctrl> <V> in un file di word, di wordpad oppure blocco note e stampalo.
Puoi anche incollarlo in un messaggio su lottoced.
Da lì possiamo capire se c'è un link sbagliato al file estrazioni e vedere di correggerlo.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[lottosenior]

quote:Originally posted by lottosenior

Prova a leggere per esempio la formula nella casella B5.
Dalla riga in alto di EXCEL che si apre quando vai sulla casella con la formula, selezionala e premi i tasti <Ctrl> <C> per copiare il contenuto.
poi incollalo con <Ctrl> <V> in un file di word, di wordpad oppure blocco note e stampalo.
Puoi anche incollarlo in un messaggio su lottoced.
Da lì possiamo capire se c'è un link sbagliato al file estrazioni e vedere di correggerlo.
Ricordati anche di eseguire ogni volta il programma lottodbf per estrarre e sovrascrivere il file estratti.dbf aggiornato.
Infatti, estrazioni.xls si aggiorna collegandosi appunto a questo estratti.dbf
Ciao,
Giuseppe.


Hasta la victoria siempre

Hasta la victoria siempre

 

[Debora73]

Ciao Giuseppe,
ho appena scaricato estrazioni dbf,ho estratto i file nella stessa cartella e li ho sovrascritti

ho provato,come mi hai detto a copiare la casella B5,dovrebbe essere questa

Grazie

 

[lottosenior]

Non quella, ma la formula che leggi quando punti col mouse la casella.
Il contenuto della formula lo puoi leggere nella riga bianca in alto che segue la casella delle coordinate.
Comunque, dal messaggio che vedo nella schermata, dovresti ri-abilitare la funzione di aggiornamento automatico dei collegamenti.
Probabilmente il problema sta tutto lì.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[Debora73]

Ciao Giuseppe,
potresti spiegarmi come riabilitare la funzione di aggiornamento automatico.
Grazie

 

[lottosenior]

quote:Originally posted by Debora73

Ciao Giuseppe,
potresti spiegarmi come riabilitare la funzione di aggiornamento automatico.
Grazie

iL PERCORSO è [Strumenti]--> [Opzioni] --> [Calcolo]
ti apparirà una schermata in cui potrai impostare il dato che ti interessa.
Putroppo in ced non so come allegare immagini.
Anch'io ho i miei limiti.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[lottosenior]

Questo metodo rendeva piuttosto bene coi determinati a ruota e con gli ambi a tutte.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[lottosenior]

ECCO LO SCRIPT di Genlotto riveduto e corretto da Belgius

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(10)
'poste(1) = 1
'poste(2) = 1
'poste(3) = 0.5
poste(6) = 1
poste(8) = 1
'poste(10) = 1
m = "Figura Pentagona"
ri = CInt(InputBox("Quante estrazionivuoi controllare?","Controlla",10))
jp = CInt(InputBox("Dopo quante estrazioni parte il gioco?","Gioco",0))
k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",6))
st = CInt(InputBox("Sorte di interruzione ?","Sorte",1))
Scrivi "[FIGURA PENTAGONA by Belgius - script by Genlotto Rev.Belgius]"

For n = EstrazioneFin - ri To EstrazioneFin
For r = 1 To 10
ruote(1) = r
a = Estratto(n,r,5)
b = Estratto(n,r,4)
c = Estratto(n,r,2)
d = Estratto(n,r,3)
e = Estratto(n,r,1)
crA = 2 :crB = 9 :crC = 7 :crD = 34
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
aa =(a + crB + crC) :bb =(c + 2 + 34)
cc =(c + 34 + a + b) :dd = e :ee = d + crC
nu1 = Fuori90((aa*dd)/ee)
nu2 = Fuori90((bb*dd)/ee)
nu3 = Fuori90((cc*dd)/ee)
Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
ColoreTesto 2 :Scrivi "Ruota di > " & Left(NomeRuota(r),10) & " " & CInt(E) & " " & CInt(C) & _
" " & CInt(D) & " " & CInt(B) & " " & CInt(A),1 :ColoreTesto 0
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
numeri1(1) = nu1 :numeri1(2) = nu2 :numeri1(3) = nu3
ImpostaGiocata 1,numeri1,ruote,poste,k,st,jp
Gioca n
Next
Next
ScriviResoconto
Scrivi "[FIGURA PENTAGONA by Belgius - script by Genlotto Rev.Belgius]"

End Sub

Ciao,
Giuseppe.

Hasta la victoria siempre

 

[lottosenior]

Oggi con lo script aggiornato potete studiare meglio questo metodo forte.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[lottosenior]

Vai in pole position

Hasta la victoria siempre

 

[lottosenior]

Sempre valido.


Hasta la victoria siempre

 

[lottosenior]

Numeri ad alta probabilità da verificare con vostre convergenze.
Ciao,
Giuseppe.


Hasta la victoria siempre

 

[sniper]

Ciao Giuseppe, allora io ho questo problema che ti posto intanto la B5 contiene : =CERCA.VERT($A5;[estrazioni.xls]Estratti!$B$2:$BF$8287;$A$4;FALSO)
Ho aperto in contemporanea sia estrazioni.xls che naturalmente Nuovissimapentangona.xls.

1) Apro estrazioni.xls
2) Apro Nuovissimapentangona.xls
3) Mi visualizza il messaggio che Nuovissimapentangona.xls contiene delle macro e quindi se voglio attivarle (rispondo di SI)
4) Mi vien fuori il messaggio "La cartella di lavoro aperta contiene collegamenti automatici ad altre cartelle. Aggiornare la cartella di lavoro corrente con le ..... ?" (rispondo di SI)
5) Viene fuori un altra finestra dove mi dice FILE NON TROVATO e quindi mi dice di cercare il file "24 MAX RITARDI".
6 ) CLICCO SU ANNULLA E Tutto il foglio si riempie (nelle celle ) di #### #### ###

Preciso inoltre che la voce "aggiorna dati" è disattivata (nel caso dovesse servire a qualcosa)
Come risolvere il problema ?