Numeri ripetuti non isotopi

[hemico]

Be bravo Joe l’avevi chiamata

 

[hemico]

Sembra che la via del "4° livello" possa rivelarsi interessante, non so se dalla tua ricerca con script? Si possa vedere come si sia comportata l'evoluzione della via del "4° livello", ossia quante volte è capitata ed eventuali esiti......

 

[joe]

Diciamo che lo script è veloce e preciso.

Soprattutto preciso. Molto e forse troppo preciso.

Non può "vedere" o trovare cose "umanamente" percepibili.

Perlomeno, secondo me, non è possibile ai nostri script, processori ...

ed ai mezzi che sono alla nostra (diciamo mia) portata.

Faccio un esempio: Spaziometria è un "top di gamma" tra i programmi.

Sicuramente effettua calcoli ed ha funzioni non presenti in altri ambienti.

Ma non ha funzioni presenti altrove.

Dunque "non tutto" quello che facciamo noi e ci sembra plausibile ... è possibile.

Completo.

Mentre è sempre completabile e migliorabile.

Per esempio se a noi sta "antipatico" un numero ... perché ci frega sempre ...

lo script non può escludere i pronostici "antipatici" per codesta loro parentela di antipatia.

Oppure li esclude sempre ... eliminando anche quelli che sfociano in casi vincenti.

Dunque si, sarebbe possibile come moltissime altre cose.

Ma non è detto che un percorso sia migliore di altri e che il risultato sia solo "un caso".

In sintesi ... probabilmente aggiungerò allo script quanto richiesto al primo messaggio,

che è completo e definito così con esso si può testare il metodo nel rispetto del titolo.

Buon Week End

PS: Ringrazio Xeroxs e quanti altri per l'attenzione dimostrata.

 

[Xeroxs]

Sempre "Simpatico" nelle Tue Spiegazioni e fin troppo realistiche...
Purtroppo per quanto i nostri o meglio i calcoli fatti dal programma su nostre indicazioni, poi la fortuna deve essere ben presente..

 

[hemico]

Concordo con entrambe sia sulla spiegazione e componente fortuna magari quella certe volte va pure cercata.

 

[Xeroxs]

Certo che se la cerchiamo con ipotesi statistica e di calcolo e sempre meglio che inventarsi numeri a caso

 

[joe]

Option Explicit
Sub Main
  'Test Gioco Bivalenti (Senza Calcoli)
  'Script By Joe del 22/08/2020
  Dim Ini,Fin,Es,R,P,E,C
  Dim I,S,G,Nu(1)
  Dim Po(1),Co,So : Po(1) = 1 : Co = 45 : So = 1
  Ini = EstrazioneFin - Co + 1 : Fin = EstrazioneFin
  For Es = Ini To Fin
    G = 0
    ReDim N(90)
    For R = 1 To 11 : If R = 11 Then R = 12
      For P = 1 To 5
        E = Estratto(Es,R,P)
        N(E) = N(E) + 1
      Next
    Next
    For E = 1 To 90
      If N(E) = 2 Then
        ReDim Ru(2)
        I = 0
        Nu(1) = E
        For S = 1 To 12 : If S = 11 Then S = 12
          If Posizione(Es,S,E) > 0 Then I = I + 1 : Ru(I) = S
        Next
        G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,So
      End If
    Next
    If G > 0 Then
      C = C + 1
      Scrivi String(106,"=") & FormatSpace(Co-C+1,4,True),True
      Scrivi
      Gioca Es,True
    End If
  Next
End Sub

 

[Xeroxs]

Grazie, Joe
Ottimo per le Verifiche e spunti.

 

[hemico]

Grazie Joe

 

[joe]

Buona Giorno a tutte/i.

Per riferirsi al titolo ed adeguarsi al suo contenuto

per la parte ove è scritto "non isotopi" ...

si deve aggiungere che è per avere 4 numeri

posti ai vertici di "quadrati" dove in 2 angoli opposti ci sono i bivalenti,

mentre nell'altra copia di angoli nuovamente opposti

gli altri numeri da rintracciare e con i quali calcolare il pronostico.

Con 2 brevissime premesse ... aggiungo che lo script è già stato rimestato più volte.

Dunque potrebbe essere particolarmente adatto e predisposto questi nuovi calcoli.

Secondo è possibile che siano altre soluzioni anche migliori

di quella che sarà adottata qui.

Però ho deciso di NON modificare la struttura dello script.

Come soluzione ho pensato di raccogliere le posizioni dei numeri bivalenti

Memorizzandole in T (1) e T(2) .

Raggruppandole con i numeri sono N(1) con T(1) ed N(2) con T(2).

Naturalmente nelle ruote R ed S.

A seguito di questo gli altri numeri negli "altri angoli opposti"

o più semplicemente gli altri numeri saranno leggibili negli altri indici.

sempre a seguito del fatto che pe posizioni sianono differenti

che T(1) sia diverso da T(2)

Cioè che NON sia T(1) = T(2) = un numero bivalente Isotopo

(altrimenti non ci sono altri 2 numeri con cui "fare calcoli").

Però prima ...

Ho però voluto provare con i bivalenti isotopi (soli soletti)

ancora una volta escludendo la possibilità di eseguire dei calcoli.

I pronostici sono pochi e i risultati nell'ultimo anno sono BUONI:

======================================================== 1

Estrazione generatrice del pronostico 09680 [109 - 10/09/2019]
G 0001 Numeri in gioco : 33 su CA NA per Estratto
Interrotta per raggiunta durata

======================================================== 2

Estrazione generatrice del pronostico 09687 [116 - 26/09/2019]
G 0001 Numeri in gioco : 20 su MI RO per Estratto
Interrotta per raggiunta durata

======================================================== 3

Estrazione generatrice del pronostico 09690 [119 - 03/10/2019]
G 0001 Numeri in gioco : 18 su FI RO per Estratto
V N. [18 ] [FI] [.. .. 18 .. ..] C. 4 Estratto 09694 [123 - 12/10/2019]
Interrotta per raggiunta durata

======================================================== 4

Estrazione generatrice del pronostico 09701 [130 - 29/10/2019]
G 0001 Numeri in gioco : 24 su BA NZ per Estratto
Interrotta per raggiunta durata

======================================================== 5

Estrazione generatrice del pronostico 09713 [142 - 26/11/2019]
G 0001 Numeri in gioco : 32 su GE NZ per Estratto
V N. [32 ] [NZ] [.. .. .. .. 32] C. 2 Estratto 09715 [144 - 30/11/2019]
V N. [32 ] [NZ] [.. .. 32 .. ..] C. 5 Estratto 09718 [147 - 07/12/2019]
Interrotta per raggiunta durata

======================================================== 6

Estrazione generatrice del pronostico 09737 [ 9 - 21/01/2020]
G 0001 Numeri in gioco : 01 su GE MI per Estratto
V N. [01 ] [GE] [.. 01 .. .. ..] C. 1 Estratto 09738 [ 10 - 23/01/2020]
V N. [01 ] [MI] [.. .. .. .. 01] C. 3 Estratto 09740 [ 12 - 28/01/2020]
V N. [01 ] [MI] [.. .. .. .. 01] C. 5 Estratto 09742 [ 14 - 01/02/2020]
Interrotta per raggiunta durata

======================================================== 7

Estrazione generatrice del pronostico 09741 [ 13 - 30/01/2020]
G 0001 Numeri in gioco : 10 su MI VE per Estratto
V N. [10 ] [VE] [10 .. .. .. ..] C. 3 Estratto 09744 [ 16 - 06/02/2020]
Interrotta per raggiunta durata

======================================================== 8

Estrazione generatrice del pronostico 09754 [ 26 - 29/02/2020]
G 0001 Numeri in gioco : 40 su FI NZ per Estratto
V N. [40 ] [FI] [.. .. .. .. 40] C. 5 Estratto 09759 [ 31 - 12/03/2020]
Interrotta per raggiunta durata

======================================================== 9

Estrazione generatrice del pronostico 09757 [ 29 - 07/03/2020]
G 0001 Numeri in gioco : 36 su BA NA per Estratto
Interrotta per raggiunta durata

======================================================== 10

Estrazione generatrice del pronostico 09776 [ 48 - 03/06/2020]
G 0001 Numeri in gioco : 67 su GE PA per Estratto
Interrotta per raggiunta durata

======================================================== 11

Estrazione generatrice del pronostico 09781 [ 53 - 13/06/2020]
G 0001 Numeri in gioco : 05 su CA NZ per Estratto
V N. [05 ] [NZ] [05 .. .. .. ..] C. 2 Estratto 09783 [ 55 - 18/06/2020]
Interrotta per raggiunta durata

======================================================== 12

Estrazione generatrice del pronostico 09782 [ 54 - 16/06/2020]
G 0001 Numeri in gioco : 07 su GE TO per Estratto
V N. [07 ] [TO] [07 .. .. .. ..] C. 4 Estratto 09786 [ 58 - 25/06/2020]
Interrotta per raggiunta durata

======================================================== 13

Estrazione generatrice del pronostico 09802 [ 74 - 01/08/2020]
G 0001 Numeri in gioco : 11 su VE NZ per Estratto
V N. [11 ] [VE] [11 .. .. .. ..] C. 1 Estratto 09803 [ 75 - 04/08/2020]
Interrotta per raggiunta durata

======================================================== 14

Estrazione generatrice del pronostico 09805 [ 77 - 08/08/2020]
G 0001 Numeri in gioco : 07 su GE RO per Estratto
V N. [07 ] [GE] [.. .. 07 .. ..] C. 1 Estratto 09806 [ 78 - 11/08/2020]
Interrotta per raggiunta durata

======================================================== 15

Estrazione generatrice del pronostico 09808 [ 80 - 17/08/2020]
G 0001 Numeri in gioco : 09 su RO VE per Estratto
In corso per altre 2 estrazioni

Dunque spiegato un po il tutto ed analizzata anche questa ipotesi (incompatibile) ...

Dovrò inserire le ultime condizioni e modifiche necessarie a completare la richiesta.

 

[Xeroxs]

Resto in attesa, Fiducioso come sempre, anche per la tua enorme conoscenza in materia.

 

[hemico]

La mia era un idea (fatta a mano) su cui lavorare e vedo che ha stimolato la discussione. Sono convinto che la tua conoscenza e capacità porteranno sicuramente ad una migliore quadratura del cerchio.

 

[joe]

Option Explicit
Sub Main
   'Metodo Bivalenti Non Isotopi di Hemico.
   'Script By Joe del 22/08/2020
   'Trovare un Estratto ripetuto Massimo due volte non isotopo nella medesima estrazione.
   'Il calcolo per le ambate in gioco sarebbe questo:
   '06/08/2020 BA 17 88 49 90 62
   '06/08/2020 PA 25 22 52 62 05
   'Differenza 90-62 = prima ambata.
   'Differenza 62-05 = seconda ambata.
   'Ambate da giocare sulle due ruote.
   Dim Ini,Fin,Es,R,G,P,E,C
   Dim I,S,Nu(2)
   Dim Po(1),Co,So : Po(1) = 1 : Co = 5 : So = 2
   Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
   Messaggio "Script By Joe"
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      G = 0
      ReDim N(90)
      For R = 1 To 11 : If R = 11 Then R = 12
         For P = 1 To 5
            E = Estratto(Es,R,P)
            N(E) = N(E) + 1
         Next
      Next
      For E = 1 To 90
         If N(E) = 2 Then
            ReDim Ru(2),T(2)
            I = 0
            For S = 1 To 12 : If S = 11 Then S = 12
               P = Posizione(Es,S,E) : If P > 0 Then I = I + 1 : Ru(I) = S : T(I) = P
            Next
            If T(1) <> T(2) Then
               Nu(1) = Abs(E - Estratto(Es,Ru(1),T(2)))
               Nu(2) = Abs(E - Estratto(Es,Ru(2),T(1)))
               If Nu(1) = Nu(2) Then Nu(2) = Vert(Nu(1))
               G = G + 1 : ImpostaGiocata G,Nu,Ru,Po,Co,So
            End If
         End If
      Next
      If G > 0 Then
         C = C + 1
         Scrivi String(106,"=") & FormatSpace(C,4,True),True
         Scrivi
         Gioca Es,True
      End If
   Next
   'ScriviResoconto
End Sub

 

[hemico]

Grazie joe