Richiesta script statistico sulla tendenza delle ultime sortite

[abasul]

Buongiorno Tom,

Quando avremo terminato il lavoro con un listato ben fatto - a questo punto realizzato solo dalla bravissima Cinzia perché ne è l'autrice - e che soddisferà quindi tutti i requisiti da me esposti come studioso del Lotto, allora spiegherò a tutti i componenti del nostro Forum il motivo per cui mi sono mosso in una certa maniera per cercare di realizzare insieme a degli appassionati un ottimo "Programma" del Lotto gratuito a tutti.

Queste sono solo previsioni e pertanto non si garantisce nessuna vincita sicura.

 

[silop2005]

Scrivo dal cellulare

prima di lanciare lo script con spaziometria
io ho messo 50 al posto di 500
E ha funzionato .
xCinzia
i ritardi sono decrescenti
al posto di crescenti.

silop

 

[lotto_tom75]

x abasul: ok no problem.

Confermo quanto riportato da silop. Analizzando ultime 50 estrazioni funzia Brava Cinzia!

 

[lotto_tom75]

Dunque ragazza/i con estrema soddisfazione, salvo errori..., sembra che ce l'abbia fatta da solo ad implementare la tabella colorata nel vostro spettacolare script

'Ricerca di Abasul :terzine per ambi con ritardi crescenti  (Cinzia) - Ottimizzato x laghetto numerico desiderato by lotto_tom75

Scrivi " terzine che hanno concluso la fase di 3 ritardi crescenti, ritardi eventi storici e attuale  ":Scrivi
Sub Main()
Dim n(3),ru(1)
r = 11
Scrivi "             Ruota " & SiglaRuota(r):Scrivi
ru(1) = r
q = 30:q1 = 40:q2 = 50

'n è l'archivio che contiene i numeri...
'provo a sostituirlo con il buon vecchio anum da tabella... arcobaleno :)
Dim acol
Dim numeriscelti
Dim Classe
Classe = 3

'ReDim aNum(90)
ReDim aNum(0)
numeriscelti = ScegliNumeri(aNum)
Dim coltot

coltot = InitSviluppoIntegrale(aNum,Classe)

'For i = 1 To 88
'For j = i + 1 To 89
'For k = j + 1 To 90
'c = 0:cc = 0
'n(1) = i
'n(2) = j
'n(3) = k

If coltot > 0 Then

Do While GetCombSviluppo(coltot) = True

'Scrivi

For es = EstrazioneFin To EstrazioneFin - 50 Step - 1
c = c + 1


'Call AvanzamentoElab(1,coltot,i) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR

If SerieFreq(es,es,coltot,ru,2) > 0 And SerieFreq(es,es,coltot,ru,2) < 2 Then
rt = SerieRitardo(1,es - 1,coltot,ru,2)
rt1 = SerieRitardo(1,es - 1 - rt - 1,coltot,ru,2)
rt2 = SerieRitardo(1,es - 1 - rt1 - 1 - rt - 1,coltot,ru,2)
If es > es - 1 Then
If es - 1 >(es - 1 - rt - 1) Then
If(es - 1 - rt - 1) >(es - 1 - rt1 - 1 - rt - 1) Then

' ritardi crescenti metti >
' ritardi decrescenti metti <

If rt > rt1 Then
If rt1 > rt2 Then

cc = cc + 1
If cc = 1 Then Scrivi
If cc > 1 Then Scrivi " ritardo evento " & FormatSpace(c,4,1)
s = SeriePrima(es + 1,EstrazioneFin,coltot,ru,2)
st = s - es
If es = EstrazioneFin Then Scrivi " fase conclusa ",1
Scrivi FormatSpace(cc,4,1) & "  " & FormatSpace(es,4,1) & "  " & StringaNumeri(coltot) & "  " & FormatSpace(rt,4,1)_
      & "  " & FormatSpace(es - 1 - rt,4,1) & "  " & FormatSpace(rt1,4,1) & "  " & FormatSpace(es - 1 - rt1 - 1 - rt,4,1)_
      & "  " & FormatSpace(rt2,4,1) & "  ",0,0
If s > 0 Then Scrivi " st " & FormatSpace(st,4,1) & " alla " & FormatSpace(es + st,4,1) & "  ",0,0 Else Scrivi "IN CORSO con RC " & FormatSpace(EstrazioneFin - es,3,1) & " ",1,0



c = 0
End If
End If
End If
End If
End If
End If


If ScriptInterrotto Then Exit Do
Next
Loop
End If


'Next
'Next
'Next
End Sub

Sperando che torni utile anche voi per poter restringere il campo delle vostre ottime ricerche

 

[abasul]

Grazie Tom per averci fatto provare la funzione della tabella colorata, che però solo a fine lavoro potrà essere
abilitata o no, nello script, come opzione, da chi, usando il listato di Cinzia, anzichè seguire i nostri consiglli previsionistici vuole ricavarsi da solo una previsione.

Un chiarimento per Cinzia.

Come ho già accennato in un post precedente, noi adesso nel nostro percorso di lavoro ci stiamo occupando solo di elaborare un unico script. Lo stesso, alla fine delle nostre implementazioni dovrà restituirci una sola previsione da consigliare agli amici del forum, prendendo però in esame solo le fasi crescenti di rit. di ambi fino a 3 o più eventi di quelle che ci propone il listato di base.
In definitiva voglio dire questo, che se lo script di base aggiornato mi segnala che le terzina per ambo sono:

1) 1 - 7 - 20 ' 9492 (errore, dall'estr. 9498-9527)
2) 1 - 18 -.34 ' 9414 (errore, dall'estr. 9417-9527; e i rit. di ambi sortiti crescenti sono 4)
etc
etc
etc

a me sapere quante ripetizioni di eventi crescenti o decrescenti abbia avuto ad esempio la terzina 1 - 2 - 3 o altre non comprese nell'elenco non interessa nulla e tantomeno interessa allo script, perché molti dati inutili finiscono solo per impallarlo.

Ecco allora come dobbiamo procedere per implementare lo script di base.

Conoscendo dal programma "Spaziometria" oppure da "L8+" l'iter storico della terzina che vediamo sopra 1-7-20, ovverosia dei ritardi degli ambi sortiti sulle 10 ruote, +1 che è la Nazionale, si sono o no verificate sequenze consecutive di ambi sortiti in modo crescenti con 3 esiti in su oltre all'ultima che vediamo dall'estr. 9498 (perché come ti ho spiegato, Cinzia, si inizia il conteggio dal ritardo dell'ambo sortito dopo quello decrescente) all'estr. 9527? se sì, noi li dobbiamo trovare in output ognuna dalla "data tot. alla data tot." compresi i rispettivi ritardi sortiti, a cominciare dalla penultima, cioè quella in cui la fase crescente si è conclusa con un'estrazione che è la più vicina alla 9498 - alla terz'ultima, alla quart'ultima etc, sempre se ovviamente risultano -.

Poi si passa ad analizzare la terzina 1 -18 - 34; 1 -18 - 83 e via dicendo.

Capisco che le mie spigazioni da lottologo sono difficili da assimilare, ma con un po' d'impegno ci riusciamo.

Nb: Poiché da un controllo effettuato ho constatato nello script di base che di fasi crescenti di ambi sortiti ce ne sono anche più di 3,
prego Cinzia di aggiornare ancora una volta la dicitura in alto, scrivendo: "terzine che hanno appena
concluso la fase di 3 ritardi crescenti o anche più".

Queste sono solo previsioni e pertanto non si garantisce nessuna vincita sicura.

 

[silop2005]

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]SPMT vers. 1.6.25_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Ciao Cinzia ,[/TD]
[/TR]
[TR]
[TD]ti allego il tuo script con piccole aggiunte che Spaziometria offre.[/TD]
[/TR]
[TR]
[TD]Queste velocizzano l'elaborazione dei calcoli, aggiungendo semplicemente alle funzioni "Serie…." la parola "Turbo"[/TD]
[/TR]
[TR]
[TD]in effetti in 4:24 minuti per 50 estrazioni su TUTTE [/TD]
[/TR]
[TR]
[TD]trova tutte le 60.133 terzine x Ambo che rispecchiano le condizioni imposte allo script[/TD]
[/TR]
[TR]
[TD](delle 117.480 terzine che si combinano con i 90 numeri del lotto)

'Ricerca di Abasul :terzine per ambi con ritardi crescenti  (Cinzia)
			'Scrivi " terzine che hanno concluso la fase di 3 ritardi crescenti, ritardi eventi storici e attuale  ":Scrivi
			Sub Main()
			   Dim n(3),ru(1)
			   r = 11
			   Scrivi "             Ruota " & SiglaRuota(r):Scrivi
			   Scrivi " terzine che hanno concluso la fase di 3 ritardi crescenti, ritardi eventi storici e attuale  ":Scrivi ' silop
			   ru(1) = r
			   q = 30:q1 = 40:q2 = 50
			   For i = 1 To 88
			      For j = i + 1 To 89
			         For k = j + 1 To 90
			            c = 0:cc = 0
			            n(1) = i
			            n(2) = j
			            n(3) = k
			            Scrivi
			            For es = EstrazioneFin To EstrazioneFin - 50 Step - 1
			               c = c + 1
			               ' note silop = alle funzioni aggiungere il "TURBO", i calcoli in Spaziometria vanno più veloci
			               If SerieFreqTurbo(es,es,n,ru,2) > 0 And SerieFreqTurbo(es,es,n,ru,2) < 2 Then
			                  rt = SerieRitardoTurbo(1,es - 1,n,ru,2)
			                  rt1 = SerieRitardoTurbo(1,es - 1 - rt - 1,n,ru,2)
			                  rt2 = SerieRitardoTurbo(1,es - 1 - rt1 - 1 - rt - 1,n,ru,2)
			                  If es > es - 1 Then
			                     If es - 1 >(es - 1 - rt - 1) Then
			                        If(es - 1 - rt - 1) >(es - 1 - rt1 - 1 - rt - 1) Then
			                           ' ritardi crescenti metti >
			                           ' ritardi decrescenti metti <
			                           If rt > rt1 Then
			                              If rt1 > rt2 Then
			                                 cc = cc + 1
			                                 If cc = 1 Then Scrivi
			                                 If cc > 1 Then Scrivi " ritardo evento " & FormatSpace(c,4,1)
			                                 s = SeriePrima(es + 1,EstrazioneFin,n,ru,2)
			                                 st = s - es
			                                 If es = EstrazioneFin Then Scrivi " fase conclusa ",1
			                                 Scrivi FormatSpace(cc,4,1) & "  " & FormatSpace(es,4,1) & "  " & StringaNumeri(n) & "  " & FormatSpace(rt,4,1)_
			                                 & "  " & FormatSpace(es - 1 - rt,4,1) & "  " & FormatSpace(rt1,4,1) & "  " & FormatSpace(es - 1 - rt1 - 1 - rt,4,1)_
			                                 & "  " & FormatSpace(rt2,4,1) & "  ",0,0
			                                 If s > 0 Then Scrivi " st " & FormatSpace(st,4,1) & " alla " & FormatSpace(es + st,4,1) & "  ",0,0 Else Scrivi "IN CORSO con RC " & FormatSpace(EstrazioneFin - es,3,1) & " ",1,0
			                                 c = 0
			                              End If
			                           End If
			                        End If
			                     End If
			                  End If
			               End If
			            Next
			         Next
			      Next
			   Next
			   Scrivi
			   Scrivi " --------------"
			   Call Scrivi("Tempo di Elaborazione : " & TempoTrascorso)
			End Sub

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]

[/TD]
[/TR]
[TR]
[TD]Solo che lo script evidenzia i TRE ritardi trovati in ordine decrescente (dal più grande al più piccolo)[/TD]
[/TR]
[TR]
[TD]no in ordine crescente, vedi titolo.

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 782"] Ruota TT[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD] terzine che hanno concluso la fase di 3 ritardi crescenti, ritardi eventi storici e attuale [/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD] 1 9501 1.2.3 78 9422 7 9414 3 st 23 alla 9524 [/TD]
[/TR]
[TR]
[TD] 1 9493 1.2.6 43 9449 18 9430 13 st 3 alla 9496 [/TD]
[/TR]
[TR]
[TD] 1 9524 1.2.7 14 9509 10 9498 8 IN CORSO con RC 2 ritardo evento 15[/TD]
[/TR]
[TR]
[TD] 2 9509 1.2.7 10 9498 8 9489 3 st 15 alla 9524 ritardo evento 24[/TD]
[/TR]
[TR]
[TD] 3 9485 1.2.7 20 9464 8 9455 0 st 4 alla 9489 [/TD]
[/TR]
[TR]
[TD] ecc ….[/TD]
[/TR]
[TR]
[TD] ecc…[/TD]
[/TR]
[TR]
[TD] 1 9511 85.88.89 5 9505 3 9501 1 st 3 alla 9514 ritardo evento 27[/TD]
[/TR]
[TR]
[TD] 2 9484 85.88.89 16 9467 12 9454 8 st 2 alla 9486 [/TD]
[/TR]
[TR]
[TD] 1 9498 86.87.88 56 9441 11 9429 10 st 1 alla 9499 [/TD]
[/TR]
[TR]
[TD] 1 9498 86.87.89 45 9452 8 9443 1 st 1 alla 9499 [/TD]
[/TR]
[TR]
[TD] 1 9484 86.88.89 29 9454 8 9445 1 st 2 alla 9486 [/TD]
[/TR]
[TR]
[TD] 1 9477 86.88.90 43 9433 3 9429 0 st 21 alla 9498 [/TD]
[/TR]
[TR]
[TD] --------------[/TD]
[/TR]
[TR]
[TD]Tempo di Elaborazione : 00:04:24[/TD]
[/TR]
[/TABLE]

'===========================
[/TD]
[/TR]
[/TABLE]
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]

[/TD]
[/TR]
[TR]
[TD]Anche lo script di Lotto_Tom aggiungendo il "Turbo" impiega 4:38 minuti [/TD]
[/TR]
[TR]
[TD]ed una sola volta si clicca su "continua"[/TD]
[/TR]
[TR]
[TD]… però la cartella colorata non l'ho vista.

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 840"]terzine che hanno concluso la fase di 3 ritardi crescenti, ritardi eventi storici e attuale [/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD] Ruota TT[/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD] [/TD]
[/TR]
[TR]
[TD] 1 9501 1.2.3 78 9422 7 9414 3 st 23 alla 9524 ritardo evento 161[/TD]
[/TR]
[TR]
[TD] 2 9493 1.2.6 43 9449 18 9430 13 st 3 alla 9496 ritardo evento 20[/TD]
[/TR]
[TR]
[TD] 3 9524 1.2.7 14 9509 10 9498 8 IN CORSO con RC 2 ritardo evento 15[/TD]
[/TR]
[TR]
[TD] 4 9509 1.2.7 10 9498 8 9489 3 st 15 alla 9524 ritardo evento 24[/TD]
[/TR]
[TR]
[TD] ecc ….[/TD]
[/TR]
[TR]
[TD] ecc…[/TD]
[/TR]
[TR]
[TD]60116 9484 83.88.89 12 9471 10 9460 0 st 2 alla 9486 ritardo evento 87[/TD]
[/TR]
[TR]
[TD]60117 9499 83.89.90 27 9471 14 9456 10 IN CORSO con RC 27 ritardo evento 36[/TD]
[/TR]
[TR]
[TD]60118 9514 84.85.86 19 9494 16 9477 3 st 11 alla 9525 ritardo evento 88[/TD]
[/TR]
[TR]
[TD]60119 9477 84.85.87 3 9473 2 9470 0 st 4 alla 9481 ritardo evento 200[/TD]
[/TR]
[TR]
[TD]60120 9481 84.86.87 20 9460 18 9441 10 st 17 alla 9498 ritardo evento 33[/TD]
[/TR]
[TR]
[TD]60121 9499 84.86.88 47 9451 20 9430 0 st 1 alla 9500 ritardo evento 51[/TD]
[/TR]
[TR]
[TD]60122 9499 84.86.89 39 9459 15 9443 10 st 15 alla 9514 ritardo evento 270[/TD]
[/TR]
[TR]
[TD]60123 9484 84.88.89 24 9459 4 9454 2 st 2 alla 9486 ritardo evento 87[/TD]
[/TR]
[TR]
[TD]60124 9499 84.89.90 20 9478 4 9473 1 st 17 alla 9516 ritardo evento 147[/TD]
[/TR]
[TR]
[TD]60125 9505 85.86.89 43 9461 17 9443 10 st 11 alla 9516 ritardo evento 31[/TD]
[/TR]
[TR]
[TD]60126 9525 85.86.90 16 9508 9 9498 3 IN CORSO con RC 1 ritardo evento 31[/TD]
[/TR]
[TR]
[TD]60127 9494 85.86.90 32 9461 26 9434 0 st 4 alla 9498 ritardo evento 187[/TD]
[/TR]
[TR]
[TD]60128 9511 85.88.89 5 9505 3 9501 1 st 3 alla 9514 ritardo evento 27[/TD]
[/TR]
[TR]
[TD]60129 9484 85.88.89 16 9467 12 9454 8 st 2 alla 9486 ritardo evento 139[/TD]
[/TR]
[TR]
[TD]60130 9498 86.87.88 56 9441 11 9429 10 st 1 alla 9499 ritardo evento 51[/TD]
[/TR]
[TR]
[TD]60131 9498 86.87.89 45 9452 8 9443 1 st 1 alla 9499 ritardo evento 116[/TD]
[/TR]
[TR]
[TD]60132 9484 86.88.89 29 9454 8 9445 1 st 2 alla 9486 ritardo evento 58[/TD]
[/TR]
[TR]
[TD]60133 9477 86.88.90 43 9433 3 9429 0 st 21 alla 9498 [/TD]
[/TR]
[TR]
[TD] --------------[/TD]
[/TR]
[TR]
[TD]Tempo di Elaborazione : 00:04:38
'================
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]

[/TD]
[/TR]
[TR]
[TD]Auguri ad Abasul per il prosieguo dei lavori con la brava e disponibile Cinzia.[/TD]
[/TR]
[TR]
[TD]'===================
[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona giornata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD] Silop [/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]

 

[Cinzia27]

Ringrazio Silop per i suggerimenti come serieTurbo per accelerare l' elaborazione, preciso che i ritardi sono sempre crescenti ma vanno letti al contrario. Farò una modifica in tal senso.
Purtroppo, Abasul faccio un pò fatica a comprendere. Ad esempio, sono ammesse sovrapposizioni tra fasi oppure
ci dev' essere un' interruzione da parte di un ritardo "controcorrente" che interrompe la fase di ritardi crescenti ?
Attendo di chiarirmi le idee almeno su questo punto.Per il resto Abasul, ti chiederei di copiaincollarmi una riga dell' output e di scriverci letteralmente accanto ciò che devo aggiungere e ciò che devo togliere.
Ciao a tutti
Cinzia

 

[abasul]

Buonanotte Cinzia,
mi è venuta un'idea per comprenderci meglio.

Lo script che io chiamo "di base" con cui dobbiamo sempre lavorarci sopra è stato da te pubblicato il 14-9-18, alle ore 21,49, però in questo listato dobbiamo inserire una modifica e correggere alcuni piccoli errori.
Ecco come possiamo fare:
Prendiamo ad esempio la terzina n° 1 che in output ci appare in questa maniera all'ultima estrazione aggiornata di Spaziometria 9527.

1 1. 7. 20 9492 2 9498 5 9509 10 9527 17

se il ritardo precedente all'estrazione 9492 da cui ha inizio la fase crescente è > 2 (nel caso specifico il rit. è stato 23; estr. 9489), allora noi possiamo aggiungere nella stessa riga dopo l'ultimo rit. 17 (rit. cons. cresc. 3), e far iniziare la sequenza non più dall'estraz. 9492 2 (che verrà eliminata), ma dall'estrazione 9498 5 9509 10 9527 17 (rit. cons. cresc. 3);
se invece il ritardo fosse stato < di 2 (rivedi sopra), allora noi avremmo scritto dopo il rit. 17 (rit.cons. cresc. 4) e lasciata intatta la sequenza così come la vediamo ora.

Dette modifiche ovviamente devono anche riguardare le altre terzine successive alla prima che sono in tutto 328. Spero di essere stato chiaro. Di nuovo un saluto.

Queste sono solo previsioni e pertanto non si garantisce nessuna vincita sicura.

 

[Cinzia27]

Ciao, Abasul, provalo e fammi sapere.
Cinzia

'Lo script che io chiamo "di base" con cui dobbiamo sempre lavorarci sopra è stato da te pubblicato il 14-9-18, alle ore 21,49,
'però in questo listato dobbiamo inserire una modifica e correggere alcuni piccoli errori.
'Ecco come possiamo fare:
'Prendiamo ad esempio la terzina n° 1 che in output ci appare in questa maniera all'ultima estrazione aggiornata di Spaziometria 9527.

'1 1. 7. 20 9492 2 9498 5 9509 10 9527 17

'se il ritardo precedente all'estrazione 9492 da cui ha inizio la fase crescente è > 2 (nel caso specifico il rit. è stato 23; estr. 9489), allora noi possiamo aggiungere nella stessa riga dopo l'ultimo rit. 17 (rit. cons. cresc. 3), e far iniziare la sequenza non più dall'estraz. 9492 2 (che verrà eliminata), ma dall'estrazione '9498 5 9509 10 9527 17 (rit. cons. cresc. 3);
'se invece il ritardo fosse stato < di 2 (rivedi sopra), allora noi avremmo scritto dopo il rit. 17 (rit.cons. cresc. 4) e
'lasciata intatta la sequenza così come la vediamo ora.

'Dette modifiche ovviamente devono anche riguardare le altre terzine successive alla prima che sono in tutto 328.
'Spero di essere stato chiaro. Di nuovo un saluto.
'Ricerca di Abasul :terzine per ambi con ritardi crescenti o decrescenti (Cinzia)
'Scrivi " terzine che hanno appena concluso la fase di 4 ritardi crescenti, cioè con ritardo attuale=0 ":scrivi


' ritardi crescenti metti >    
' ritardi decrescenti metti <

'Ricerca di Abasul :terzine per ambi con ritardi crescenti o decrescenti (Cinzia)
'Scrivi " terzine che hanno appena concluso la fase di 3 ritardi crescenti":scrivi
Sub main()
Dim n(3),ru(1)
r=11
Scrivi "             Ruota "&siglaruota(r):scrivi

Scrivi "blu = ritardo precedente all' inizio della fase di ritardi crescenti >al 1° ritardo della fase di ritardi crescenti  "
Scrivi "nero = ritardo precedente all' inizio della fase di ritardi crescenti <al 1° ritardo della fase di ritardi crescenti  "
scrivi
ru(1)=r
q=30:q1=40:q2=50
For i=1 To 88
For j=i+1 To 89
For k=j+1 To 90
n(1)=i
n(2)=j
n(3)=k
es=EstrazioneFin


If SerieFreq(es,es,n,ru,2)>0 Then
rt=SerieRitardo(1,es-1,n,ru,2)
rt1=SerieRitardo(1,es-1-rt-1,n,ru,2)
rt2=SerieRitardo(1,es-1-rt1-1-rt-1,n,ru,2)
rt3=SerieRitardo(1,es-1-rt2-1-rt1-1-rt-1,n,ru,2)
rt4=SerieRitardo(1,es-1-rt3-1-rt2-1-rt1-1-rt-1,n,ru,2)
rt5=SerieRitardo(1,es-1-rt4-1-rt3-1-rt2-1-rt1-1-rt-1,n,ru,2)

' ritardi crescenti metti >    
' ritardi decrescenti metti <
If rt1>rt2 Then
If rt2>rt3 Then
If rt3>rt4 Then
c=c+1
ri=FormatSpace(es-1-rt3-1-rt2-1-rt1-1-rt,4,1)&"  "&FormatSpace(rt4,4,1)&"  "& _
FormatSpace(es-1-rt2-1-rt1-1-rt,4,1)&"  "&FormatSpace(rt3,4,1)&"  "&FormatSpace(es-1-rt1-1-rt,4,1)&"  "& _
FormatSpace(rt2,4,1)&"  "&FormatSpace(es-1-rt,4,1)&"  "&FormatSpace(rt1,4,1)
If rt5>rt4 Then
ColoreTesto 1
Scrivi FormatSpace(c,4,1)&"  "&StringaNumeri(n)&"  "&FormatSpace(es-1-rt4-1-rt3-1-rt2-1-rt1-1-rt,4,1)&"  "&FormatSpace(rt5,4,1)&"  "&ri,1
Else
If rt5<rt4 Then
ColoreTesto 0
Scrivi FormatSpace(c,4,1)&"  "&StringaNumeri(n)&"  "&ri&"  "&FormatSpace(es-1,4,1)&"  "&FormatSpace(rt,4,1)
ColoreTesto 0
End If
End If
End If
End If
End If
End If
Next
Next
Next

End Sub

 

[abasul]

Ciao Cinzia,

Mi devi perdonare ma non riusciamo proprio ad inenderci.

Con questo ultimo script di cui solo la tua bravura poteva a mio avviso arrivare,
per chi s'intende di Lotto hai dimostrato che la teoria matematica messa da noi in atto dà
moltissimi risultati positivi, ma non ha niente a che vedere con ciò che ti avevo spiegato.
Tu pensa, che tra 281 terzine che vediamo in output, noi con
il lavoro che dovremo mettere ancora in campo, senza far impallare ovviamente il listato,
dovremmo scartare 280 terzine e farcene rimanere una sola; da quest'ultima,
dovremmo selezionare soltanto 2 ambi secchi per pronosticarli su due o tre ruote per 4 o 5
colpi al massimo.

Cinzia, come facciamo ad andare avanti, se rispetto allo script di base tu adesso mi hai cambiato
l'ultimo ritardo a destra che invece dovrebbe essere quello crescente sortito
all'ultima estrazione aggiornata di Spaziometria?
Io con tutta la bona volontà non me la sento più di farti lavorare invano, perché altrimenti se accettassi
per buono il tuo lavoro per farti contenta, ma che non rispecchia la statistica, perderei solo di credibilità
perché cadrei sempre in contraddizione all'occhio di un esperto.
Io ti ringrazio perché ho trovato in te una stupenda persona, ma non me la sento più di andare avanti
in questo percorso,

PER CUI CHIUDO LA MIA DISCUSSIONE [h=1]Richiesta script statistico sulla tendenza delle ultime sortite[/h]
Buonanotte a tutti

 

[joe]

Ciao Abasul,

scusa se mi permetto ma raramente capita di leggere qualcosa di interessante da un lato,

e di trovare qualcuno capace dall'altro.

Dunque non per difendere Cinzia (che con quanto dimostra non ha bisogno delle mie difese)

e di complimentarmi con te per aver proposto un qualcosa che ho già definito interessante

(e questo è evidente nell'intervento di Cinzia e di alcuni tra i più esperti conoscitori della materia) ...

Semplicemente esprimo il mio rammarico per la "pura incomprensione"

dovuta sia alla complessità della richiesta e dell'elaborato,

sia dai mezzi e dai tempi ... a volte poco congeniali ad un sereno e positivo

evolversi in un costruttivo sviluppo.

Dunque ti consiglierei (come consiglio a tutti ed a me stesso) di leggere attentamente

quali sono le richieste perché è inutile ripetersi in frasi del tipo

"è chiaro" / "come ho già detto" / "volevo altro"

Se fosse chiaro e già recepito non ci sarebbe bisogno di chiedere delucidazioni.

Se, chi volenteroso di capire chiede, è perché non ha ancora compreso bene

o ha necessita di ulteriori indicazioni.

Perché sino a quel momento non ha trovato una soluzione piena o efficace al redigendo algoritmo di calcolo.

Tutte le indicazioni necessarie.

Oppure, a volte, ha necessità di proporre dei dati "intermedi", dei dati reali, su cui ragionare.

Buona giornata a tutte/i.

 

[Mat]

Ciao a tutti,
condivido in tutto quanto detto da Joe e rinnovo i miei complimenti al lavoro ottimo svolto da Cinzia.
Ripeto quanto già detto nel mio primo intervento su questo post:
<<Ciao a tutti,
intervengo perchè mi sembra doveroso fare un complimento a Cinzia per lo script: preciso, con tutti i ritardi e compresi gli indici di sorteggio di ciascuna uscita molto utili in tanti casi in excel, perfetto ed essenziale senza fronzoli e per di più velocissimo.
Avevo già mezzi che mi davano lo stesso risultato per gli ambi, ma per le terzine mi mancava: grazie a Cinzia, perchè credo che le terzine diano risultati migliori degli ambi per tempi ovviamente molto più ridotti.>>

A me interessava solo questo, soddisfattissimo dello script riportato al messaggio # 7 ed ancora di più al messaggio # 29.
Questi mi permettono di fare quello che a me interessa ed allo stesso modo ognuno credo che potrà sperimentare a suo piacimento i dati e gli sfaldamenti successivi.
Questi dati nella forma in cui sono sistemati mi permettono di fare rielaborazioni a piacimento per varie ipotesi.
Tutto il resto a me personalmente non interessa, perchè non cerco un metodo, ma cercavo uno strumento per ricavare certi dati ed ora li ho tutti.
Grazie ancora Cinzia, ed auguro a tutti una buona giornata e buoni studi,
ciao,

Matteo

 

[Cinzia27]

Ciao, Abasul. Ti ringrazio per l' apprezzamento. La tua ricerca, come l' hai prospettata inizialmente, è molto interessante, perciò ho lavorato volentieri. Man mano che si andava avanti, ho cercato di capire le istruzioni senza farmi più domande sul perché di esse e cercando di eseguirle fedelmente. Non ci sono riuscita ? Nessun male. Anzi, senza tutto questo ambaradan non avremmo condiviso un ottimo studio seguito da uno script. Mi riferisco alla ricerca sulle sortite dopo una serie di 3 o più ritardi crescenti, poiché non credo di sbagliarmi se dico che è quella ad essere rimasta impressa nell' immaginario collettivo .
Pertanto, anch' io ti ringrazio, Abasul, ma se permetti, ancor di più ringrazio per l' apprezzamento del mio lavoro, i miei amici Matteo e Joe, miei straordinari maestri .
Rispetto la tua decisione di chiudere qui la discussione,se è per evitare di farmi intervenire inutilmente, ti tranquillizzo, puoi continuarla, la seguirò senza intervenire.
Ringrazio ancora tutti i copartecipanti.
Un caro saluto ad Abasul
Cinzia

 

[abasul]

Buonasera Joe.

Io e Cinzia, con l'apporto di Mat, LottoTom e Silop2005, avevamo deciso di collaborare insieme per iniziare un percorso di studi statistici matematici da applicare ad uno script per il gioco del Lotto realizzato da lei e che pertanto sarebbe dovuto essere man mano implementato. Purtroppo, però, per delle applicazioni che insieme non siamo riusciti ad immettere nel listato, ad un certo punto ci siamo dovuti fermare perché non riusciamo in nessun modo ad andare avanti.
Tutto qui.
Come riperto, Cinzia è bravissima in campo informatico e di questo ne ha dato prova a tutti.
Io per le poche cose che siamo riusciti a costruire insieme non posso far altro che ringraziarla
immensamente perché adesso del suo lavoro ne possiamo usufruire tutti.
Quindi adesso andare a cavillare su qualche parola da me detta e che semplicemente hanno avuto
solo lo scopo di far capire a Cinzia che non c'erano più i presupposti per poter proseguire il nostro percorso, non ha alcun senso. Io non potevo richiedere a Cinzia di preparare listati su listati senza accostarci
in una certa maniera ad uno sviluppo statistico che alla fine ci avrebbe regalato anche belle soddisfazioni.



Queste sono solo previsioni e pertanto non si garantisce nessuna vincita sicura.

 

[abasul]

Grazie Cinzia.
Con rispetto e grande stima,
Ti mando i miei più sinceri saluti

 

[LuigiB]

ragazzi scusate se intervengo, anche io ho seguito da esterno questa discussione perche mi fa piacere vedere nuovi scripter all 'opera ,
Io ho avuto l'impressione che la decisione di Abasul di interrompere tutto alla prima incomprensione sia stata un po' affrettata e nonostante le parole gentili devo dire anche irrispettosa nei riguardi del lavoro di Cinzia ..sicuramente un fatto non voluto ne sono sicuro ... però io che faccio il programmatore per lavoro vi posso garantire( come del resto conferma Joe) che di incomprensioni ce ne possono essere ed è normale , la discussione in questi casi deve continuare ,il programmatore che non ha capito ha bisogno di ulteriori spiegazioni , non si puo essere nella testa del committente ..pur avendo la volontà di fare il programma.. si persegue un obiettivo comune : il committente vuole il programma e il programmatore vuole farlo.... si tratta di un lavoro che si sviluppa prima di tutto con un 'analisi e solo dopo con la stesura di un prototipo...perciò se c'è qualcosa che non va bene per me dovreste continuare a lavorare non abbandonare ...
Rinnovo le scuse se mi sono intromesso ...
un saluto a tutti ,

 

[silop2005]

[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]SPMT vers. 1.6.25_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]Ciao abasul ,[/TD]
[/TR]
[TR]
[TD]da appassionato e studioso di lotto condivido in tutto le parole di LuigiB (programmatore).[/TD]
[/TR]
[TR]
[TD]Non bisogna arrendersi alla prima "incomprensione" ed abbandonare il progetto….[/TD]
[/TR]
[TR]
[TD]bisogna insistere (se veramente si vuole) nel farsi capire con degli ESEMPI reali[/TD]
[/TR]
[TR]
[TD]e spiegare passo passo ( permettetemi l'espressione " imboccare con il cucchiaino") [/TD]
[/TR]
[TR]
[TD]i vari passaggi iniziando dall'inizio e continuando le spiegazioni SOLO se le precedenti[/TD]
[/TR]
[TR]
[TD]sono state "assorbite"/ "capite" dal programmatore (nel nostro caso dalla brava programmatrice Cinzia).
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]

[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[TR]
[TD]Anch'io negli anni passati ho avuto modo di "farmi capire" dal programmatore LuigiB[/TD]
[/TR]
[TR]
[TD]per un progetto (vedi SVP Sistemi Virtuali Paralleli) che con MOLTA PAZIENZA[/TD]
[/TR]
[TR]
[TD]e perseveranza portammo a termine dopo mesi di spiegazioni e script[/TD]
[/TR]
[TR]
[TD]esibendo moltissimi esempi reali ed immagini, il tutto per "farmi capire" [/TD]
[/TR]
[TR]
[TD]cosa veramente volevo che il programmino (lo script) facesse.
[TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 755"]

[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[TR]
[TD]Questo mio pensiero non vuole essere un invito a continuare (seppure lo spero),[/TD]
[/TR]
[TR]
[TD]perché ognuno è padrone delle sue azioni.[/TD]
[/TR]
[TR]
[TD]====================== [/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona notte a tutti.[/TD]
[/TR]
[TR]
[TD]A presto [/TD]
[/TR]
[TR]
[TD] Silop [/TD]
[/TR]
[/TABLE]

 

[abasul]

Buonasera Luigi,

Forse qui ancora riesco a farmi capire.

La mia, di cercare di far progettare uno script di cui ne avremmo beneficiato tutti (perché con esso si ottengono risultati immediati) era stata una "richiesta" rivolta a tutti gli scripter di questo forum. Se tale richiesta veniva accolta, bene, altrimenti non di certo me ne facevo una ragione. Le circostanze hanno voluto che dopo diversi giorni la mia "richiesta" è stata accolta solo da Cinzia e insieme ad alcuni collaboratori abbiamo deciso di iniziare un percorso che però si è interrotto per il semplice fatto che non ci sono le condizioni adatte per poter proseguire.

 

[LuigiB]

Scusa Abasul quali sarebbero le condizioni non adatte ? Io la parola " non sono capace " da parte di Cinzia non l ho letta....

 

[Cinzia27]

Ciao a tutti.
Mi ero ripromessa di non intervenire più in questo topic, ma la presenza di LuigiB, a cui siamo grati per aver messo a disposizione la propria intelligenza e capacità, mi induce a fare un' eccezione,.
Ringrazio lui e Silop per l' incoraggiamento rivolto soprattutto ad Abasul di continuare poiché, come giustamente sottolinea la maggior parte dei partecipanti, ci sono volte in cui non ci si capisce nell' immediato e allora occorre impegnarsi oltre modo a far comprendere l' altro.
Ma vi sono altre volte, come questa, in cui ci si arrende.Per quale motivo ? in questo caso sono due: perché già in partenza si sperava in una larga partecipazione e per il fatto che la ricerca è stata esposta a poco a poco senza giungere alla fine e ciò invece di suscitare maggiore interesse ha posto gli astanti in uno stato di tranquilla attesa.
Consentitemi di affermare che ho accolto volentieri l' invito di Abasul di lasciarlo andare, poiché sono certa che ne traiamo entrambi giovamento.
Consiglierei ad Abasul , se intende continuare con gli altri amici del forum di ripartire da zero e di seguire l' invito di LuigiB, poiché, come correttamente ha osservato,si tratta di un lavoro che si sviluppa prima di tutto con un 'analisi e solo quando è tutto chiaro si mette mano al codice e non come abbiamo fatto noi.
Un grazie a tutti.
Cinzia