l'ambo vertibile e i -1 +1, di occhidigiada58

« Older Newer »

maxma.62

Posted on 12/2/2011, 00:18

Il metodo è qui:

https://superlotto.blogfree.net/?t=3125225

lo script è questo, spero sia esatto:

CODICE

Sub main()
Dim nu(3),nu1(4),nu2(4),ruote(2),ruota(1),posta(1),poste(4)
posta(1)=5:poste(2)=3:poste(3)=3:poste(4)=3

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8236) '8144
k=InputBox ("per quanti colpi?","colpi di gioco",14)

ini=ce
fin=EstrazioneFin
Scrivi "l'ambo vertibile e i -1 +1 di occhidigiada58 (script by maxma62)",1
Scrivi String(76,"=")
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)

For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)
If a=Vert(b) Then

cn=0
For xx=1 To 5
u=Estratto (es,r1,xx)
If u<>a And u<>b Then
cn=cn+1
nu(cn)=u
End If
Next

n1=Fuori90(nu(1)+1)
n2=(nu(1)-1)
If n2=0 Then n2=90
n3=Fuori90(nu(2)+1)
n4=(nu(2)-1)
If n4=0 Then n4=90
n5=Fuori90(nu(3)+1)
n6=(nu(3)-1)
If n6=0 Then n6=90

For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
c=Estratto(es,r2,p3)
If c=n1 Or c=n2 Or c=n3 Or c=n4 Or c=n5 Or c=n6 Then
If p1=p3 Or p2=p3 Then 'iso

If c=nu(1)+1 Or c=nu(2)+1 Or c=nu(3)+1 Then n7=Fuori90(a+1):n8=Fuori90(b+1) 'ambate
If c=nu(1)-1 Or c=nu(2)-1 Or c=nu(3)-1 Then n7=Abs(a-1):n8=Abs(b-1)'ambate

casi=casi+1:Scrivi String(58,"=")&" script by maxma62",1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi "numeri rimanenti [ "&format2(nu(1))&"."&format2(nu(2))&"."&format2(nu(3))&" ]"
Scrivi "numeri +1 [ "&format2(n1)&"."&format2(n3)&"."&format2(n5)&" ]"
Scrivi "numeri -1 [ "&format2(n2)&"."&format2(n4)&"."&format2(n6)&" ]"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] trovato [ "&format2(c)&" ] in "&(p3)&"^ pos."
Scrivi String(63,"-")&" caso n° " & casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0

nu1(1)=n7:nu1(2)=n8
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
nu2(1)=n7:nu2(2)=n8
nu2(3)=a:nu2(4)=b
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es

End If
End If 'iso
Next
End If
Next
End If
Next:Next
Next:Next
Scrivi String(58,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "l'ambo vertibile e i -1 +1 di occhidigiada58 (script by maxma62)",1
End Sub

ciao,
max

occhidigiada58.

Posted on 12/2/2011, 07:07

grazie amoreeeeeeeeeeeeeeeee

mmmmmhhhhh c'e' un errore amo'!!!

occhidigiada58.

Posted on 12/2/2011, 07:48

l'isotopia deve essere su piu' ruote ma devono essere entrambi o -1 o +1!!! altrimenti avremo una caterba di previsioni
infatti a seconda del numero isotopo si somma e si sottrae 1 per avere le ambate poi si abbinano i vertibili di ricerca e i numeri isotopi trovati se sono due o 1 diepende dalla ricerca!!!!!

sab 15.01.2011 [ Ro - 12.46.69.34.43 ] [ 34.43 ] in 4^/5^ pos.
numeri rimanenti [ 12.46.69 ]
numeri +1 [ 13.47.70 ]
numeri -1 [ 11.45.68 ]
sab 15.01.2011 [ Na - 29.70.56.21.68 ] trovato [ 68 ] in 5^ pos.
sab 15.01.2011 [ Ve - 18.69.53.65.45 ] trovato [ 45 ] in 5^ pos.
sab 15.01.2011 [ Ca - 09.79.87.68.86 ] trovato [ 68 ] in 4^ pos.
Ve na ca recupero ro
33.42
33.34.43
42.34.43
33.45.68
42.45.68
sortisce a ve 33.34

poi guarda questa
sab 05.02.2011
[ Ca - 67.13.81.63.31 ] [ 13.31 ] in 2^/5^ pos.
numeri rimanenti [ 67.81.63 ]
numeri +1 [ 68.82.64 ]
numeri -1 [ 66.80.62 ]
sab 05.02.2011 [ Mi - 87.66.85.08.68 ] trovato [ 68 ] in 5^ pos.
sab 05.02.2011 [ Ro - 23.64.22.49.73 ] trovato [ 64 ] in 2^ pos.
come vedi due isotopie +1
ca mi recupero ro
14.32
14.13.31
32.13.31
14.68.64
32.68.64<---questa la trovo fa vo lo sa

comunque se nn si puo' avere queste possibilita' con lo script, a me va bene anche per la ricerca mi snellisce il tempo, tanto non ci sono grandi calcoli da fare!!! smack smack

maxma.62

Posted on 12/2/2011, 13:17

Sempre a mettere i puntini sulle i

Trovare almeno 1 di 6 numeri vengono fuori tante combinazioni, può capitare che i 6 numeri vengono fuori in tutte le 10 ruote, poi giochi in tutte queste? Si può fare che esca solo 1 di 6 su tutte le ruote, così forse diminuiscono i casi.
Ciao,
max

maxma.62

Posted on 12/2/2011, 13:41

Aggiungendo al precedente:

-----------------------------------------------------------------------
..
..
Dim rtt(1),rtn(1),nn(6)
rtt(1)=11:rtn(1)=12
..
..
..
nn(1)=n1
nn(2)=n2
nn(3)=n3
nn(4)=n4
nn(5)=n5
nn(6)=n6
prt=SerieFreq (es,es,nn,rtt,1):prn=SerieFreq (es,es,nn,rtn,1)
If (prt+prn)=1 Then
..
..
..
End if
..
..
..
-----------------------------------------------------------------------

ti trova solo 1 dei 6 numeri su tutte le ruote e la nz.
I casi si riducono tantissimo, dall'inizio dell'anno:
con solo 1 numero 2 casi
con tutti i numeri 34 casi.
Max

occhidigiada58.

Posted on 12/2/2011, 15:13

amo' nn sono i puntini sulle i , il metodo l'ho studiato in tutte le sfaccettature controllato e ricontrollato, con un numero solo.. con una ruota.... con tre, l'ho proprio rivoltato!!
e c'e' maggiore esito negativo riducendo ruote e abbinamenti, fidati!!!
mentre come dico io e' l'ideale!!!nn puoi dire al listato:
"We ciccio me ne devi trovare solo due negativi o due positivi e solo su due ruote!!!"
se non si puo' e' un altro paio di maniche!!

maxma.62

Posted on 12/2/2011, 22:26

Di meglio non so fare se non che le ruote di ricerca non siano che 1 o 2 o 3.
Così è in 3 ruote, è esatto?:

CODICE

========================================================== script by maxma62
mar 25.01.2011 [ Ge - 41.61.14.38.24 ] [ 41.14 ] in 1^/3^ pos.
----------------------------------------------------------------------------
numeri rimanenti [ 61.38.24 ]
numeri +1 [ 62.39.25 ]
numeri -1 [ 60.37.23 ]
----------------------------------------------------------------------------
mar 25.01.2011 [ Ca - 60.69.53.79.12 ] trovato [ 60 ] in 1^ pos.
mar 25.01.2011 [ Pa - 37.02.75.21.25 ] trovato [ 37 ] in 1^ pos.
mar 25.01.2011 [ Nz - 25.62.27.78.24 ] trovato [ 25 ] in 1^ pos.
--------------------------------------------------------------- caso n° 49
mar 25.01.2011 [8330]
G 1: M 40.13 Ca Ge Pa Nz 1/14
M 13 su Ge 1° colpo [8331/27.01.2011]
I1
G 2: ATQ 40.13.41.14 Ca Ge Pa Nz 8/14
A 14.41 su Pa 5° colpo [8335/05.02.2011]
A 14.41 su Pa 7° colpo [8337/10.02.2011]
in corso (8° su 14)
G 3: M 40.13 Ca Ge Pa Nz 1/14
M 13 su Ge 1° colpo [8331/27.01.2011]
I1
G 4: ATQ 40.13.41.14 Ca Ge Pa Nz 8/14
A 14.41 su Pa 5° colpo [8335/05.02.2011]
A 14.41 su Pa 7° colpo [8337/10.02.2011]
in corso (8° su 14)
G 5: M 42.15 Ca Ge Pa Nz 1/14
M 15 su Ge 1° colpo [8331/27.01.2011]
I1
G 6: ATQ 42.15.41.14 Ca Ge Pa Nz 8/14
A 14.41 su Pa 5° colpo [8335/05.02.2011]
A 15.14.41 su Pa 7° colpo [8337/10.02.2011]
T 15.14.41 su Pa 7° colpo [8337/10.02.2011]
in corso (8° su 14)
========================================================== script by maxma62

ciao,max

occhidigiada58.

Posted on 12/2/2011, 22:50

ha individuato due -1 e un + 1
vanno bene solo i meno 1, e la previsione e' 40.13.14.41 e 40.13.37.25 ho pensato una cosa,forse ci vogliono due listati, uno per i meno uno e un altro per i piu' uno, credo sia l'unica soluzione!!!

infatti a pa terzo colpo ambo 40.37, quinto colpo 14.41 settimo colpo 14.41

7 replies since 12/2/2011, 00:18 344 views