pronostici migliori con la giusta ricerca, help hel help

occhidigiada58.

Posted on 29/1/2011, 08:30

il listato nn trova tutte le condizioni!!!
mi spiego vengono a mancare tutte quelle condizioni in cui la somma e' si' isotopa ma sulla ruota antecedente,mi spiego con un esempio
mar 25.01.2011
Ve 68.70.10.15.46
Mi 31.66.84.25.50
quindi 25 piu diametrale in decina 20=45 diemetrale in decina 40
ambata 45
ambo 45.40
quartina
40.10.15.25
e questo riguarda il metodo originale di pace !!!

pero' cosi' avremo troppe condizioni....una marea e quasi tutte danno solo esito di ambata e nemmeno tanto celeri!!!
allora dobbiamo ridurre le condizioni quindi proporrei
ruote
gemelle
diametrali
consecutive
sempre che sia possibile!!!grazieeeeeeeeee

CODICE

Sub main()
' Listato da lones modificato occhidigiada58
'pronostici migliori con la giusta ricerca michele pace
Dim ruote(6),posta(1),amb(2),lg1(5),lg3(6),lg2(4),poste(3),ruota(2)
posta(1)=1:poste(2)=1:poste(3)=1
ce= CInt(InputBox(" quante estrazioni vuoi controllare? ","estrazioni",150))
k=14
ini=EstrazioneFin -ce
fin=EstrazioneFin
For es =ini To fin:Messaggio es
For r1=1 To 10
'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 Decina (a)=Decina (b) Then
For r2=1 To 10
'If r2=11 Then r2=12
If r2<>r1 And Distanza(r2,r1)=1 Or Distanza(r2,r1)=5 Or r2=11-r1 Then
x1=Estratto(es,r2,p1) : x2=Estratto(es,r2,p2) :so=Fuori90(a+b)
If x1=so Or x2=so Then
If x1=so Then q=p1 : c=x1
If x2=so Then q=p2 : c=x2

casi=casi+1:Scrivi String(70,"•"),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "& StringaEstratti(es,r1)&_
" ] "&format2(a)&" "&(p1)&"^ pos."&" "&format2(b)&" "&(p2)&"^ pos." &" Somma :"& Format2 (so)
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "& StringaEstratti(es,r2)&_
" ] "&format2(c)&" "&(q)&"^ pos."
Scrivi String(52,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2
amb(1)=Fuori90 (DiametraleD(c)+c)
amb(2)=Vert(Fuori90 (DiametraleD(c)+c) )
lg1(1)=amb(1):lg1(2)=amb(2): lg1(3)=DiametraleD(c)
lg3(1)=amb(1):lg3(2)=amb(2):lg3(3)=a: lg3(4)=b :lg3(5)=c
ImpostaGiocata 1,amb,ruote,posta,k
ImpostaGiocata 2,lg1,ruote,poste,k
ImpostaGiocata 3,lg3,ruote,poste,k
Gioca es
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Scrivi "pronostici migliori con la giusta ricerca michele pace ",1
End Sub

ora e' perfetto amo' !!!!!

Tu siiiii na cosa grandeeeeee pee meeeeeeeee
na cosa ca tu stess nun saieeeeeeeeee
na cosa ca nun aggie avutoo maieeeeeeeeeee
nu beeeeeeeeeene accusiiiiiiiiiiiii
aaaaaaaccusssssssssssssssiiiiiiiiiiiiii grandeeeeeeeeeeeeeeee

Edited by occhidigiada58. - 30/1/2011, 11:08

occhidigiada58.

Posted on 29/1/2011, 08:53

Intanto che si provvedera’ allo script faccio vedere una mia constatazione,ecco perche’ vorrei ridurre le condizioni
Una sola ambata ridurrebbe gli esiti positivi quindi aggiungerei il vertibile

Vediamo questo caso su ruote gemelle come si sono comportate sulle diametrali

gio 23.12.2010
Ge 12.75.86.88.08 86 3^ pos. 88 4^ pos. Somma :84
Pa 31.21.75.84.76

86 3 pos.
88 4 pos.
Somma 84 isotopo all’88
Previsione su ge pa ca to
Ambate 83.38
Ambi
83.38
83.89
38.89
Cinquina
83.38.86.88.84
Ambata 38 a ca primo colpo
Ambata 38 a ge e ambo in cinquina 38.86 secondo colpo
Ambata 38 a pa quarto colpo
Ambata 38 a ca e ambo 38.89 ottavo colpo
Ambata 83 e ambo 83.89 a ca 13 colpo
Ambate a ambo 83.38 a ca 15 colpo secco e in cinquina
Per la serie , quando sono poche si puo’ seguire una previsione su piu’ ruote poi ovvio che le palate in faccia bisogna sempre mettercele in conto!!!!!!

maxma.62

Posted on 29/1/2011, 13:09

Ciao hai provato a cambiare qui?

For r1=1 To 12

For r2=1 To 12

max

occhidigiada58.

Posted on 29/1/2011, 17:34

okkkkkkk ce provo

occhidigiada58.

Posted on 29/1/2011, 17:51

ma cosi vien fuori la nazionale...no no nn voglio la nazionale gia' son troppe con dieci ruote!!!

maxma.62

Posted on 29/1/2011, 18:21

Non vuoi la Nz?
Togliamola così:

'--------------------------------
For r1=1 To 10
'If r1=11 Then r1=12 '<<< questo lo togli o ci metti un'apice
'--------------------------------
For r2=1 To 10
'If r2=11 Then r2=12 '<<< questo lo togli o ci metti un'apice
If r2<>r1 Then
'--------------------------------

ciao,
max

occhidigiada58.

Posted on 29/1/2011, 18:48

okk corretto...ma la modifica per ruote consecutive gemelle e diametrali???

siccome e' una caterba di previsioni , si deve dare un limite , altrimenti si diventa matti a scegliere, tanto molti non danno esito positivo...quindi riduciamo le previsioni almeno!!!

maxma.62

Posted on 30/1/2011, 10:09

Prova così:

aggiungi a questo:

If r2<>r1

così:

If r2<>r1 And Distanza(r2,r1)=1 Or Distanza(r2,r1)=5 Or r2=11-r1 Then 'su consec. (succ. - prec.) / diametr. / simm.

ciao,
max

occhidigiada58.

Posted on 30/1/2011, 10:58

okkkkk

8 replies since 29/1/2011, 08:23 352 views