metodo distanza 2

Rispondi
Avatar utente
xxombraxx
Messaggi: 636
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

metodo distanza 2

Messaggio da xxombraxx » 11/04/2014, 18:22

faccio direttamente un esempio per essere più chiaro
Estrazioni del 22/02/14
MILANO 05 78 53 03 40
NAPOLI 48 63 21 50 03
la distanza due deve essere isotopa anche non consecutiva....
notiamo la distanza 2 che c' è tra 1° e 4° di milano e tra 1° e 4° di napoli
prendiamo i numeri mancanti tra 5 e 3 manca il 4 tra 48 e 50 manca il 49
ora sommiamo i due numeri mancanti quindi 49+4=53
facciamo il diametrale del 53(53-45)=8 e il vertibile che e 80 queste saranno le nostre ambate in 1^ e 4^ posizione
x gli abbinamenti facciamo 53+4=57......53+49=12 con il fuori 90 .....12+57=69 e il suo vertibile
quindi previsione completa 8-80 ambate in 1^ e 4^ posizione x abbinamenti 57-12-66-69
ESTRAZIONE N°24 DEL 25/02/2014
MILANO 89 53 63 8 80 ambata in posizione + ambo secco 8-80

altro esempio di ruota non consecutiva

ESTRAZIONE N°31 DEL 13/03/2014
FIRENZE .......... 5 37 35 72 44
PALERMO ........80 45 43 19 2
36+44=80
80-45=35 vertibile 53 nostre ambate 2^ e 3^ posizione
80+36=26
80+44=34
34+26=60 e vertibile 6
previsione completa
firenze palermo 35 vertibile 53 nostre ambate 2^ e 3^ posizione
x abbinamenti 26-34-60-6
ESTRAZIONE N°35 DEL 22/03/2014
FIRENZE 35 59 87 6 50 ambata semplice + ambo secco 35-6
ESTRAZIONE N°37 DEL 27/03/2014
FIRENZE 53 35 34 49 28 ...doppia ambata 35-53 tra cui 35 in posizione + ambo secco 35-53+terno secco 35-53-34


ESTRAZIONE N°39 DEL 01/04/2014
FIRENZE 16 9 18 13 35
TORINO 50 56 48 81 46
previsione completa
ambate in 1^ e 3^ posizione
21-12 x abbinamenti 25-83-18-81
ESTRAZIONE N°40 DEL 03/04/2014
TORINO 12 61 43 88 85 ............ambata in posizione

ESTRAZIONE N°43 DEL 10/04/2014
TORINO 81 36 21 8 60 .....ambata in posizione + ambo secco 21-81



:prof: :su:
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

Avatar utente
DjNomade
Messaggi: 585
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: metodo distanza 2

Messaggio da DjNomade » 11/04/2014, 23:26

Salvo errori e omissioni.....

Ciauz

Codice: Seleziona tutto


'http://www.pentambo.info/forum/viewtopic.php?f=22&p=24166#p24166
Sub main()
Dim nu1(5),nu2(6),nu3(5),ruota(2),ruote(1),ruot(1),nu(4)
Dim posta(10),poste(4),postee(4)


:poste(2)=2
postee(2)=2:postee(3)=1

ce=InputBox("Quante estrazione vuoi controllare? ","estrazione",60)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=EstrazioneFin-ce
fin=EstrazioneFin
Scrivi "---------------------metodo distanza 2  BY xxombraxx",1
Scrivi "--------------------------------script by DjNomade",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

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

c=Estratto(es,r2,p1)
d=Estratto(es,r2,p2)



ds1=Abs(a-b)
ds2=Abs(c-d)

If  ds1=2 and  ds2=2  Then
aa=Fuori90(Minimo(a,b)+1)
bb=Fuori90(Minimo(c,d)+1)
cc=Fuori90(aa+bb)
dd=Diametrale(cc) 'ambata
ee= Vert(dd)      'ambata
ff=Fuori90(cc+aa) 'abb
ff1=Fuori90(cc+bb)'abb
ff2=Fuori90(ff+ff1)'abb
gg=Vert(ff2)             'abb

casi=casi+1:Scrivi String(44,"=")&" by DjNomade",1
ruota(1)=r1:ruota(2)=r2:ruote(1)=11:co=0
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi String(70,"-")

 Scrivi "differenza "&format2(a)&"."&format2(b)&" = "&format2(ds1)&" / Differenza "&Format2(c)&"."&format2(d)&" = "&format2(ds2)

Scrivi String(58,"-")&" caso n° "&(casi)
 


nu1(1)=dd
nu1(2)=ee
Erase posta
posta(1)=1
posta(p1+5)=1
posta(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu1(1)=dd
nu1(2)=ff
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=dd
nu1(2)=ff1
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=dd
nu1(2)=ff2
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=dd
nu1(2)=gg
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=ee
nu1(2)=ff
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=ee
nu1(2)=ff1
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=ee
nu1(2)=ff2
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu1(1)=ee
nu1(2)=gg
co=co+1
ImpostaGiocata co,nu1,ruota,poste,k
nu2(1)=dd
nu2(2)=ee
nu2(3)=ff
co=co+1
ImpostaGiocata co,nu2,ruota,postee,k
nu2(1)=dd
nu2(2)=ee
nu2(3)=ff1
co=co+1
ImpostaGiocata co,nu2,ruota,postee,k
nu2(1)=dd
nu2(2)=ee
nu2(3)=ff2
co=co+1
ImpostaGiocata co,nu2,ruota,postee,k
nu2(1)=dd
nu2(2)=ee
nu2(3)=gg
co=co+1
ImpostaGiocata co,nu2,ruota,postee,k
Gioca es
End If
Next:next:Next:Next
Next
ScriviResoconto
Scrivi "---------------------metodo distanza 2  BY xxombraxx",1
Scrivi "--------------------------------script by DjNomade",1

End Sub 

Avatar utente
xxombraxx
Messaggi: 636
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: metodo distanza 2

Messaggio da xxombraxx » 12/04/2014, 9:45

grazieeeeeeeeeeeeeeeeeeeeeeee :abb: :abb: :evai:
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

Avatar utente
Tatoo64
Site Admin
Messaggi: 3876
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: metodo distanza 2

Messaggio da Tatoo64 » 12/04/2014, 11:41

grazie a tutti e due gran bel metodo di distanza, e grazie al scriptman

:appl: :appl:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

nerisole
Messaggi: 1829
Iscritto il: 27/10/2011, 15:24

Re: metodo distanza 2

Messaggio da nerisole » 17/11/2014, 0:39

mi piace molto il tuo metodo

ma se colegassimo tua idea con pia x raggiungere forse qualcosa in più se fosse possibile


si distanza 2

16--18

48 --50



io faccio 16+18--34piu il fisso 34---68


48+50---90-90--8piu fisso 34--42 e ottengo ambo 68 42

posso chiedere se è possibile unire le cose x ottenere il di più


grazie a voi tutti
vivi e lascia vivere

Immagine

Avatar utente
DjNomade
Messaggi: 585
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: metodo distanza 2

Messaggio da DjNomade » 17/11/2014, 22:18

Aggiunto l'ambo di nerisole + ambi dati dall'ambate di ombra con i nuovi due numeri di nerisole

Ciauz

Codice: Seleziona tutto


    'http://www.pentambo.info/forum/viewtopic.php?f=22&p=24166#p24166
    Sub main()
    Dim nu1(5),nu2(6),nu3(5),ruota(2),ruote(1),ruot(1),nu(4)
    Dim posta(10),poste(4),postee(4)


    poste(2)=2
    postee(2)=2:postee(3)=1

    ce=InputBox("Quante estrazione vuoi controllare? ","estrazione",120)
    k=InputBox ("per quanti colpi?","colpi di gioco",9)
    ini=EstrazioneFin-ce
    fin=EstrazioneFin
    Scrivi "---------------------metodo distanza 2  BY xxombraxx + nerisole",1
    Scrivi "--------------------------------script by DjNomade",1
    Scrivi String(70,"="),1
    Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
    For es=ini To EstrazioneFin
    Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

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

    c=Estratto(es,r2,p1)
    d=Estratto(es,r2,p2)

  neri=Fuori90(a+b+34)
  neri1=Fuori90(c+d+34)
    ds1=Abs(a-b)
    ds2=Abs(c-d)

    If  ds1=2 and  ds2=2  Then
    aa=Fuori90(Minimo(a,b)+1)
    bb=Fuori90(Minimo(c,d)+1)
    cc=Fuori90(aa+bb)
    dd=Diametrale(cc) 'ambata
    ee= Vert(dd)      'ambata
    ff=Fuori90(cc+aa) 'abb
    ff1=Fuori90(cc+bb)'abb
    ff2=Fuori90(ff+ff1)'abb
    gg=Vert(ff2)             'abb

    casi=casi+1:Scrivi String(44,"=")&" by DjNomade",1
    ruota(1)=r1:ruota(2)=r2:ruote(1)=11:co=0
    Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
    Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
    Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
    Format2(c)&"."&Format2(d)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
    Scrivi String(70,"-")

     Scrivi "differenza "&format2(a)&"."&format2(b)&" = "&format2(ds1)&" / Differenza "&Format2(c)&"."&format2(d)&" = "&format2(ds2)

    Scrivi String(58,"-")&" caso n° "&(casi)
     


    nu1(1)=dd
    nu1(2)=ee
    Erase posta
    posta(1)=1
    posta(p1+5)=1
    posta(p2+5)=1
    co=co+1
    ImpostaGiocata co,nu1,ruota,posta,k
    nu1(1)=dd
    nu1(2)=ff
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=dd
    nu1(2)=ff1
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=dd
    nu1(2)=ff2
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=dd
    nu1(2)=gg
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=ff
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=ff1
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=ff2
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=gg
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu2(1)=dd
    nu2(2)=ee
    nu2(3)=ff
    co=co+1
    ImpostaGiocata co,nu2,ruota,postee,k
    nu2(1)=dd
    nu2(2)=ee
    nu2(3)=ff1
    co=co+1
    ImpostaGiocata co,nu2,ruota,postee,k
    nu2(1)=dd
    nu2(2)=ee
    nu2(3)=ff2
    co=co+1
    ImpostaGiocata co,nu2,ruota,postee,k
    nu2(1)=dd
    nu2(2)=ee
    nu2(3)=gg
    co=co+1
    ImpostaGiocata co,nu2,ruota,postee,k

    nu1(1)=neri
    nu1(2)=neri1
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=dd
    nu1(2)=neri
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=dd
    nu1(2)=neri1
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=neri
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    nu1(1)=ee
    nu1(2)=neri1
    co=co+1
    ImpostaGiocata co,nu1,ruota,poste,k
    Gioca es
    End If
    Next:next:Next:Next
    Next
    ScriviResoconto
    Scrivi "---------------------metodo distanza 2  BY xxombraxx + nerisole",1
    Scrivi "--------------------------------script by DjNomade",1

    End Sub 


Ultima modifica di Tatoo64 il 29/11/2014, 22:11, modificato 1 volta in totale.
Motivazione: Mi sono permesso di correggere un apice " in fondo allo script che lo bloccava

nerisole
Messaggi: 1829
Iscritto il: 27/10/2011, 15:24

Re: metodo distanza 2

Messaggio da nerisole » 19/11/2014, 21:03

grazie a d'jnomade e a tutti voi x la collaborazione
vivi e lascia vivere

Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 3 ospiti