Novità

Le mie solite idee

IL CAVALLO (Full Version)
metodo statistico che ricava:
1 quartina x ambo
su ruote congeniali

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "IL CAVALLO (Full Version) "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(10)
   Dim n1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 1000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r = 1 To 1
         For r1 = 2 To 2
            a = Estratto(es,r,1)
            b = Estratto(es,r1,3)
            ok = 0
            If Fuori90(a + b) = 1 Then
               n1(1) = 8
               n1(2) = 15
               n1(3) = 56
               n1(4) = 65
               ruota(1) = 4
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 2 Then
               n1(1) = 12
               n1(2) = 15
               n1(3) = 38
               n1(4) = 75
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 3 Then
               n1(1) = 6
               n1(2) = 17
               n1(3) = 19
               n1(4) = 40
               ruota(1) = 2
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 4 Then
               n1(1) = 1
               n1(2) = 9
               n1(3) = 35
               n1(4) = 46
               ruota(1) = 1
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 5 Then
               n1(1) = 8
               n1(2) = 10
               n1(3) = 11
               n1(4) = 39
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 6 Then
               n1(1) = 2
               n1(2) = 5
               n1(3) = 69
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 7 Then
               n1(1) = 24
               n1(2) = 71
               n1(3) = 75
               n1(4) = 89
               ruota(1) = 3
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 8 Then
               n1(1) = 2
               n1(2) = 9
               n1(3) = 74
               n1(4) = 86
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 9 Then
               n1(1) = 25
               n1(2) = 39
               n1(3) = 40
               n1(4) = 62
               ruota(1) = 4
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 10 Then
               n1(1) = 4
               n1(2) = 6
               n1(3) = 8
               n1(4) = 38
               ruota(1) = 3
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 11 Then
               n1(1) = 6
               n1(2) = 25
               n1(3) = 30
               n1(4) = 54
               ruota(1) = 5
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 12 Then
               n1(1) = 25
               n1(2) = 33
               n1(3) = 82
               n1(4) = 86
               ruota(1) = 3
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 13 Then
               n1(1) = 2
               n1(2) = 32
               n1(3) = 61
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 14 Then
               n1(1) = 1
               n1(2) = 6
               n1(3) = 14
               n1(4) = 20
               ruota(1) = 6
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 15 Then
               n1(1) = 13
               n1(2) = 20
               n1(3) = 23
               n1(4) = 69
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 16 Then
               n1(1) = 30
               n1(2) = 31
               n1(3) = 32
               n1(4) = 66
               ruota(1) = 2
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 17 Then
               n1(1) = 19
               n1(2) = 28
               n1(3) = 34
               n1(4) = 53
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 18 Then
               n1(1) = 35
               n1(2) = 56
               n1(3) = 70
               n1(4) = 73
               ruota(1) = 2
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 19 Then
               n1(1) = 1
               n1(2) = 10
               n1(3) = 35
               n1(4) = 62
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 20 Then
               n1(1) = 4
               n1(2) = 15
               n1(3) = 55
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 21 Then
               n1(1) = 56
               n1(2) = 68
               n1(3) = 69
               n1(4) = 81
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 22 Then
               n1(1) = 1
               n1(2) = 7
               n1(3) = 9
               n1(4) = 56
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 23 Then
               n1(1) = 1
               n1(2) = 16
               n1(3) = 22
               n1(4) = 89
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 24 Then
               n1(1) = 10
               n1(2) = 15
               n1(3) = 33
               n1(4) = 76
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 25 Then
               n1(1) = 28
               n1(2) = 30
               n1(3) = 44
               n1(4) = 70
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 26 Then
               n1(1) = 16
               n1(2) = 60
               n1(3) = 61
               n1(4) = 76
               ruota(1) = 2
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 27 Then
               n1(1) = 1
               n1(2) = 2
               n1(3) = 19
               n1(4) = 34
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 28 Then
               n1(1) = 10
               n1(2) = 28
               n1(3) = 58
               n1(4) = 82
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 29 Then
               n1(1) = 10
               n1(2) = 22
               n1(3) = 35
               n1(4) = 36
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 30 Then
               n1(1) = 4
               n1(2) = 13
               n1(3) = 73
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 31 Then
               n1(1) = 10
               n1(2) = 31
               n1(3) = 47
               n1(4) = 80
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 32 Then
               n1(1) = 6
               n1(2) = 34
               n1(3) = 61
               n1(4) = 78
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 33 Then
               n1(1) = 25
               n1(2) = 35
               n1(3) = 61
               n1(4) = 75
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 34 Then
               n1(1) = 16
               n1(2) = 34
               n1(3) = 39
               n1(4) = 79
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 35 Then
               n1(1) = 5
               n1(2) = 22
               n1(3) = 34
               n1(4) = 65
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 36 Then
               n1(1) = 13
               n1(2) = 15
               n1(3) = 35
               n1(4) = 39
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 37 Then
               n1(1) = 7
               n1(2) = 22
               n1(3) = 29
               n1(4) = 51
               ruota(1) = 5
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 38 Then
               n1(1) = 18
               n1(2) = 56
               n1(3) = 60
               n1(4) = 63
               ruota(1) = 2
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 39 Then
               n1(1) = 44
               n1(2) = 46
               n1(3) = 71
               n1(4) = 76
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 40 Then
               n1(1) = 24
               n1(2) = 31
               n1(3) = 32
               n1(4) = 54
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 41 Then
               n1(1) = 6
               n1(2) = 44
               n1(3) = 61
               n1(4) = 80
               ruota(1) = 2
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 42 Then
               n1(1) = 59
               n1(2) = 64
               n1(3) = 73
               n1(4) = 77
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 43 Then
               n1(1) = 6
               n1(2) = 15
               n1(3) = 37
               n1(4) = 60
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 44 Then
               n1(1) = 3
               n1(2) = 28
               n1(3) = 32
               n1(4) = 78
               ruota(1) = 3
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 45 Then
               n1(1) = 4
               n1(2) = 7
               n1(3) = 31
               n1(4) = 35
               ruota(1) = 4
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 46 Then
               n1(1) = 1
               n1(2) = 13
               n1(3) = 78
               n1(4) = 83
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 47 Then
               n1(1) = 11
               n1(2) = 71
               n1(3) = 76
               n1(4) = 90
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 48Then
               n1(1) = 31
               n1(2) = 33
               n1(3) = 38
               n1(4) = 73
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 49 Then
               n1(1) = 5
               n1(2) = 10
               n1(3) = 15
               n1(4) = 34
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 50 Then
               n1(1) = 6
               n1(2) = 16
               n1(3) = 27
               n1(4) = 89
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 51 Then
               n1(1) = 10
               n1(2) = 57
               n1(3) = 67
               n1(4) = 81
               ruota(1) = 4
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 52 Then
               n1(1) = 5
               n1(2) = 9
               n1(3) = 26
               n1(4) = 45
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 53 Then
               n1(1) = 12
               n1(2) = 16
               n1(3) = 24
               n1(4) = 34
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 54 Then
               n1(1) = 3
               n1(2) = 42
               n1(3) = 56
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 55 Then
               n1(1) = 1
               n1(2) = 27
               n1(3) = 39
               n1(4) = 54
               ruota(1) = 2
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 56 Then
               n1(1) = 2
               n1(2) = 30
               n1(3) = 50
               n1(4) = 54
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 57 Then
               n1(1) = 11
               n1(2) = 21
               n1(3) = 27
               n1(4) = 48
               ruota(1) = 2
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 58 Then
               n1(1) = 5
               n1(2) = 13
               n1(3) = 21
               n1(4) = 75
               ruota(1) = 3
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 59 Then
               n1(1) = 13
               n1(2) = 49
               n1(3) = 52
               n1(4) = 54
               ruota(1) = 3
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 60 Then
               n1(1) = 35
               n1(2) = 30
               n1(3) = 78
               n1(4) = 83
               ruota(1) = 1
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 61 Then
               n1(1) = 1
               n1(2) = 2
               n1(3) = 6
               n1(4) = 18
               ruota(1) = 2
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 62 Then
               n1(1) = 5
               n1(2) = 44
               n1(3) = 68
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 63 Then
               n1(1) = 7
               n1(2) = 12
               n1(3) = 56
               n1(4) = 89
               ruota(1) = 4
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 64 Then
               n1(1) = 1
               n1(2) = 4
               n1(3) = 5
               n1(4) = 51
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 65 Then
               n1(1) = 3
               n1(2) = 15
               n1(3) = 20
               n1(4) = 40
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 66 Then
               n1(1) = 5
               n1(2) = 21
               n1(3) = 31
               n1(4) = 49
               ruota(1) = 4
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 67 Then
               n1(1) = 8
               n1(2) = 11
               n1(3) = 16
               n1(4) = 59
               ruota(1) = 2
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 68 Then
               n1(1) = 7
               n1(2) = 45
               n1(3) = 69
               n1(4) = 70
               ruota(1) = 2
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 69 Then
               n1(1) = 5
               n1(2) = 13
               n1(3) = 35
               n1(4) = 73
               ruota(1) = 5
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 70 Then
               n1(1) = 2
               n1(2) = 6
               n1(3) = 9
               n1(4) = 32
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If Fuori90(a + b) = 71 Then
               n1(1) = 2
               n1(2) = 6
               n1(3) = 11
               n1(4) = 51
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 72 Then
               n1(1) = 1
               n1(2) = 5
               n1(3) = 52
               n1(4) = 61
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 73 Then
               n1(1) = 2
               n1(2) = 27
               n1(3) = 50
               n1(4) = 89
               ruota(1) = 2
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 74 Then
               n1(1) = 2
               n1(2) = 9
               n1(3) = 21
               n1(4) = 66
               ruota(1) = 1
               ruota(2) = 2
               ok = 1
            End If
            If Fuori90(a + b) = 75 Then
               n1(1) = 10
               n1(2) = 13
               n1(3) = 26
               n1(4) = 57
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 76 Then
               n1(1) = 24
               n1(2) = 26
               n1(3) = 46
               n1(4) = 51
               ruota(1) = 2
               ruota(2) = 10
               ok = 1
            End If
            If Fuori90(a + b) = 77 Then
               n1(1) = 1
               n1(2) = 2
               n1(3) = 25
               n1(4) = 35
               ruota(1) = 2
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 78 Then
               n1(1) = 15
               n1(2) = 17
               n1(3) = 23
               n1(4) = 29
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 79 Then
               n1(1) = 2
               n1(2) = 56
               n1(3) = 61
               n1(4) = 64
               ruota(1) = 1
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 80 Then
               n1(1) = 1
               n1(2) = 20
               n1(3) = 24
               n1(4) = 39
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 81 Then
               n1(1) = 1
               n1(2) = 18
               n1(3) = 36
               n1(4) = 74
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 82 Then
               n1(1) = 6
               n1(2) = 70
               n1(3) = 74
               n1(4) = 89
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 83 Then
               n1(1) = 3
               n1(2) = 20
               n1(3) = 22
               n1(4) = 77
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 84 Then
               n1(1) = 9
               n1(2) = 13
               n1(3) = 23
               n1(4) = 41
               ruota(1) = 1
               ruota(2) = 3
               ok = 1
            End If
            If Fuori90(a + b) = 85 Then
               n1(1) = 33
               n1(2) = 48
               n1(3) = 54
               n1(4) = 88
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Fuori90(a + b) = 86 Then
               n1(1) = 5
               n1(2) = 9
               n1(3) = 26
               n1(4) = 70
               ruota(1) = 1
               ruota(2) = 9
               ok = 1
            End If
            If Fuori90(a + b) = 87 Then
               n1(1) = 14
               n1(2) = 28
               n1(3) = 66
               n1(4) = 89
               ruota(1) = 2
               ruota(2) = 5
               ok = 1
            End If
            If Fuori90(a + b) = 88 Then
               n1(1) = 3
               n1(2) = 9
               n1(3) = 11
               n1(4) = 32
               ruota(1) = 5
               ruota(2) = 8
               ok = 1
            End If
            If Fuori90(a + b) = 89 Then
               n1(1) = 9
               n1(2) = 19
               n1(3) = 25
               n1(4) = 28
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Fuori90(a + b) = 90 Then
               n1(1) = 10
               n1(2) = 13
               n1(3) = 57
               n1(4) = 82
               ruota(1) = 1
               ruota(2) = 4
               ok = 1
            End If
            If OK = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "  Cavallo BA-CA    " & a & " - " & b & c,1
               Scrivi String(80,"°"),1
               ColoreTesto 0
               ImpostaGiocata 1,n1,ruota,poste,clp,2
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Con la ruota NZ (essendo l'unica nata) si riescono a ottenere delle buone ricerche
con altrettanta resa,detto ciò,vi propongo un altro metodo


AMBI IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI
metodo statistico che ricava:
4 ambi
1 quartina
su ruote congeniali


Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBO IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(4)
   Dim ruota(10)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 2400
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      r1 = 12
      For p1 = 1 To 1
         For p2 = p1 + 1 To 2
            a = Estratto(es,12,p1)
            b = Estratto(es,r1,p2)
            ok = 0
            If Cadenza(a) = 0 And Cadenza(b) = 0 Then
               n1(1) = 3
               n1(2) = 48
               n2(1) = 3
               n2(2) = 88
               n3(1) = 33
               n3(2) = 48
               n4(1) = 33
               n4(2) = 88
               n5(1) = 12
               n5(2) = 33
               n5(3) = 48
               n5(4) = 88
               ruota(1) = 5
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 1 And Cadenza(b) = 1 Then
               n1(1) = 45
               n1(2) = 9
               n2(1) = 45
               n2(2) = 54
               n3(1) = 2
               n3(2) = 45
               n3(2) = 2
               n4(1) = 54
               n5(1) = 3
               n5(2) = 45
               n5(3) = 52
               n5(4) = 54
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 2 And Cadenza(b) = 2 Then
               n1(1) = 14
               n1(2) = 44
               n2(1) = 14
               n2(2) = 51
               n3(1) = 1
               n3(2) = 44
               n3(2) = 1
               n4(1) = 51
               n4(2) = 33
               n5(1) = 14
               n5(2) = 30
               n5(3) = 47
               n5(4) = 58
               ruota(1) = 4
               ruota(2) = 5
               ok = 1
            End If
            If Cadenza(a) = 3 And Cadenza(b) = 3 Then
               n1(1) = 75
               n1(2) = 43
               n2(1) = 75
               n2(2) = 64
               n3(1) = 3
               n3(2) = 43
               n4(1) = 3
               n4(2) = 64
               n5(1) = 55
               n5(2) = 64
               n5(3) = 65
               n5(4) = 75
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 4 And Cadenza(b) = 4 Then
               n1(1) = 82
               n1(2) = 8
               n2(1) = 82
               n2(2) = 33
               n3(1) = 1
               n3(2) = 8
               n4(1) = 1
               n4(2) = 33
               n5(1) = 14
               n5(2) = 21
               n5(3) = 33
               n5(4) = 82
               ruota(1) = 2
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 5 And Cadenza(b) = 5 Then
               n1(1) = 14
               n1(2) = 42
               n2(1) = 14
               n2(2) = 87
               n3(1) = 1
               n3(2) = 42
               n4(1) = 1
               n4(2) = 87
               n5(1) = 14
               n5(2) = 27
               n5(3) = 28
               n5(4) = 36
               ruota(1) = 5
               ruota(2) = 9
               ok = 1
            End If
            If Cadenza(a) = 6 And Cadenza(b) = 6 Then
               n1(1) = 35
               n1(2) = 4
               n2(1) = 35
               n2(2) = 45
               n3(1) = 2
               n3(2) = 4
               n4(1) = 2
               n4(2) = 45
               n5(1) = 20
               n5(2) = 30
               n5(3) = 35
               n5(4) = 61
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 7 And Cadenza(b) = 7 Then
               n1(1) = 2
               n1(2) = 43
               n2(1) = 2
               n2(2) = 83
               n3(1) = 1
               n3(2) = 43
               n4(1) = 1
               n4(2) = 83
               n5(1) = 1
               n5(2) = 2
               n5(3) = 43
               n5(4) = 83
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Cadenza(a) = 8 And Cadenza(b) = 8 Then
               n1(1) = 45
               n1(2) = 63
               n2(1) = 45
               n2(2) = 76
               n3(1) = 1
               n3(2) = 63
               n4(1) = 1
               n4(2) = 76
               n5(1) = 1
               n5(2) = 45
               n5(3) = 63
               n5(4) = 76
               ruota(1) = 3
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 9 And Cadenza(b) = 9 Then
               n1(1) = 41
               n1(2) = 2
               n2(1) = 41
               n2(2) = 16
               n3(1) = 1
               n3(2) = 2
               n4(1) = 1
               n4(2) = 16
               n5(1) = 7
               n5(2) = 10
               n5(3) = 41
               n5(4) = 84
               ruota(1) = 2
               ruota(2) = 6
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"^") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   AMBO IN CADENZA SULLA NZ    " & a & " - " & b & c,1
               Scrivi String(80,"^"),1
               ColoreTesto 0
               ImpostaGiocata 1,n1,ruota,poste,clp
               ImpostaGiocata 2,n2,ruota,poste,clp
               ImpostaGiocata 3,n3,ruota,poste,clp
               ImpostaGiocata 4,n4,ruota,poste,clp
               ImpostaGiocata 5,n5,ruota,poste,clp
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Con la ruota NZ (essendo l'unica nata) si riescono a ottenere delle buone ricerche
con altrettanta resa,detto ciò,vi propongo un altro metodo

AMBI IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI
metodo statistico che ricava:
4 ambi
1 quartina
su ruote congeniali


Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBO IN CADENZA SULLA NZ NELLE PRIME 2 POSIZIONI "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(4)
   Dim ruota(10)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 2400
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      r1 = 12
      For p1 = 1 To 1
         For p2 = p1 + 1 To 2
            a = Estratto(es,12,p1)
            b = Estratto(es,r1,p2)
            ok = 0
            If Cadenza(a) = 0 And Cadenza(b) = 0 Then
               n1(1) = 3
               n1(2) = 48
               n2(1) = 3
               n2(2) = 88
               n3(1) = 33
               n3(2) = 48
               n4(1) = 33
               n4(2) = 88
               n5(1) = 12
               n5(2) = 33
               n5(3) = 48
               n5(4) = 88
               ruota(1) = 5
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 1 And Cadenza(b) = 1 Then
               n1(1) = 45
               n1(2) = 9
               n2(1) = 45
               n2(2) = 54
               n3(1) = 2
               n3(2) = 45
               n3(2) = 2
               n4(1) = 54
               n5(1) = 3
               n5(2) = 45
               n5(3) = 52
               n5(4) = 54
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 2 And Cadenza(b) = 2 Then
               n1(1) = 14
               n1(2) = 44
               n2(1) = 14
               n2(2) = 51
               n3(1) = 1
               n3(2) = 44
               n3(2) = 1
               n4(1) = 51
               n4(2) = 33
               n5(1) = 14
               n5(2) = 30
               n5(3) = 47
               n5(4) = 58
               ruota(1) = 4
               ruota(2) = 5
               ok = 1
            End If
            If Cadenza(a) = 3 And Cadenza(b) = 3 Then
               n1(1) = 75
               n1(2) = 43
               n2(1) = 75
               n2(2) = 64
               n3(1) = 3
               n3(2) = 43
               n4(1) = 3
               n4(2) = 64
               n5(1) = 55
               n5(2) = 64
               n5(3) = 65
               n5(4) = 75
               ruota(1) = 1
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 4 And Cadenza(b) = 4 Then
               n1(1) = 82
               n1(2) = 8
               n2(1) = 82
               n2(2) = 33
               n3(1) = 1
               n3(2) = 8
               n4(1) = 1
               n4(2) = 33
               n5(1) = 14
               n5(2) = 21
               n5(3) = 33
               n5(4) = 82
               ruota(1) = 2
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 5 And Cadenza(b) = 5 Then
               n1(1) = 14
               n1(2) = 42
               n2(1) = 14
               n2(2) = 87
               n3(1) = 1
               n3(2) = 42
               n4(1) = 1
               n4(2) = 87
               n5(1) = 14
               n5(2) = 27
               n5(3) = 28
               n5(4) = 36
               ruota(1) = 5
               ruota(2) = 9
               ok = 1
            End If
            If Cadenza(a) = 6 And Cadenza(b) = 6 Then
               n1(1) = 35
               n1(2) = 4
               n2(1) = 35
               n2(2) = 45
               n3(1) = 2
               n3(2) = 4
               n4(1) = 2
               n4(2) = 45
               n5(1) = 20
               n5(2) = 30
               n5(3) = 35
               n5(4) = 61
               ruota(1) = 1
               ruota(2) = 8
               ok = 1
            End If
            If Cadenza(a) = 7 And Cadenza(b) = 7 Then
               n1(1) = 2
               n1(2) = 43
               n2(1) = 2
               n2(2) = 83
               n3(1) = 1
               n3(2) = 43
               n4(1) = 1
               n4(2) = 83
               n5(1) = 1
               n5(2) = 2
               n5(3) = 43
               n5(4) = 83
               ruota(1) = 1
               ruota(2) = 6
               ok = 1
            End If
            If Cadenza(a) = 8 And Cadenza(b) = 8 Then
               n1(1) = 45
               n1(2) = 63
               n2(1) = 45
               n2(2) = 76
               n3(1) = 1
               n3(2) = 63
               n4(1) = 1
               n4(2) = 76
               n5(1) = 1
               n5(2) = 45
               n5(3) = 63
               n5(4) = 76
               ruota(1) = 3
               ruota(2) = 7
               ok = 1
            End If
            If Cadenza(a) = 9 And Cadenza(b) = 9 Then
               n1(1) = 41
               n1(2) = 2
               n2(1) = 41
               n2(2) = 16
               n3(1) = 1
               n3(2) = 2
               n4(1) = 1
               n4(2) = 16
               n5(1) = 7
               n5(2) = 10
               n5(3) = 41
               n5(4) = 84
               ruota(1) = 2
               ruota(2) = 6
               ok = 1
            End If
            If ok = 1 Then
               co = co + 1
               ColoreTesto 1
               Scrivi String(80,"^") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & "   AMBO IN CADENZA SULLA NZ    " & a & " - " & b & c,1
               Scrivi String(80,"^"),1
               ColoreTesto 0
               ImpostaGiocata 1,n1,ruota,poste,clp
               ImpostaGiocata 2,n2,ruota,poste,clp
               ImpostaGiocata 3,n3,ruota,poste,clp
               ImpostaGiocata 4,n4,ruota,poste,clp
               ImpostaGiocata 5,n5,ruota,poste,clp
               Gioca es,1
            End If
         Next
      Next
   Next
   ScriviResoconto
End Sub
Tesoro... mi associo alla richiesta di Kira ❤️ grazie mille 🤩
 
e x chi NN capisce niente di script ??????? :confused: :confused:
Ciao Kira,
ti inserisco il link per scaricare il programma SPAZIOMETRIA aggiornato all'ultima versione
è gratuito e utile per fare tutte le ricerche che vuoi e facendo il copia-incolla degli script
il programma ti permette di leggere e salvare i Listati
Segui le istruzioni e vedrai che non è difficlile,poi la manualità,renderà le cosi più semplici
https://forum.lottoced.com/threads/programma-spaziometria.119980/
 
Dovete fare uno sforzo e impare a usare questo programma che può regalare soddisfazioni,I Listati cominciano ad aumentare e di previsioni ce ne sono da giocare.Difficile e complicato aggiornare di volta in volta,lo scopo di queste mie idee,è quello di aiutare ad avere qualche convergenza ai propri numeri e magari mettere in gioco anche le mie previsioni che sono frutto di ricerche statistiche e che restituiscono numeri reali e non numeri ricavati dalle targhe automobilistiche oppure nell'agenda telefonica
 
Dovete fare uno sforzo e impare a usare questo programma che può regalare soddisfazioni,I Listati cominciano ad aumentare e di previsioni ce ne sono da giocare.Difficile e complicato aggiornare di volta in volta,lo scopo di queste mie idee,è quello di aiutare ad avere qualche convergenza ai propri numeri e magari mettere in gioco anche le mie previsioni che sono frutto di ricerche statistiche e che restituiscono numeri reali e non numeri ricavati dalle targhe automobilistiche oppure nell'agenda
Grazie tesoro ❤️. Ottima intuizione. Il mio numero di telefono nel 2021 ha dato due terni. L’ultimo a Napoli il 21/07. Secondo te posso giocarlo ancora oppure aspetto il 2022? 🤔
 
Ciao Marco. Sei arrabbiato con me? Ho provato a scaricare Spaziometria, ma sul telefono non si apre😭
 

Allegati

  • 163004A1-77D4-4CBD-B41F-10B2D2750853.png
    163004A1-77D4-4CBD-B41F-10B2D2750853.png
    909,7 KB · Visite: 10
Ciao Marco. Sei arrabbiato con me? Ho provato a scaricare Spaziometria, ma sul telefono non si apre😭
Il programma si installa solo su computer,facendo una ricerca su google"guida a spaziometria Silop"dovrebbe comparire tra le prime voci il link al pdf sulla guida, poi qualcosina c'è anche su youtube ma mi pare solo su come usare gli script.

silopguidapng.png
 
buonasera a tutti sono nuovo del forum e mi sto cimentando per le prime volte con spaziometria ,non sono molto pratico ,volevo sapere se il programma è in grado di trovare i terni piu ritardatari in un arco di tempo circoscritto però genarati dalle cinquine estratte e non su tutti i numeri ,ringraziando anticipatamente
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38
Indietro
Alto