sondaggiox scripter

[scoglio2]

GIA' FATTO ZX GRAZIE
PS. MI DISPIACE X IL LAVORO ABBI FIDUCIA NON PUO' CONTINUARE COSI CIAO.

 

[Aldebaran]

metto questo script metodo a tutte


Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(5)
posta(1) = 0
posta(2) = 1
posta(3) = 0.4
posta(4) = 0.05
posta(5) = 0.05
ruote(2) = 11
k = 3
For n = 7537 To EstrazioneFin
If IndiceMensile = 1 Then

numeri1(1) = Fuori90(Estratto(n,12,1) + 26) + 1
numeri1(2) = Fuori90(Estratto(n,10,3) + 63) + 2

numeri1(3) = Fuori90(Estratto(n,12,1) + 55) + 7
numeri1(4) = Fuori90(Estratto(n,1,5) + 12) + 9
numeri1(5) = Fuori90(Estratto(n,6,4) + 3) + 4
ImpostaGiocata 1,numeri1,ruote,posta,k

numeri1(1) = Fuori90(Estratto(n,12,1) + 3) + 3
numeri1(2) = Fuori90(Estratto(n,1,3) + 90) + 43

numeri1(3) = Fuori90(Estratto(n,3,1) + 24) + 24
numeri1(4) = Fuori90(Estratto(n,5,2) + 30) + 35
numeri1(5) = Fuori90(Estratto(n,9,1) + 42) + 1
ImpostaGiocata 2,numeri1,ruote,posta,k

numeri1(1) = Fuori90(Estratto(n,12,1) + 28) + 1
numeri1(2) = Fuori90(Estratto(n,2,4) + 74) + 5

numeri1(3) = Fuori90(Estratto(n,3,5) + 73) + 1
numeri1(4) = Fuori90(Estratto(n,4,2) + 82) + 4
numeri1(5) = Fuori90(Estratto(n,9,5) + 35) + 1
ImpostaGiocata 3,numeri1,ruote,posta,k
Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - "
ImpostaInterruzioni 1,2,1

Gioca n,- 1
End If
Next
ScriviResoconto
End Sub

 

[dbr]

Ciao
per caso qualcuno ha qualche metodo com la quartine radicali da passarmi
sia a ruota che a tutte grazie -dbr-

 

[imported_n/a]

Originally posted by Zx81

Listato per medodo di beppe60

Ciao Ragazzi ho fatto una variante per il gioco anche del Terno
e devo dire con degli ottimi risulati
Continuo a provare anche il modo per la quaterna [}]
questo e il listato con il resoconto

--------------------

Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(3)
posta(1) = 0 ' < - - - posta per estratto
posta(2) = 1 ' < - - - posta per ambo
posta(3) = 1 ' < - - - posta per terno

ruote(2) = 4 ' Ruota di verifica esito
k = 6 ' < - - - Colpi di gioco


For n = 8008 To EstrazioneFin ' < - - - - Numero estrazzioni
If IndiceMensile = 7 Then ' < - - - - Estrazione mensile 7

numeri1(1) = Fuori90(Estratto(n,6,1) + 73)
numeri1(2) = Fuori90(Estratto(n,5,3) * 43)
numeri1(3) = Fuori90(Estratto(n,4,3) * 13)

ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(Estratto(n,6,1) + 72)
numeri1(2) = Fuori90(Estratto(n,8,1) + 80)
numeri1(3) = Fuori90(Estratto(n,4,3) + 13)

ImpostaGiocata 2,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(Estratto(n,6,1) + 23)
numeri1(2) = Fuori90(Estratto(n,7,1) + 81)
numeri1(3) = Fuori90(Estratto(n,4,3) + 13)

ImpostaGiocata 3,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,2,1

Gioca n,- 1 ' se si vogliono vedere solo i casi positivi mettere n,- 1
End If
Next
ScriviResoconto
End Sub



---------------------------
resoconto 2009 -2010

+---------------------------------------+
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 19 |
| Casi vincenti : 14 |
| Percentuale pos. : 73,68 % |
| Giocate in corso : 3 |
| Giocate terminate : 54 |
| Bollette giocate : 266 |
| Bollette vincenti : 14 |
| Attesa media : 3 |
| Spesa : 532,00 € |
| Vincita : 9.399,44 € |
| Guadagno : 8.867,44 € |
| Perc. Rendimento : 1666,811 % |
| Estratto su ruota : 30 |
| Ambo su ruota : 18 |
| Terno su ruota : 2 |
+---------------------------------------+

 

[Aldebaran]

Ottimo !!
grazie cebino

 

[rodrigo]

Sub Main
Dim numeri1(10)
Dim ruote(10)
Dim posta(3)
posta(1) = 0 ' < - - - posta per estratto
posta(2) = 1 ' < - - - posta per ambo
posta(3) = 1 ' < - - - posta per terno

ruote(2) = 4 ' Ruota di verifica esito
k = 6 ' < - - - Colpi di gioco


For n = 6934 To EstrazioneFin ' < - - - - Numero estrazzioni
If IndiceMensile = 7 Then ' < - - - - Estrazione mensile 7

numeri1(1) = Fuori90(Estratto(n,6,1) + 73)
numeri1(2) = Fuori90(Estratto(n,5,3) * 43)
numeri1(3) = Fuori90(Estratto(n,4,3) * 13)

ImpostaGiocata 1,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(Estratto(n,6,1) + 72)
numeri1(2) = Fuori90(Estratto(n,8,1) + 80)
numeri1(3) = Fuori90(Estratto(n,4,3) + 13)

ImpostaGiocata 2,numeri1,ruote,posta,k,2

numeri1(1) = Fuori90(Estratto(n,6,1) + 23)
numeri1(2) = Fuori90(Estratto(n,7,1) + 81)
numeri1(3) = Fuori90(Estratto(n,4,3) + 13)

ImpostaGiocata 3,numeri1,ruote,posta,k,2

ImpostaInterruzioni 1,2,1

Gioca n,- 1 ' se si vogliono vedere solo i casi positivi mettere n,- 1
End If
Next
ScriviResoconto
End Sub
| RESOCONTO |
+---------------------------------------+
| Casi esaminati : 121 |
| Casi vincenti : 24 |
| Percentuale pos. : 19,83 % |
| Giocate in corso : 3 |
| Giocate terminate : 360 |
| Bollette giocate : 2.075 |
| Bollette vincenti : 24 |
| Attesa media : 3 |
| Spesa : 4.150,00 € |
| Vincita : 10.182,46 € |
| Guadagno : 6.032,46 € |
| Perc. Rendimento : 145,36 % |
| Estratto su ruota : 50 |
| Ambo su ruota : 28 |
| Terno su ruota : 2 |
+---------------------------------------+


Ciao cebino ho provato a variare lo script facendolo girare su 121 casi esaminati ovvero su 10 anni di estrazioni e questo è il resoconto.....purtroppo la matematica sommativa fa' di questi scherzi!!!
Ciao


Rodrigo


_________________________
Io ho quel che ho donato
(G.D'Annunzio)

 

[Aldebaran]

Mica male sempre positivo..

si sa i metodi sommativi vanno per qualce tempo mica per sempre

non ho voglia di fare lo script se ti va fammi questo metodo
di piero-rm

si trova un numero secondo estratto su una ruota = ad uno in quarta posizione su un'altra ruota ci scappa l'ambo secco e spesso il terno esempio ..


2^CA - 2^PA = 74 - 75 = 1;

3^CA + 3^PA = 47 + 8 = 55;

4^CA + 4^PA = 38 + 74 = 22

 

[Aldebaran]

bho non ci capisco nulla in sto metodo decriptate.

http://forum.lottoced.com/topic.asp?TOPIC_ID=119641

 

[peppe60]

ciao a tuttu gli amici del forum lottoced
volevo chiedere se possibile realizzare questo tipo di listato usandolo con il programma di luigi, cerco spero di farmi capire.
allora il listato per prima cosa mi deve chiedere il periodo da esaminare (qualsiasi range).
soconda cosa ruota di gioco .
terza cosa quanti ambi facciamo massimo 5(da poter scegliere 1-2-3-4oppure 5 il massimo), quello che voglio in pratica e' in es. 10 mesi sulla ruota di bari ,avendo chiesto al listato 3 ambi,
avere la copertura di almeno un ambo dei 3 al 100% cioe mi faccio capire meglio es. da gennaio 2010 a giugno 2010 sono 6 mesi
quindi in questi 6 mesi ha dato almeno un ambo al 100%
con relativa statistica
tipo
casi esaminati 10
casi positivi 9 al 100%
casi in corso 1
casi negativi o
ecc. ecc.
spero di non aver fatto un casotto nel spiegarmi, ciao