Somma 10 Ruote alla 1° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

ripropongo un mio metodo su Tutte le ruote alla 1° Estrazione.
Occorre fare la somma delle dieci ruote, esclusa la Nazionale.
Il risultato sarà compreso fra 2150 e 2400 circa.

Poniamo che sia 2150.

A) INT(2150/100) = 21
B) parte decimale di A/100 (0,5) x 100 = 50 (Fuori 90)
C) somma di A + B = 71 (Fuori 90)
D) differenza di A-B (numero più grosso meno il più piccolo) 50-21 = 29

Gli ambo sono: B-D , A-C, C-D, B-C (50-29 / 21-71 / 71-29 / 50-71).
Su tutte per 7 estrazioni, dal 2024 in avanti ha avuto un caso negativo ad Aprile.
Riporto qui di seguito.

MESE SOMMA 10R AMBO1 AMBO2 AMBO3 AMBO4 ESITO
GEN 2459 59-35 24-83 83-35 59-83 3° C.PA 59-35
FEB 2561 61-36 25-86 86-36 61-86 1° C.TO 25-86
MAR 2192 02-19 21-23 23-19 02-23 2° C.PA 21-23
APR 2285 85-63 22-17 17-63 85-17 NEGATIVO
MAG 2154 54-33 21-75 75-33 54-75 5° C.FI 75-33
GIU 2199 09-12 21-30 30-12 09-30 4° C.CA 12-30
LUG 2158 58-37 21-79 79-37 58-79 3° C.GE 58-37
AGO 2039 39-19 20-59 59-19 39-59 3° C.RO 59-19
SET 2440 40-16 24-64 64-16 40-64 7° C.BA 40-64
OTT 2263 63-41 22-85 85-41 63-85 6° C.BA 63-41
NOV 2201 01-21 22-23 23-21 01-23 7° C.TO 01-23
DIC 2155 55-34 21-76 76-34 55-76 5° C.VE 55-76
GEN 25 2332 32-09 23-55 55-09 32-55 3° C.FI 55-09

Per i calcoli ho usato un foglio di Excel con le estrazioni.
A = INT(2150/100)
B = ((2150/100)-INT(2150/100))*100 (se B è >90 va fatto il Fuori 90)
C = SE(A+B>90;A+B-90;A+B)
D = ASS(A-B)

Stasera provo a fare lo script.

 

[Giulio Pedrinelli]

Ciao a tutti;

ogni tanto lo script probabilmente rileva dei numeri a zero e s'impappina...
Ho usato LottoDesk, lo allego qui di seguito.
Inoltre anche il resoconto economico non tiene conto degli ambi usciti al posto dei numeri singoli.

Sub main()
Dim rt(1),pt(4),n1(7)

pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0

clp=7 'colpi di gioco
rt(1)=11 '1a ruota di gioco


ini=10363
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
ba=Estratto(es,1,1) + Estratto(es,1,2) + Estratto(es,1,3) + Estratto(es,1,4) + Estratto(es,1,5)
ca=Estratto(es,2,1) + Estratto(es,2,2) + Estratto(es,2,3) + Estratto(es,2,4) + Estratto(es,2,5)
fi=Estratto(es,3,1) + Estratto(es,3,2) + Estratto(es,3,3) + Estratto(es,3,4) + Estratto(es,3,5)
ge=Estratto(es,4,1) + Estratto(es,4,2) + Estratto(es,4,3) + Estratto(es,4,4) + Estratto(es,4,5)
mi=Estratto(es,5,1) + Estratto(es,5,2) + Estratto(es,5,3) + Estratto(es,5,4) + Estratto(es,5,5)
na=Estratto(es,6,1) + Estratto(es,6,2) + Estratto(es,6,3) + Estratto(es,6,4) + Estratto(es,6,5)
pa=Estratto(es,7,1) + Estratto(es,7,2) + Estratto(es,7,3) + Estratto(es,7,4) + Estratto(es,7,5)
ro=Estratto(es,8,1) + Estratto(es,8,2) + Estratto(es,8,3) + Estratto(es,8,4) + Estratto(es,8,5)
t1=Estratto(es,9,1) + Estratto(es,9,2) + Estratto(es,9,3) + Estratto(es,9,4) + Estratto(es,9,5)
ve=Estratto(es,10,1) + Estratto(es,10,2) + Estratto(es,10,3) + Estratto(es,10,4) + Estratto(es,10,5)
be=ba+ca+fi+ge+mi+na+pa+ro+t1+ve 'somma 10 ruote
a=int(be/100) 'a
b=((be/100)-a)*100 'b
if b>90 then b=b-90
s1=a+b 'somma
if s1>90 then s1=s1-90
if a>b then d=a-b
d=b-a 'diff
n1(1) = b
n1(2) = d
ImpostaGiocata 1,n1,rt,pt,clp
n1(1) = a
n1(2) = s1
ImpostaGiocata 2,n1,rt,pt,clp
n1(1) = s1
n1(2) = d
ImpostaGiocata 3,n1,rt,pt,clp
n1(1) = b
n1(2) = s1
ImpostaGiocata 4,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub

Dal resoconto, verificando le estrazioni risultano un numero di ambi usciti più alto rispetto al primo elenco che ho postato.
Avevo verificato con l'Excel e le estrazioni del 2024.

mar 02.01.2024 [10363]
G 1: A 59.35 Tu 7/7
A 35.59 su Tu (Pa) 3° colpo [10366/08.01.2024]

G 2: A 24.83 Tu 7/7
negativo
G 3: A 83.35 Tu 7/7
negativo
G 4: A 59.83 Tu 7/7
negativo
============================================================ Caso n° 2
gio 01.02.2024 [10380]
G 1: A 61.36 Tu 7/7
negativo
G 2: A 25.86 Tu 7/7
A 25.86 su Tu (To) 1° colpo [10381/02.02.2024]
A 25.86 su Tu (To) 2° colpo [10382/03.02.2024]
A 86.25 su Tu (To) 3° colpo [10383/06.02.2024]
A 86.25 su Tu (Na) 5° colpo [10385/09.02.2024]

G 3: A 86.36 Tu 7/7
A 36.86 su Tu (Ba) 6° colpo [10386/10.02.2024]

G 4: A 61.86 Tu 7/7
negativo
============================================================ Caso n° 3
ven 01.03.2024 [10397]
G 1: A 02.19 Tu 7/7
negativo
G 2: A 21.23 Tu 7/7
A 21.23 su Tu (Pa) 2° colpo [10399/05.03.2024]

G 3: A 23.19 Tu 7/7
negativo
G 4: A 02.23 Tu 7/7
negativo
============================================================ Caso n° 4
mar 02.04.2024 [10415]
G 1: A 85.63 Tu 7/7
negativo
G 2: A 22.17 Tu 7/7
negativo
G 3: A 17.63 Tu 7/7
negativo
G 4: A 85.17 Tu 7/7
negativo
============================================================ Caso n° 5
gio 02.05.2024 [10432]
G 1: A 54.33 Tu 7/7
negativo
G 2: A 21.75 Tu 7/7
negativo
G 3: A 75.33 Tu 7/7
A 33.75 su Tu (Fi) 5° colpo [10437/10.05.2024]
A 33.75 su Tu (Fi) 6° colpo [10438/11.05.2024]

G 4: A 54.75 Tu 7/7
negativo
============================================================ Caso n° 6
sab 01.06.2024 [10450]
G 1: A 09.12 Tu 7/7
negativo
G 2: A 21.30 Tu 7/7
negativo
G 3: A 12.30 Tu 7/7
A 12.30 su Tu (Ca) 6° colpo [10454/08.06.2024]
G 4: A 09.30 Tu 7/7
negativo
============================================================ Caso n° 7
mar 02.07.2024 [10467]
G 1: A 58.37 Tu 7/7
A 37.58 su Tu (Ge) 3° colpo [10470/06.07.2024]

G 2: A 21.79 Tu 7/7
negativo
G 3: A 79.37 Tu 7/7
A 37.79 su Tu (Ge) 3° colpo [10470/06.07.2024]

G 4: A 58.79 Tu 7/7
A 58.79 su Tu (Ge) 3° colpo [10470/06.07.2024]
A 79.58 su Tu (Pa) 5° colpo [10472/11.07.2024]

============================================================ Caso n° 8
gio 01.08.2024 [10484]
G 1: A 39.19 Tu 7/7
negativo
G 2: A 20.59 Tu 7/7
negativo
G 3: A 59.19 Tu 7/7
A 59.19 su Tu (Ro) 3° colpo [10487/06.08.2024]

G 4: A 39.59 Tu 7/7
A 59.39 su Tu (Mi) 4° colpo [10488/08.08.2024]

============================================================ Caso n° 9
mar 03.09.2024 [10503]
G 1: A 40.16 Tu 7/7
negativo
G 2: A 24.64 Tu 7/7
negativo
G 3: A 64.16 Tu 7/7
negativo
G 4: A 40.64 Tu 7/7
A 40.64 su Tu (Ba) 7° colpo [10510/14.09.2024]

============================================================ Caso n° 10
mar 01.10.2024 [10519]
G 1: A 63.41 Tu 7/7
A 41.63 su Tu (Ba) 7° colpo [10526/12.10.2024]

G 2: A 22.85 Tu 7/7
negativo
G 3: A 85.41 Tu 7/7
negativo
G 4: A 63.85 Tu 7/7
negativo
============================================================ Caso n° 11
sab 02.11.2024 [10537]
G 1: A 01 Tu 7/7
negativo
G 2: A 22.23 Tu 7/7
negativo
G 3: A 23 Tu 7/7
negativo
G 4: A 01.23 Tu 7/7
A 23.01 su Tu (To) 7° colpo [10544/14.11.2024]

============================================================ Caso n° 12
mar 03.12.2024 [10555]
G 1: A 55.34 Tu 7/7
negativo
G 2: A 21.76 Tu 7/7
negativo
G 3: A 76.34 Tu 7/7
A 34.76 su Tu (Ve) 7° colpo [10562/14.12.2024]

G 4: A 55.76 Tu 7/7
A 55.76 su Tu (Ve) 5° colpo [10560/12.12.2024]

============================================================ Caso n° 13
gio 02.01.2025 [10572]
G 1: A 32.09 Tu 3/7
A 32.09 su Tu (Mi) 1° colpo [10573/03.01.2025]
in corso (3° su 7)
G 2: A 23.55 Tu 3/7
in corso (3° su 7)
G 3: A 55.09 Tu 3/7
A 55.09 su Tu (Fi) 3° colpo [10575/07.01.2025]
in corso (3° su 7)
G 4: A 32.55 Tu 3/7
in corso (3° su 7)

Casi Rilevati 13


=======================================
Resoconto complessivo di 4 giocate
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 13
in corso: 0
positivi: 12
negativi: 1