X DJNOMADE...........

[DjNomade]

che estrazione e ruota hai scelto per il calcolo?


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

Ciao ruota 4 (genova) estrazione ultima del mese (0)

SUERTE !!!!

 

[DjNomade]

Si artemisio pero' vedi che c'è pure un 87


34 2

87 2

Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

87 non 82.....dalle due cinquine che escono mettendo il 34 e 87,si hanno in comune 15 e 17.......MHHHHHHHHH....(penso....)

SUERTE !!!!

 

[DjNomade]

e 15- 17 fu'!!!!!!!!!!!!!!!!!!!!!!!!

Grandeeeeee artemisio!!!!!!



«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

Ragazzi non ho ancora capito nulla (ho poco tempo al momento) ma......... COMPLIMENTI

Blackmore

 

[Roby]

UUUHHHHHHHHH !!!!!!!!!grazie NOMADE !!!!!Sara' solo fortuna?Ripetiamo allora....vediamo che esce.........grazie Ritchie.......

SUERTE !!!!

 

[DjNomade]

Azz...a palermo c'era il codice 84 che dava il terno stasera

il problema era ricavarlo... ma come???

sab 04.06.2011 [ Pa - 45.42.86.80.03 ]

da sommare agli estratti
il Codice Moda rintracciato con piu presenze 84

sab 04.06.2011 [8386]
G 1: ATQC 39.36.80.74.87 Pa 1/9
A 36.39.80 su Pa 1° colpo [8387/07.06.2011]
T 36.39.80 su Pa 1° colpo [8387/07.06.2011]
in corso (1° su 9)

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

allora NOMADE.........ti ho' fatto venire il mal di testa e'?

SUERTE !!!!

 

[Zagor]

Ho il mal di testa pure io , ma la cosa è interessante. Complimenti ad entrambi.

Un saluto e buona giornata.

Mauro

"Non datemi un pesce , ma insegnatemi a pescare"

 

[DjNomade]

Scusa non ho capito cos'è che vuoi modificare?
c'è gia la scelta ruota e prende in considerazione l'ultime 2 estrazioni
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

si, scusa,fra bimbo e moglie e cervello che da' i numeri....ma ...domanda.......se trovo 3 mode devo far girare 3 volte lo script...non c'e' modo di farlo in un solo passaggio?

SUERTE !!!!

 

[DjNomade]

ColoreTesto 1 :Scrivi String(37,32)&"CODICI MODA VERTICALI- IL DIAVOLO IN BOTTIGLIA",1


Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0

Sub main()
Redim So(90), Fr(256), NT(25),ruote(2)
rs=CInt(InputBox("Quante estrazioni si vogliono analizzare ? (0=ultima estrazione) (1=penultima estrazione) (2=terzultima estrazione)","DjNomade",0))
r=CInt(InputBox("SCEGLI RUOTA ","DjNomade",1))

Fin = EstrazioneFin -rs: R1=r : R2=r

Nu = Split("0."& StringaEstratti (Fin-1,R1),".")
Mu = Split("0."& StringaEstratti (Fin,R2),".")
Scrivi DataEstrazione (Fin-1)& " " &SiglaRuota (R1)& " " & StringaNumeri(Nu)
Scrivi DataEstrazione (Fin)& " " &SiglaRuota (R2)& " " & StringaNumeri(Mu)
Scrivi "CODICI MODA VERTICALI FORMULA 90-A+B=C"
For A = 1 To 5
For B = 1 To 5
kk = kk+1 : NT(KK) = Fuori90 (((90-Eval(Nu(a))) + Eval(Mu(b)))) ' 1° Operazione differenza tra estrazioni
Scrivi " 90 -" & Format2 (NU(a)) &" + "& Format2 ( MU(b)) &"=" & Format2 (NT(KK))
Next
Next
ColoreTesto 2 : Scrivi StringaNumeri (NT) : ColoreTesto 0
I = StringaNumeri (NT)

NI = InputBox(_
Nt(01) & "." & Nt(02) & "." & Nt(03) & "." & Nt(04) & "." & Nt(05) & Chr(13) &_
Nt(06) & "." & Nt(07) & "." & Nt(08) & "." & Nt(09) & "." & Nt(10) & Chr(13) &_
Nt(11) & "." & Nt(12) & "." & Nt(13) & "." & Nt(14) & "." & Nt(15) & Chr(13) &_
Nt(16) & "." & Nt(17) & "." & Nt(18) & "." & Nt(19) & "." & Nt(20) & Chr(13) &_
Nt(21) & "." & Nt(22) & "." & Nt(23) & "." & Nt(24) & "." & Nt(25) & Chr(13) ,_
"INSERISCI 25 NUMERI",I)

NG = Split("0."& NI,".")
ColoreTesto 2 : Scrivi StringaNumeri (NG) : ColoreTesto 0

For N1=1 To 24
'For N2=N1+1 To 25
K=Fuori90(Eval(NG(N1))+0) : Co = Co+1' 2° Operazione somma tra estrazioni
So(K) = K : Fr(So(K))=Fr(So(K))+1
'Scrivi Format2(NG(N1))
'Next
Next
Scrivi

Scrivi " CONTATE " & CO & " COPPIE" : Scrivi

For N = 1 To 90
Scrivi Format2 (N) & " " & Fr(So)
CO = Co - FR(SO)
Tot= Tot + Fr(So)
Next

Scrivi : If Co = 0 Then Scrivi "Ok !"
ColoreTesto 1 :Scrivi "Da un listato di J-Gio91 adattato da DjNomade",1


Scrivi

ColoreTesto 2 :Scrivi String(37,32)&"CODICI MODA VERTICALI- IL DIAVOLO IN BOTTIGLIA",1


Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
Scrivi
Dim numeri1(10)



Dim posta(5)
posta(2) = 3 ' < - - - posta per ambo
posta(3) = 1.1 ' < - - - posta per terno
posta(4) = 0.8 ' < - - - posta per quaterna
posta(5) = 0.1 ' < - - - posta per cinquina


k = 9' < - - - Colpi di gioco



es= EstrazioneFin -rs

moda1=CInt(InputBox("INSERIRE NUMERO MODA1 ","DjNomade",0))
moda2=CInt(InputBox("INSERIRE NUMERO MODA2 ","DjNomade",0))
moda3=CInt(InputBox("INSERIRE NUMERO MODA3 ","DjNomade",0))
ruote(1)=r' Ruota di verifica esito

Scrivi " " &DataEstrazione(es,1)&" [ "&siglaRuota(r)& " - "&StringaEstratti(es,r)&" ]",1
Scrivi
Scrivi " da sommare agli estratti ",1
Scrivi "il Codice Moda-1 rintracciato con piu presenze "&Format2(moda1),1
Scrivi
Scrivi " da sommare agli estratti ",1
Scrivi "il Codice Moda-2 rintracciato con piu presenze "&Format2(moda2),1
Scrivi
Scrivi " da sommare agli estratti ",1
Scrivi "il Codice Moda-3 rintracciato con piu presenze "&Format2(moda3),1
Scrivi
numeri1(1)=Fuori90(Estratto(es,r,1)+moda1)
numeri1(2)=Fuori90(Estratto(es,r,2)+moda1)
numeri1(3)=Fuori90(Estratto(es,r,3)+moda1)
numeri1(4)=Fuori90(Estratto(es,r,4)+moda1)
numeri1(5)=Fuori90(Estratto(es,r,5)+moda1)


ImpostaGiocata 1,numeri1,ruote,posta,k


numeri1(1)=Fuori90(Estratto(es,r,1)+moda2)
numeri1(2)=Fuori90(Estratto(es,r,2)+moda2)
numeri1(3)=Fuori90(Estratto(es,r,3)+moda2)
numeri1(4)=Fuori90(Estratto(es,r,4)+moda2)
numeri1(5)=Fuori90(Estratto(es,r,5)+moda2)


ImpostaGiocata 2,numeri1,ruote,posta,k


numeri1(1)=Fuori90(Estratto(es,r,1)+moda3)
numeri1(2)=Fuori90(Estratto(es,r,2)+moda3)
numeri1(3)=Fuori90(Estratto(es,r,3)+moda3)
numeri1(4)=Fuori90(Estratto(es,r,4)+moda3)
numeri1(5)=Fuori90(Estratto(es,r,5)+moda3)


ImpostaGiocata 3,numeri1,ruo

 

[Roby]

OHHH non ti sarai mica arrabbiato!?
Grazie.

SUERTE !!!!

 

[DjNomade]

Mi hai anticipato... lo stavo proprio finendo...


«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

arte, l' estrazione può essere 1 a piacimento ?
Una volta trovata la moda, si somma all' estrazione presa in esame, ma se le mode sono 2 ?

Blackmore

 

[DjNomade]

Se le mode son 2 formi due cinquine,e l'estrazione puoi scegliere quella che vuoi
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

quote:Originally posted by DjNomade

Se le mode son 2 formi due cinquine,e l'estrazione puoi scegliere quella che vuoi
Ciauz

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

Scusa dj, ho guardato meglio, e ho visto che le estrazioni devono essere 2 consecutive giusto?
Ruota a scelta, ma i colpi di gioco?

Blackmore

 

[Roby]

Ciao Ritchie, l'autore indica 9 colpi anche se come hai visto possono essere meno,un ambo secco a ruota e un terno non' e'affatto male e tutti alla prima verifica.Se facendo girare lo script con 2 mode ti ritrovi numeri nelle cinquine ripetuti quelli sono i piu' probabili x ambate e ambi.
Sto' facendo ulteriori verifiche,poi ci ragguagliamo.
Ciao.

SUERTE !!!!

 

[Roby]

quote:Originally posted by DjNomade

Azz...a palermo c'era il codice 84 che dava il terno stasera

il problema era ricavarlo... ma come???

sab 04.06.2011 [ Pa - 45.42.86.80.03 ]

da sommare agli estratti
il Codice Moda rintracciato con piu presenze 84

sab 04.06.2011 [8386]
G 1: ATQC 39.36.80.74.87 Pa 1/9
A 36.39.80 su Pa 1° colpo [8387/07.06.2011]
T 36.39.80 su Pa 1° colpo [8387/07.06.2011]
in corso (1° su 9)

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

Teoricamente puoi fare la stessa operazione per tutte le ruote,se ne trovi una con piu' codici e numeri ripetuti nelle cinquine che ne scaturiscono e' piu' papabile.Bisognerebbe capire che correlazione c'e' tra le operazioni di quella estrazione(distanze particolari?somme particolari?)per riprova si potrebbe rintracciare un'altra cinquina con caratteristiche uguali a quella del terno magari su altra ruota vedere che succede......(e' solo un'ipotesi...)


SUERTE !!!!