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!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 L’ambo ripetuto “PARI O DISPARI” di Osvaldo Manara
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

franca46
Amministratore

Italy
22501 invii

Spedito - 16 marzo 2021 :  18:29:06  Mostra profilo  Rispondi con citazione
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?

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico

giorgio60
Utente Sfegatato

Italy
1410 invii

Spedito - 16 marzo 2021 :  20:23:04  Mostra profilo  Rispondi con citazione
come posso aiutarti?
Vai ad inizio pagina

franca46
Amministratore

Italy
22501 invii

Spedito - 16 marzo 2021 :  20:47:53  Mostra profilo  Rispondi con citazione
Ciao Giorgio riesci a fare questo listato?

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

giorgio60
Utente Sfegatato

Italy
1410 invii

Spedito - 16 marzo 2021 :  22:52:50  Mostra profilo  Rispondi con citazione
ciao Franca ci provo
Vai ad inizio pagina

giorgio60
Utente Sfegatato

Italy
1410 invii

Spedito - 17 marzo 2021 :  19:13:37  Mostra profilo  Rispondi con citazione
buona sera a tutti
Franca lo posti tu?
Vai ad inizio pagina

franca46
Amministratore

Italy
22501 invii

Spedito - 17 marzo 2021 :  20:21:19  Mostra profilo  Rispondi con citazione
Ciao Giorgio, ormai domani mattina, ho già spento il PC.
Grazie

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
22501 invii

Spedito - 18 marzo 2021 :  15:59:54  Mostra profilo  Rispondi con citazione


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
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
22501 invii

Spedito - 18 marzo 2021 :  16:28:40  Mostra profilo  Rispondi con citazione
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
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

giorgio60
Utente Sfegatato

Italy
1410 invii

Spedito - 18 marzo 2021 :  18:35:29  Mostra profilo  Rispondi con citazione
Ciao Franca non l ho ancora testato
stavo comunque pensando di farne un uso alternativo
Ti aggiorno
Vai ad inizio pagina

franca46
Amministratore

Italy
22501 invii

Spedito - 18 marzo 2021 :  18:39:24  Mostra profilo  Rispondi con citazione

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000