AIUTO AGLI SCRIPTOMANI.......!

[Ciro]

Salve ragazzi,

Sarebbe possibile con uno Script trovare due isotopi successivi?

Es.:

GIOVEDì 9/6/2011

CA 1° POSIZIONE 11
PA 1° POSIZIONE 11

SABATO 11/6/2011

PA 1° POSIZIONE 71
VE 1° POSIZIONE 71

A ME INTERESSA SOLO PA CHE IN DUE ESTRAZIONI CONSECUTIVE FA CADERE NUOVAMENTE UN ISOTOPO

QUINDI IL LISTATO IN QUESTO CASO DIREBBE:

9-11/6/2011

PA 11.71

L'ISOTOPO TROVATO SULLA STESSA RUOTA IN DUE ESTRAZIONI SUCCESSIVE DEVE TROVARSI NELLA STESSA POSIZIONE, ALTRO ESEMPIO:

GIOVEDì 14/4/2011

FI 2° POSIZIONE 51
RM 2° POSIZIONE 51

SABATO 16/4/2011

BA 2° POSIZIONE 75
RM 2° POSIZIONE 75

IN QUESTO CASO IL LISTATO DIREBBE:

14-16/4/2011

RM 51.75

E GIOCHEREBBE IL 36 A RM PER 4-5 COLPI
OPPURE AGGIUNGEREBBE AL 36 LA DIFFERENZA MATEMATICA DEI DUE NUMERI (75 MENO 51 = 24)

SE POI SI PUO' ANCHE AGGIUNGERE LA DIFFERENZA MATEMATICA SAREBBE UN GRAN REGALO

POI VEDIAMO CHE ESCE FUORI

PROVIAMO ANCHE A GIOCARE L'AMBO A TUTTE RICAVATO DALLA SOMMA E LA DIFFERENZA MATEMATICA

NEI DUE ESEMPI :

36.24

60.82

GRAZIE

 

[Roby]

Ciao, c'è uno script simile postato da Ainos in questo Topic
http://forum.lottoced.com/topic.asp?TOPIC_ID=133924&whichpage=2
Ps: MI RACCOMANDO "NON LASCIARE" COMMENTI IN QUEL TOPIC

Blackmore

 

[DjNomade]

Ciauz , puoi essere piu chiaro nel fare i calcoli per mettere i numeri in gioco?
ad esempio il 36 da dove esce? e l'82?
Grazie


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

 

[Enplein]

quote:NEI DUE ESEMPI :

36.24

60.82

Ciao DjNomade, se ho capito bene ecco lo sviluppo:

1° esempio 11-71
Somma 11+71=82
Diff. 71-11=60

2° esempio 51-75
Somma 51+75=126-90=36
Diff. 75-51=24

Ciao, Enplein.

 

[DjNomade]

Azz.. vero enplein..!!!!!

allora salvo errori e omissioni....


ColoreTesto 1
Scrivi "==================================DOPPI NUMERI RIPETUTI IN ESTRAZIONI CONSECUTIVE============================= ",1
Scrivi "=============================================== by C i r o ========================================= ",1
Scrivi "============================================Listato DjNomade",1
Scrivi
ColoreTesto 0

Sub main()
Dim k(2)
Dim ruota(2),ruote(2)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=2
tmp=CInt (InputBox ("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp=CInt (InputBox ("Per quanti colpi di gioco ?","COLPI",12))
co=0
ini=EstrazioneFin -tmp
For es=ini To EstrazioneFin
Messaggio (es)
For r1=1 To 10
For r2=r1+1 To 12
If r2 =11 Then r2 =12
For r3=1 To 10
For r4=r3+1 To 12
If r4=11 Then r4 =12
For p1=1 To 5
n1=Estratto(es-1,r1,p1)
n2=Estratto(es-1,r2,p1)
n3=Estratto(es,r3,p1)
n4=Estratto(es,r4,p1)
If (n1)=(n2) And (n3)=(n4) And (r1=r3 Or r1=r4 Or r2=r3 Or r2=r4) Then
co=co+1
Scrivi String(70,"="): ColoreTesto 0
Scrivi NomeRuota(r1)&"-"& NomeRuota (r2) &_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi NomeRuota(r3)&"-"& NomeRuota (r4) &_
" Numero isotopo "& n3 &"-"& n4 &" estratto al "&p1&"° posto",1

Scrivi DataEstrazione(es-1,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es-1,r1)&" ] ",1
Scrivi DataEstrazione(es-1,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es-1,r2)&" ]",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r3)& " - "&StringaEstratti(es,r3)&" ] ",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r4)& " - "&StringaEstratti(es,r4)&" ]",1
Scrivi : ColoreTesto 0
ruota(1)=11
ruote(1)=r1
If r1=r3 Then ruote(1)=r1
If r1=r4 Then ruote(1)=r1
If r2=r3 Then ruote(1)=r2
If r2=r4 Then ruote(1)=r2

k(1)=n1
k(2)=n3
ImpostaGiocata 1, k, ruote, posta,clp,3


k(1)=Fuori90(n1+n4)
k(2)=Abs(n1-n4)
ImpostaGiocata 2, k, ruote, poste,clp,3

k(1)=n1
k(2)=Fuori90(n1+n4)
ImpostaGiocata 3, k, ruote,poste,clp,3

k(1)=n1
k(2)=Abs(n1-n4)
ImpostaGiocata 4, k, ruote,poste,clp,3

k(1)=n3
k(2)=Fuori90(n1+n4)
ImpostaGiocata 5, k, ruote,poste,clp,3

k(1)=n3
k(2)=Abs(n1-n4)
ImpostaGiocata 6, k, ruote,poste,clp,3
Gioca es

End If
Next
Next : Next
Next
Next
Next
Scrivi : Scrivi "Casi Riscontrati n° "& CInt (co)
ScriviResoconto
End Sub



Ciauz


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

 

[Ciro]

Grazie DjNomade,

Appena verifico un po di casi vediamo che conviene giocare, cmq il secondo ambo del listato sembra essere il migliore per gioco a tutte, ad esempio quello del 24/5 era il 6.40 che al verificarsi della condizione era gia presente a BA che poi risortisce al 9° colpo sempre su BA

Al Momento quello generato dalla condizione di PA è il 60.82 gia presente anch'esso a GE, quindi credo possa ripetersi.

Grazie