Condizioni:
.Cicli continui di 10 estrazioni
Ruote di gioco: Ba.Ca.
Colpi di gioco: 10
Algoritmi in gioco:
...
Ambata: Quadrato 4 di Na + 4 di Fi + 07 *
Ambo: Diametrale 5 di To + 3 di Ve + 18 *
Terno: Complemento90 1 di Ba + 4 di Pa + 43 *
Terno: Complemento90 3 di Ba + 3 di Fi + 01 *

sab 24.12.2022
Ambata 19
Abbinamenti per ambo: 2.
Abbinamenti per terno: 53.44.
Esiti:
mar 03.01.2023 al 4 colpo su Ba ambata 19
mar 03.01.2023 al 4 colpo su Ca ambata 19
gio 05.01.2023 al 5 colpo su Ca ambata 19
gio 05.01.2023 al 5 colpo su Ca ambo 19 - 2
gio 05.01.2023 al 5 colpo su Ca terno 19 - 2 - 53
gio 12.01.2023 al 8 colpo su Ca ambata 19

mar 17.01.2023
Ambata 18
Abbinamenti per ambo: 80.
Abbinamenti per terno: 19.35.
Esiti:
gio 19.01.2023 al 1 colpo su Ca ambata 18
mar 31.01.2023 al 6 colpo su Ca ambata 18
gio 02.02.2023 al 7 colpo su Ba ambata 18
gio 02.02.2023 al 7 colpo su Ba ambo 18 - 80
gio 02.02.2023 al 7 colpo su Ba terno 18 - 80 - 35
sab 04.02.2023 al 8 colpo su Ca ambata 18
sab 04.02.2023 al 8 colpo su Ca ambo 18 - 80

gio 09.02.2023
Ambata 66
Abbinamenti per ambo: 71.
Abbinamenti per terno: 88.21.
Esiti:
gio 16.02.2023 al 3 colpo su Ca ambata 66
gio 16.02.2023 al 3 colpo su Ca ambo 66 - 71
sab 18.02.2023 al 4 colpo su Ba ambata 66
sab 18.02.2023 al 4 colpo su Ba ambo 66 - 71
sab 18.02.2023 al 4 colpo su Ba terno 66 - 71 - 88
mar 21.02.2023 al 5 colpo su Ba ambata 66
gio 23.02.2023 al 6 colpo su Ca ambata 66
mar 28.02.2023 al 8 colpo su Ba ambata 66
gio 02.03.2023 al 9 colpo su Ca ambata 66

sab 04.03.2023
Ambata 24
Abbinamenti per ambo: 7.
Abbinamenti per terno: 65.44.
Esiti:
mar 07.03.2023 al 1 colpo su Ca ambata 24
mar 07.03.2023 al 1 colpo su Ca ambo 24 - 7
mar 07.03.2023 al 1 colpo su Ca terno 24 - 7 - 65
mar 21.03.2023 al 7 colpo su Ba ambata 24
gio 23.03.2023 al 8 colpo su Ca ambata 24
sab 25.03.2023 al 9 colpo su Ba ambata 24

mar 28.03.2023
Ambata 68
Abbinamenti per ambo: 33.
Abbinamenti per terno: 69.83.
Esiti:
sab 15.04.2023 al 8 colpo su Ca ambata 68
gio 20.04.2023 al 10 colpo su Ba ambata 68

gio 20.04.2023
Ambata 26
Abbinamenti per ambo: 7.
Abbinamenti per terno: 14.84.
Esiti:
sab 22.04.2023 al 1 colpo su Ca ambata 26
mer 26.04.2023 al 2 colpo su Ca ambata 26
mer 26.04.2023 al 2 colpo su Ca ambo 26 - 7
mer 26.04.2023 al 2 colpo su Ca terno 26 - 7 - 14
mar 02.05.2023 al 5 colpo su Ca ambata 26
sab 13.05.2023 al 10 colpo su Ca ambata 26

sab 13.05.2023
Ambata 36
Abbinamenti per ambo: 8.
Abbinamenti per terno: 62.23.
Esiti:
mar 23.05.2023 al 4 colpo su Ba ambata 36
gio 25.05.2023 al 5 colpo su Ba ambata 36
mar 30.05.2023 al 7 colpo su Ca ambata 36
mar 30.05.2023 al 7 colpo su Ca ambo 36 - 8
mar 30.05.2023 al 7 colpo su Ca terno 36 - 8 - 62

mar 06.06.2023
Ambata 80
Abbinamenti per ambo: 19.
Abbinamenti per terno: 55.26.
Esiti:
sab 17.06.2023 al 5 colpo su Ba ambata 80
sab 17.06.2023 al 5 colpo su Ba ambo 80 - 19
sab 17.06.2023 al 5 colpo su Ba terno 80 - 19 - 55
gio 22.06.2023 al 7 colpo su Ca ambata 80

gio 29.06.2023
Ambata 2
Abbinamenti per ambo: 20.
Abbinamenti per terno: 7.69.
Esiti:
ESITO NEGATIVO

mar 18.07.2023
Ambata 31
Abbinamenti per ambo: 50.
Abbinamenti per terno: 8.56.
Esiti:
mar 01.08.2023 al 8 colpo su Ca ambata 31
mar 01.08.2023 al 8 colpo su Ca ambo 31 - 50
mar 01.08.2023 al 8 colpo su Ca terno 31 - 50 - 56

ven 04.08.2023
Ambata 39
Abbinamenti per ambo: 10.
Abbinamenti per terno: 56.51.
Esiti:
IN CORSO ...

Data inizio ricerca : gio 22.12.2022
Data fine ricerca : ven 04.08.2023

Casi esaminati : 11
Casi positivi : 9
Casi negativi : 1
Casi in corso : 1
Casi positivi per ambata : 9
Casi positivi per ambo : 8
Casi positivi per terno : 8

Vincite totali nei colpi di gioco:

Ambate : 30
Ambi vinti : 10
Terni vinti : 8

Estratti in 1 posizione (20%)
Estratti in 2 posizione (10%)
Estratti in 3 posizione (23%)
Estratti in 4 posizione (20%)
Estratti in 5 posizione (27%)

Vincite su Ba (37%)
Vincite su Ca (63%)

'06-08-2023
 '
 ColoreTesto 2 :Scrivi String(37,32)&" CICLICA 10 ESTRAZIONI X BARI-CAGLIARI by DjNomade",1

Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(4),nu(4),nr(4)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),posta(5)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
poste2(3)=1.5
poste2(4)=.3
poste2(5)=.2
fin=EstrazioneFin
ini=10177
For es=ini To fin step 10
AvanzamentoElab ini,fin,es

nr(1)=Fuori90((Estratto(es,6,4)*Estratto(es,6,4))+Estratto(es,3,4)+7)
nr(2)=Fuori90(Diametrale(Estratto(es,9,5))+Estratto(es,10,3)+18)
nr(3)=Fuori90(90-Estratto(es,1,1)+Estratto(es,7,4)+43)
nr(4)=Fuori90(90-Estratto(es,1,3)+Estratto(es,3,3)+01)


'**********************************************************


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 03 '   numeri totali 7-1=6
For y = x + 1 To 4 '  7 perche i numeri in totale sono 7
If nr(x) = nr(y) Then nr(y) = Fuori90(nr(y) + 1)
Next
Next
Wend
End If
Rem fine formula


'*****************************************************

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi)

Scrivi
ruote(1)=1:ruote(2)=2:k=10:co=0




nu1(1)=nr(1)
ImpostaGiocata 1 ,nu1,ruote,posta,k
nu2(1)=nr(1)
nu2(2)=nr(2)
ImpostaGiocata 2 ,nu2,ruote,poste,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(3)
ImpostaGiocata 3 ,nu3,ruote,poste1,k
nu3(1)=nr(1)
nu3(2)=nr(2)
nu3(3)=nr(4)
ImpostaGiocata 4 ,nu3,ruote,poste1,k
Gioca es

Next

ScriviResoconto
End Sub