previsione numerica

[Roby]

<center>ambo su Bari e Tutte

79-77-62-26

per 10 colpi</center>

 

[imported_n/a]

E se poi escono all'undicesimo?

 

[mariangela]

HO POSTATO IL METODO DI QUESTA PREVISIONE SU METODI, QUALCUNO POTREBBE AIUTARMI A FARE UN LISTATO PER ?, NE SAREI MOLTO GRATA. BUONA DOMENICA A TUTTI

 

[imported_n/a]

QUESTO è IL LISTATO DEL TUO METODO.......

SCUSA LA ROZZEZZA DEL LINGUAGGIO, MA NON SONO UN ESPERTTO PROGRAMMATORE E DI LINGUAGGIO VISUAL BASIC SO A MAL'APPENA LE BASI.. IL FRUTTO DI TUTTO CIO' è SOLO ESPERIENZA ACCUMULATO PROVANDO E RIPROVANDO A FARE LISTATI E QUALCHE CONSIGLIO DI UN AMICO E SE è VERO CHE CHI SBAGLIA IMPARA ALLORA PIANO PIANO QUALCHE LISTATO HO IMPARATO A METTERLO IN PIEDI, MA CI SONO MOLTE COSE CHE ANCORA IGNORO.........



Sub main() <-- SINTASSI OBBLIGATORIA X INIZIO LISTATO
Dim posta (5)<-- DIMENSIONE POSTA DA 1 A 5 OVVERO AMBATA AMBO T.Q.C
Dim ruota (10)<--DIMENSIONE DELLE RUOTE TUTTE E 10 B.C.F.G.M.N.P.R.T.V
Dim n (10)<--DIMENSIONE DEI NUMERI DA 1 A 10 DALL'AMBATA ALLA DECINA
posta (1)=0<-- IMPOSTO LA POSTA (1) X AMBATA UGUALE A ZERO

posta (2)=2<--IMPOSTO LA POSTA (2) X AMBO UGUALE A 1 OVVERO 1 EURO

For es =7000 To EstrazioneFin <--STRINGA CHE MI PERMETTE DI TESTARE IL METODO DALL ESTRAZIONE N.7000
If IndiceMensile (es)=1 Then<-- STRINGA X INDICE MENSILE OVVERO ricerca DALLA 1° ESTRAZIONE DEL MESE
a=Estratto(es,1,1)<--LA NOSTRA "FORMULETTA" OVVERO L ESTRATTO DEL 1° DI BARI 1,1
b=Estratto(es,1,5)<-- L ESTRATTO DEL 5° DI BARI 1,5
ruota (1)=1<-- LA PRIMA RUOTA IN GIOCO 1= PRIMA RUOTA CIOE' BARI
ruota (2)=11<-- LA SECONDA RUOTA IN GIOCO 11= TUTTE LLE RUOTE
n(1)=a+1<-- n(1) STA X LA PRIMA NOSTRA AMBATA DATA DA "a+1" OVVERO IL 1° ESTRATTO DI BARI + IL FISSO 1
n(2)=b+1<-- n(2) STA X LA SECONDA NOSTRA AMBATA DATA DA "Ba+1" OVVERO IL 5° ESTRATTO DI BARI + IL FISSO 1
n(3)=Vert(n(1))<-- n(3) STA X LA TERZA NOSTRA AMBATA DATA DA "vert(n(1))" OVVERO IL VERTIBILE DEL 1° ESTRATTO DI BARI + IL FISSO 1
n(4)=Vert(n(2))<-- n(1) STA X LA QUARTA NOSTRA AMBATA DATA DA "Vert(n(2))" OVVERO IL VERTIBILE 5° ESTRATTO DI BARI + IL FISSO 1
ImpostaGiocata 1,n,ruota,posta,10<--- STRINGA X IMPOSTARE LA NOSTRA GIOCATA 1 CHE METTE IN GIOCO TUTTE LE n DA "1 A 4" X LE RUOTE IMPOSTATE OVVERO 1 E 11 BARI E TUTTE PER LA POSTA IN QUESTO CASO SOLO DELL'AMBO E X 10 COLPI ",10" GIOCATA
Gioca es<--CON QUESTA STRINGA DICIAMO AL PROGRAMMA DI ELABORARE IL NOSTRO LISTATO
End If <-- CON QUEST ALTRA "CHIUDIAMO" UNA CONDIZIONE "IF" CHE TROVI NELLA STRINGA RIGUARDANTE L INDICE DI ESTRAZIONE MENSILE.
Next<--è UN "ISTRUZIONE" OBBLIGATORIA CORRELATA AL COMANDO "FOR" CHE TROVI NELLA STRINGA DOVE CHIEDIAMO AL PROGRAMMA DI TESTARE IL NOSTRO METODO DALL 'ESTRAZIONNE N. 7000
ScriviResoconto<-- STAMPA A VIDEO IL "RISULATO" DEL METODO TESTATO
End Sub<-- STRINGA OBBLIGATORIA DI CHIUSURA DEL PROGRAMMA



LO SO', NON C HAI CAPITO UN TUBO DI QUESTO LISTATO COME ALL'INIZIO NON CI CAPIVO NEMMENO IO, MA ALMENO HAI UNA BASE X INIZIARE"...

COPIATI QUESTO LISTATO (TUO METODO) INCOLLALO NEL PROGRAMMA DELLO SCRIPT E AVVIALO, TE NE RENDERAI TU STESSO CONTO..

Sub main()
Dim posta (5)
Dim ruota (10)
Dim n (10)
Dim poste (5)
posta (1)=0
posta (2)=2
For es =7000 To EstrazioneFin
If IndiceMensile (es)=1 Then
a=Estratto(es,1,1)
b=Estratto(es,1,5)
ruota (1)=1
ruota (2)=11
n(1)=a+1
n(2)=b+1
n(3)=Vert(n(1))
n(4)=Vert(n(2))
ImpostaGiocata 1,n,ruota,posta,10
Gioca es
End If
Next
ScriviResoconto
End Sub

IL RESOCONTO DEL TUO METODO, X TUTTE LE RUOTE DI AMBI NE DA, MA NON SO QUANTO SIA CONVENIENTE IN TERMINI DI GUADAGNI, SE POI VOGLIAMO VEDERE GLI ESITI A RUOTA... BHE, NON è UN GRAN CHE...


=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 70
in corso: 1
casi finali: 69
positivi: 53

 

[mariangela]

GRAZIE PAP.

Ti chiedevo, provando una progressione di questo tipo secondo Te può essere interessante?

Progressione di gioco
Posta iniziale: 2,00
Guadagno minimo % : 50
Numeri per bolletta: 4
Numero bollette: 1
Numero ruote: tutte
Sorte: Ambo
Estrazioni di gioco: 10


Estr. Posta [€] Spesa Cum.[€] Vincita Netta [€] Utile [€]
--------------------------------------------------------------------
1........2,00............2,00................7,83........5,83
2........2,00............4,00................7,83........3,83
3........3,00............7,00...............11,75........4,75
4........5,00..........
5........8,00..........
6.......13,00..........
7.......21,00..........
8.......34,00..........
9.......55,00..........
10......89,00..........

Poi si dovrebbe studiare da quale ruota è conveniente fare le previsioni.


Grazie ancora Paperino non avevo dubbi sulla tua disponibilità già accertata.

Mi sto impegnando a trovare qualche metodino, chissà....

 

[mariangela]

ho fatto delle prove non è conviente, sigh!!!!, meglio che mi dedico alla cucina.

<center>

</center>

 

[imported_n/a]

Scusami se forse non ti sono stato molto di aiuto, ma ho dei limiti anche io.


copiati questo listato, riguarda la somma 91 isotopa, vedi che c è ne è una il 30 12 2006 genova milano 70-21.
ciao ciao

Sub main()
Dim ru(10)
Dim n(10)
Dim posta(5)
posta(1)=1
posta(2)=0
co=0
ini=7000
fin=InputBox("Estrazione finale: ",,EstrazioneFin)
For es=ini To fin
Messaggio (es)
For r=1 To 9
For p=1 To 5
rr=r+1
a=Estratto(es,r,p)
b=Estratto(es,rr,p)
If a=((90-b)+1) Then
co=co+1
ru(1)=r
ru(2)=rr
n(1)=1
n(4)=2
ImpostaGiocata 1,n,ru,posta,10,1
Scrivi "---------------------------------------------------------------"
ColoreTesto 2
Scrivi a & " -- " & b & " TROVATI SU " &_
FormatSpace(NomeRuota(r),9)&" "& FormatSpace(NomeRuota(rr),9)
Scrivi
ColoreTesto 0
Gioca es
End If
Next
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
End Sub


Pap

sauro