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 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03

Ultimi Messaggi

Indietro
Alto