Cerco Listato

[Oscar]

Ciao Oscar.

Ho sempre trascurato i sistemi perché,in generale, li trovo difficili.

Difficili da gestire, fuori dalla mia portata e comprensione.

Quando necessario mi affido a quanto contenuto nei programmi, adattandolo alle esigenze.

Sicuramente, questi programmi specifici, hanno routine, riduzioni, velocità, capacità di calcolo,

di spoglio che difficilmente sono alla portata e nella capacità di un solo individuo.

Senza falsa modestia, non ne so più di tanto.

Si effetivamente la riduzione se non si conosce le basi è difficile andare ad intuito , ne ho fatto diversi asempre a intuito , ma o erano molte colonne o troppo lento oppure perdevano la garanzia ok joe grazie per la risposta

 

[joe]

Ciao Joe , questo script non mi si ferma mai , devo modificare qualcosa ? Grazie e buona serata.

Ciao, "questo" è troppo generico.

Non so quale sia. quindi non ti posso aiutare.

Lo script al messaggio # 94 si ferma.

Così pure quello presente al messaggio # 96.

Comunque sono script molto lenti ed è inutile utilizzarli oltre un paio di secondi,

ed averli arrestati. Perché "cosi come sono" hanno valore puramente didattico.

Aggiungo che quello al messaggio # 96 ha addirittura ha una doppia forzatura, al terminarsi.

Pertanto è ben difficile che non si fermi.

Ma aggiungo che uno script che non si ferma ... può essere un problema.

Problema che va eliminato con Control-Alt-Canc forzando l'arresto.

Perché mi è capitato che anche se viene chiuso il programma spaziometria ... questo script continua in sottofondo

e può imperdire un riavvio di spaziometria, o richiamare (esso stesso) l'apertura del programma spaziometria.

Impedire l'esecuzione di altri script ...

Si diceva sinteticamente, può creare problemi.

 

[Cinzia27]

Ciao, Joe.
Come posso fare per comporre lunghette composte al massimo da un numero per ogni array ?

 

[joe]

Ciao Cinzia.

Non mi è chiara la richiesta.

Potresti inserire come esempio alcune lunghette?

Perché non so se ho capito bene.

Se il numero può essere presente una sola volta in una lunghetta.

Oppure se lo stesso numero non può essere presente anche nelle altre lunghette.

 

[joe]

Questi sono (o perlomeno dovrebbero essere nell'intenzione)

50 numeri tutti diversi in 10 lunghette di 5 numeri cadauna.

63.12.48.83.82
43.41.47.32.01
51.45.29.59.13
39.67.84.89.16
44.36.07.11.81
61.86.04.77.64
73.42.75.21.90
85.14.40.46.06
74.58.70.54.17
30.18.57.72.09

Però non so se corrispondono alla richiesta.

 

[Cinzia27]

Se il numero può essere presente una sola volta in una lunghetta.

Forse è questa: ogni array non può dare più di un suo numero in una lunghetta.
Prendiamo ad es. i tuoi 50 numerie disponiamoli in 10 array
63.12.48.83.82
43.41.47.32.01
51.45.29.59.13
39.67.84.89.16
44.36.07.11.81
61.86.04.77.64
73.42.75.21.90
85.14.40.46.06
74.58.70.54.17
30.18.57.72.09

La lunghetta giusta è 63.41.89.42.70.18
La lunghetta sbagliata è 63.45.29.75.74.57, sbagliata perché ogni lunghetta può avere al massimo un numero per
ogni array

Riesco a gestirlo finché si tratta di terzine, al massimo quartine, ma se si tratta di formazioni superiori, si impalla o diventa interminabile.

 

[Cinzia27]

Joe, inoltre gli array devono poter contenere quantità di numeri diverse, faccio un es. sempre coi tuoi numeri:
63.12.48
43.41.47.32.01.83.82
51.45.29.59.13.16
39.67.84.89
44.36
61.86.04.77.64.07.11.81
73.42.75.21.90.06
85.14.40.46.58.70.54.17
74
30.18.57.72.09

 

[joe]

Ciao Cinzia,

Premetto che non so se sarò in grado di aiutarti,

sia per la mia incapacità di capire che per la mia totale ignoranza.

Ti dico cosa avevo fatto:

Ho generato 50 numeri diversi

li ho divisi in 10 cinquine.

50 numeri sono un Array grande ... diviso in 5 Array più piccoli.

10 * 5 = 50 è la regola sottesa.

ma avrei potuto dividerli come hai fatto tu.

Se fossero sempre 50 da dividere come li hai divisi

si devono conoscere le consistenze numeriche dei gruppi.

Però purtroppo ancora non riesco a ....

 

[Cinzia27]

Ciao, Joe
Ecco un esempio pratico in piccola scala per abbreviare il tempo di esecuzione.

Sub main()
Dim ambi(2),ruote(1)
r=11
ruote(1)=r
numeri=Array(66,67,69,78,72,89,55,57,59,75,77,86,65,68,79,88,50,58,54,70,87,56,52,76,85)

num13=Array(66,67,69,78,72,89)
num14=Array(55,57,59,75,77,86)
num15=Array(65,68,79,88,"","")
num16=Array(50,58,54,70,87,"")
num17=Array(56,52,76,85,"","")
x=UBound(numeri)
y=UBound(num13)

For es=EstrazioneFin-250 To EstrazioneFin'463
c=0


For i= 0 To x
ambi(1)=numeri(i)
For j= i+1 To x
ambi(2)=numeri(j)
If Pari(ambi(1))=True Xor  Pari(ambi(2))=True Then

sp13=0:sp14=0:sp15=0:sp16=0:sp17=0
For n1= 1 To 2
For n2 = 0 To y
If ambi(n1)=num13(n2) Then sp13=sp13+1
If ambi(n1)=num14(n2) Then sp14=sp14+1
If ambi(n1)=num15(n2) Then sp15=sp15+1
If ambi(n1)=num16(n2) Then sp16=sp16+1
If ambi(n1)=num17(n2) Then sp17=sp17+1
next:next

If  sp13<2 And sp14<2  And sp15<2 And sp16<2 _
And sp17<2 Then
If SerieFreq(es,es,ambi,ruote,2)>0 Then
If SerieFreq(es+1, EstrazioneFin,ambi,ruote,2)=0  Then
rt= EstrazioneFin-es

c=c+1

Messaggio " "&formatspace(c,4,1)&")  "& SiglaRuota(r)&"  "&StringaNumeri (ambi) &"  "&formatspace(rt,4,1)
If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,ambi,ruote,2)>0 Then
usc=usc+1
ColoreTesto 2

Scrivi " "& FormatSpace(c,4,1)&")  "& SiglaRuota(r) &"  "&StringaNumeri (ambi) _
&"  at "&formatspace(rt,4,1)&"  sortito"
Else
ColoreTesto 0

Scrivi " "& FormatSpace(c,4,1)&")  "& SiglaRuota(r) &"  "&StringaNumeri (ambi) &"  at "&formatspace(rt,4,1)
ColoreTesto 0

End If
End If


End If
End If
End If
Next
Next
ColoreTesto 0
If c>0 Then Scrivi  "  CASI "&formatspace(c,4,1) 
Next
If usc>0 Then Scrivi usc
End Sub

 

[LuigiB]

ciao Cinzia e Joe , mi nserisco per un breve suggerimento per Cinzia.
Per rendere piu dinamico lo script ti consiglio di gestire cosi la faccenda invece di creare una variabile per ogni array che poi ti impone una struttura piu rigida conviene fare cosi

Option Explicit
Sub Main
  Dim k  
  ReDim aLunghette (3)
 
  aLunghette(0) = Array (0,1 ,2,3)
  aLunghette(1) = Array (0,4 ,5,6,7)
  aLunghette(2) = Array (0,8 ,9)
  aLunghette(3) = Array (0,10)

  For k = 0 To UBound(aLunghette)
     Scrivi "Array " & k & ") " & StringaNumeri ( aLunghette (k)) & " Contiene " & UBound( aLunghette (k)) & " numeri"
  Next
 
 
  Scrivi  "oppure cosi"
 
 
  aLunghette(0) = Split( "0,1,2,3",",")
  aLunghette(1) = Split( "0,4,5,6,7",",")
  aLunghette(2) = Split ( "0,8,9" ,",")
  aLunghette(3) = Split( "0,10" ,",")

  For k = 0 To UBound(aLunghette)
     Scrivi "Array " & k & ") " & StringaNumeri ( aLunghette (k)) & " Contiene " & UBound( aLunghette (k)) & " numeri"
  Next

End Sub

Facendo cosi potrai gestire meglio la faccenda del singolo numero , scrivendo il codice necessario a tracciare i numeri gia usati e la quantita per ogni lunghetta.

un saluto.

 

[joe]

Ciao Luigi.

Concordo con quanto hai scritto.

Come prima cosa è meglio organizzare bene e meglio i dati (senza mescolarli con i risultati).

Meglio ancora sarebbe spezzare, con altro carattere la lunghetta (di 25 numeri) , cosicchè lo script sia in grado,

di separarla conoscendone le lunghezze dei singoli sottogruppi.

Altrimenti si corre il rischio di introdurre noi stessi errori nello script. (24 -25 numeri ecc. ecc. )

Per esempio stavo correggendo le prime linee del programma per la direttiva che hai espresso.

Però risulta evidente che si DEVE anche specificare quando i numeri ordinati

finiscono di crescere per dare origine al gruppo successivo. E ... il codice è eccessivamente complicato.

Sub Main()
   Dim Numeri,X,LL,I,F,T
   Dim ambi(2),ruote(1)
   r = 11
   ruote(1) = r
   Numeri = Array(66,67,69,78,72,89,55,57,59,75,77,86,65,68,79,88,50,58,54,70,87,56,52,76,85)
   LL = Array(6,6,4,5,4)
   'num13 = Array(66,67,69,78,72,89) '6
   'num14 = Array(55,57,59,75,77,86) '6
   'num15 = Array(65,68,79,88,"","") '4
   'num16 = Array(50,58,54,70,87,"") '5
   'num17 = Array(56,52,76,85,"","") '4
   Scrivi StringaNumeri(Numeri,,True)
   X = UBound(Numeri)
   Scrivi 'X
   I = 0 : F = 0
   For Y = 0 To UBound(LL)
      F = LL(Y)
      'Scrivi I & "-" & F - 1
      For Z = I To F - 1 + I
         Scrivi Format2(Numeri(Z)) & Space(1),0,0
      Next
      Scrivi
      T = T + LL(Y)
      I = T
      Scrivi
   Next
   'Scrivi T
End Sub

 

[Cinzia27]

Grazie, LuigiB e Joe.
Mi sembra che il primo passo sia stato fatto.
Ora però dobbiamo formare ambi, terzine, quartine o cosa vogliamo naturalmente entro il limite della quantità di questi spezzettamenti
se abbiamo ad esempio quelli di LuigiB
aLunghette(0) = Array (0,1 ,2,3)
aLunghette(1) = Array (0,4 ,5,6,7)
aLunghette(2) = Array (0,8 ,9)
aLunghette(3) = Array (0,10)
Possiamo al massimo formare quartine

se abbiamo ad esempio quelli di Joe
LL = Array(6,6,4,5,4)

66 67 69 78 72 89

55 57 59 75 77 86

65 68 79 88

50 58 54 70 87

56 52 76 85


non possiamo andare oltre la cinquina

Poniamo che le formazioni volute siano terzine
valida LuigiB:2.7.10 non valida 1.2.10
valida Joe:78,65,52 non valida 78,52,76

Le terzine non valide contengono più di un numero facente parte dello stesso array
mentre possono contenere zero o al massimo un solo numero per array

 

[Serpico 90]

Buongiorno a tutti
Buongiorno Cinzia ,cortesemente ,se puoi e vuoi,potresti provare a mettere mani per trovare la soluzione
per la seconda ruota dello script che ti avevo chiesto gentilmente di modificare?
Magari nel chiederti la modifica non sono stato chiaro nel dirti che le previsioni andavano fatte per le due ruote
sinceramente ho capito dopo aver letto i chiarimenti di Joe , che ringrazio per il suo intervento, che lo script cosi come era impostato le previsioni le faceva solo per una ruota.
Nel caso ritieni che non essendo un tuo script non è corretto modificare un lavoro fatta da altri
TI CHIEDO CORTESEMENTE PUOI COSTRUIRE UNO SCRIPT CHE INSERENDO DUE RUOTE A PIACERE E DUE NUMERI A PIACERE
MI POSA INDICARE GLI ABBINAMENTI PIU ATTENDIBILI CON I DUE NUMERI INSERITI???
In attesa di una tua gradita risposta auguro buon proseguimento di giornata
Saluti
Serpico

 

[LuigiB]

Grazie, LuigiB e Joe.
Mi sembra che il primo passo sia stato fatto.
Ora però dobbiamo formare ambi, terzine, quartine o cosa vogliamo naturalmente entro il limite della quantità di questi spezzettamenti
se abbiamo ad esempio quelli di LuigiB
aLunghette(0) = Array (0,1 ,2,3)
aLunghette(1) = Array (0,4 ,5,6,7)
aLunghette(2) = Array (0,8 ,9)
aLunghette(3) = Array (0,10)
Possiamo al massimo formare quartine

Ciao Cinzia , possiamo al massimo crare una quartina , gli altri numeri che si fa avanzano ?

 

[Cinzia27]

Ciao, Luigi,
le quartine che devono venire fuori dai tuoi array sono queste
1.4.8.10
1.4.9.10
1.5.8.10
1.5.9.10
1.6.8.10
1.6.9.10
1.7.8.10
1.7.9.10
2.4.8.10
2.4.9.10
2.5.8.10
2.5.9.10
2.6.8.10
2.6.9.10
2.7.8.10
2.7.9.10
3.4.8.10
3.4.9.10
3.5.8.10
3.5.9.10
3.6.8.10
3.6.9.10
3.7.8.10
3.7.9.10

Queste quartine le esamino ad esempio per ritardo attuale, per frequenza o massimo storico per ambo
Spero sia giusto perché l' ho fatto manualmente.

 

[joe]

Cinzia,

Forse sbaglio ad interpretare piuttosto che a leggere,

ma mi sembra di intravvedere che le formazioni di 3/4/5 numeri "antecedono"

e precedono la lunghetta di 24/25 numeri.

Assieme sono una "doppia" serie di dati ... che si sovrappongono inutilmente.

Però per avere uno script più semplice occorre sapere quale è il percorso.

Da lunghetta a formazioni minori ... o da lunghette che si uniscono a comporne una più lunga.

Se così fosse la lunghetta di 24/25 numeri forse serve solo ad eliminare numeri doppi

O serve per sviluppare formazioni di 3 / 4 / 5 / 6 elementi ma è poco compatibile con il vincolo che hai imposto.

Questa direzione non l'ho ancora capita, perché ci sono 2 serie di dati e non si sa quale sia quello originale e quello derivato.

Le neo formazioni potrebbero essere composte di 1 numero valido, disponibile in ogni formazione (piccola).

Quindi potrebbero essere come LL = Array(6,6,4,5,4) e cioè per sommi capi 6*6*4*5*4 = 7680 Formazioni ?

 

[LuigiB]

e se fossero ambi ? io avevo capito che il numero una volta preso non si poteva piu usare..

 

[Cinzia27]

Per Joe.
Ecco lo script coi tuoi numeri.

Sub main()
Dim terni(3)

numeri=Array(66,67,69,78,72,89,55,57,59,75,77,86,65,68,79,88,50,58,54,70,87,56,52,76,85)
 
num1=Array(66,67,69,78,72,89)
num2=Array(55,57,59,75,77,86)
num3=Array(65,68,79,88,"","")
num4=Array(50,58,54,70,87,"")
num5=Array(56,52,76,85,"","")

x=UBound(numeri)
y=UBound(num1)


For i= 0 To x
terni(1)=numeri(i)
For j= i+1 To x
terni(2)=numeri(j)
For k= j+1 To x
terni(3)=numeri(k)


sp1=0:sp2=0:sp3=0:sp4=0:sp5=0

For n1= 1 To 3
For n2 = 0 To y
If terni(n1)=num1(n2) Then sp1=sp1+1
If terni(n1)=num2(n2) Then sp2=sp2+1
If terni(n1)=num3(n2) Then sp3=sp3+1
If terni(n1)=num4(n2) Then sp4=sp4+1
If terni(n1)=num5(n2) Then sp5=sp5+1

next:next

If  sp1<2 And sp2<2  And sp3<2 And sp4<2 _
And sp5<2  Then
c=c+1

Messaggio " "&formatspace(c,4,1)&")  "& StringaNumeri (terni)
Scrivi " "& FormatSpace(c,4,1)&")  "&StringaNumeri (terni)
End If

Next
Next
Next
End Sub

Per Luigi
Se fossero ambi sarebbero così

Sub main()
Dim ambi(2),ruote(1)
Scrivi EstrazioneFin
numeri=Array(66,67,69,78,72,89,55,57,59,75,77,86,65,68,79,88,50,58,54,70,87,56,52,76,85)

num01=Array(66,67,69,78,72,89)

num02=Array(55,57,59,75,77,86)

num03=Array(65,68,79,88,"","")

num04=Array(50,58,54,70,87,"")

num05=Array(56,52,76,85,"","")

x=UBound(numeri)
y=UBound(num01)

For i= 0 To x
ambi(1)=numeri(i)
For j= i+1 To x
ambi(2)=numeri(j)

sp01=0:sp02=0:sp03=0:sp04=0:sp05=0
For n1= 1 To 2
For n2 = 0 To y
If ambi(n1)=num01(n2) Then sp01=sp01+1
If ambi(n1)=num02(n2) Then sp02=sp02+1
If ambi(n1)=num03(n2) Then sp03=sp03+1
If ambi(n1)=num04(n2) Then sp04=sp04+1
If ambi(n1)=num05(n2) Then sp05=sp05+1

next:next
If sp01<2 Then
If sp02<2 Then
If sp03<2 Then
If sp04<2 Then
If sp05<2 Then

c=c+1
Messaggio StringaNumeri (ambi)

Scrivi " "& FormatSpace(c,4,1)&")  "& StringaNumeri (ambi)
End If
End If
End If
End If

End If
Next
Next

End Sub

 

[Cinzia27]

Ciao, Serpico.
Se non ti dispiace, finirei il discorso con i due grandi Joe&Luigi. Poi, tempo permettendo, riprendiamo la questione.
Nel frattempo, mi dici quali sono gli abbinamenti più attendibili ? Quelli più frequenti o quelli col massimo ritardo storico
più basso ?

 

[Serpico 90]

Ciao Cinzia......a me non dispiace affatto devo solo ringraziarti per quello che farai.
Per quanto riguarda gli abbinamenti quelli piu FREQUENTI.
Buon lavoro
Grazie e buona serata.
Saluti
Serpico