fillotto
Advanced Member >PLATINUM<
Premetto che questo è il solito script che vede quello che è successo nel passato ma , non è detto che si debba ripetere perciò il presente è solo per capire.
Cosa fa lo script? Trova 2 ambate che nel giro di due estrazioni si sono sempre ripetute.....ciclicamente , be sempre no! è evidente che più cicli chiediamo da controllare(a ritroso) + c'è la certezza che fallisca
Lo script addiziona (col Fuori40) il PRIMO ESTRATTO ogni 2 cicli e nelle successive 2 Estrazioni trova 2 adattatori che sommati al PRIMO ESTRATTOescono (almeno uno) ,come detto NON SEMPRE!!!
Chi mi sa spiegare perché lo script funziona solo se gli adattatori DEVONO far capo solo ali PRIMO ESTRATTO? o meglio come impostare se gli adattatori si riferiscono al 2° o 3° ecc estratto??
a titolo di cronaca adesso si dovrebbero giocare x una sola volta 14 e 21 ecco lo script e il resoconto
Cosa fa lo script? Trova 2 ambate che nel giro di due estrazioni si sono sempre ripetute.....ciclicamente , be sempre no! è evidente che più cicli chiediamo da controllare(a ritroso) + c'è la certezza che fallisca
Lo script addiziona (col Fuori40) il PRIMO ESTRATTO ogni 2 cicli e nelle successive 2 Estrazioni trova 2 adattatori che sommati al PRIMO ESTRATTOescono (almeno uno) ,come detto NON SEMPRE!!!
Chi mi sa spiegare perché lo script funziona solo se gli adattatori DEVONO far capo solo ali PRIMO ESTRATTO? o meglio come impostare se gli adattatori si riferiscono al 2° o 3° ecc estratto??
a titolo di cronaca adesso si dovrebbero giocare x una sola volta 14 e 21 ecco lo script e il resoconto
Codice:
Sub Main()
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\Lousy\Louisiana.txt",6,",",40)
ReDim apta(06)
apta(01) = 1.00 ' Estratto
'apta(02) = 1.00 ' Ambo
'apta(03) = 2.00 ' Terno
'aposte(04) = 0.20 ' Quaterna
'aposte(05) = 0.20 ' Cinquina
'aposte(06) = 0.20 ' Sestina
'--------------------------------------------------------------------------------------------------------------------------------------------------
'l'ambata paga 4.50 ,l'ambo 28.00 ,il terno 240.00 ,la quaterna 2750.00 e la cinquina 35000.00
'SetPremioPagatoFT 1,1,4.50,0.20 'Ambata semplice
SetPremioPagatoFT 2,1,2.50,0.20 ' Ambo per Ambata
' SetPremioPagatoFT 2,2,28.00,0.20 ' Ambo semplice
' SetPremioPagatoFT 3,1,4.50,0.20 ' Terno per Ambata
' SetPremioPagatoFT 3,2,28.00,0.20 ' Terno per Ambo
' SetPremioPagatoFT 3,3,24.00,0.20 ' Terno semplice
' SetPremioPagatoFT 4,1,4.50,0.20 ' Quaterna per Ambata
' SetPremioPagatoFT 4,2,28.00,0.20 ' Quaterna per Ambo
' SetPremioPagatoFT 4,3,240.00,0.20 ' Quaterna per Terno
' SetPremioPagatoFT 4,4,2750.00,0.20 ' Quaterna semplice
' SetPremioPagatoFT 5,1,4.50,0.20 'Cinquina per Ambata
' SetPremioPagatoFT 5,2,2.80,0.20 ' Cinquina per Ambo
' SetPremioPagatoFT 5,3,24.00,0.20 ' Cinquina per Terno
Dim nr(2) ' i nr in gioco sono 2
cicli = InputBox("inserire i cicli che si vuole esaminre Cioè quante volte voglio g...",,9)
ampk = InputBox("inserire l'ampiezza dei cicli x 3 , 4, 5, ecc estrazioni...",,2)
estraz = cicli*ampk - 1
dal = EstrazioniArchivioFT - estraz'
k = ampk ' Questa è l'ampiezza del ciclo
Call GetCipECiop(dal,EstrazioniArchivioFT,k,cip,ciop)'Call GetCipECiop(dal,EstrazioneFin,rt,k,cip,ciop)
If cip > 0 And ciop > 0 Then
For n = dal To EstrazioniArchivioFT Step ampk 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 6 a cominciare dalla variabile " dal " ...+ 6.....+ 6 (se 6 è = ad "ampk)ecc fino alla fine
'al numero di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 30 una volta
'"cip" ottenendo così 1 numero e una volta " ciop " per l'ultreiore numero
Messaggio n
AvanzamentoElab dal,EstrazioniArchivioFT,n
Scrivi n & " " & StringaEstrattiFT(n) & " " & " e al primo estratto aggiugiamo una volta " & cip & " " & " una volta " & ciop
ng = 0
nr(1) = FuoriX(EstrattoFT(n,1) + cip,40)
nr(2) = FuoriX(EstrattoFT(n,1) + ciop,40)
EliminaRipetuti nr
a01 = nr(1)
a02 = nr(2)
num = Array(a00,a01,a02)
Call ImpostaGiocataFT(1,num,apta,ampk,1) '
GiocaFT n
'End If
Next
ScriviResocontoFT
Else
MsgBox "ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub
Sub Sviluppoambi(aRetAmbi)
ReDim aN(40)
Dim k
For k = 1 To 40
aN(k) = k
Next
aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,Colpi,Cip,Ciop)
Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound
Cip = 0
Ciop = 0
Colpi = 2
Call Sviluppoambi(arrAmbi)
For k = 1 To UBound(arrAmbi)
bFound = True
For idEstr = Inizio To Fine Step 2
ReDim aNumInGioco(2)
i = 1
e = 1
i = i + 1
aNumInGioco(e) = FuoriX(EstrattoFT(idEstr,e) + arrAmbi(k,1),40)
aNumInGioco(i) = FuoriX(EstrattoFT(idEstr,e) + arrAmbi(k,2),40)
'Next
If VerificaEsitoFT(aNumInGioco,idEstr + 1,1,Colpi) = False Then
bFound = False
Exit For
End If
Next
If bFound Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & " - " & arrAmbi(k,2) & " che sommata all'estrazione base abbia sempre ottenuto almeno un'ambata")
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))
Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next
End Sub
Codice:
Questa coppia di numeri 5 - 12 che sommata all'estrazione base abbia sempre ottenuto almeno un'ambata
14.21
2091 05.06.11.17.24.29 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02091 [2091 - 06/08/2014]
G 0001 Numeri in gioco : 10.17
N. [10.17 ] [.. .. .. .. .. .. ] C. 1 02092 [2092 - 09/08/2014]
V N. [10.17 ] [.. 17 .. .. .. .. ] C. 2 Estratto 02093 [2093 - 13/08/2014]
Interrotta per raggiunta durata
Interrotta per esito verificato
2093 11.17.18.25.36.39 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02093 [2093 - 13/08/2014]
G 0001 Numeri in gioco : 16.23
N. [16.23 ] [.. .. .. .. .. .. ] C. 1 02094 [2094 - 16/08/2014]
V N. [16.23 ] [.. 23 .. .. .. .. ] C. 2 Estratto 02095 [2095 - 20/08/2014]
Interrotta per raggiunta durata
Interrotta per esito verificato
2095 08.23.26.32.34.39 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02095 [2095 - 20/08/2014]
G 0001 Numeri in gioco : 13.20
V N. [13.20 ] [.. .. .. 20 .. .. ] C. 1 Estratto 02096 [2096 - 23/08/2014]
Interrotta per esito verificato
2097 04.13.17.19.20.31 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02097 [2097 - 27/08/2014]
G 0001 Numeri in gioco : 09.16
V N. [09.16 ] [.. 09 .. .. .. .. ] C. 1 Estratto 02098 [2098 - 30/08/2014]
Interrotta per esito verificato
2099 04.09.11.20.23.38 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02099 [2099 - 03/09/2014]
G 0001 Numeri in gioco : 09.16
V N. [09.16 ] [.. .. 16 .. .. .. ] C. 1 Estratto 02100 [2100 - 06/09/2014]
Interrotta per esito verificato
2101 10.19.22.23.27.28 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02101 [2101 - 10/09/2014]
G 0001 Numeri in gioco : 15.22
N. [15.22 ] [.. .. .. .. .. .. ] C. 1 02102 [2102 - 13/09/2014]
V N. [15.22 ] [.. 15 .. .. .. .. ] C. 2 Estratto 02103 [2103 - 17/09/2014]
Interrotta per raggiunta durata
Interrotta per esito verificato
2103 02.15.19.21.23.34 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02103 [2103 - 17/09/2014]
G 0001 Numeri in gioco : 07.14
N. [07.14 ] [.. .. .. .. .. .. ] C. 1 02104 [2104 - 20/09/2014]
V N. [07.14 ] [07 .. .. .. .. .. ] C. 2 Estratto 02105 [2105 - 24/09/2014]
Interrotta per raggiunta durata
Interrotta per esito verificato
2105 07.16.21.22.23.25 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02105 [2105 - 24/09/2014]
G 0001 Numeri in gioco : 12.19
V N. [12.19 ] [12 .. .. 19 .. .. ] C. 1 Ambo 02106 [2106 - 27/09/2014]
Interrotta per esito verificato
2107 09.12.14.15.18.40 e al primo estratto aggiugiamo una volta 5 una volta 12
Estrazione generatrice del pronostico 02107 [2107 - 01/10/2014]
G 0001 Numeri in gioco : 14.21
V N. [14.21 ] [.. .. 21 .. .. .. ] C. 1 Estratto 02108 [2108 - 04/10/2014]
Interrotta per esito verificato
+-------------------------------------+
| Prima Giocata : 2091 |
| Ultima Giocata : 2107 |
| Range : 17 |
| Casi giocab perc. : 52,941% |
+-------------------------------------------------+
| RESOCONTO |
+-------------------------------------------------+
| Casi esaminati : 9 |
| Casi vincenti : 9 |
| Percentuale pos. : 100 % |
| Pronostici totali : 9 |
| Pronostici vinc. : 9 |
| Percentuale pos. : 100 % |
| Giocate in corso : 0 |
| Giocate terminate : 9 |
| Bollette giocate : 13 |
| Bollette vincenti : 9 |
| Attesa media : 1 |
| Spesa : 13,00 € |
| Vincita : 25,00 € |
| Guadagno : 12,00 € |
| Perc. Rendimento : 92,308 % |
| Mass. Esposizione : 2,00 € |
| Estratto : 10 |
| Ambo : 1 |
| Terno : 0 |
| Quaterna : 0 |
| Cinquina : 0 |
| 6 numeri : 0 |
+-------------------------------------------------+
