SCRIPT MetodoCavallo migliorabile

[fillotto]

Questo script prende in esame l' uscita di due numeri uguali (a cavallo tra una ruota e un altra consecutive quindi ad esempio il 5° di BA e il 1° di CA ecc..)
Così come impostato prendo in esame 200 estrazioni (in questo modo è positivo se si aumentano le estrazioni va in negativo)
Si mette in gioco un ambo su tutte con una terzina quindi si potrebbe
"resistere" x 8 estraz senza remissione
Di buono ha che non è un sommativo .
I tre numeri sono i due uguali + i due sottostanti bisognerebbe provarlo nelle 2 ruote di base.....
Ecco lo script :
Sub Main()
Dim rt(11),pta(2),nr(4)

ex = InputBox("Quante estrazioni controllo?",,200)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri+1,1)
nr(3) = Estratto(es+1,pri,5)
nr(4) = Estratto(es+1,pri+1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es+1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub

 

[keeper]

c'è un errore

 

[fillotto]

quote:Originally posted by keeper

c'è un errore

dove? lo riposto con insert code, a me va bene :

Sub Main()
Dim rt(11),pta(2),nr(4)

ex = InputBox("Quante estrazioni controllo?",,200)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri + 1,1)
nr(3) = Estratto(es + 1,pri,5)
nr(4) = Estratto(es + 1,pri + 1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es + 1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub

 

[jluke007]

Sub Main
Dim rt(11),pta(2),nr(4),es
Dim Ini,fin,k,casi,pri

es = InputBox("Quante estrazioni controllo?","Estrazioni",200)

Ini = EstrazioneFin - es
fin = EstrazioneFin
For es = Ini To fin
For pri = 1 To 9

nr(1) = Estratto(es,pri,5)
nr(2) = Estratto(es,pri + 1,1)
nr(3) = Estratto(es + 1,pri,5)
nr(4) = Estratto(es + 1,pri + 1,1)

If nr(1) = nr(2) Then
Messaggio es

rt(11) = 11
pta(2) = 1
k = 8
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2


casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi

Gioca es + 1
End If
Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto

End Sub

cosi funziona. Ciao.


jluke

 

[fillotto]

Ciao luigi se mi leggi mi puoi spiegare perchè succede questo?
Sia Keeper che jluke007 affermano che c'è un errore in questo mio script mentre a me funziona .
Questa mattina l'ho riprovato e non funzionava neanche a me mi dava l'errore qui: "Gioca es+1"
A naso ho capito che dipendeva dall'aggiornamento dell'archivio del lotto.
Aggiornato l'archivio è tornato a funzionare ma il perchè non l'ho capito [?] è come se sapesse che esistono altre estrazioni!!
(sono collegato ad internet quando faccio le prove)
Ci puoi illuminare??

 

[LuigiB]

Ciao , si keeper ha ragione c'è un errore di logica.
Tu fai un ciclo da inizio a fine controllato dalla variabile es ,
solo che all'interno del ciclo ad un certo punto usi es +1
ora ad un certo punto es diventera uguale a fine pertanto
es+1 va fuori dai limiti.
Piu teoria e meno smanettamenti !
Ciao !

 

[Enplein]

...con il permesso di LuigiB, provo a dare una spiegazione:
secondo me quando bisogna cercare le condizioni su due estrazioni
consecutive, è meglio trovarli nell'estrazione di base (es) e la
successiva nella precedente (es-1), così facendo abbiamo sempre
le previsioni disponibili in riferimento all'archivio esistente,
mentre facendo (es+1) con l'estrazione base ultima(es), es+1 non
esiste nell'archivio perchè deve ancora avvenire.

In riferimento a quando detto, allego lo script esistente modificato.

Ciao, Enplein.

Sub Main
Dim rt(11),pta(2),nr(4),es
Dim Ini,fin,k,casi,pri
rs = InputBox("Quante estrazioni controllo?","Estrazioni",200)
Ini = EstrazioneFin - rs
fin = EstrazioneFin
For es = Ini To fin
Messaggio es
	For pri = 1 To 10
	nr(1) = Estratto(es,pri,5) : nr(2) = Estratto(es,pri + 1,1)
	nr(3) = Estratto(es -1,pri,5) : nr(4) = Estratto(es -1,pri + 1,1)
		If nr(3) = nr(4) Then
		rt(11) = 11 : pta(2) = 1 : k = 8
		casi = casi + 1
Scrivi String(70,"=") & " Caso n° " & casi,1
Scrivi DataEstrazione (es-1)&" "& SiglaRuota (pri)&" 5a Pos. "& Format2 (nr(3))&" "& SiglaRuota (pri+1)&" 1a Pos. "& Format2 (nr(4))
Scrivi DataEstrazione (es)&" "& SiglaRuota (pri)&" 5a Pos. "& Format2 (nr(1))&" "& SiglaRuota (pri+1)&" 1a Pos. "& Format2 (nr(2))
EliminaRipetuti(nr)
ImpostaGiocata 1,nr,rt,pta,k,2
Gioca es 
		End If
	Next
Next
Scrivi
Scrivi "Casi totali (" & casi & ")",1
ScriviResoconto
End Sub

 

[fillotto]

Ringrazio Enplein e luigi per gli ulteriori tasselli di conoscenza scriptologica,tuttavia quello che ancora non ho capito è perchè
pur essendo sbagliato il concetto del +1 perchè quando aggiorno le estrazioni funziona lo stesso ottenendo lo stesso output di emplein?

 

[LuigiB]

perche come limiti usi EstrazioneIni ed EstrazioneFin che sono niente
altro che i limiti del range impostati nel programam con la barretta rosa.
Percio magari le estrazioni totali sono 8000 , pero il range impostato
è impostato da EstrazioneIni = 1 e EstrazioneFin = 7999 eccolo li che col +1 in effetti puoi leggere l'estrazioen 8000 ovvero 7999+1
ciao

 

[fillotto]

quote:Originally posted by LuigiB

perche come limiti usi EstrazioneIni ed EstrazioneFin che sono niente
altro che i limiti del range impostati nel programam con la barretta rosa.
Percio magari le estrazioni totali sono 8000 , pero il range impostato
è impostato da EstrazioneIni = 1 e EstrazioneFin = 7999 eccolo li che col +1 in effetti puoi leggere l'estrazioen 8000 ovvero 7999+1
ciao

Grazie Luigi,sto scoprendo molte cose .
Il problema è sempre il tempo che uno gli dedica, è vero che per imparare l'ideale sarebbe fare ex novo un lavoro, ma la tentazione
di usufruire di aiuti tipo cambiare pezzi già fatti è troppo grande
nella speranza di fare prima.
Detto questo ti chiedo un piccolissimo aiuto (mi basta un si o un no se è fattibile), ho letto della funzione "Verifica esito"
Io ho questo codice

nr(1) = Fuori90(Estratto(es,7,3)* 2 + Estratto(es,7,5))
nr(2) = Fuori90(Estratto(es,7,1)* 6 + Estratto(es,7,2))
nr(3) = Fuori90(Estratto(es,7,2)* 15 + Estratto(es,7,4))
che mi ricava i numeri che moltiplicati che so x2 o altro , potrei mettere una variabile e un ciclo For e verificare con "verifica esito " quale sia la combinazione migliore ?
Quel pezzo di codice si riferisce a tre numeri ricavabili su PA fatti con prove unpo come si fa con metodi sommativi dove si ricavano gli adattatori quindi cose già belle e fatte ma vuoi mettere la soddisfazione di capire tuttol'ingranaggio??
Ecco vorrei sapere se sono sulla strada giusta solo SI o NO

 

[LuigiB]

certo verificaesito prende in input dei numeri e appunto ne verifica
l'esito sulle ruote e per le sorti previste.
Ovviamente la difficolta di un simile script non risiede nell'uso di questa funzione ma nella gestione di tuttto il codice intorno.
In definitiva VerificaEsito è un po' come la funzione Gioca ma mentre
la funzione Gioca fa tutto da sola verificaesito e il codice che gli sta introno devono eseere gestiti dal programmatore.
E' utile perche ci consente di agire piu a basso livello senza
seguire lo schema imposto dalla funzione Gioca