Novità

Problemino con questo piccolo script x superenalotto...

lotto_tom75

Advanced Premium Member
Codice:
Option Explicit
Sub Main


Dim k
Dim classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim sorte,ritardo,ritardomax,Incrritmax,frequenza
Dim ColTot

ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)

sorte = 1

classe = 1

ColTot = InitSviluppoIntegrale(aNum,classe)

If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1



Call StatisticaFormazioneSE(aCol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)




Dim Diff
Diff = ritardomax - ritardo



If(ritardo >= 0) Then

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & ritardo & " RS: " & ritardomax & " INCMAX: " & Incrritmax & " FQ: " & frequenza & " DIFF " & Diff)


End If


Call AvanzamentoElab(1,ColTot,i)

Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do

Loop
End If
End Sub

Era per il lotto l'ho cercato di modificare per il superenalotto modificando semplicemente questa riga:

Codice:
  Call StatisticaFormazioneSE(aCol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)

Ma evidentemente non basta...

In quanto se faccio un semplicissimo listato per i vari parametri RA,RS, FQ ecc... x punti 1 dalla prima estrazione del superenalotto 3-12-1997 all'ultima 16-7-2019

Mi riporta questi dati:
00001 1 RA: 3 RS: 56 INCMAX: 0 FQ: 288 DIFF 53
00002 2 RA: 17 RS: 83 INCMAX: 0 FQ: 254 DIFF 66
00003 3 RA: 1 RS: 78 INCMAX: 0 FQ: 259 DIFF 77
00004 4 RA: 13 RS: 61 INCMAX: 0 FQ: 257 DIFF 48
00005 5 RA: 12 RS: 90 INCMAX: 0 FQ: 233 DIFF 78
00006 6 RA: 1 RS: 62 INCMAX: 0 FQ: 276 DIFF 61
00007 7 RA: 38 RS: 63 INCMAX: 0 FQ: 239 DIFF 25
00008 8 RA: 21 RS: 61 INCMAX: 0 FQ: 259 DIFF 40
00009 9 RA: 13 RS: 64 INCMAX: 0 FQ: 221 DIFF 51
00010 10 RA: 38 RS: 81 INCMAX: 0 FQ: 245 DIFF 43
00011 11 RA: 14 RS: 54 INCMAX: 0 FQ: 268 DIFF 40
00012 12 RA: 4 RS: 57 INCMAX: 0 FQ: 249 DIFF 53
00013 13 RA: 1 RS: 73 INCMAX: 0 FQ: 244 DIFF 72
00014 14 RA: 9 RS: 63 INCMAX: 0 FQ: 242 DIFF 54
00015 15 RA: 1 RS: 58 INCMAX: 0 FQ: 258 DIFF 57
00016 16 RA: 15 RS: 74 INCMAX: 0 FQ: 246 DIFF 59
00017 17 RA: 19 RS: 65 INCMAX: 0 FQ: 264 DIFF 46
00018 18 RA: 6 RS: 73 INCMAX: 0 FQ: 250 DIFF 67
00019 19 RA: 19 RS: 86 INCMAX: 0 FQ: 261 DIFF 67
00020 20 RA: 3 RS: 76 INCMAX: 0 FQ: 239 DIFF 73
00021 21 RA: 30 RS: 67 INCMAX: 0 FQ: 250 DIFF 37
00022 22 RA: 4 RS: 77 INCMAX: 0 FQ: 260 DIFF 73
00023 23 RA: 6 RS: 70 INCMAX: 0 FQ: 242 DIFF 64
00024 24 RA: 19 RS: 79 INCMAX: 0 FQ: 239 DIFF 60
00025 25 RA: 0 RS: 67 INCMAX: 0 FQ: 259 DIFF 67
00026 26 RA: 2 RS: 62 INCMAX: 0 FQ: 260 DIFF 60
00027 27 RA: 48 RS: 57 INCMAX: 0 FQ: 241 DIFF 9
00028 28 RA: 32 RS: 115 INCMAX: 0 FQ: 246 DIFF 83
00029 29 RA: 4 RS: 57 INCMAX: 0 FQ: 242 DIFF 53
00030 30 RA: 0 RS: 74 INCMAX: 0 FQ: 224 DIFF 74
00031 31 RA: 25 RS: 79 INCMAX: 0 FQ: 245 DIFF 54
00032 32 RA: 2 RS: 56 INCMAX: 0 FQ: 257 DIFF 54
00033 33 RA: 7 RS: 71 INCMAX: 0 FQ: 255 DIFF 64
00034 34 RA: 8 RS: 69 INCMAX: 0 FQ: 236 DIFF 61
00035 35 RA: 10 RS: 52 INCMAX: 0 FQ: 256 DIFF 42
00036 36 RA: 1 RS: 63 INCMAX: 0 FQ: 227 DIFF 62
00037 37 RA: 6 RS: 65 INCMAX: 0 FQ: 254 DIFF 59
00038 38 RA: 5 RS: 75 INCMAX: 0 FQ: 246 DIFF 70
00039 39 RA: 2 RS: 76 INCMAX: 0 FQ: 263 DIFF 74
00040 40 RA: 5 RS: 52 INCMAX: 0 FQ: 258 DIFF 47
00041 41 RA: 10 RS: 58 INCMAX: 0 FQ: 252 DIFF 48
00042 42 RA: 1 RS: 59 INCMAX: 0 FQ: 246 DIFF 58
00043 43 RA: 4 RS: 83 INCMAX: 0 FQ: 253 DIFF 79
00044 44 RA: 16 RS: 59 INCMAX: 0 FQ: 244 DIFF 43
00045 45 RA: 7 RS: 87 INCMAX: 0 FQ: 265 DIFF 80
00046 46 RA: 15 RS: 92 INCMAX: 0 FQ: 243 DIFF 77
00047 47 RA: 0 RS: 75 INCMAX: 0 FQ: 266 DIFF 75
00048 48 RA: 0 RS: 68 INCMAX: 0 FQ: 263 DIFF 68
00049 49 RA: 18 RS: 52 INCMAX: 0 FQ: 291 DIFF 34
00050 50 RA: 8 RS: 83 INCMAX: 0 FQ: 232 DIFF 75
00051 51 RA: 22 RS: 57 INCMAX: 0 FQ: 284 DIFF 35
00052 52 RA: 3 RS: 55 INCMAX: 0 FQ: 271 DIFF 52
00053 53 RA: 21 RS: 84 INCMAX: 0 FQ: 233 DIFF 63
00054 54 RA: 3 RS: 58 INCMAX: 0 FQ: 251 DIFF 55
00055 55 RA: 33 RS: 80 INCMAX: 0 FQ: 270 DIFF 47
00056 56 RA: 19 RS: 68 INCMAX: 0 FQ: 269 DIFF 49
00057 57 RA: 5 RS: 66 INCMAX: 0 FQ: 247 DIFF 61
00058 58 RA: 15 RS: 63 INCMAX: 0 FQ: 241 DIFF 48
00059 59 RA: 3 RS: 65 INCMAX: 0 FQ: 226 DIFF 62
00060 60 RA: 0 RS: 73 INCMAX: 0 FQ: 224 DIFF 73
00061 61 RA: 9 RS: 59 INCMAX: 0 FQ: 267 DIFF 50
00062 62 RA: 3 RS: 58 INCMAX: 0 FQ: 280 DIFF 55
00063 63 RA: 6 RS: 46 INCMAX: 0 FQ: 264 DIFF 40
00064 64 RA: 5 RS: 67 INCMAX: 0 FQ: 250 DIFF 62
00065 65 RA: 6 RS: 58 INCMAX: 0 FQ: 263 DIFF 52
00066 66 RA: 2 RS: 61 INCMAX: 0 FQ: 262 DIFF 59
00067 67 RA: 0 RS: 68 INCMAX: 0 FQ: 241 DIFF 68
00068 68 RA: 7 RS: 62 INCMAX: 0 FQ: 258 DIFF 55
00069 69 RA: 9 RS: 73 INCMAX: 0 FQ: 253 DIFF 64
00070 70 RA: 10 RS: 60 INCMAX: 0 FQ: 254 DIFF 50
00071 71 RA: 35 RS: 52 INCMAX: 0 FQ: 265 DIFF 17
00072 72 RA: 16 RS: 94 INCMAX: 0 FQ: 247 DIFF 78
00073 73 RA: 13 RS: 48 INCMAX: 0 FQ: 243 DIFF 35
00074 74 RA: 3 RS: 89 INCMAX: 0 FQ: 266 DIFF 86
00075 75 RA: 9 RS: 66 INCMAX: 0 FQ: 270 DIFF 57
00076 76 RA: 11 RS: 74 INCMAX: 0 FQ: 241 DIFF 63
00077 77 RA: 11 RS: 67 INCMAX: 0 FQ: 281 DIFF 56
00078 78 RA: 17 RS: 64 INCMAX: 0 FQ: 262 DIFF 47
00079 79 RA: 17 RS: 60 INCMAX: 0 FQ: 277 DIFF 43
00080 80 RA: 2 RS: 57 INCMAX: 0 FQ: 282 DIFF 55
00081 81 RA: 7 RS: 101 INCMAX: 0 FQ: 268 DIFF 94
00082 82 RA: 8 RS: 54 INCMAX: 0 FQ: 284 DIFF 46
00083 83 RA: 1 RS: 61 INCMAX: 0 FQ: 284 DIFF 60
00084 84 RA: 2 RS: 99 INCMAX: 0 FQ: 255 DIFF 97
00085 85 RA: 0 RS: 52 INCMAX: 0 FQ: 301 DIFF 52
00086 86 RA: 5 RS: 54 INCMAX: 0 FQ: 280 DIFF 49
00087 87 RA: 20 RS: 66 INCMAX: 0 FQ: 261 DIFF 46
00088 88 RA: 21 RS: 58 INCMAX: 0 FQ: 275 DIFF 37
00089 89 RA: 10 RS: 73 INCMAX: 0 FQ: 255 DIFF 63
00090 90 RA: 0 RS: 53 INCMAX: 0 FQ: 290 DIFF 53

Che sono totalmente diversi da quelli risultanti dalla sezione STATISTICA VELOCE X SUPERENALOTTO o anche da quelli risultanti dalla sezione STATISTICA FORMAZIONI REGISTRATE x SUPERENALOTTO (analizzando i 90 estratti) Che provo a riportare qui di seguito:


NomeNumeriRitardoRitMaxIncrRitMaxFrequenzaPresenzeIndConvRit/RitMaxRP1RP2RP3
Estratti56518802112113,59060,585205
Estratti27487801851852,9630,615126
Estratti7389801781782,25690,3885471
Estratti10388901861862,35840,4272417
Estratti88376702192192,70370,552318
Estratti71358102012012,34730,4324936
Estratti55338002222222,44440,4125612
Estratti283211501791791,91120,278936
Estratti83329002212212,35970,35614115
Estratti52316202072072,14110,5961
Estratti53011101741741,74170,276319
Estratti213011601971971,9720,25918191
Estratti9286401771771,65370,438261223
Estratti31259301871871,55990,26972734
Estratti44256401841841,53490,39160843
Estratti38247502052051,64160,324146
Estratti87248202102101,68170,2931258
Estratti51228402152151,57820,2621023
Estratti53228401761761,2920,262245516
Estratti82110002042041,42940,21163
Estratti89218501951951,36640,247590
Estratti732011401821821,21450,175174014
Estratti17197602092091,3250,259528
Estratti19198602162161,36940,22116812
Estratti241912701871871,18550,1565156
Estratti49189402192191,31530,19111137
Estratti2179601891891,07210,17753520
Estratti78179801981981,12310,17310241
Estratti79176002192191,24220,2830412
Estratti72169401991991,06240,17239
Estratti16157401991990,9960,2030319
Estratti46159201871870,93590,16331830
Estratti58157701851850,92590,1955610
Estratti11146402052050,95760,21911322
Estratti77146702272271,06040,209251134
Estratti4138901951950,84580,14617335
Estratti23127001781780,71270,1710066
Estratti65116802092090,76710,162842
Estratti76118501941940,7120,1291265
Estratti35107501951950,65070,1330656
Estratti39107602082080,6940,13269918
Estratti41105801991990,6640,172201148
Estratti69109001941940,64730,111966
Estratti70107701971970,65730,1333107
Estratti1496501931930,57960,138381721
Estratti43910702012010,60360,0843331
Estratti6199002032030,60960,1241711
Estratti7596602132130,63960,1361604
Estratti8597302372370,71170,123874
Estratti3486901931930,51520,116491011
Estratti5089301751750,46710,08650935
Estratti6886802062060,54990,1183924
Estratti8286202252250,60060,1294104
Estratti3378402062060,48110,0830110
Estratti45712602132130,49750,05640275
Estratti81710102222220,51850,06941019
Estratti18610801771770,35440,05628185
Estratti3767101991990,39840,0851170
Estratti6368102112110,42240,0745517
Estratti4057101931930,3220,07341715
Estratti5756601951950,32530,07619645
Estratti64511201891890,31530,045101830
Estratti8056202082080,3470,0815075
Estratti8657302262260,3770,06812341
Estratti646202222220,29630,06522721
Estratti1246002022020,26960,06746354
Estratti2247701961960,26160,0522619
Estratti2546702022020,26960,066310
Estratti2948301841840,24560,048281027
Estratti6245802152150,2870,06941513
Estratti139002202200,22020,0332893
Estratti20310001891890,18920,032037
Estratti5436702092090,20920,04512011
Estratti5937401761760,17620,0411614
Estratti74311002042040,20420,0276220
Estratti2626201981980,13210,032072
Estratti3229002112110,14080,02211812
Estratti6626102072070,13810,0331357
Estratti8429902032030,13550,0218223
Estratti317801971970,06570,013272716
Estratti1319101841840,06140,0114520
Estratti1515801951950,06510,0170130
Estratti3617101821820,06070,014134121
Estratti4218801891890,06310,0113523
Estratti3007401881880020184
Estratti4708302072070012310
Estratti48097020720700138
Estratti6001000163163006333
Estratti670930193193005513
Estratti900650231231000252




Grazie a chi mi evidenzia l'errore nello script :)
 
Ultima modifica:
R

Rubino

Guest
Ciao lottotom
l'ho guardato velocemente lo script non l ho provato

ma non vedo iniziò e fine impostati

poi ti segnalo che la statisticaformazionese tiene conto del numero jolli e star
quindi il ritardo non combacia con la statistica veloce.
 
Ultima modifica di un moderatore:

lotto_tom75

Advanced Premium Member
Rubino;n2181290 ha scritto:
Ciao lottotom
l'ho guardato velocemente lo script non l ho provato

ma non vedo iniziò e fine impostati

poi ti segnalo che la statisticaformazionese tiene conto del numero jolli e star
quindi il ritardo non combacia con la statistica veloce.

Ciao Rubino, grazie per la risposta.
Anche aggiungendo nello script inizio e fine (mi era venuto in effetti lo stesso dubbio...) relativi al superenalotto vengono fuori gli stessi risultati non combacianti però con la ricerca per statistica veloce o per formazioni registrate. Ma se, come mi hai gentilmente detto, StatisticaFormazioneSE include anche Jolly e Star i risultati potrebbero benissimo non collimare per quel motivo.

Hai modo però di verificare singolarmente alcuni dei parametri relativi ai numeri sopra postati (es. RA, RS, INCMAX e FQ). Mi basterebbe la verifica parametrica di 3 numeri o 5 numeri (senza contare nella verifica Jolly e Super star) per sincerarmi sul fatto che i dati estrapolati con lo script sono corretti o meno.

Ad esempio prendendo semplicemente i 5 + in ritardo al 17-7-2019

Estratti -56 -51 -88 -0 -211 -211 -3,5906 -0,58 -5 -20 -5
Estratti -27 -48 -78 -0 -185 -185 -2,963 -0,615 -1 -2 -6
Estratti -7 -38 -98 -0 -178 -178 -2,2569 -0,388 -5 -47 -1
Estratti -10 -38 -89 -0 -186 -186 -2,3584 -0,427 -2 -4 -17
Estratti -88 -37 -67 -0 -219 -219 -2,7037 -0,552 -3 -1 -8

A te con i tuoi script "doc" x superenalotto ;) cosa risulta per ciascuno di essi per RA, RS, INCMAX e FQ? dall'inizio del superenalotto ad oggi senza ovviamente considerare superstar e jolly? :eek: :D :)


Grazie comunque.

Ciao

:)
 
Ultima modifica:
R

Rubino

Guest
purtroppo già segnalato, due mesi fa, con risposta anche di Mike58, che condivideva
che l'istruzione STATISTICAFORMAZIONESE, non serve quasi più a nulla fatta così.

per calcolare il ritardo, ritardomax e frequenza, sono costretto a fare cosi,
INCRMAX lo uso poche volte e quindi non mi sono addentrato nella routine per ritrovare il valore esatto

questo è lo script
corrisponde a statisticaveloce, almeno da qualche controllo fatto, poi lo uso poco non saprei oltre.

esempio tra i tuoi richiesti

terzina 51 56 88 per 2 punti si ottiene questo

Codice:
[SIZE=14px][B][COLOR=#0000CD][FONT=Courier New]Situazione SuperEnalotto [/FONT]
[FONT=Courier New]Nr. 51.56.88[/FONT]
[FONT=Courier New]Ritardo 77[/FONT]
[FONT=Courier New]Rit.Max 291[/FONT]
[FONT=Courier New]Frequenza 38[/FONT][/COLOR][/B][/SIZE]

----

Codice:
Option Explicit
Sub Main
 Dim fine,es,sorte,aretritardi,aretidestr,ritardo,last,frequenza,max
 Dim num(10)
 Call ScegliNumeri(num)
 ''
 fine = EstrazioniArchivioSE
 sorte = InputBox("Sorte 1-2-3-4-5-6",,2)
 es = fine
 Call ElencoRitardiSE(num,sorte,1,es,aretritardi,aretidestr)
 last = UBound(aretritardi)
 ritardo = aretritardi(last)
 frequenza = last-1
 max = MassimoV(aretritardi,1)
 Scrivi "Situazione SuperEnalotto "
 Scrivi "Nr.  " & StringaNumeri(num,".")
 Scrivi "Ritardo   " & ritardo
 Scrivi "Rit.Max   " & max
 Scrivi "Frequenza " & frequenza
End Sub
 
Ultima modifica di un moderatore:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto