Sistemi virtuali

[Atlantis57]

Ciao Nannolo,
esattamente,tieni in considerazione che ad ogni estrazione devi sommare +7
9 -44- 4-82-80 estrazione 10/04/2012
16-51-11-89-87 estrazione 12/04/2012
puoi usarli anche come capogioco con le tue convergenze.
se non ricordo male una cinquina sincrona per estratto max storico 49.

il programma funziona con Excel 2010

 

[Atlantis57]

Uscito il 4 a palermo al primo colpo.
Uscito anche il 31 Rp3 D29 di Venezia primo colpo

 

[gennaro]

Grande Atlantis ... complimenti per gli studi.
Volevo chiederti qnte estrazioni consideri nei tuoi calcoli (360 come nella vecchissima versione che ho io...che del resto e' sempre un tuo prodotto).
Nel tempo perso, inquanto ho smesso di giocare, ho buttato giu' uno script che calcoli il solo Rp1 nel sistema reale (D00) ... ma comunque da risultati un po scemi
A tempo perso, se qlkuno puo' capire che cosa sbaglio...

'Calcola Rp1 dei maggiori ritardatari di ogni ruota v1.0 by gennaro fu sangennaro

Sub Main()
    Dim matr(10,4)
    
    ini = EstrazioneFin - 360
    fin = EstrazioneFin


    For r = 1 To 10 'Cicliamo sulle 10 ruote
        matr(r,1) = PiuRitardatario(EstrazioneFin, r) 'Rilevo il massimo ritardatario della ruota r
        matr(r,2) = RitardoEstratto(matr(r, 1), EstrazioneFin, r) 'Rilevo il suo Ritardo Cronologico
        matr(r,3) = RitPos(matr(r,1), r, EstrazioneFin) - 1 'Rilevo il suo Rp1
        matr(r,4) = r 'Memorizzo anche la ruota perche perderei le informazioni in caso di un seguente ordinamento
        Messaggio "Ruota " & r & ", Numero " & matr(r,1)
    Next 'r
        
    Scrivi
    Scrivi "Riepilogo nel sistema virtuale D00 (quindi quello reale):"
    Scrivi
    
    'OrdinaMatrice matr,- 1,2 'Ordino per Rc
    
    For j = 1 To 10
        Scrivi Format2(j) & " Ruota= " & Left(NomeRuota(matr(j,4)),2) & ", Num= " & Format2(matr(j,1)) & _
        ", Rc= " & FormatSpace(matr(j,2),3,1) & ", Rp1= " & FormatSpace(matr(j,3),3,1)
    Next
    
    Scrivi
    Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)


End Sub

 

[gennaro]

... i risultati sono un po scemi perche' non mi sembra che a MILANO il 25 sia il maggior ritardatario

[FONT=Courier New][SIZE=2][COLOR=#000000]
Riepilogo nel sistema virtuale D00 (quindi quello reale):


01 Ruota= Ba, Num= 58, Rc=  99, Rp1=  31
02 Ruota= Ca, Num= 14, Rc=   6, Rp1=   0
03 Ruota= Fi, Num= 85, Rc=  94, Rp1=  26
04 Ruota= Ge, Num= 27, Rc= 114, Rp1=  27
[B]05 Ruota= Mi, Num= 25, Rc=  21, Rp1=   0[/B]
06 Ruota= Na, Num= 56, Rc=  98, Rp1=  25
07 Ruota= Pa, Num= 78, Rc=   1, Rp1=   0
08 Ruota= Ro, Num= 68, Rc= 106, Rp1=  46
09 Ruota= To, Num= 64, Rc=  12, Rp1=   0
10 Ruota= Ve, Num= 12, Rc=  69, Rp1=   1


Estremi di ricerca: Dalla 8160 del 22.12.2009 alla 8520 del 10.04.2012
[/COLOR][/SIZE][/FONT]

 

[Atlantis57]

Ciao Gennaro,
le estrazioni sono sempre 360,
ma anche 270 vanno bene,l'importante che siano multipli di 90.

 

[gennaro]

Ok Atlantis ...
ma anche a te lo script da dei risultati strani? Lo hai fatto girare?

 

[gennaro]

Misteri della fede

Misteri della fede

Facendogli caricare prima i 10 numeri piu ritardatari... sembra funzionare

'Calcola Rp1 dei maggiori ritardatari di ogni ruota v1.1 by gennaro fu sangennaro
Sub Main()
 Dim matr(10,4)
 ini = EstrazioneFin - 360
 fin = EstrazioneFin
 
 For r = 1 To 10  
  matr(r,1) = PiuRitardatario(EstrazioneFin,r)
 Next
 
 For r = 1 To 10 'Cicliamo sulle 10 ruote
  'matr(r,1) = PiuRitardatario(EstrazioneFin,r)
  matr(r,2) = RitardoEstratto(matr(r,1),EstrazioneFin,r) 'Rilevo il suo Ritardo Cronologico
  matr(r,3) = RitPos(matr(r,1),r,EstrazioneFin) - 1 'Rilevo il suo Rp1
  matr(r,4) = r 'Memorizzo anche la ruota perche perderei le informazioni in caso di un seguente ordinamento
  Messaggio "Ruota " & r & ", Numero " & matr(r,1)
 Next 'r
 
 Scrivi
 Scrivi "Riepilogo nel sistema virtuale D00 (quindi quello reale):"
 Scrivi
 
 'OrdinaMatrice matr,- 1,2 'Ordino per Rc
 
 For j = 1 To 10
  Scrivi Format2(j) & " Ruota= " & Left(NomeRuota(matr(j,4)),2) & ", Num= " & Format2(matr(j,1)) & _
  ", Rc= " & FormatSpace(matr(j,2),3,1) & ", Rp1= " & FormatSpace(matr(j,3),3,1)
 Next
 Scrivi
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
End Sub

 

[gennaro]

X atlantis

X atlantis

Ciao Atla, puoi verificarmi se i dati di qsto script sono coindicenti coi tuoi?
tnx

'Calcola Rp1 dei maggiori ritardatari di ogni ruota v2.2 by gennaro fu sangennaro, scritto per SpazioMetria 1.3.63 o superiore

Sub Main()
 Dim matr(12,5), Rp1(12,5), ruo(1), num(1)
 
 ini = EstrazioneFin - 360
 fin = EstrazioneFin
 
For estr = 5 To 0 Step-1
 
 For r = 1 To 11
  If r = 11 Then r = 12
  matr(r,1) = PiuRitardatario(fin-estr, r)
 Next 'r

 For r = 1 To 11
  If r = 11 Then r = 12
  ruo(1) = r
  num(1) = matr(r,1)
  Call StatisticaFormazione(num, ruo, 1, Rit, RitMax, IncrRitMax, Freq, ini, fin-estr)
  matr(r,2) = Rit

  matr(r,3) = RitPos(matr(r,1), r, fin-estr) - 1
  Rp1(r, estr) = matr(r,3)

  matr(r,4) = r
  matr(r,5) = RitMax
  Messaggio "Ruota: " & Format2(r) & ", Numero: " & matr(r,1)
  Call AvanzamentoElab(1,11,r)
  If ScriptInterrotto Then Exit For
 Next 'r

Next 'estr
  
 Scrivi "Riepilogo nel sistema virtuale SV00 (quindi quello reale):",1
 Scrivi

 
 For r = 1 To 11
  If r = 11 Then r = 12 
  Scrivi "Ruota__" & Left(NomeRuota(matr(r,4)),3) & "   Num__" & Format2(matr(r,1)) & _
  "  Rc__" & FormatSpace(matr(r,2),3,1) & "  RcMax__" & FormatSpace(matr(r,5),3,1) & _
  "  Rp1__" & FormatSpace(matr(r,3),3,1) & "  Rp1(-1)__" & FormatSpace(Rp1(r,1),3,1) & "  Rp1(-2)__" & FormatSpace(Rp1(r,2),3,1) & _
  "  Rp1(-3)__" & FormatSpace(Rp1(r,3),3,1) & "  Rp1(-4)__" & FormatSpace(Rp1(r,4),3,1) & "  Rp1(-5)__" & FormatSpace(Rp1(r,5),3,1)

 Next
 
 Scrivi
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & fin & " del " & DataEstrazione(fin)
 Scrivi
 Call TestoInBandaPassante(" ~ ~ ~ ~ ~ Scripted by gennaro! " & Chr(169) & _
 " 2012 ... San Gennà, pienz'c tu! ~ ~ ~ ~ ~ ",1,vbYellow,1) 

End Sub