Estrapolare le coppie***(Risolto da solo)***

[kjo]

Ciao a tutti

Ho un metodo che ricava due ambate a bari.

Ho visto che CocoNut, dall'altra parte, in un suo post,
Ha la stessa previsione che si ricava con questo metodo.
La ritengo una buona convergenza......

Ho buttato giu due linee di codice per trovarmi la condizione necessaria,
all'applicazione del metodo.

La condizione è la sortita a bari di un numero spia in qualunque posizione.
...e fin qui ci sono arrivato.....

Quello che non riesco ancora a fare è isolare il resto degli estratti dalla spia.

Spiego : Alla sortita della spia, in qualsiasi estrazione, la spia va eliminata,
e si prendono in considerazione il resto dei 4 estratti rimasti.

Faccio uno schemino a scanso di incomprensioni, con la spia in tutte e cinque le posizioni :

Posizioni---estratti.---nota= XX è la spia.

--1°--2°--3°--4°--5°.

--xx--02--03--04--05.----Spia in 1° pos.--estratti rimasti = 02-03-04-05.

--01--xx--03--04--05.----Spia in 2° pos.--estratti rimasti = 01-03-04-05.

--01--02--xx--04--05.----Spia in 3° pos.--estratti rimasti = 01-02-04-05.

--01--02--03--xx--05.----Spia in 4° pos.--estratti rimasti = 01-02-03-05.

--01--02--03--04--xx.----Spia in 4° pos.--estratti rimasti = 01-02-03-04.


Adesso gli estratti rimasti vanno presi secondo il loro naturale ordine di posizione,
formando due coppie.

Per la spia in 1° pos. Le coppie sono formate da i numeri (02-03) e (04-05).
Per la spia in 2° pos. Le coppie sono formate da i numeri (01-03) e (04-05).
Per la spia in 3° pos. Le coppie sono formate da i numeri (01-02) e (04-05).
Per la spia in 4° pos. Le coppie sono formate da i numeri (01-02) e (03-05).
Per la spia in 5° pos. Le coppie sono formate da i numeri (01-02) e (03-04).

Una volta stabilito con esattezza quali sono le due coppie si agisce cosi :

Premetto che si usa il fuori 90 quando serve.

Gli elementi della prima coppia vanno sommati, e il risultato lo chiamiamo "A" ---> [ tipo "A=Fuori90(k+y)" ]

Gli elementi della seconda coppia vanno sommati, e il risultato lo chiamiamo "B" ---> [ tipo "B=Fuori90(w+j)" ]

Adesso sommiamo "A" con "B", e il risultato lo chiamiamo "C" ---->[ tipo "C=Fuori90(A+B)" ]

ora fare la differenza matematica di "A" con "B", e il risultato lo chiamiamo "D"---> [ tipo "D=Abs(A-B)" ]

Adesso differenza matematica di "C" con "D", e il risultato lo chiamiamo "E" ---> [ tipo "E=Abs(C-D)" ]

Ultimo passaggio fare il complementare a 90 dell'elemento "E", e il risultato lo chiamiamo "G" ---> [ tipo "G=(90-E)" ].

L'elemento "G" è la prima Ambata.

La seconda ambata sarà il vertibile.



I calcoli li so fare, quello che mi manca sono quelle 3-4 linee di codice per estrapolarmi i numeri esatti,
per formare le coppie, nominandole per comodità (K-Y) e (W-J).


****************************************************

Sub main()
Dim ruote(1)
Dim posta(1)
Dim n(2)
ruote(1)=1
posta(1)=1
sp=XX
ini=8000
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
If Posizione(es,1,sp)>0 Then



[ QUI VA IL RESTO DEL CODICE..... per trovare e stabilire con esattezza le coppie (K-Y) e (W-J) ].



(Il resto dei calcoli posso farlo da solo...)

n(1)=00
n(2)=00
ImpostaGiocata 1,n,ruote,posta,9,1
Gioca es
End If
Next
ScriviResoconto
End Sub


**************************************************

Chi per favore mi dice come si fa ?

Grazie






Frank

 

[Roby]

Ho risolto da solo, impegnandomi con costanza, ma devo dire grazie anche a pfca e claudio8, e guardando i loro esempi e studiando (perchè se non studi non impari), ho fatto il mio primo script, semplice ma funzionale[]

Ricava due ambate su bari alla sortita della spia 90.
Il metodo non è niente di eccezionale, ma il fatto che con l'ultima previsione in corso, c'è una convergenza con una previsione Uguale di CocoNut dall'altra parte. Non si sa mai.....

Ecco il mio 1° script :

###########################################################

'Metodo by Kjo
'Alla sortita su bari della spia 90 elabora due ambate.
Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(2)
ruote(1) = 1
posta(1) = 1
sp = 90
ini = 7957
fin = EstrazioneFin
For es = ini To fin
AvanzamentoElab ini,fin,es
If Posizione(es,1,sp) > 0 Then
h = Estratto(es,1,1)
i = Estratto(es,1,2)
l = Estratto(es,1,3)
m = Estratto(es,1,4)
q = Estratto(es,1,5)
If h = 90 Then
a = Fuori90(i + l)
b = Fuori90(m + q)
c = Fuori90(a + b)
d = Abs(a - b)
e = Abs(c - d)
g =(90 - e)
End If
If i = 90 Then
a = Fuori90(h + l)
b = Fuori90(m + q)
c = Fuori90(a + b)
d = Abs(a - b)
e = Abs(c - d)
g =(90 - e)
End If
If l = 90 Then
a = Fuori90(h + i)
b = Fuori90(m + q)
c = Fuori90(a + b)
d = Abs(a - b)
e = Abs(c - d)
g =(90 - e)
End If
If m = 90 Then
a = Fuori90(h + i)
b = Fuori90(l + q)
c = Fuori90(a + b)
d = Abs(a - b)
e = Abs(c - d)
g =(90 - e)
End If
If q = 90 Then
a = Fuori90(h + i)
b = Fuori90(l + m)
c = Fuori90(a + b)
d = Abs(a - b)
e = Abs(c - d)
g =(90 - e)
End If
n(1) = g
n(2) = Vert(g)
ImpostaGiocata 1,n,ruote,posta,15,1
Gioca es
End If
Next
Scrivi
TestoInBandaPassante " ***** Listato by Kjo ***** ",1,3,0
ScriviResoconto
End Sub


#######################################################


Ciao



Frank

 

[claudio8]

Bravo x lo script, però non credo, considerando il range di 19 colpi, che non cambi molto con altri numero spia.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[LuigiB]

un bravo pure da me ! Ciao !

 

[pfca]

Ciao kjo,
sono contento per te, l'impegno che hai messo ti ha poi ripagato.
Bravo.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by claudio8

Bravo x lo script, però non credo, considerando il range di 19 colpi, che non cambi molto con altri numero spia.
Ciao

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

Ciao claudio, grazie

Il range è di 15 colpi, non di 19, ma lo fatto apposta per vedere l'andamento e comunque non cambia niente perchè il metodo in se stesso ha fortune alterne e spesso ci prende nei primi 5/6 colpi di gioco, altre volte fa schifo totale. Sono un dilettante appassionato è lo ideato solo per passatempo e solo esclusivamente per la spia 90.
Sono vecchio, malandato e non lavoro e il tempo lo devo pur passare in qualche modo, cosi cazzeggio con il lotto! [:I][]
Ad ogni modo ho visto che la previsione converge con una previsione di CocoNut, e mi sono detto non si sa mai.....[]
Un altro motivo è che volevo fare lo script, ma non ci sono riuscito subito come hai visto, ma devo dire che sono un po avvantaggiato perchè mi divertivo con il QBASIs di tanti anni fa a fare cosette semplici. Il listato di pfca mi ha aiutato moltissimo per capire i costrutti decisionali e ragionandoci sopra riesco a fare qualcosina, ma sono sempre un dilettante al vostro confronto.[|)][B)]

ciao



Frank

 

[Roby]

quote:Originally posted by LuigiB

un bravo pure da me ! Ciao !

Nientepopòdimenochè mi sono preso un bravo dall'Illustrissimo, reverendissimo, Pontefice Max, Secondo a Nessuno,
Gran Sacerdote detentore e unico interprete del sacro rotolo "Scriptum maxximo".

Grazie Luigi, detto da te è un onore !!![:I]

Ciao


Frank

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
sono contento per te, l'impegno che hai messo ti ha poi ripagato.
Bravo.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Ciao Francesco

Grazie a te è nato un nuovo scripter !!! (piccolo, ma crescerò !.....)


ciao



Frank

 

[LuigiB]

eheh ehi kjo se mi mettevi un altro titolo diventavo pure santo
Ciao !

 

[Roby]

quote:Originally posted by LuigiB

eheh ehi kjo se mi mettevi un altro titolo diventavo pure santo
Ciao !

eheheh ! ho letto dei vecchi post dove ti avevano già proclamato santo.

L'unico titolo che mi sono scordato è....

Conte di MonteScripto !!!


Ciao



Frank

 

[LuigiB]

ahahha .. magari potessi ... Dovrei rifarmi su parecchie persone specie al lavoro ma ahime certecose capitano solo nei romanzie e nei film
Ciao !

 

[Roby]

quote:Originally posted by LuigiB

ahahha .. magari potessi ... Dovrei rifarmi su parecchie persone specie al lavoro ma ahime certecose capitano solo nei romanzie e nei film
Ciao !

Per le persone str...e che sul lavoro ci rompono, la tattica giusta e quella di farle sentire in colpa per qualcosa (architettato ad arte da noi).[}]( a volte funzia con le donne, ma non sempre, e per altre cose)[]
Al limite mettigli un po di nitroglicerina al posto dell'inchiostro nelle loro penne....[^][8D]



Frank

 

[Roby]

Dall'ultima previsione in corso data dallo script,
Vinta ambata 66 al 4°colpo.



Frank