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 26 luglio 2025
    Bari
    81
    09
    05
    54
    10
    Cagliari
    56
    07
    45
    69
    64
    Firenze
    39
    16
    56
    29
    09
    Genova
    67
    12
    55
    74
    04
    Milano
    40
    30
    44
    63
    27
    Napoli
    63
    07
    74
    86
    81
    Palermo
    80
    34
    16
    27
    53
    Roma
    08
    78
    43
    03
    52
    Torino
    38
    84
    47
    57
    20
    Venezia
    88
    70
    85
    65
    24
    Nazionale
    36
    09
    43
    55
    10
    Estrazione Simbolotto
    Nazionale
    25
    23
    13
    40
    35
Indietro
Alto