X Mike58

[solare]

Ciao, ho trovato questo metodo in rete è possibile fare uno script per verificare l'efficacia ?
Grazie

LA MIGLIORE TECNICA ESISTENTE!!!!..

TRATTASI DI UN VERO E PROPRIO GIOIELLO TECNICO LUDOLOGICO, INERENTE IL GIOCO DEL LOTTO.

SOLTANTO DUE PERSONE IN ITALIA A QUANTO MI RISULTA, HANNO IDEATO PARALLELAMENTE, QUESTA TEORIA CHE MESSA IN PRATICA, DA DEGLI ESITI SCONVOLGENTI!

QUALCUNO FORSE, RICORDERA' LA "TECNICA DELL'OROLOGIO"?

POSTAI UN PAIO DI PREVISIONI DELLA SUDDETTA RITENENDO CHE NON FOSSE IL CASO (PER I MOTIVI SPIEGATI A SUO TEMPO) DI RENDERLA PUBBLICA, PERO', VISTO CHE LA SECONDA PERSONA NON HA TENUTO FEDE AGLI ACCORDI PRESI E CIOE' METTENDO IN COMMERCIO LE PREVISIONI DI QUESTA TECNICA CHE AL TEMPO BATTEZZAI COME "ONEROM", RITENGO ORA, CHE SIA IL CASO DI METTERLA A DISPOSIZIONE DI TUTTI!

PREMETTO CHE, DOPO LE DOVUTE SPIEGAZIONI TECNICHE DI SVOLGIMENTO, VI SONO DEGLI ACCORGIMENTI CHE SOLO CHI L'HA IDEALIZZATA NE E'AL CORRENTE MA QUESTO NN SIGNIFICA CHE VOGLIO CELARE PARTE DI ESSA.

GLI ACCORGIMENTI DI CUI SOPRA, NN POSSONO ESSERE SCRITTI IN QUANTO IMPOSSIBILI DA DESCRIVERE.
SI TRATTA DI SVILUPPI CHE VARIANO DI ESTREAZIONE IN ESTRAZIONE E FANNO PARTE DELLA TEORIA DELLA LEGGE DEL TERZO E QUINDI NON POSSIBILI AD UNA DESCRIZIONE CORRETTA ( CI VORREBBE UN LIBRO COME SPAZIO).

LA TEORIA E L'ITER:

1°)TROVAMI 2 COPPIE (AMBI) NN NECESSARIAMENTE UNITI,ISOTOPI O CAVOLATE VARIE,CHE ABBIANO IN COMUNE, AD INCROCIO, LA MEDESIMA DIFFERENZA CICLOMETRICA.

COME ESEMPIO TI POSSO DIRE CON RUOTE E NUMERI A CASO; FIRENZE 1-37 E ROMA 28 E 64. DISTANZA INCROCIATA 27.

METTILI IN QUADRATURA:

1+64= 65

37+28= 65

ORA RADDOPPIA LA SOMMA COMUNE:
65X2= 130-90= 40

ADESSO COMPLEMENTA A 90 LA SOMMA COMUNE ED IL SUO DOPPIO:

90-65= 25 (A)

90-40= 50 (B)

A+B CIOE' 25+50= 75 (K-2)AMBATA SECONDARIA

75+45= 30 (K-1) AMBATA PRINCIPALE

ADESSO CHE HAI TROVATO I CAPIGIOCO E SAI CHE "A" E "B", SONO I PRIMI DUE ABBINAMENTI, TI RESTA SOLO DA TROVARE I RIMANENTI 2 ABBINAMENTI E CIOE':

"A"= 25+45=70 (3° ABBINAMENTO)

"B"= 50+45= 5 (4°ABBINAMENTO)

LA PREVISIONE SI COMPLETA NEL SEGUENTE MODO:

K-2... 30

AMBI SECCHI: 30-25; 30-70; 30-5; 30-50.

CINQUINA PER AMBO E SORTI SUPERIORI:

75-5-50-25-70.

ANCHE SENZA GLI ACCORGIMENTI INERENTI LA LEGGE DEL TERZO, QUESTA TECNICA, DA UNA SORTITA DI AMBO MOLTO ELEVATA NEL CICLO DI 20 ESTRAZIONI E MOLTE MENO ESTRAZIONI D'ATTESA CON LE REGOLE DESCRITTE.

A CARTA E PENNA CI HO IMPIEGATO DEGLI ANNI, MA SO CHE ALL'INTERNO DI QUESTO FORUM CI SONO PERSONE MOLTO IN GAMBA CHE CON L'AIUTO DI PROGRAMMI APPOSITI, RIESCONO A SVOLGERE DELLE STATISTICHE PERFETTE.

MI RIVOLGO ANCHE A QUESTI BRAVI STATISTICI, FACENDO LORO NOTARE CHE NELLA TEORIA, NON CREDO ESISTA ANCORA UN PROGRAMMA CHE SIA IN GRADO DI FARE UNA STATISTICA TENENDO CONTO DELLA LEGGE DEL TERZO.


PER ORA E' TUTTO MA SE QUALCUNO, RILEVA UNA CONDIZIONE, SONO DISPONIBILE A FARE UNA VERIFICA E A METTERE A DISPOSIZIONE GLI ACCOGIMENTI DOVUTI.
NON HO MOLTO TEMPO PURTOPPO PER DEDICARMI AL FORUM QUINDI SE RISPONDO IN MODO TARDIVO, NON VE LA PRENDETE.
A PRESTO

 

[franca46]

ciao solare

enplein ha trattato questo argomento , con relativo listato

Sub main()
Dim ruote(2),n(4),amb(1),ab1(2),ab2(2),ab3(2),ab4(2),lg(5),nn(1),nr(6),nu(6)
Dim posta(1),poste(2),poste1(3)
posta(1)=1
poste(2)=1
poste1(2)=1.50:poste1(3)=.50
colpi=12 '<<-- colpi di gioco
co=0
ColoreTesto 2 : Scrivi String (75,"="): ColoreTesto 0  
ColoreTesto 1 : Scrivi " La Teoria dell'orologio con ambi ripetuti di ONEROM BY ENPLEIN" ,1 : ColoreTesto 0
ColoreTesto 2 :Scrivi String (75,"=") : ColoreTesto 0
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
Messaggio DataEstrazione (es)
For r1= 1 To 9
      For p1= 1 To 4  : For p2=p1+1 To 5
      a1=Estratto (es,r1,p1) : a2=Estratto(es,r1,p2)
      sa=Fuori90 (a1+a2)
                       For r2=r1+1 To 10
                               For p3= 1 To 4  : For p4=p3+1 To 5
                      b1=Estratto(es,r2,p3) : b2=Estratto(es,r2,p4)
                      db=Distanza (b1,b2) : sb=Fuori90 (b1+b2)
                       If (a1=b1 And a2=b2) Or (a1=b2 And a2=b1) And sa=sb Then
                     
                     
'ITER
so=sa
sc=Fuori90 (sa+sb):na=90-so:nb=90-sc
k2=Fuori90 (na+nb) : k1=Diametrale (k2)
nc=Diametrale (na):nd=Diametrale (nb)
amb(1)=k1
ab1(1)=k1:ab1(2)=na:ab2(1)=k1:ab2(2)=nb
ab3(1)=k1:ab3(2)=nc:ab4(1)=k1:ab4(2)=nd
lg(1)=k2:lg(2)=na:lg(3)=nb:lg(4)=nc:lg(5)=nd
nr(1)=k1:nr(2)=k2:nr(3)=na:nr(4)=nb:nr(5)=nc:nr(6)=nd
ruote(1)=r1
ruote(2)=r2
co=co+1
ColoreTesto 1 : Scrivi String (45,"-")
Scrivi DataEstrazione(es,1),1
Scrivi SiglaRuota(r1)&" "&StringaEstratti (es,r1) &_
" ["& Format2(a1)&" e "& Format2(a2)&"] "&"  Somma "& Format2 (sa)&_
" Pos. "&p1&"^ "&p2&"^ ",1
Scrivi SiglaRuota(r2)&" "&StringaEstratti (es,r2) &_
" ["& Format2(b1)&" e "& Format2(b2)&"] "& "  Somma "& Format2 (sb)&_
" Pos. "&p3&"^ "&p4&"^ ",1
Scrivi String (45,"-")&"n° Giocata "&co,1 : ColoreTesto 0
'------------inizio impostazione gioco
ImpostaGiocata 1,amb,ruote,posta,colpi,1
ImpostaGiocata 2,ab1,ruote,poste,colpi,2
ImpostaGiocata 3,ab2,ruote,poste,colpi,2
ImpostaGiocata 4,ab3,ruote,poste,colpi,2
ImpostaGiocata 5,ab4,ruote,poste,colpi,2
ImpostaGiocata 6,lg,ruote,poste1,colpi,3

Gioca es
                                     
                              End If
                                                       Next : Next
                      Next
              Next : Next
      Next
Next
Scrivi : Scrivi "Casi Rilevati validi "& CInt (co),1
ScriviResoconto
End Sub

vedi se è ciò che cerchi

buon pomeriggio

 

[Mike58]

Grazie Franca, per l'aiuto e l'intervento e un grazie anche ad Emplein per la stesura dello script.

 

[solare]

Grazie Franca46 e un grazie anche ad Enplein