Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 L’ambo ripetuto “PARI O DISPARI” di Osvaldo Manara

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo:
Nome utente:
Password:
Modo formattazione:
Formato: GrassettoCorsivoSottolineatoAttraversato Allinea sinistraCentratoAllinea destra Riga orizzontale Inserisci un indirizzo web (HYPERLINK)Inserisci indirizzo email (EMAIL)Inserisci un'immagine (IMAGE) Inserisci del codice (CODE)Inserisci una citazione (QUOTE)Inserisci elenco
   
Messaggio:

* HTML è attivo
* Il codice su forum è attivo
Smiles
Smile [:)] Grande Smile [:D] Importante [8D] Arrosisco[:I]
Lingua [:P] Diavolo [}:)] Ammicco[;)] Pagliaccio [:o)]
Occhio nero [B)] Palla N.8 [8] Accigliato[:(] Timido [8)]
Shoccato [:0] Arrabbiato [:(!] Morto [xx(] Assonnato [|)]
Baci [:X] Approvo [^] Disapprovo [V] Domanda [?]

 
 
   

R E V I S I O N E      D E L L A      D I S C U S S I O N E
franca46 Posted - 16 marzo 2021 : 18:29:06
L’ambo ripetuto “PARI O DISPARI” di Osvaldo Manara

Tra i nostri archivi abbiamo scovato una tecnica di Osvaldo Manara
che sono in pochi a conoscere.
La pubblichiamo così come noi la pubblicammo a suo tempo sul nostro settimanale.

Il procedimento che vi presento questa settimana ricava
una sola ambata su due ruote più quattro ambi secchi;
la validità è da uno a dieci colpi.

Sono tanti lo so, ma se la previsione la poniamo in gioco dopo quattro settimane,
i tempi d’attesa si ridurranno di molto.

Veniamo al metodo.

Si tratta di rintracciare nelle stesse posizioni un ambo ripetuto,
detto ambo deve necessariamente essere pari o dispari
in modo che la somma sia divisibile per due; chiaro?

Veniamo ad un esempio
in data 9.3.96 si rileva nelle ruote di Milano e Torino l’ambo ripetuto:
24.2, esso ha i requisiti richiesti per la nostra tecnica,
quindi possiamo ricavare la previsione, calcolo:

24+2 = 26, il 26 va ora diviso per due ed otteniamo: 26:2 = 13.

Al 13 addizioneremo il fisso 45 ed avremo: 13+45 = 58.

Ora con il 58 si deve trovare la distanza ciclometrica con l’ambo base e
quindi si farà:
58-24 = 34,
poi 58-2 = 56,
siccome supera il limite 45, si farà il completamento a 90,
quindi:
90-56 = 34, il 34 sarà la futura ambata.

Per gli ambi abbineremo: il 24, il 2(l’ambo base) + la somma e la differenza,
quindi gli ambi saranno: 34.24/34.2/34.26/34.22.

Vediamo quale fu l’esito: al 4° colpo 34.24 ambata più ambo secco a Milano!

Da come avete constatato, il metodo è molto semplice,
è logico che non sempre ci saranno risultati così clamorosi,
ma le soddisfazioni non mancheranno di certo.
Come sempre vi raccomando la massima cautela.

Alcune regole fondamentali:
una volta ricavata la previsione controllate eventuali esiti anticipati,
alla prima vincita sospendere il gioco,
tanto in un anno se ne ricavano in abbondanza di previsioni.

Vi auguro numerose vincite come al solito ed in attesa del prossimo metodo
vi saluto cordialmente.

ciao giorgio ho dimenticato troppe cose , puoi aiutarmi?
9     U L T I M E      R E P L I C H E    (Newest First)
franca46 Posted - 18 marzo 2021 : 18:39:24
giorgio60 Posted - 18 marzo 2021 : 18:35:29
Ciao Franca non l ho ancora testato
stavo comunque pensando di farne un uso alternativo
Ti aggiorno
franca46 Posted - 18 marzo 2021 : 16:28:40
illuminazione


Sub main()
Dim rt(2),ruot(1),nu(3),nu1(5),pt(1),pos(3)
pt(1)=1
pos(2)=1 :pos(3)=1
clp=12

ini=EstrazioneFin -50
fin=EstrazioneFin
co=0
For es=ini To fin
   Messaggio es
   For r=1 To 10
      rt(1)=r
      For p=1 To 4
         For pp=p+1 To 5
            a=Estratto (es,r,p) : b=Estratto (es,r,pp)
            For rr=r+1 To 11
               If rr=11 Then rr=12
               rt(2)=rr
               For q=1 To 4
                  For qq=q+1 To 5
                     c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
                     If (a=c And b=d) Or (a=d And b=c) Then
If(Pari(a) And Pari(b) And Pari(c) And Pari(d)) Or(Not Pari(a) And Not Pari(b) And Not Pari(c) And Not Pari(d)) Then

                        co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" Ambo "&a&"-"&b&" in pos. "&p&"^ e "&pp&"^"
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&" Ambo "&a&"-"&b&" in pos. "&q&"^ e "&qq&"^"
If p=q And pp=qq Then ColoreTesto 2 : txx=" Condizione  ISOTOPA " Else ColoreTesto 1 : txx=" Condizione non Isotopa"
'ColoreTesto 2
Scrivi "Gli Ambi sono in  "& txx
ColoreTesto 0

s1=(Fuori90(a+b)) : s2=s1/2 : s3=Diametrale(s2)
s4=Distanza(s3,a) : s5=Distanza(s3,b)


nu(1)=s4
nu(2)=s5
                        
ImpostaGiocata 1,nu,rt,pt,clp,0
nu1(1)=s4
nu1(2)=a
nu1(3)=b
nu1(4)=Fuori90(a+b)
nu1(5)=Abs(a-b)
ImpostaGiocata 2,nu1,rt,pos,clp,0
ruot(1)=11
ImpostaGiocata 3,nu1,ruot,pos,clp,0
                        Gioca es
                     End If
End If
                  Next
               Next
            Next
         Next
      Next
   Next
Next
'ScriviResoconto

End Sub 



giorgio come lo vedi?
franca46 Posted - 18 marzo 2021 : 15:59:54


Speravo fosse per L8

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,xX,X,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
   Dim Abb3,Abb4,Amba1,Amba2
   Dim Ruo(2),Po1(1),Po2(2),Ambo4(2)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9850))'6531 esempio nelle spiegazioni
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(10) & "Ambo Ripetuto Pari O Dispari di Osvaldo Manara - Script Salvo50"& Space(10),1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If(pari(A) And pari(B))Or(dispari(A) And dispari(B))Then
                  For R2 = R1 + 1 To 10
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           C = Estratto(Es,R2,P3)
                           D = Estratto(Es,R2,P4)
                           If(A = C And B = D) Or(A = D And B = C) Then
                              xX =(A + B) : X = xX / 2
                              E = Fuori90(X + 45)
                              
                              Amba1 = Distanza(A,E)
                              Amba2 = Distanza(B,E)
                              Abb3 = Fuori90(A + B)
                              Abb4 = Differenza(A,B)
                              'A---B
                              '|   |
                              'C---D
                               Amba(1) = Amba1

                              Ambo1(1) = Amba1 : Ambo1(2) = A
                              Ambo2(1) = Amba1 : Ambo2(2) = B
                              Ambo3(1) = Amba1 : Ambo3(2) = Abb3
                              Ambo4(1) = Amba1 : Ambo4(2) = Abb4
                              Caso = Caso + 1
                              Casi = Casi + 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi Space(17) & Format2(A) & " + " & Format2(B) & " = " & Format2(xX) & " / 2 = ",1,0
                              Scrivi Format2(X) & " + Il Fisso 45 = " & Format2(E),1
                              Scrivi
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(A) & " = " & Format2(Amba1),1
                              Scrivi Space(14) & " Distanza Ciclometrica Tra " & Format2(E) & " e " & Format2(B) & " = " & Format2(Amba2) & " Ambata",1
                              Scrivi Space(25) & " Abbinamenti Per Ambo ",1,,,1
                              Scrivi Space(23) & "Estratto  " & Format2(A) & " Abbinamento 1 ",1
                              Scrivi Space(23) & "Estratto  " & Format2(B) & " Abbinamento 2 ",1
                              Scrivi Space(23) & Format2(A) & " + " & Format2(B) & " = " & Format2(Abb3) & " Abbinamento 3",1
                              Scrivi Space(23) & Format2(A) & " - " & Format2(B) & " = " & Format2(Abb4) & " Abbinamento 4",1
                              Scrivi
                              Ruo(1) = R1 : Ruo(2) = R2
                              ImpostaGiocata 1,Amba,Ruo,Po1,Clp,1
                              ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
                              ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
                              ImpostaGiocata 4,Ambo3,Ruo,Po2,Clp
                              ImpostaGiocata 5,Ambo4,Ruo,Po2,Clp
                              Gioca Es,1
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
franca46 Posted - 17 marzo 2021 : 20:21:19
Ciao Giorgio, ormai domani mattina, ho già spento il PC.
Grazie
giorgio60 Posted - 17 marzo 2021 : 19:13:37
buona sera a tutti
Franca lo posti tu?
giorgio60 Posted - 16 marzo 2021 : 22:52:50
ciao Franca ci provo
franca46 Posted - 16 marzo 2021 : 20:47:53
Ciao Giorgio riesci a fare questo listato?
giorgio60 Posted - 16 marzo 2021 : 20:23:04
come posso aiutarti?

Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000