Novità

Le mie solite idee

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 

camy64

Advanced Member >PLATINUM PLUS<
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 🤩
 

Marco-elle

Advanced Member >PLATINUM PLUS<
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/
 

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 

camy64

Advanced Member >PLATINUM PLUS<
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? 🤔
 

camy64

Advanced Member >PLATINUM PLUS<
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: 8

Serse

Advanced Member
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
 

gabbo87

Junior Member
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 18 maggio 2024
    Bari
    77
    62
    67
    60
    04
    Cagliari
    89
    01
    35
    54
    38
    Firenze
    84
    58
    25
    64
    57
    Genova
    53
    25
    66
    59
    23
    Milano
    22
    75
    48
    16
    77
    Napoli
    81
    41
    42
    67
    39
    Palermo
    19
    63
    57
    43
    05
    Roma
    04
    35
    50
    33
    23
    Torino
    56
    20
    46
    14
    88
    Venezia
    78
    81
    42
    74
    36
    Nazionale
    42
    83
    59
    86
    34
    Estrazione Simbolotto
    Milano
    41
    29
    01
    27
    30
Alto