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
    giovedì 02 maggio 2024
    Bari
    43
    35
    83
    74
    40
    Cagliari
    10
    23
    48
    01
    87
    Firenze
    71
    12
    04
    27
    01
    Genova
    83
    37
    42
    70
    78
    Milano
    28
    72
    27
    30
    07
    Napoli
    34
    42
    13
    67
    11
    Palermo
    37
    77
    19
    17
    12
    Roma
    79
    85
    90
    55
    49
    Torino
    83
    56
    46
    57
    19
    Venezia
    41
    48
    57
    12
    15
    Nazionale
    84
    70
    10
    67
    74
    Estrazione Simbolotto
    Milano
    22
    09
    04
    01
    11
Alto