Ambi in cadenza

[lottomoney]

Buongiorno e Buon Anno a tutti,
desideravo sottoporre agli esperti in materia la possibilità di avere uno script per il seguente metodo:
la ricerca in posizione isotopa (ovvero al medesimo posto est razionale), di 2 ambi che siano formati da due numeri che appartengano a due diverse cadenze ma che entrambe siano presenti in ciascun ambo. In pratica la cadenza eguale deve essere espressa non in orizzontale ma in verticale.
Rilevata la condizione si dovrà procedere ad effettuare delle semplicissime operazioni di somma e sottrazione per ricavare la previsione da mettere in gioco, in particolare calcoleremo l’integrazione a 90 delle due coppie in cadenza e sommeremo i due valori ottenuti ricavando una ambata e capo gioco cui andremo ad abbinare il suo valore integrativo a 90 ed il suo doppio matematico.
Casi reali ad esempio di come si debba operare per ricavare le previsioni da porre in gioco:

Ruota 1° estratto 3° estratto
TORINO 81 22
VENEZIA 21 42
La condizione ci viene fornita dalla presenza dell’81 su Torino e del 21 su Venezia (cadenza 1) come primi estratti e dal 22 su Torino e dal 42 (cadenza 2) su Venezia come terzi estratti.
Prima coppia in cadenza 81-21:
90-81 = 9 90-21 = 69
La loro somma da come risultato 9+69 = 78 che rappresenta l’ambata capo gioco cui si sarebbero abbinati il numero integrante a 90, vale a dire 12 (90-78 = 12) ed il suo doppio 66 (78+78 = 156-90 = 66).
Vediamo la seconda coppia di numeri in cadenza 22-42:
90-22 = 68 90-42 = 48
La loro somma da come risultato 68+48 = 116-90 = 26 che rappresenta l’ambata capo gioco cui si sarebbero abbinati il numero integrante a 90, vale a dire 64 (90-26 = 64) ed il suo doppio 52 (26+26 = 52).
Il gioco prevedeva:
1. una prima previsione con l’ambata 78 su Torino e Venezia ed i due ambi 78-66 e 78-12 anche a tutte
2. una seconda previsione con l’ambata 26 su Torino e Venezia ed i due ambi 26-64 e 26-52 anche a tutte

Spero che ne valga la pena
Grazie in anticipo a chi si vorrà cimentare.
lottomoney

[Master]

Buongiorno e buon Anno anche a te Lottomoney

Ecco lo script..spero sia giusto

Codice: Seleziona tutto

Sub Main()
Scrivi "Metodo di lottomoney Ambi isotopi in cadenza listato by Master [Forum Lottopassion] ",1:Scrivi
   Dim ruote(2),ruot(3)
   Dim posta(1),poste(2)
   Dim amb(2),am(2)
   posta(1) = 1
   poste(2) = 1
   t = 0
   rs = InputBox("Quante estrazioni vuoi controllare?","Master",50)
   cl = InputBox("Quanti colpi vuoi controllare?","Master",9)
   ini = EstrazioneFin - rs
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 10
         For p1 = 1 To 4 : For p2 = p1 + 1 To 5
            a1 = Estratto(es,r,p1) : a2 = Estratto(es,r,p2)
            For r1 = r + 1 To 11
               If r1 = 11 Then r1 = 12
               a3 = Estratto(es,r1,p1) : a4 = Estratto(es,r1,p2)
               ca1 = Cadenza(a1): ca2 = Cadenza(a2):ca3 = Cadenza(a3): ca4 = Cadenza(a4)
               If(Ca1)<>(Ca2)And(Ca3)<>(Ca4)And(ca1)=(ca3) And(ca2)=(ca4) Then
                  pr =(90-a1) : se=(90-a3) : so=Fuori90(pr+se): ab =(90-so) : abb=Fuori90(so+so)
                  pr1=(90 -a2) : se1=(90-a4): so1=Fuori90(pr1+se1): ab1=(90-so1) : abb1=Fuori90(so1+so1)
                  ruote(1)=r : ruote(2)=r1
                  ruot(1)=r : ruot(2)=r1 : ruot(3)=11
                  t = t + 1
                  Scrivi
                  Scrivi"----------------------------------------------------------------------Giocata n°" & t,1
                  Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  " & Format2(a1) & "-" & Format2(a2) & "  Pos. " & p1 & "^ " & p2 & "^ ",1
                  Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "  " & Format2(a3) & "-" & Format2(a4) & "  Pos. " & p1 & "^ " & p2 & "^ ",1
                  Scrivi
                  amb(1) = so
                  amb(2) = so1
                  ImpostaGiocata 1,amb,ruote,posta,cl,2
                  am(1) = so
                  am(2) = ab
                  ImpostaGiocata 2,am,ruot,poste,cl,2
                  am(1) = so
                  am(2) = abb
                  ImpostaGiocata 3,am,ruot,poste,cl,2
                  am(1) = so1
                  am(2) = ab1
                  ImpostaGiocata 4,am,ruot,poste,cl,2
                  am(1) = so1
                  am(2) = abb1
                  ImpostaGiocata 5,am,ruot,poste,cl,2
                  Gioca es
               End If
            Next
         Next : Next
      Next
   Next
   ScriviResoconto
   ColoreTesto 1
   Scrivi String(70,"=") & "listato by Master",1
   ColoreTesto 0
End Sub
 

[lottomoney]

Buongiorno Master,
grazie per il tuo lavoro che non è giusto, ma più che perfetto!!! Grazie

Per evitare cmq giocate inutili, se fosse possibile apportare qualche modifica e cioè:
- non procedere se nella cadenza ci sono numeri uguali ( es.: 62 e 62)
- non procedere al calcolo quando la somma della coppia in cadenza è 90.
come ben sappiamo l’integrazione a 90 dello stesso numero è pari a 0 ed il doppio di 90 sarebbe 180 che, con il fuori 90, sempre 90 fa! Per cui, prima annotazione importante, quando il valore somma delle integrazioni è pari a 90 la previsione non è ricavabile per … carenza di elementi di abbinamento.

Questo naturalmente se è possibile. Di nuovo un grande GRAZIE!!!

[Master]

ciao
Ecco la modifica spero sia esatta

Codice: Seleziona tutto

 Sub Main()
Scrivi "Metodo di lottomoney Ambi isotopi in cadenza listato by Master [Forum Lottopassion] ",1:Scrivi
Dim ruote(2),ruot(3)
Dim posta(1),poste(2)
Dim amb(2),am(2)
posta(1) = 1
poste(2) = 1
t = 0
rs = InputBox("Quante estrazioni vuoi controllare?","Master",50)
cl = InputBox("Quanti colpi vuoi controllare?","Master",9)
ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r = 1 To 10
For p1 = 1 To 4 : For p2 = p1 + 1 To 5
a1 = Estratto(es,r,p1) : a2 = Estratto(es,r,p2)
For r1 = r + 1 To 11
If r1 = 11 Then r1 = 12
a3 = Estratto(es,r1,p1) : a4 = Estratto(es,r1,p2)
som1= Fuori90(a1+a3):som2=Fuori90(a2+a4)
ca1 = Cadenza(a1): ca2 = Cadenza(a2):ca3 = Cadenza(a3): ca4 = Cadenza(a4)
If(a1)<>(a3) And (a2)<>(a4) And (som1)<>90 And (som2<>90) Then
If(Ca1)<>(Ca2)And(Ca3)<>(Ca4)And(ca1)=(ca3) And(ca2)=(ca4) Then
pr =(90 - a1) : se =(90 - a3) : so = Fuori90(pr + se): ab =(90 - so) : abb = Fuori90(so + so)
pr1 =(90 - a2) : se1 =(90 - a4): so1 = Fuori90(pr1 + se1): ab1 =(90 - so1) : abb1 = Fuori90(so1 + so1)
ruote(1) = r : ruote(2) = r1
ruot(1) = r : ruot(2) = r1 : ruot(3) = 11
t = t + 1
Scrivi
Scrivi"----------------------------------------------------------------------Giocata n°" & t,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & "  " & Format2(a1) & "-" & Format2(a2) & "  Pos. " & p1 & "^ " & p2 & "^ "&" Somma 1° Cad Vert "&som1,1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "  " & Format2(a3) & "-" & Format2(a4) & "  Pos. " & p1 & "^ " & p2 & "^ "&" Somma 2° Cad Vert "&som2,1
Scrivi
amb(1) = so
amb(2) = so1
ImpostaGiocata 1,amb,ruote,posta,cl
am(1) = so
am(2) = ab
ImpostaGiocata 2,am,ruot,poste,cl,2
am(1) = so
am(2) = abb
ImpostaGiocata 3,am,ruot,poste,cl,2
am(1) = so1
am(2) = ab1
ImpostaGiocata 4,am,ruot,poste,cl,2
am(1) = so1
am(2) = abb1
ImpostaGiocata 5,am,ruot,poste,cl,2
Gioca es
End If
End If
Next
Next : Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=") & "listato by Master",1
ColoreTesto 0
End Sub


[lottomoney]

Perfetto, grazie mille Master