In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da rossonero il 12/06/2013, 16:41
ciao Lottopassion, ho un metodo di Jupiter che è molto interessante per l'intuizione e nuovo modo di vedere le soluzioni per battere il banco. Ecco il metodo 1°CA-1°BA = 1°MI
Messaggioda JUPITER25 il 17/05/2013, 21:49
Con questa tecnica ci ricaveremo 2 ambate + 2 abbinamenti x ambo x le ruote di Bari, Milano e Venezia al presentarsi , nell'estrazione in esame, della condizione: 1°CA-1°BA = 1°MI. La tecnica è particolarmente innovativa poichè ,per il calcolo dei numeri di abbinamento alle ambate, si dovrà tener conto di alcune condizioni. Il primo abbinamento sarà messo in gioco solo con la 1^ ambata ed il secondo solo con la 2^. Quindi in totale saranno messe in gioco le due ambate e solo due ambi.
Estrazioni Del Mese In Cui Si Applica Il Metodo : Tutte
Condizione x L'Applicazine Del Metodo : 1°CA-1°BA = 1°MI
Calcolo Previsione x 2 Ambate + 2 Abbinamenti x Ambo x Le Ruote di BA, MI , VE x 10 Estrazioni.
1^ Ambata : 1°CA- 1°MI (Est. Prec.)
2^ Ambata : Vertibile 1^ Ambata.
1° Abbinamento x Ambo (Solo x la 1^Ambata) : Se 2°CA-2°BA= 1°CA+1 Allora Sarà Uguale A : 2°BA Altrimenti Sarà Uguale A :
(2°BA-2)* 2°GE
2°Abbinamento x Ambo( Solo x la 2^Ambata) : Se 1°BA+2 = 3°MI(Est. Prec.) Allora Sarà Uguale A : 3° MI(Est. Prec.) +4
Altrimenti Sarà Uguale A : 3°MI(Est. Prec.) * 12
-
rossonero
-
- Messaggi: 36
- Iscritto il: 14/05/2013, 15:40
da Blackmore il 12/06/2013, 20:23
Ciao, non ho molto tempo x il lotto ultimamente, per cui se nello script c'è qualche errore spero che qualcuno lo modifichi Saluti a tutti - Codice: Seleziona tutto
Sub Main() Scrivi:Scrivi " 1°CA - 1°BA = 1°MI: Metodo di Jupiter25 : Script By Blackmore",1 Scrivi Dim ruote(10) Dim ambata(2) Dim ambo1(2) Dim ambo2(2) Dim posta(1) Dim poste(2) posta(1) = 1 poste(2) = 1 k = InputBox("COLPI DI GIOCO",,10) ini = InputBox("INSERISCI L'ESTRAZIONE DI PARTENZA",,3539) fin = EstrazioneFin For es = ini To fin AvanzamentoElab ini,fin,es a = Estratto(es,BA_,1) b = Estratto(es,CA_,1) c = Estratto(es,MI_,1) If Fuori90(90 +(b - a)) = c Then If b = 0 Then b = 90 'se il 1°CA è 0 si sostituisce con il 90 If Fuori90(Estratto(es,CA_,2) - Estratto(es,BA_,2)) = Fuori90(b + 1)Then ambo1(2) = Estratto(es,BA_,2) If Fuori90(Estratto(es,BA_,1) + 2) = Estratto(es - 1,MI_,3) Then ambo2(2) = Fuori90(Estratto(es - 1,MI_,3) + 4) ruote(1) = BA_ : ruote(2) = MI_ : ruote(3) = VE_ co = co + 1 Scrivi String(99,"-") & " Caso n°" & Format2(co),1 Scrivi DataEstrazione(es) & " " & SiglaRuota(BA_) & " " & StringaEstratti(es,BA_) & " " & Format2(Estratto(es,BA_,1)) Scrivi DataEstrazione(es) & " " & SiglaRuota(CA_) & " " & StringaEstratti(es,CA_) & " " & Format2(Estratto(es,CA_,1)) Scrivi DataEstrazione(es) & " " & SiglaRuota(MI_) & " " & StringaEstratti(es,MI_) & " " & Format2(Estratto(es,MI_,1)) ColoreTesto 2:Scrivi b & "-" & a & " = " & Fuori90(90 +(b - a)) & " [ 1° di Milano ]",1 : ColoreTesto 0 ambata(1) = Fuori90(90 +(b - Estratto(es - 1,MI_,1))) ambata(2) = Vert(ambata(1)) ImpostaGiocata 1,ambata,ruote,posta,k ambo1(1) = ambata(1) ambo1(2) = Fuori90(90 +(Estratto(es,BA_,2) - 2) * Estratto(es,GE_,2)) EliminaRipetuti ambo1 ImpostaGiocata 2,ambo1,ruote,poste,k ambo2(1) = ambata(2) ambo2(2) = Fuori90(Estratto(es - 1,MI_,3)* 12) EliminaRipetuti ambo2 ImpostaGiocata 3,ambo2,ruote,poste,k,2 Gioca es End If If ScriptInterrotto Then Exit For Next Scrivi:Scrivi:ScriviResoconto End Sub
-
Blackmore
-
- Messaggi: 680
- Iscritto il: 19/03/2013, 16:14
da lottopassion il 13/06/2013, 14:33
Grazie Blackmore comunque sembra che lo script sia ok. Saluti.
-
lottopassion
- Amministratore
-
- Messaggi: 565
- Iscritto il: 25/01/2013, 18:18
da rossonero il 13/06/2013, 16:11
GRAZIE x IL LISTATO, davvero molto gentile per la risposta immediata. I risultati sono positivi ed ho aggiunto la quartina da giocare a tutte per ATQ con buoni risultati. Complimenti
-
rossonero
-
- Messaggi: 36
- Iscritto il: 14/05/2013, 15:40
da JUPITER25 il 13/06/2013, 16:25
Bravo Blackmore per il listato ricavato dal mio metodo anche se io non impiego i listati x i miei studi ti ringrazio lo stesso . Spero che il nostro grande Lottopassion aggiunga presto un modulo a Lottogeos II con cui poter ottenere previsioni con questo tipo di metodi così sarà molto più facile. Ciao
-
JUPITER25
-
- Messaggi: 315
- Iscritto il: 01/02/2013, 0:05
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|