Richiesta didattica x ESSELOTTO

[Roby]

Perfetta specularità
Ciao ESSE a scopo didattico potresti farmi un semplice script che rilevi le seguenti condizioni(sembra facile ma fra cicli FOR , ruote diametrali e altro non ci riesco):

se il 1° di BA è = vertibile del 5° di VE
se il 2° di BA è = vertibile del 4° di VE
se il 3° di BA è = vertibile del 3° di VE
se il 4° di BA è = vertibile del 2° di VE
se il 5° di BA è = vertibile del 1° di VE

se il 1° di CA è = vertibile del 5° di TO
se il 2° di CA è = vertibile del 4° di TO
se il 3° di CA è = vertibile del 3° di TO
se il 4° di CA è = vertibile del 2° di TO
se il 5° di CA è = vertibile del 1° di TO

idem C. s. per FI - RO
idem C. s. per GE – PA
idem C. s. per MI – NA per un totale quindi di 25 condizioni rilevabili

lo script dovrebbe avere un input box tipo questo
ex = InputBox("Quante estrazioni controllo?",,50)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es

A questo punto lo script mi dovrebbe scrivere (attenzione solo scrivere)
1)la data dove si è avverata una delle 25 condizioni
2)le ruote (che sono sempre 2 e necessariamente diametrali)
3) i due num vertibili

Mi interessa questo per migliorare un mio metodo e per capire pochi passaggi alla volta
Grazie ... quando vuoi !! fill

 

[esselotto]

ok filotto


esselotto

 

[esselotto]

ATTENZIONE
Questo Script Gira Esclusivamente Su SPAZIOMETRIA
non usare l8 o ld
per usare l8 e ld bisogna modificare lo script.

prelevare solo parte blu

ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(25," ") & "Esempio Fillotto ",1
ColoreTesto 1
Scrivi String(15," ") & "°°°esselotto°°° per ***Fillotto *** LottoCed",1
ColoreTesto 2
Scrivi String(75,"*"),1
ColoreTesto 0
Scrivi String(75,"_"),1
Scrivi String(75,"_"),1

Sub main()
Dim rt(2)
Dim n(2)

indietro = CInt(InputBox("Quante Estrazioni Controllo ?..","°°°esselotto°°°",50))
If indietro = False Then Exit Sub
co = 0
ini = EstrazioneFin - indietro
fin = EstrazioneFin

For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)
For r = 1 To 5  '''' prendo solo le prime 5 ruote
rt(1) = r    
rr = 11 - r     ''' assegno a rr la seconda ruota 11-la prima ruota  
rt(2) = rr      ''' ti ritrovi Bari venezia  cagliari torino ecc
For p = 1 To 5 ''' considero gli estratti
pp = 6 - p     ''' estratti in opposizione 6-p  =  1  5    2  4   3  3    4  2   5  1  
n(1) = Estratto(es,r,p) '' prendo l'estratto della prima ruota
n(2) = Estratto(es,rr,pp) '' prendo l'estratto della seconda ruota

If Vert(n(1)) = n(2) Or Vert(n(2)) = n(1) Then '''controllo se vertibili uno dell'altro 

co = co + 1 
Scrivi String(75,"*") & "Caso " & co,1
Scrivi String(75,"-"),1
ReDim Mtxbackcolor(2,1) '''' da qui inserisco parametri per colorare i numeri estratti
Mtxbackcolor(1,0) = r   '''' quindi solo per Spaziometria
Mtxbackcolor(1,1) = p
Mtxbackcolor(2,0) = rr
Mtxbackcolor(2,1) = pp
Call DisegnaEstrazione(es,Mtxbackcolor) ''' Chiamo la routine che disegna l'estrazione
End If
Next
Next
Next


ColoreTesto 1
Scrivi "°°°esselotto°°°",1
End Sub

 

[esselotto]

ciao Fillotto
script abbondantemente commentato
Nella speranza, che trovi qualche buon metodo, con un ottimo rendimento.

esselotto

 

[esselotto]

PS
non ti dimenticare di postare qualche previsione del tuo nuovo metodo.
(su lottoced) sempre in quest' Area Download.

Perchè ho notato che nella sezione Metodi e in LottoCED Forum (lottoced). Ogni giorno, ci sono troppi nuovi topic. E dopo 24 ore si ritrovano in 2^ o 3^ pagina.

Dato che i miei collegamenti sono sporadici (a modo singhiozzo).
Non riesco neanche a leggerli.

 

[fillotto]

quote:Originally posted by esselotto

PS
non ti dimenticare di postare qualche previsione del tuo nuovo metodo.
(su lottoced) sempre in quest' Area Download.

Perchè ho notato che nella sezione Metodi e in LottoCED Forum (lottoced). Ogni giorno, ci sono troppi nuovi topic. E dopo 24 ore si ritrovano in 2^ o 3^ pagina.

Dato che i miei collegamenti sono sporadici (a modo singhiozzo).
Non riesco neanche a leggerli.

Ti ringrazio esse vado a provare, a dopo !!

 

[elephantbig]

Ciao Esselotto
devo rinnovarti i miei complimenti per il tuo modo di porti in questo Forum.
Sei sempre disponibile,preparato,moderato,e non fai mistero dei tuoi saperi.
Bravo,hai i titoli per stare sul podio insieme a Luigi.
Con l'aria che tira ultimamente sul forum ci auguriamo che amici come te proliferino sempre piu.
Buon Lavoro e non perdere l'abitudine delle infopillole di Fisica anzi magari vedi di ampliare l'offerta ad altre branche (chimica,matematica etcc..)

 

[fillotto]

quote:Originally posted by esselotto

ciao Fillotto
script abbondantemente commentato
Nella speranza, che trovi qualche buon metodo, con un ottimo rendimento.

esselotto

Ehh ..qualche buon metodo, magari[8D] io sono partito da questo script che fra l'altro è stato il mio primo script e subito è stato
un successo provate a farlo girare e poi mi direte !!!
Per onestà però devo dire che cambiando posizione i risultati sono
altalenanti ciò non toglie che a prima acchitto da un osservazione
che avevo notato tempo fa mi era uscito questo script .
Ho pensato a te per avere una visione più completa della situazione
come al solito gentilmente mi hai accontentato e ho notato alcune cose : intanto con lo script che hai postato con 50 estrazioni da
controllare sono usciti 18 casi uno di questi ha dato l'ambo secco
a ruota subito dopo 1 colpo, secondo o esce l'ambo subito diciamo 10 estrazioni o esce sine die quindi è meglio fissare in 10 estrazioni
i colpi , terzo quando i numeri (vertibili) sono gemelli ,numeretti
o zerati e facile che escano i numeri della quartina radicale curiosamente però stanno nella stessa estrazione generatrice([?]) stesse ruote, è una cosa che bisognerebbe sruttare in qualche modo però mi sfugge come fare (questo è venuto fuori avendo a disposizione la visione che gestisce il tuo script), quarto ho notato anche che esce spesso l'ambo su tutte che essendo formato da due num è buono.
In definitiva chiedo agli amici del forum se hanno qualche idea per sfruttare ancora di più queste sensazioni e ovviamente a ESSE di collaborare modificando loscript con la giocata dell'ambo sulle due ruote e su tutte .. comunque ecco lo script che vi dicevo:
Sub main()
'vede se il 4° di bari è = vertibile del 2° di venezia
Dim rt(2),pta(2),nr(2) ' le ruote sono 2
'pta significa faccio la puntata "Ambo"(2) ,nr significa che i numeri sono 2
ex = InputBox("Quante estrazioni controllo?",,3000)

ini = EstrazioneFin - ex
fin = EstrazioneFin
For es = ini To fin
Messaggio es

rt(1) = 1 'Bari
rt(2) = 10 'Venezia
pta(2) = 1 '2puntate da 1 euro
k = 10 'per 10 colpi

nr(1) = Estratto(es,1,4) '2° di BA
nr(2) = Estratto(es,10,2)'4°VE
If nr(2) = Vert(nr(1)) Then 'se il num 1 è il vertibile del nnum 2 allora
ImpostaGiocata 1,nr,rt,pta,k,2'questultimo parametro(2) significa che stoppa se esce l'ambo
casi = casi + 1
'comincia a scrivere a distanza di 70 spazi " Caso n° "
Scrivi String(70," = ") & " Caso n° " & casi,1
Scrivi

Gioca es
End If
Next
Scrivi
Scrivi "Casi totali(" & casi & ")",1
ScriviResoconto
End Sub

 

[joi_lotto]

[?]

 

[fillotto]

quote:Originally posted by joi_lotto

[?]

dimmi quale è la tua perplessità cercherò di essere più chiaro!!

 

[esselotto]

X elephantbig

La Frequenza è il numero di oscillazioni complete descritte in un secondo nel S.I: si misura
in Hertz (Hz). Un Hz corrisponde ad una oscillazione ogni secondo.
°°°esselotto°°°

 

[esselotto]

X elephantbig e Fillotto

 

[esselotto]

 

[esselotto]

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie

 

[esselotto]

per filotto

vuoi modifichi lo script???
inserendo, i due numeri(ricercati cioè i vertibili) per ambata e ambo su ruota
e ambo su tutte????

ciao

 

[oruam]

quote:Originally posted by esselotto

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie

un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte

 

[esselotto]

quote:Originally posted by oruam

quote:Originally posted by esselotto

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie

un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte

Grazie oruam

 

[fillotto]

quote:Originally posted by esselotto

per filotto

vuoi modifichi lo script???
inserendo, i due numeri(ricercati cioè i vertibili) per ambata e ambo su ruota
e ambo su tutte????

ciao

si ma non ambata, solo ambo sulle ruote interessate e 2^ giocata ambo su tutte max 10 estaz.

 

[fillotto]

quote:Originally posted by oruam

quote:Originally posted by esselotto

il 79 si e presentato su tutte e due le ruote
Aspetto una vostra previsione

grazie

un piccolissimo parere,inglobando nella figura il 79,
la previsione da questa terzina 58-67-2 anche a tutte

Scusa oruam come hai ragionato prevedendo la terzina 58-67-2?
non è più logico chiudere con la quartina 54 - 3 e 30 - 52
dove tutte i num ripetuti hanno il loro speculare tranne il 79
con appunto la quartina 54 - 3 e 30 - 52

 

[joi_lotto]

quote:Originally posted by fillotto

quote:Originally posted by joi_lotto

[?]

dimmi quale è la tua perplessità cercherò di essere più chiaro!!

nessuna perplessità.
E' che ieri non c'ero di testa.
Ciao.