sabato, mar 21 2020
+---------009763---------+
Bari        21 31 89 15 41
Cagliari    62 25 09 35 11
Firenze     73 26 61 83 87
Genova      63 16 21 15 81
Milano      85 36 06 45 89
Napoli      25 09 52 79 43
Palermo     12 52 78 81 65
Roma        90 34 86 14 41
Torino      53 81 05 33 30
Venezia     24 41 76 10 37
Nazionale   61 41 89 50 16

'08-05-2020
      ColoreTesto 2 :Scrivi String(34,30)&" DA SOMMA 30 ISOTOPA BARI-GENOVA  by DjNomade",1

       
        ColoreTesto 0
Sub Main()
Dim am1(10)
Dim am2(10),amb(4)
Dim m(10)
Dim ambo(2)
Dim cou1(6) ,cou2(6),cou3(7)
Dim ruote(10),ruota(1),ruota1(1)
Dim poste(5),poste1(5),poste2(4),poste3(4)
poste(1) = 1


poste2(2) = 1

poste3(2) = 2
poste3(3) = 1.7
poste3(4) = .3


fin = EstrazioneFin
ini = 9446
k=10 'colpi di gioco
For es = ini To fin
co = 0
Messaggio DataEstrazione(es)

 r = 1 
If r=11 Then r=12
For p = 1 To 5

a = Estratto(es,r,p)

r2 =  4

aa = Estratto(es,r2,p)

c= Fuori90(aa+a)

If c = 30  Then


 nw1 =  Fuori90(90-Estratto(es,1,2)+Estratto(es,1,3)+1)  'ambata

ra=Estratto(es,2,5)
nx1= Round(Sqr(ra),2)
nx2=Fuori90(Int(nx1))'radice

 nw11 = Fuori90(nx2+Estratto(es,3,1)+58)'abb
 nw111 = Fuori90(90-Estratto(es,5,2)+Estratto(es,8,2)+48)'abb

 nw222 = Fuori90(90-Estratto(es,9,2)+Estratto(es,10,5)+36)'abb

amb(1)= nw1
amb(2)= nw11
amb(3)= nw111
amb(4)= nw222

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 3
For y = x + 1 To 4
If amb(x) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula



ColoreTesto 2 : Scrivi "=============================================================================",1
ColoreTesto 1 : Scrivi " < Estratti isotopi -  SOMMA " & CInt(c),1 
ColoreTesto 0
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r) & "..." & StringaEstratti(es,r) & "..." & SiglaRuota(r) & "..." & CInt(a),1 
Scrivi DataEstrazione(es) & "..." & SiglaRuota(r2) & "..." & StringaEstratti(es,r2) & "..." & SiglaRuota(r2) & "..." & CInt(aa)& "...SOMMA " & CInt(c) ,1
ruote(1) = 1
ruote(2) = 4




Messaggio " elaboro " & es
: co = 0

Scrivi String(85,"-") & Chr(10)

cou1(1) =amb(1)

ImpostaGiocata 1,cou1,ruote,poste,k
cou2(1) = amb(1)
cou2(2) = amb(2)
ImpostaGiocata 2,cou2,ruote,poste2,k
cou2(1) = amb(1)
cou2(2) = amb(3)
ImpostaGiocata 3,cou2,ruote,poste2,k
cou2(1) = amb(1)
cou2(2) = amb(4)
ImpostaGiocata 4,cou2,ruote,poste2,k







Gioca es

End If
Next
Next

ScriviResoconto
End Sub

citazione:

---

Inviato in origine da vinci

SCUSATE SE MI INTROMETTO MA IL METODO E' QUELLO CHE HA PROPOSTO DJNOMADE CHE RIPORTO DI SEGUITO:


Condizioni:
Somme 30 Isotopi
Ruote spia: Ba(Or).Ge(Or).
Posizioni estrattive spie: 12345
Ruote di gioco: BARI.GENOVA
Colpi di gioco: 10
Algoritmi in gioco:
...
Ambata: Complemento90 2 di Ba + 3 di Ba + 01 *
Ambo: RadiceQuadrata 5 di Ca + 1 di Fi + 58 *
Ambo: Complemento90 2 di Mi + 2 di Ro + 48 *
Ambo: Complemento90 2 di To + 5 di Ve + 36 *





BARI-GENOVA

AMBATA

59


ABBINAMENTI

44-46-82




Condizioni:
Somme 30 Isotopi
Ruote spia: Ba(Or).Ge(Or).
Posizioni estrattive spie: 12345
Ruote di gioco: Ba.Ge.
Colpi di gioco: 10
Algoritmi in gioco:
...
Ambata: Complemento90 2 di Ba + 3 di Ba + 01 *
Ambo: RadiceQuadrata 5 di Ca + 1 di Fi + 58 *
Ambo: Complemento90 2 di Mi + 2 di Ro + 48 *
Ambo: Complemento90 2 di To + 5 di Ve + 36 *

mar 03.09.2019
Ambata 81
Abbinamenti per ambo: 71.35.53.
Esiti:
mar 10.09.2019 al 3 colpo su Ba ambata 81
mar 10.09.2019 al 3 colpo su Ba ambo 81 - 71

mar 01.10.2019
Ambata 83
Abbinamenti per ambo: 26.87.4.
Esiti:
sab 12.10.2019 al 5 colpo su Ba ambata 83
sab 12.10.2019 al 5 colpo su Ba ambo 83 - 26

mar 15.10.2019
Ambata 71
Abbinamenti per ambo: 11.88.51.
Esiti:
gio 24.10.2019 al 4 colpo su Ge ambata 71
gio 24.10.2019 al 4 colpo su Ge ambo 71 - 88

mar 12.11.2019
Ambata 70
Abbinamenti per ambo: 57.30.14.
Esiti:
mar 19.11.2019 al 3 colpo su Ge ambata 70
sab 23.11.2019 al 5 colpo su Ba ambata 70
sab 23.11.2019 al 5 colpo su Ba ambo 70 - 30

sab 23.11.2019
Ambata 23
Abbinamenti per ambo: 76.19.20.
Esiti:
mar 17.12.2019 al 10 colpo su Ge ambata 23
mar 17.12.2019 al 10 colpo su Ge ambo 23 - 76

gio 09.01.2020
Ambata 12
Abbinamenti per ambo: 74.66.69.
Esiti:
gio 23.01.2020 al 6 colpo su Ge ambata 12
gio 23.01.2020 al 6 colpo su Ge ambo 12 - 74

mar 14.01.2020
Ambata 87
Abbinamenti per ambo: 1.24.38.
Esiti:
gio 16.01.2020 al 1 colpo su Ba ambata 87
gio 16.01.2020 al 1 colpo su Ba ambo 87 - 38
gio 23.01.2020 al 4 colpo su Ba ambata 87
gio 23.01.2020 al 4 colpo su Ba ambo 87 - 1
mar 04.02.2020 al 9 colpo su Ba ambata 87

gio 06.02.2020
Ambata 67
Abbinamenti per ambo: 69.85.46.
Esiti:
sab 08.02.2020 al 1 colpo su Ge ambata 67
sab 08.02.2020 al 1 colpo su Ge ambo 67 - 69

gio 13.02.2020
Ambata 50
Abbinamenti per ambo: 40.39.69.
Esiti:
sab 15.02.2020 al 1 colpo su Ge ambata 50
sab 15.02.2020 al 1 colpo su Ge ambo 50 - 40
mar 25.02.2020 al 5 colpo su Ge ambata 50
sab 29.02.2020 al 7 colpo su Ge ambata 50
sab 29.02.2020 al 7 colpo su Ge ambo 50 - 39

sab 21.03.2020
Ambata 59
Abbinamenti per ambo: 44.46.82.
Esiti:
IN CORSO ...

Data inizio ricerca : mar 03.09.2019
Data fine ricerca : sab 21.03.2020

Casi esaminati : 10
Casi positivi : 9
Casi negativi : 0
Casi in corso : 1
Casi positivi per ambata : 9
Casi positivi per ambo : 9

Vincite totali nei colpi di gioco:

Ambate : 14
Ambi vinti : 11

Estratti in 1 posizione (14%)
Estratti in 2 posizione (7%)
Estratti in 3 posizione (29%)
Estratti in 4 posizione (36%)
Estratti in 5 posizione (14%)

Vincite su Ba (43%)
Vincite su Ge (57%)

---