Chi Mi corregge Questo script

[Pattydreams64]

intracciare sulla ruota di roma 2 zerati anche non consecutivi
giocare sempre su roma
in caso di uscita ambate con 00 fare +1
ora x essere piu' chiara vi faccio alcuni esempi di come procedere , usare sempre fuori 90
--------------------------------------------------------------------------------------
[TABLE="class: cms_table"]
[TR]
[TD="class: cms_table_xl66, align: right"]28/01/2012[/TD]
[TD="class: cms_table_xl67"]12[/TD]
[TD="class: cms_table_xl67, width: 40"]87[/TD]
[TD="class: cms_table_xl67, width: 40"]40[/TD]
[TD="class: cms_table_xl67, width: 40"]30[/TD]
[TD="class: cms_table_xl67, width: 40"]79[/TD]
[TD="class: cms_table_xl67, width: 40"]26[/TD]
[/TR]
[/TABLE]

40+87+79+26 Fuori 90 =52
30+87+79+26 Fuori 90 =42
-------------------------------------------------------------------------------------
Sub Main()
Scrivi " Metodo di Pattydreams64 Listato By Sospetto",1 : Scrivi
Dim ruote(10)
Dim ambata(2)
Dim posta(1)
posta(1) = 5

tr = InputBox("Estrazione di partenza ?",,8300)
cc = InputBox("Inserisci i colpi di gioco",,11)
casi = 0
ini = tr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 8 To 8
For p1 = 1 To 4
For p2 = p1+1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
If Cadenza(n1)+ Cadenza(n2) = 0 Then
ruote(1) = r1
casi = casi + 1
Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Ambo zerato " & Format2(n1) & "-" & Format2(n2)

'-------------------------------------------------- Giocata
a = Fuori90(Estratto(es,r1,1)+(Estratto(es,r1,2)+(Estr atto(es,r1,3)+(Estratto(es,r1,4)+(Estratto(es,r1,5 )-(n2))))))
b = Fuori90(Estratto(es,r1,1)+(Estratto(es,r1,2)+(Estr atto(es,r1,3)+(Estratto(es,r1,4)+(Estratto(es,r1,5 )-(n1))))))
If Cadenza (a)= 0 Then
a=a+1
End If
If Cadenza (b) = 0 Then
b=b+1
End If
ambata(1) = a
ambata(2) = b
ImpostaGiocata 1,ambata,ruote,posta,cc,1
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Segnalato in rosso

 

[keeper]

vedi se funziona

Sub Main()Scrivi " Metodo di Pattydreams64 Listato By Sospetto",1 : Scrivi
Dim ruote(10)
Dim ambata(2)
Dim posta(1)
posta(1) = 5


tr = InputBox("Estrazione di partenza ?",,8300)
cc = InputBox("Inserisci i colpi di gioco",,11)
casi = 0
ini = tr
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 8 To 8
For p1 = 1 To 4
For p2 = p1+1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
If Cadenza(n1)+ Cadenza(n2) = 0 Then
ruote(1) = r1
casi = casi + 1
Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Ambo zerato " & Format2(n1) & "-" & Format2(n2)


'-------------------------------------------------- Giocata
a = Fuori90(Estratto(es,r1,1)+(Estratto(es,r1,2)+(Estratto(es,r1,3)+(Estratto(es,r1,4)+(Estratto(es,r1,5 )-(n2))))))
b = Fuori90(Estratto(es,r1,1)+(Estratto(es,r1,2)+(Estratto(es,r1,3)+(Estratto(es,r1,4)+(Estratto(es,r1,5 )-(n1))))))
If Cadenza (a)= 0 Then
a=a+1
End If
If Cadenza (b) = 0 Then
b=b+1
End If
ambata(1) = a
ambata(2) = b
ImpostaGiocata 1,ambata,ruote,posta,cc,1
Gioca es
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

 

[Joe91]

Buon Giorno a tutti.

Ho verificato anch'io questo script apportando alcune piccole modifiche che illustro qui di seguito.

Un punto critico poteva risiedere in questa linea di codice: "If Cadenza(n1)+ Cadenza(n2) = 0 Then"

verificata con questo script funziona regolarmente ritrovando (9x9=81) coppie di zerati.

Sub Main
 For n1 = 1 To 90
  For n2 = 1 To 90
   If Cadenza(n1) + Cadenza(n2) = 0 Then
    K = K + 1
    Scrivi Format2(n1) & "." & Format2(n2)
   End If
  Next
 Next
 Scrivi K
End Sub

Dunque premesso che è giusto e funziona personalmente preferisco e trovo più esplicito:

If (Cadenza(n1) = 0) And (Cadenza(n2) = 0) Then

L'altro punto nodale quello per cui è la richiesta specifica.

a = Fuori90(Estratto(es,r1,1)+(Estratto(es,r1,2)+(Estr atto(es,r1,3)+(Estratto(es,r1,4)+(Estratto(es,r1,5 )-(n2))))))

Reputo giusta la scelta di sommare i 5 Estratti e da questi sottrarre gli zerati che si erano trovati.

Sbagliato il numero di parentesi anche se (anche questa volta) non produce errori. A parer mio, sarebbe più giusto così:

a = Fuori90((Estratto(es,r1,1)+Estratto(es,r1,2)+Estr atto(es,r1,3)+Estratto(es,r1,4)+Estratto(es,r1,5 ))- n2)

Il vero errore è a metà "Estr atto" da scriversi "Estratto", naturalmente.

Corretto l'errore di digitazione e la gerarchia dell parentesi:

Estratto(es,r1,1)+Estratto(es,r1,2)+Estratto(es,r1,3)+Estratto(es,r1,4)+Estratto(es,r1,5)

E' equivalente ad una istruzione che semplifica la stesura dello script (evitando i possibili errori): "SommaEstratti (Es,R1)"

La mia versione dello script, con le correzioni descritte:

Sub Main()
Scrivi " Metodo di Pattydreams64 Listato By Sospetto",1 : Scrivi
 Dim ruote(10)
 Dim ambata(2)
 Dim posta(1)
 posta(1) = 5
 Ini = InputBox("Estrazione di partenza ?",,8300) ''rev By Joe
 cc = InputBox("Inserisci i colpi di gioco",,11)
 Fin = EstrazioneFin
 For es = ini To fin
  AvanzamentoElab ini,fin,es
  For r1 = 8 To 8
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     n1 = Estratto(es,r1,p1)
     n2 = Estratto(es,r1,p2)
     If(Cadenza(n1) = 0) And(Cadenza(n2) = 0) Then ''rev By Joe
      ruote(1) = r1
      casi = casi + 1
      Scrivi String(100,"*") & " Caso n° " & Format2(casi),1
      Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1),0,0
      Scrivi  " Ambo zerato " & Format2(n1) & "-" & Format2(n2)
      '-------------------------------------------------- Giocata
      a = Fuori90(SommaEstratti(Es,R1) - n2) ''rev By Joe 
      b = Fuori90(SommaEstratti(Es,R1) - n1) ''rev By Joe
      If Cadenza(a) = 0 Then
       a = a + 1
      End If
      If Cadenza(b) = 0 Then
       b = b + 1
      End If
      ambata(1) = a
      ambata(2) = b
      ImpostaGiocata 1,ambata,ruote,posta,cc,1
      Gioca es
     End If
    Next
   Next
  Next
 Next
 ScriviResoconto
End Sub

Cordiali saluti a tutte/i.

 

[Pattydreams64]

keeper Ti ringrazio Funziona benissimo, anche se pensavoche i risultati fossero migliori.
Joe91 anche a te grazie ,sono dispiaciuta perche' non riesco di fare neanche uno script di mezza riga.
Ti posso chiedere se questo sistema si puo' portare ad un eventuale quartina, con le due ambate esistenti, o aggiungendo i due migliori abbinamenti X ogni numero oppure qualcosa di simile ?

 

[Joe91]

Se mi permetti, io, lo lascierei così.

E' un ottimo metodo molto-molto migliore dei tanti spacciati per miracolosi.

Ti consiglio di non giocare sempre tutto ad ogni costo verificando invece

se da qualche altro metodo, riesci ad ottenere convergenze sui numeri o ...

meglio ancora suggerimenti sui numeri da escludere dal gioco.

Un altra cosa riguarda i colpi di gioco ove eseguendo a tutta la storia del lotto ho :

Giocata  Successi  Colpo   Perc.    Entro  
-----------------------------------------
  Tutte        89      1  15,8 %   15,8 %  
  Tutte        72      2  12,7 %   28,5 %  
  Tutte        58      3  10,3 %   38,8 %  
  Tutte        70      4  12,4 %   51,2 %  
  Tutte        58      5  10,3 %   61,4 %  
  Tutte        38      6   6,7 %   68,1 %  
  Tutte        48      7   8,5 %   76,6 %  
  Tutte        43      8   7,6 %   84,2 %  
  Tutte        32      9   5,7 %   89,9 %  
  Tutte        29     10   5,1 %   95,0 %  
  Tutte        28     11   5,0 %  100,0 %

Dove puoi vedere che dopo il 5° colpo la percentuale di successi è molto-molto minore.

Essi scendono da oltre il 10% a circa il 6% con uno spread che riferisce di un calo nei successi di oltre il 40%

Ciò detto il consiglio è di ridurre i colpi di gioco a 5 e cercare le convergenze di cui prima ... senza attendere le calende.

Cordiali saluti.