Ciao, vorrei postare il prg di simulazione del mio metodo e il relativo codice dal quale chiunque, può capirne il funzionamento... e farsi un'idea se sparo missili o meno! Vorrei postarlo ma qui, a differnza di tutti i forum che conosco, non è possibile mandare allegati... Se l'Amministratore me lo concede, sarà alla valutazione di tutti voi. Buona Domenica a tutti. Sergio.

Il codice della simulazione lo mando qui.... è in formato testo




Messaggio modificato da gastardo il Apr 13 2008, 19:04 PM

una variante per non rischiare troppo...

? " Stop a vincita di euro: 10": nsim=10
?
? " Dopo che questa finestra sparisce,"
? "Apri il file simulato.txt per controllare..."
?
?

? " Premi un tasto per iniziare"
1 a$ = inkey$:if a$ = "" then 1
open "simulato.txt" for output as #1
? #1,"Capitale iniziale = 1000 Target = + 10"
? #1,""
randomize timer
5 x= int(rnd*36):if x = 0 then 5
10
n=n+1
if x <=18 then pas=pas+1 else man=man + 1
if x/2 = int(x/2) then dis=dis+1 else par=par+1
if x = 1 or x = 3 or x = 7 or x = 9 or x = 12 or x = 14 or x = 16 or x = 18 or x = 19 or x = 21 or x = 23 or x = 25 or x = 27 or x = 30 or x = 34 or x = 36 then ner=ner+1 else ros=ros+1
if ros = 1 then pros=1:punt=punt+pros:cap=cap-pros else if ros > 1 then pros=pros*2:punt=punt+pros:cap=cap-pros
if ner = 1 then pner=1:punt=punt+pner:cap=cap-pner else if ner > 1 then pner=pner*2:punt=punt+pner:cap=cap-pner
if par = 1 then ppar=1:punt=punt+ppar:cap=cap-ppar else if par > 1 then ppar=ppar*2:punt=punt+ppar:cap=cap-ppar
if dis = 1 then pdis=1:punt=punt+pdis:cap=cap-pdis else if dis > 1 then pdis=pdis*2:punt=punt+pdis:cap=cap-pdis
if man = 1 then pman=1:punt=punt+pman:cap=cap-pman else if man > 1 then pman=pman*2:punt=punt+pman:cap=cap-pman
if pas = 1 then ppas=1:punt=punt+ppas:cap=cap-ppas else if pas > 1 then ppas=ppas*2:punt=punt+ppas:cap=cap-ppas
x=int(rnd*36)
if x <=18 and pman <> 0 then vin=vin+(pman*2):pman=0:man=0:vv=vv+1
if x >=19 and ppas <> 0 then vin=vin+(ppas*2):ppas=0:pas=0:vv=vv+1
if x/2 = int(x/2) and ppar <> 0 then vin=vin+(ppar*2):ppar=0:par=0:vv=vv+1
if x/2 <> int(x/2) and pdis <> 0 then vin=vin+(pdis*2):pdis=0:dis=0:vv=vv+1
if x <>1 or x <>3 or x <>7 or x <>9 or x <>12 or x <>14 or x <>16 or x <>18 or x <>19 or x <>21 or x <>23 or x <>25 or x <>27 or x <>30 or x <>34 or x <>36 and pner <> 0 then vin=vin+(pner*2):pner=0:ner=0:vv=vv+1
if x =1 or x =3 or x =7 or x =9 or x =12 or x =14 or x =16 or x =18 or x =19 or x =21 or x =23 or x =25 or x =27 or x =30 or x =34 or x =36 and pros <> 0 then vin=vin+(pros*2):pros=0:ros=0:vv=vv+1
if x = 0 then cap=cap+(pros/2)+(pner/2)+(ppar/2)+(pdis/2)+(pman/2)+(ppas/2)
cap=cap+vin
if cap >= capp+nsim then print #1,""
print #1, "Boule n°";n,"Punti";punt,"Vinci";vin,"Cassa";cap
if cap >= capp+nsim then 1000
if vin >=punt then pros=0:pner=0:ppar=0:pdis=0:pman=0:ppas=0:ros=0:ner=0:par=0:dis=0:man=0:pas=0
vin=0
punt=0
goto 10
1000 close:end

Messaggio modificato da Sergiong il Apr 13 2008, 19:43 PM

Mi dispiace non essere cosi' tecnico

pero' devo fare i complimenti , come avevo gia' compreso ,
che non sei uno che strombetta

Spero che possa funzionare , anche solo per qualche vincita ,

e' invito gia' da ora chi ne dovesse trarre vantaggio

a riconoscerti il merito

Io ti ho mandato oggi una e-mail riguardante il programma, fammi sapere se è arrivata.

Ciao e Grazie con G maiuscola per non avermi paragonato, come la maggior parte. ad un venditore di fumo! Se mi lasci la tua email in un messaggio privato ti spiego il metodo... non c'è bisogno del pc, i calcoli sono elementari e si fanno a mente... Allora, inizialmente volevo venderlo... adesso lo regalo a chi mi ha, anche se scetticamente, creduto...

Ho mandato il sorgente della simulazione, dal quale chi ha un minimo di eperienza di programmazione può facilmente capirne il funzionamento. Avevo pensato di venderlo ma, alla fine ho deciso di metterlo pubblico... Questo metodo non l'ho visto mai in rete... se un domani troverò qualcuno che ne vanta la paternità, mi verrà solo da sorridere!

Messaggio modificato da Sergiong il Apr 13 2008, 21:54 PM

mmm.... dubito dell'esistenza di Dio, figurati come non potrei dubitare che qualcuno possa "riconoscermi il merito..."

ok ci sto dando un occhiata magari lo si puo' migliorare insieme. Adesso non per essere rompiscatole..se tu avessi una versione del sorgente commentata sarebbe meglio sai meglio di me che i commenti sono fondamentali per capire il codice di un collega.. se tu non lo avessi casomai i punti che non mi sono chiari li domando a te:) grazie comunque per il gesto ;)

Mamma mia se sapessi almeno dove appplicarlo lo proverei subitissssssssssimo

Se non sbaglio è fatto in visual basic..quindi ti serve il visual studio.. o un compilatore per vbbasic correggimi sergio io vado per altri linguaggi quindi non ti so risp al 100%

potresti spiegare il metodo anche qui sul forum, dal sorgente non si capisce molto

è scritto in "basic" poi, quickbasic, basica, turbobasic... uno vale l'altro.... ma anche chi non conosce il basic, se sa programmare in altri linguaggi può capire cosa c'è scritto. 2+2 fa 4 se lo scrivi in basic ma fa 4 anche se lo scrivi in C, in Java, in Pascal o in un qualsiasi altro linguaggio...

se vuoi contattami x email, ti do il prg x simulare e ti spiego anche come fare dal vivo... ripeto a te e a tutti, non vendo niente (volevo farlo ma ci ho ripensato), chi mi contatta avrà il metodo (semplicissimo da usare, senza pc e senza carta e penna) ma solo chi lo chiede esplicitamente! Gli altri che criticano solo e pretendono andassero a farsi benedire

Messaggio modificato da Sergiong il Apr 13 2008, 23:51 PM

SI SI queste cose mi ricordo che il mio prof di programmazione I me le disse comunque..si vede che il software gira seguendo un certo criterio matematico (ideato da te o basato su elementi di statistica matematica..)ora come ora non ho tanto tempo di analizzarlo troppo .. anche un commento generale sul funzionamento dell'algoritimo sarebbe gradito.. mi avranno abituato male all'uni ma io il codice senza commenti non lo reggo tanto

Messaggio modificato da megliosingle il Apr 13 2008, 23:54 PM