INNOVATIVA RICERCA STATISTICA

Beppignello · 15 Novembre 2016

in questi giorni sono preso per altre cose, appena posso vediamo cosa fare.

1 = significa ordinare in forma ascendente dal più piccolo al più grande
-1 = significa ordinare in forma discendente dal più grande al più piccolo

adesso ci guardo un po a tutto

inserirò il verifica esito

poi vediamo.

Codice:

Option Explicit
Sub Main
Dim rie(90,15),ar(1),an(1)
Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da
r = CInt(InputBox("Ruota",,1))
fine = InputBox("Estrazione n.",,EstrazioneFin)
det = InputBox("Dettaglio Graduatorie",,"NO")
''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
Dim atitolo(17),aris(17)
'''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
'''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
atitolo(1) = " ID "
atitolo(2) = " Ruota "
atitolo(3) = " Nr. "
atitolo(4) = " RaE "
atitolo(5) = " Gr.1 "
atitolo(6) = " Fre "
atitolo(7) = " Gr.2 "
atitolo(8) = " IdR+IdF "
atitolo(9) = " "
atitolo(10) = " Tot.Rit"
atitolo(11) = " key1 "
atitolo(12) = " key2 "
atitolo(13) = " key3 "
SetTableWidth("85%px")
Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
''''''''''ritardo''''
For n = 1 To 90
iy = iy + 1
rie(iy,2) = Format2(n)
rie(iy,3) = Int(EstrattoRitardoTurbo(r,n,EstrazioneIni,fine))
rie(iy,4) = Int(EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine) )
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
rie(iy,8) = 0
rie(iy,9) = 0
key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
rie(iy,13) = key1
rie(iy,14) = key2
rie(iy,15) = 0
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
we = 0
If det <> "NO" Then
Scrivi " Ruota di ...." & NomeRuota(r),1
Scrivi " E L E N C O X R I T A R D O ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) > 0 Then
we = we + 1
rie(e,5) = we
rie(e,6) = 0
rie(e,7) = 0
rie(iy,8) = 0
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
End If
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
we = 0
If det <> "NO" Then
Scrivi " Ruota di ...." & NomeRuota(r),1
Scrivi " E L E N C O X f r e q u e n z a ",1
Scrivi "ID Nr Rit Fre ",1
End If
For e = 1 To 90
If rie(e,2) <> "" Then
If rie(e,4) > 0 Then
we = we + 1
rie(e,7) = we
rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
End If
End If
Next
' ''''' graduatoria di somma
ColoreTesto(1)
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
Scrivi " Ruota di " & NomeRuota(r),1
ColoreTesto(0)
Call OrdinaMatrice(rie,1,8)
For t = 1 To 90
'''''''''''''''''''''''''''''''''''''''''''''''
v = v + 1
If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
'''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
aris(1) = FormattaStringa(v,"00")
aris(2) = SiglaRuota(r)
aris(3) = rie(t,2)
aris(4) = rie(t,3)
aris(5) = rie(t,5)
aris(6) = rie(t,4)
aris(7) = rie(t,7)
aris(8) = rie(t,8)
aris(9) = rie(t,15)
aris(11) = rie(t,13)
aris(12) = rie(t,14)
aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
an(1) = rie(t,2) : ar(1) = r
Call ElencoRitardiTurbo(an,ar,1,EstrazioneIni,fine,aretritardi,aretidestr)
limusc = UBound(aretritardi)
If limusc > 0 And limusc > 10 Then
nusc = limusc - 10 : Totrit = 0
For nusc = nusc + 1 To limusc - 1
Totrit = Totrit + aretritardi(nusc)
Next
aris(10) = Totrit + rie(t,3)
Else
aris(10) = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Call AddRigaTabella(aris,,,1)
Call SetColoreCella(3,RGB(155,255,155),vbBlack)
Call SetColoreCella(8,RGB(255,255,202),vbBlack)
Next
''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
ColoreTesto(2)
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''''''''''''calcola 7 migliori
'''''idr+idf
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,1,8)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Ritardo
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,- 1,3)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Più in Ritardo..................." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''Sotto Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Sotto Frequenti ................." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
''''' + Frequenti
ColoreTesto(2)
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(rie,- 1,4)
For z = 1 To 7
ele = ele & Format2(rie(z,2)) & "."
yy = yy + 1
nr(yy) = Format2(rie(z,2))
Next
Scrivi "-7 Più Frequenti ..................." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
ColoreTesto(2)
'''''''''''''''''radicali
ReDim nm(32,2)
iz = 0
For z = 1 To 90
For y = 1 To 8
If Radicale(Int(rie(z,2))) = y Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
Next
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 7
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-7 Radicali più in Ritardo.........." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
'''''''''''''''''Gemelli
ColoreTesto(2)
ReDim nm(90,2)
iz = 0
For z = 1 To 90
If Gemello(rie(z,2)) = True Then
iz = iz + 1
nm(iz,1) = rie(z,2)
nm(iz,2) = rie(z,3)
End If
Next
ele = "" : yy = 0
ReDim nr(7)
Call OrdinaMatrice(nm,- 1,2)
For z = 1 To 7
ele = ele & Format2(nm(z,1)) & "."
yy = yy + 1
nr(yy) = Format2(nm(z,1))
Next
Scrivi "-7 Gemelli più in Ritardo..........." & ele
'''''''''verifica risultati
ColoreTesto(0)
da = fine
For da = da + 1 To fine + 13
Call VerificaEsitoTurbo(nr,ar,da,1,1,,retesito,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Call CreaTabellaOrdinabile(8,1,1)
End Sub

genios · 16 Novembre 2016

CONTROLLO VINCITE DEL POST #526

Controlla i risultati dall' estrazione n 9215 ad oggi cioè il ciclo teorico di un numero . Ecco perché ritengo importante la somma dei 10 rit. Consecutivi .
Prima colonna numero seconda colonna somma 10 RITARDI ritardi .

Bari
03 73 7 COLPO 3
20 86 22 COLPO 20
74 89 5 COLPO 74

Cagliari
38 65

Firenze
28 66 2 COLPO 28
56 76 8 COLPO 56
67 378 6 COLPO 67
89 401

Genova
42 66 9 COLPO 42
48 56 5 COLPO 48
55 68 4 COLPO 68

Milano
08 71 11 COLPO 8
20 72 26 COLPO 20
62 67 10 COLPO 62

Napoli
19 75 13 COLPO 19
51 364 11 COLPO 51
61 77 7 COLPO 61

Palermo
06 89 9 COLPO 6
80 79

Roma
06 77 12 COLPO 6
09 82 22 COLPO 22
13 74 13 COLPO 13
66 365 19 COLPO 66

Torino
26 70 4 COLPO 26
46 76 6 COLPO 46
54 82 2 COLPO 54
76 75 20 COLPO 76

Venezia
10 72
34 50
62 380 3 COLPO 62
74 60 18 COLPO 74
81 59 5 COLPO 81

Nazionale
18 81 14 COLPO 18
42 86
53 363
54 88 15 COLPO 54
62 74 21 COLPO 62

Ciao Eugenio

Beppignello · 16 Novembre 2016

- Nr.in Evidenza x Somma Ritardi <100 >360.........04.42.44.87.34.18.79.37.10.66.
------> 9204...al colpo n..04.....Estratti...VE .. 34 .. .. ..
------> 9205...al colpo n..05.....Estratti...VE .. 34 79 .. 66
------> 9206...al colpo n..06.....Estratti...VE .. 79 .. .. ..
------> 9208...al colpo n..08.....Estratti...VE 10 .. .. .. ..
------> 9209...al colpo n..09.....Estratti...VE 10 .. .. .. ..
------> 9210...al colpo n..10.....Estratti...VE .. .. .. .. 79
------> 9211...al colpo n..11.....Estratti...VE 34 .. .. .. ..

forse la ruota più evidente, ed il risultato più eclatante,, sporadico, da ritenersi nella normalità, è paragonabile alle altre condizioni in verifica, si ottengono delle belle ambate
o estratti, diciamo sicuri secondo i parametri della Legge del Terzo.

Nulla più da aggiungere.

comunque questa tecnica l'abbiamo messa, si può sfruttare per chi vuole.

x genios

ma cosa è quel valore dopo la scritta colpo?

genios · 16 Novembre 2016

Beppignello il numero vicino a colpo è il numero uscito esempio ruota di Bari :

Bari
03 73 7 COLPO 3
20 86 22 COLPO 20
74 89 5 COLPO 74

03 il numero - 73 la somma dei 10 ritardi consecutivi - 7 ( settimo colpo ) esce il numero 3 .

Ciao Eugenio

Beppignello · 16 Novembre 2016

sarà una mia opinione ma

ma io non terrei tanto in conto quelli con 19 e più colpi di gioco. (sono più che normali)

il tot.ritardi contiene i 9+1 ritardi, può servire perché accorpa i numeri come frequenti di breve periodo quelli con totrit < 100
e sottofrequenti di breve periodo quelli con totrit > 360

vabbè, io li calcolo in modo diverso, usando la media ritardi, qualcuno dirà a tuo modo, ma è quella che mi permette di
unire 2 cose, 1° il peso, 2° rit, , e fare i grafici come li faccio io, altri non riescono perché partono da ragionamenti diversi.

ad ognuno il suo.

genios · 17 Novembre 2016

Beppignello se hai tempo e voglia potresti fare uno script per il superenalotto che ricerchi il ritardo attuale più i 9 ritardi precedenti .

Ciao Eugenio

Beppignello · 17 Novembre 2016

Attenzione al ritardo 26, numeri in eccesso

FIRENZE in particolare

[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEFS.jpg"}[/IMG2]

con l'aiuto della doppia sincronia

[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEGw.jpg"}[/IMG2]

[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jEGx.jpg"}[/IMG2]

Previsione FIRENZE estratto 2x1 nr. 59 45

estratto 45 FIRENZE a colpo

Beppignello · 17 Novembre 2016

Considerazione a vista:

quasi tutte le ruote questa sera hanno dato degli ambi nei vari gruppi ritardi-frequenti-sottofrequenti-somma tot.ritardi etc.... nelle settine ricavate.

Beppignello · 17 Novembre 2016

x Genios

lo stesso script per il lotto applicato al superenalotto

controllare i dati, perché io non l'ho fatto.

Codice:

Option Explicit
Sub Main
 Dim rie(90,15),an(1)
 Dim n,fine,r,e,t,ix,v,det,iy,w,z,Ini,vv,zz,we,key1,key2,ele,y,iz,aretritardi,aretidestr,limusc,nusc,Totrit,yy,retesito,retestratti,retidestr,da,elesom,f
 f = EstrazioniArchivioSE
 fine = InputBox("Estrazione n.",,f)
 det = InputBox("Dettaglio Graduatorie",,"NO")
 ''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
 Dim atitolo(17),aris(17)
 '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
 '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
 '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
 atitolo(1) = " ID "
 atitolo(2) = " SuperE."
 atitolo(3) = " Nr. "
 atitolo(4) = " RaE "
 atitolo(5) = " Gr.1 "
 atitolo(6) = " Fre "
 atitolo(7) = " Gr.2 "
 atitolo(8) = " IdR+IdF "
 atitolo(9) = " "
 atitolo(10) = " Tot.Rit"
 atitolo(11) = " key1 "
 atitolo(12) = " key2 "
 atitolo(13) = " key3 "
 SetTableWidth("85%px")
 Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
 ''''''''''ritardo''''
 For n = 1 To 90
  iy = iy + 1
  rie(iy,2) = Format2(n)
  rie(iy,3) = Int(EstrattoRitardoSE(n,1,fine))
  rie(iy,4) = Int(EstrattoFrequenzaSE(n,1,fine))
  rie(iy,5) = 0
  rie(iy,6) = 0
  rie(iy,7) = 0
  rie(iy,8) = 0
  rie(iy,9) = 0
  key1 = FormattaStringa(rie(iy,3),"000") & FormattaStringa(rie(iy,4),"000")
  key2 = FormattaStringa(rie(iy,4),"000") & FormattaStringa(rie(iy,3),"000")
  rie(iy,13) = key1
  rie(iy,14) = key2
  rie(iy,15) = 0
 Next
 ''''graduatoria ritardo
 Call OrdinaMatrice(rie,- 1,3)
 we = 0
 If det <> "NO" Then
  Scrivi " SuperEnalotto ",1
  Scrivi " E L E N C O X R I T A R D O ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) > 0 Then
   we = we + 1
   rie(e,5) = we
   rie(e,6) = 0
   rie(e,7) = 0
   rie(iy,8) = 0
   If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G1.." & rie(e,5)
  End If
 Next
 ''''graduatoria frequenza
 Call OrdinaMatrice(rie,1,4)
 we = 0
 If det <> "NO" Then
  Scrivi " SuperEnalotto",1
  Scrivi " E L E N C O X f r e q u e n z a ",1
  Scrivi "ID Nr Rit Fre ",1
 End If
 For e = 1 To 90
  If rie(e,2) <> "" Then
   If rie(e,4) > 0 Then
    we = we + 1
    rie(e,7) = we
    rie(e,8) = FormattaStringa(rie(e,7) + rie(e,5),"0000")
    If det <> "NO" Then Scrivi Format2(we) & "....." & rie(e,2) & "..." & FormattaStringa(rie(e,3),"000") & "..." & rie(e,4) & "....G2..." & rie(e,7)
   End If
  End If
 Next
 ' ''''' graduatoria di somma
 ColoreTesto(1)
 Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
 Scrivi " SuperEnalotto",1
 ColoreTesto(0)
 Call OrdinaMatrice(rie,1,8)
 elesom = ""
 For t = 1 To 90
  '''''''''''''''''''''''''''''''''''''''''''''''
  v = v + 1
  If det <> "NO" Then Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb.Nr.." & rie(t,2) & " Rae..." & FormattaStringa(rie(t,3),"000") & " Freq..." & FormattaStringa(rie(t,4),"0000") & " Somma.." & FormattaStringa(rie(t,8),"0000") & " = " & Format2(rie(t,5)) & " // " & Format2(rie(t,7))
  '''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
  aris(1) = FormattaStringa(v,"00")
  aris(2) = "Super"
  aris(3) = rie(t,2)
  aris(4) = rie(t,3)
  aris(5) = rie(t,5)
  aris(6) = rie(t,4)
  aris(7) = rie(t,7)
  aris(8) = rie(t,8)
  aris(9) = rie(t,15)
  aris(11) = rie(t,13)
  aris(12) = rie(t,14)
  aris(13) = FormattaStringa(rie(t,7),"0000") & "//" & rie(t,14)
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  '''calcolo totale ritardo ult.10 ritardi (9PREC+ATTUALE)
  an(1) = rie(t,2)
  Call ElencoRitardiSE(an,1,1,fine,aretritardi,aretidestr)
  limusc = UBound(aretritardi)
  If limusc > 0 And limusc > 10 Then
   nusc = limusc - 10 : Totrit = 0
   For nusc = nusc + 1 To limusc - 1
    Totrit = Totrit + aretritardi(nusc)
   Next
   aris(10) = Totrit + rie(t,3)
   If aris(10) <= 100 Or aris(10) >= 360 Then
    elesom = elesom & Format2(aris(3)) & "."
   End If
  Else
   aris(10) = 0
  End If
  '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
  Call AddRigaTabella(aris,,,1)
  Call SetColoreCella(3,RGB(155,255,155),vbBlack)
  Call SetColoreCella(8,RGB(255,255,202),vbBlack)
 Next
 ''''''''''''''''''''''''''''''''''''''''' g r a d u a t o r i e i 7 migliori
 ColoreTesto(2)
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''''''''''''calcola 7 migliori
 '''''idr+idf
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,1,8)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Migliori IdR+IdF...Capogioco....." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Ritardo
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,- 1,3)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Più in Ritardo..................." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''Sotto Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Sotto Frequenti ................." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ''''' + Frequenti
 ColoreTesto(2)
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(rie,- 1,4)
 For z = 1 To 7
  ele = ele & Format2(rie(z,2)) & "."
  yy = yy + 1
  nr(yy) = Format2(rie(z,2))
 Next
 Scrivi "-7 Più Frequenti ..................." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 ColoreTesto(2)
 '''''''''''''''''radicali
 ReDim nm(32,2)
 iz = 0
 For z = 1 To 90
  For y = 1 To 8
   If Radicale(Int(rie(z,2))) = y Then
    iz = iz + 1
    nm(iz,1) = rie(z,2)
    nm(iz,2) = rie(z,3)
   End If
  Next
 Next
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-7 Radicali più in Ritardo.........." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''Gemelli
 ColoreTesto(2)
 ReDim nm(90,2)
 iz = 0
 For z = 1 To 90
  If Gemello(rie(z,2)) = True Then
   iz = iz + 1
   nm(iz,1) = rie(z,2)
   nm(iz,2) = rie(z,3)
  End If
 Next
 ele = "" : yy = 0
 ReDim nr(7)
 Call OrdinaMatrice(nm,- 1,2)
 For z = 1 To 7
  ele = ele & Format2(nm(z,1)) & "."
  yy = yy + 1
  nr(yy) = Format2(nm(z,1))
 Next
 Scrivi "-7 Gemelli più in Ritardo..........." & ele
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 '''''''''''''''''Tot.SOmma ritardi  (9+1)
 ColoreTesto(2)
 Call OrdinaMatrice(nm,- 1,2)
 Dim qtsr
 ReDim nr(35)
 Call SplitByChar(elesom,".",nr)
 qtsr = UBound(nr)
 Scrivi "-  Nr.in Evidenza x Somma Ritardi <100 >360........." & elesom
 '''''''''verifica risultati
 ColoreTesto(0)
 da = fine
 For da = da + 1 To fine + 13
  Call VerificaEsitoSE(nr,da,1,1,retesito,,retestratti,retidestr)
  If retestratti <> "" Then
   Scrivi " ------> " & retidestr & "...al colpo n.." & Format2(retidestr - fine) & ".....Estratti..." & retestratti,1
  End If
 Next
 '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
 Call CreaTabellaOrdinabile(8,1,1)
End Sub

numerico · 18 Novembre 2016

numerico;n2021266 ha scritto:
Ok Beppignello per l'ambo......... ma a me interessa per l'ambata. Ad esempio se volessi giocare a Bari il 16 come capogioco (essendo il primo in graduatoria) e volessi abbinarci i gemelli, si genererebbero 8 coppie di ambate:
16-11
16-22
16-33
16-44
16-55
16-66
16-77
16-88
per cui, se esce il 16, faccio 8 ambate e stappo lo spumante...... diversamente continuo seguendo le progressioni.

Grande brindisi stasera........8 ambate acciuffate in un sol colpo

berardo · 18 Novembre 2016

complimentissimi a numerico e beppignello

numerico · 18 Novembre 2016

berardo;n2022960 ha scritto:
complimentissimi a numerico e beppignello

Grazie Berardo

numerico · 18 Novembre 2016

CAPIGIOCO.

Per l'estrazione di domani sera, l'individuazione di un singolo capogioco, mi sembra rischiosa per cui mi servirò di 3 capigioco di cui uno, primo in graduatoria con un buon valore (3), e gli altri 2 con valore di graduatoria sincrono (4 per entrambi).

RUOTA DI CAGLIARI prima in classifica con valore di somma = 3: capogioco nr.33 abbinato ai gemelli
33-11
33-22
33-44
33-55
33-66
33-77
33-88

RUOTA DI MILANO Seconda in classifica parimerito con Palermo con valore di somma = 4 e capogioco nr.9
9-11
9-22
9-33
9-44
9-55
9-66
9-77
9-88

RUOTA DI PALERMO idem come sopra e con capogioco nr.14
14-11
14-22
14-33
14-44
14-55
14-66
14-77
14-88

La paola ora spetta alle "lavatrici"

Beppignello · 18 Novembre 2016

Pronostico Per la Ruota di BARI

BARI 51 69 estratto 2x1

Sincronia rit/fre/somma(IDR+IDF)/graduatoria3

[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jphf.jpg"}[/IMG2]

Non è ancora uscito, IL gioco principale è per estratto (2x1) , probabile entro 4 colpi darà 1 estratto

per tentativo d'ambo, 69 07 e 69 08

genios · 19 Novembre 2016

Beppignello grazie per lo script.

Ciao Eugenio

edesimone · 19 Novembre 2016

Buon giorno genios Lanciando lo script superenalotto,rilevo un errore nella data n.2581/19.06.1920, dovrebbe dare n.2581/17.11.2016 e naturalmente le previsioni sono errate. Volevo sapere se succede anche a te. In tal caso bisogna chiedere a Beppignello di controllare l'errore. Questo è quello che mi da lanciando lo script, naturalmente alla data finale n.2581/17.11.2016. Un saluto edesimone Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n.2581/19.06.1920 SuperEnalotto -7 Migliori IdR+IdF...Capogioco.....05.30.28.36.42.34.16. -7 Più in Ritardo...................42.08.28.05.63.30.10. -7 Sotto Frequenti .................09.60.30.59.36.05.50. -7 Più Frequenti ...................85.01.49.90.62.83.88. -7 Radicali più in Ritardo..........08.05.30.10.70.19.89. -7 Gemelli più in Ritardo...........11.88.66.55.22.77.33. - Nr.in Evidenza x Somma Ritardi <100 >360.........34.67.89.43.54.09.48.65.59.68.04.45.32.12.61.29.33.38.18.25.01.86.83.85.

Beppignello · 19 Novembre 2016

correggere questa riga dello script e poi salvarlo,

Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazioneSE(fine),1

dove compare dataestrazione, va aggiunto SE, che vuol dire superenalotto, senza quella la interpreta come data estrazione de lotto.

riguarda solo la data estrazione esposta nell'output, a meno di altri errori, che non ho trovato finora.

edesimone · 19 Novembre 2016

Grazie Beppignello
La data adesso è giusta, pero rilevo errore -7 Più in Ritardo...................42.08.28.05.63.30.10.
i miei ritardi sono 33.05.42.38.15.58.27, naturalmente dal mio tabellone analitico,
per le altre funzioni non è stato verificato.
Volevo chiedere se può aggiungere al programma la funzione
-7 Migliori IdR+IdF...SuperStar.
Grazie
edesimone
Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n.2581/17.11.2016 SuperEnalotto -7 Migliori IdR+IdF...Capogioco.....05.30.28.36.42.34.16. -7 Più in Ritardo...................42.08.28.05.63.30.10. -7 Sotto Frequenti .................09.60.30.59.36.05.50. -7 Più Frequenti ...................85.01.49.90.62.83.88. -7 Radicali più in Ritardo..........08.05.30.10.70.19.89. -7 Gemelli più in Ritardo...........11.88.66.55.22.77.33.

Beppignello · 19 Novembre 2016

Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n.1233/17.11.2016

Clicca per espandere...

SuperEnalotto
-7 Migliori IdR+IdF...Capogioco.....30.28.42.53.05.70.37.
-7 Più in Ritardo...................42.08.05.28.63.30.10.
-7 Sotto Frequenti .................72.64.07.60.30.03.53.
-7 Più Frequenti ...................49.01.62.85.26.56.52.
-7 Radicali più in Ritardo..........08.05.30.10.70.19.89.
-7 Gemelli più in Ritardo...........11.88.66.55.22.77.33.
- Nr.in Evidenza x Somma Ritardi <100 >360.........89.43.34.65.67.04.68.48.33.59.61.86 .5 4.45.12.29.18.32.01.83.09.38.25.85.

i dati dei ritardi sono errati in quanto l'istruzione EstrattiRitardoSe tiene conto anche del numero jolly e superstar, come se fosse una ottina estratto e non una sestina.
Così è chiaro che devo rifare la procedura perché il calcolo dei ritardi, base portande dello script attuale
è tutta errata.

skygirl · 19 Novembre 2016

Ciao a tutti/e complimenti per il grande lavoro Beppignello e numerico

trovo molto interessante il 66 come Capogioco in particolar modo su NA
e propongo il 66.39 NA
[IMG2=JSON]{"data-align":"none","data-size":"custom","src":"http:\/\/funkyimg.com\/i\/2jSTe.jpg"}[/IMG2]

Aggiungo anche ROMA 66.39.44

vediamo un po'...
Un saluto

INNOVATIVA RICERCA STATISTICA

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Super Member >GOLD<

Super Member >PLATINUM<

Super Member >GOLD<

Super Member >GOLD<

Beppignello

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >GOLD<