Xmike58

rosa962 · 15 Aprile 2012

CIAOO MIKE58 a proposito di adattatori

di cui ne sono un pò affascinata

per caso hai uno script tipo statistica veloce

sugli adattatori ?

non una statistica dei numeri che gli adattatori generano

ma la statistica degli adattatori stessi per ritardo di ambata, ambo e terno

sul 1° , 2° 3°, 4°, 5° estratto della ruota scelta

ti faccio un esempio

ruota BARI voglio sommare al 1° numero di BARI

una serie di adattatori ammettiamo 8

81-45-33-22-2-4-8-

voglio sapere se i numeri citati sopra da quanto tempo

non si accoppiano x ambo e terno a

ed anche il ritardo x ambata

precedentemente ho fatto una simile richiesta

ma non sono stata capita

ciaoo

Mike58 · 15 Aprile 2012

No Rosa, mi spiace di pronto non ho qualcosa di simile.
Poi come tu dici una statistica degli adattatori con la frequenza sicuramente si può fare ma con il ritardo dell'adattatore Bo!! per adesso non so come impostare l'algoritmo.
E' un po quello che chiede Giulio_LG ma per adesso manca la via giusta da seguire.
Se arriva qualche aiuto o una illuminazione non mancherò di lavorarci.

Ciao

rosa962 · 15 Aprile 2012

GRAZIE LO STESSO MIKE58

attendiamo

ciaoo

Mike58 · 15 Aprile 2012

Ciao Rosa, giusto per non lasciarti a mani vuote ti posto un signor listato fattomi ai tempi dal mitico Ramco e al quale ho delle aggiunte, e che fa un qualcosa di simile.

Spero sia gradito.

Codice:

Sub Main()
 Dim mm(1)
 Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
 nru1 = CInt(InputBox("Ruota Scelta : ","RUOTA",8))
 ne = InputBox("Numero estrazioni:","ESTRAZIONI",120)
 ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",14))
 nStart = Timer ' partenza tempo di elaborazione
 ruota(1) = nru1
 For x = 1 To 90
  For y = 1 To 8
   nam(x,y) = 0
   nt(x,y) = 0
   n3(x,y) = 0
   n4(x,y) = 0
   n5(x,y) = 0
  Next
 Next
 p = 1
 p2 = 2
 p3 = 3
 p4 = 4
 p5 = 5
 casi = 0
 ini = EstrazioneFin - ne
 fin = EstrazioneFin
 For es = ini To fin
  If IndiceMensile(es) = 1 Then '<<<--indicato l'indice mensile
  colpo = fin - es
  
  Messaggio "Elaborazione estrazioni... " &(es) & "  --->  script by Mike58"
  Call(AvanzamentoElab(Ini,fin,es))
  casi = casi + 1
  'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
  Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "]  " & SiglaRuota(nru1) & "  " & StringaEstratti(es,nru1)
  co = 0
  For nu = 1 To 90
   co = co + 1
   a = Estratto(es,nru1,p)
   aa = Estratto(es,nru1,p2)
   a3 = Estratto(es,nru1,p3)
   b = Fuori90(a + nu)
   bb = Fuori90(aa + nu)
   b3 = Fuori90(a3 + nu)
   a4 = Estratto(es,nru1,p4)
   a5 = Estratto(es,nru1,p5)
   b4 = Fuori90(a4 + nu)
   b5 = Fuori90(a5 + nu)
   nam(co,1) = co
   nt(co,1) = co
   n3(co,1) = co
   n4(co,1) = co
   n5(co,1) = co
   nam(co,2) = nru1
   nt(co,2) = nru1
   n3(co,2) = nru1
   n4(co,2) = nru1
   n5(co,2) = nru1
   nam(co,3) = p
   nt(co,3) = p2
   n3(co,3) = p3
   n4(co,3) = p4
   n5(co,3) = p5
   nam(co,4) = nu
   nt(co,4) = nu
   n3(co,4) = nu
   n4(co,4) = nu
   n5(co,4) = nu
   nam(co,6) = b
   nt(co,6) = bb
   n3(co,6) = b3
   n4(co,6) = b4
   n5(co,6) = b5
   nam(co,7) = 0
   nt(co,7) = 0
   n3(co,7) = 0
   n4(co,7) = 0
   n5(co,7) = 0
   esncg = es + ncg
   If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
   For ess = es + 1 To esncg
    For pp = 1 To 5
     e = Estratto(ess,nru1,pp)
     If e = b Then
      nam(co,5) = nam(co,5) + 1
      nn(1) = nam(co,6)
      nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
     End If
     If e = bb Then
      nt(co,5) = nt(co,5) + 1
      nn(1) = nt(co,6)
      nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
     End If
     If e = b3 Then
      n3(co,5) = n3(co,5) + 1
      nn(1) = n3(co,6)
      n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
     End If
     If e = b4 Then
      n4(co,5) = n4(co,5) + 1
      nn(1) = n4(co,6)
      n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
     End If
     If e = b5 Then
      n5(co,5) = n5(co,5) + 1
      nn(1) = n5(co,6)
      n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
     End If
    Next
    For rr = 1 To 10
     For q = 1 To 5
      ee = Estratto(ess,rr,q)
      If ee = b Then
       nam(co,8) = nam(co,8) + 1
      End If
      If ee = bb Then
       nt(co,8) = nt(co,8) + 1
      End If
      If ee = b3 Then
       n3(co,8) = n3(co,8) + 1
      End If
      If ee = b4 Then
       n4(co,8) = n4(co,8) + 1
      End If
      If ee = b5 Then
       n5(co,8) = n5(co,8) + 1
      End If
     Next
    Next
   Next
  Next
 End If
Next
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso --->  " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi "                                   ATTENZIONE ANALISI DELLA POSIZIONE. " & p & "                                          ",1,0,3
Scrivi "     Colpo n°.   " & colpo & "   ",1,- 1,6
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 10
 mm(1) = nam(ca,6)
 ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
 freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
 esito = colpo - ratt
 If nam(ca,7) = 0 Then
  ColoreTesto 2
  Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
  Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
  " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
  " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato  Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq
 Else
  ColoreTesto 0
  If nam(ca,7) > 0 Then
   Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
   Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
   " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
   " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato  Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
   Scrivi " - Esito al colpo... " & esito
   'cc = 0
   cc = cc + 1
  End If
 End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
For ca = 1 To 5
 Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
 Format2(nam(ca,4)) & " su " & NomeRuota(11) & _
 " è uscito " & FormatSpace(nam(ca,8),3) & " in " & FormatSpace(casi,3) & " casi - ESTRATTI TOTALI: " & _
 FormatSpace(nam(ca,8),3) & " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato"
Next
Scrivi
ColoreTesto 1
Scrivi "                                   ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & "                                          ",1,0,3
Scrivi "     Colpo n°.   " & colpo & "   ",1,- 1,6
Scrivi
ColoreTesto 0
OrdinaMatrice nt,- 1,5
For ca = 1 To 10
 mm(1) = nt(ca,6)
 ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
 freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
 esito = colpo - ratt

 If nt(ca,7) = 0 Then
  ColoreTesto 2
  Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
  Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
  " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
  " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq
 Else
  ColoreTesto 0
  If nt(ca,7) > 0 Then
   Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
   Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
   " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
   " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato  Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
   Scrivi " - Esito al colpo... " & esito
   dd = dd + 1
  End If
 End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
For ca = 1 To 5
 Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
 Format2(nt(ca,4)) & " su " & NomeRuota(11) & _
 " è uscito " & FormatSpace(nt(ca,8),3) & " in " & FormatSpace(casi,3) & " casi - ESTRATTI TOTALI: " & _
 FormatSpace(nt(ca,8),3) & " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato"
Next
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi "                                   ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & "                                          ",1,0,3
Scrivi "     Colpo n°.   " & colpo & "   ",1,- 1,6
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 10
 mm(1) = n3(ca,6)
 ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
 freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
 esito = colpo - ratt
 If n3(ca,7) = 0 Then
  ColoreTesto 2
  Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
  Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
  " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
  " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq

 Else
  ColoreTesto 0
  If n3(ca,7) > 0 Then
   Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
   Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
   " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
   " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
   Scrivi " - Esito al colpo... " & esito
   hh = hh + 1
  End If
 End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
For ca = 1 To 5
 Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
 Format2(n3(ca,4)) & " su " & NomeRuota(11) & _
 " è uscito " & FormatSpace(n3(ca,8),3) & " in " & FormatSpace(casi,3) & " casi - ESTRATTI TOTALI: " & _
 FormatSpace(n3(ca,8),3) & " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato"
Next
Scrivi
ColoreTesto 1
Scrivi "                                   ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & "                                          ",1,0,3
Scrivi "     Colpo n°.   " & colpo & "   ",1,- 1,6
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 10
 mm(1) = n4(ca,6)
 ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
 freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
 esito = colpo - ratt
 If n4(ca,7) = 0 Then
  ColoreTesto 2
  Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
  Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
  " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
  " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq
 Else
  ColoreTesto 0
  If n4(ca,7) > 0 Then
   Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
   Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
   " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
   " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
   Scrivi " - Esito al colpo... " & esito
   ff = ff + 1
  End If
 End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
For ca = 1 To 5
 Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
 Format2(n4(ca,4)) & " su " & NomeRuota(11) & _
 " è uscito " & FormatSpace(n4(ca,8),3) & " in " & FormatSpace(casi,3) & " casi - ESTRATTI TOTALI: " & _
 FormatSpace(n4(ca,8),3) & " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato"
Next
Scrivi
ColoreTesto 1
Scrivi "                                   ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & "                                          ",1,0,3
Scrivi "     Colpo n°.   " & colpo & "   ",1,- 1,6
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 10
 mm(1) = n5(ca,6)
 ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
 freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
 esito = colpo - ratt
 If n5(ca,7) = 0 Then
  ColoreTesto 2
  Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
  Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
  " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
  " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq
 Else
  ColoreTesto 0
  If n5(ca,7) > 0 Then
   Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
   Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
   " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
   " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
   Scrivi " - Esito al colpo... " & esito
   gg = gg + 1
  End If
 End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
Scrivi "----- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
For ca = 1 To 5
 Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
 Format2(n5(ca,4)) & " su " & NomeRuota(11) & _
 " è uscito " & FormatSpace(n5(ca,8),3) & " in " & FormatSpace(casi,3) & " casi - ESTRATTI TOTALI: " & _
 FormatSpace(n5(ca,8),3) & " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato"
Next
Scrivi""
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 ",1,- 1,6
 nEnd = Timer ' fine tempo di elaborazione
 Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
 'Questa Function trasforma il numero di secondi passato come parametro in una stringa
 ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
 ' s ---> Numero di secondi da formattare
 ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
 Dim hh
 Dim Mm
 Dim Ss
 Dim TimeStr
 hh = s \ 3600
 Mm =(s Mod 3600) \ 60
 Ss = s -((hh * 3600) +(Mm * 60))
 TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
 FormattaSecondi = TimeStr
End Function

rosa962 · 15 Aprile 2012

grazie MIKE58 come al solito la tua disponibilità

e stata grande lo salverò e lo guarderò con calma

vediamo se corrisponde alla mia richiesta

ciaoo

Roby · 15 Aprile 2012

Gran bel listato, Bravo Mike e grande Ramco, uno dei migliori in assoluto

rosa962 · 17 Aprile 2012

CIAO MIK58

scusami se rispondo un pò in ritardo

ho visto il listato che mi hai proposto

nulla da dire è veramente un bellissimo regalo

ma siamo sulla frequenza sicuramente

anche questo lo ritengo molto utile

sarebbe bello un listato quasi identico

ma sui ritardi e come scritto precedentemente

ma con i miei adattatori a piacere e come nello script

anche nelle posizioni da me volute

ti ringrazio ancora x il bellissimo regalo

ps. lo script agisce solamente sull'indice mensile

per le nuove previsioni quindi bisogna aspettare

la fine del mese ?

ciaooo

Mike58 · 17 Aprile 2012

Ciao Rosa,rispondo dall'ultima domanda lo script agisce su un indice mensile modificabile a piacere e ricava 50 previsioni alcune convergenti fra loro.
La stringa da modificare è: if IndiceMensile(es) = 1 Then ' 1 = prima del mese.
Quindi trarre le indicazioni di gioco da quelle ancora non sfaldate a secondo anche della simpatia o vostre convergenze.

Per quanto concerne la tua richiesta devo capire l'impostazione da dare, non ti prometto nulla ma in questi giorni posso provare a vedere, ma penso che la cosa più difficile e agire sul ritardo dell'adattatore.

Un saluto.

Mike58

Baffoblu · 17 Aprile 2012

rosa962 ha scritto:
CIAOO MIKE58 a proposito di adattatori

di cui ne sono un pò affascinata

per caso hai uno script tipo statistica veloce

sugli adattatori ?

non una statistica dei numeri che gli adattatori generano

ma la statistica degli adattatori stessi per ritardo di ambata, ambo e terno

sul 1° , 2° 3°, 4°, 5° estratto della ruota scelta

ti faccio un esempio

ruota BARI voglio sommare al 1° numero di BARI

una serie di adattatori ammettiamo 8

81-45-33-22-2-4-8-

voglio sapere se i numeri citati sopra da quanto tempo

non si accoppiano x ambo e terno a

ed anche il ritardo x ambata

precedentemente ho fatto una simile richiesta

ma non sono stata capita

ciaoo

Ciao rosa962

Premetto che non voglio polemizzare, ma solo
capire sul serio.....

Sono incuriosito, e vorrei capirci di più,
mi sembra un pò ingrovigliato il discorso,
o sono io che non riesco a capire.....

Dici :

"non una statistica dei numeri che gli adattatori generano"

"ma la statistica degli adattatori stessi per ritardo di ambata, ambo e terno

sul 1° , 2° 3°, 4°, 5° estratto della ruota scelta

ti faccio un esempio

ruota BARI voglio sommare al 1° numero di BARI

una serie di adattatori ammettiamo 8

81-45-33-22-2-4-8-

voglio sapere se i numeri citati sopra da quanto tempo

non si accoppiano x ambo e terno a (qui forse manca qualcosa....)

ed anche il ritardo x ambata"

----------------------------------------------------

Mettiamo che il 1° estratto di Bari sia il n° " 1 ".

Sommandogli i tuoi adattatori, 02-04-08-22-33-45-81.

si otterebbero : 03-05-09-23-34-46-82 che sono i numeri
che gli adattatori generano.

Ma hai detto chiaramente che non sei interessata a questi
nuovi numeri generati dagli adattatori.

Sei interessata proprio agli adattatori stessi !

Ma poi dici di sommare al 1° numero di Bari la serie di adattatori...

se non sei interessata ai numeri che si generano, allora perchè sommarli ?

Capirai che è come dire una cosa e poi il contrario allo stesso tempo !

Allora quale è il nesso fra i 5 estratti di una ruota scelta
con gli adattatori ?

se non li sommi e non ci fai nessun tipo di operazione con essi ?

In pratica se al 1°-2°-3°-4°-5° estratto di una ruota scelta

non applico gli addattatori in alcun modo e maniera,

Quale è la loro relazione interconnessa ?

Tutto qui il mio dubbio

rosa962 · 18 Aprile 2012

ciaoo BAFFO

a me personalmente puoi dirmi tutto quello
che vuoi e non farò mai nessuna polemica

non è nel mio stile

si effettivamente il discorso sembra di una pazza

ma non è così

per prima cosa devi toglierti dalla testa i numeri che generano gli adattatori
se vogliamo li possiamo anche chiamarli distanze

tra una estrazione ed un'altra successiva di una qualsiasi ruota

si vanno a formare delle distanze o anche adattatori

BARI estrazione del 12-4-2012 71-75-56-49-70

estrazione successiva 88-44-8-67-41

non guardare i numeri estratti ma fai attenzione alle distanza che le 2 estrazioni generano

tra il primo numero di BARI dell'estrazione precedente e il primo numero dell'estrazione successiva la distanza e 17 ( 71+17= 88 )

e così via via con tutti gli altri numeri tra l'estrazione precedente e quella successiva

se ragioniamo sugli adattatori e per utopia avrei in mano

una cinquina di adattatori ritardata x ambo x terno ecc ( attenzione parliamo di adattatori o distanze )

tipo 17- 63-27-10-41 da sommare al primo numero di BARI AVREI FATTO UNA QUATERNA ( prova a somma gli adattatori al 71 )

certo capirai che il pronostico cambierà ad ogni estrazione
perchè andrò a sommare di volta in volta la cinquina degli adattatori

spero che avrai capito

ripeto una statistica sugli adattatori a mia scelta nella quantità
e nella posizione

ciaooo

Baffoblu · 18 Aprile 2012

rosa962 ha scritto:
ciaoo BAFFO

a me personalmente puoi dirmi tutto quello
che vuoi e non farò mai nessuna polemica

non è nel mio stile

si effettivamente il discorso sembra di una pazza

ma non è così

per prima cosa devi toglierti dalla testa i numeri che generano gli adattatori
se vogliamo li possiamo anche chiamarli distanze

tra una estrazione ed un'altra successiva di una qualsiasi ruota

si vanno a formare delle distanze o anche adattatori

BARI estrazione del 12-4-2012 71-75-56-49-70

estrazione successiva 88-44-8-67-41

non guardare i numeri estratti ma fai attenzione alle distanza che le 2 estrazioni generano

tra il primo numero di BARI dell'estrazione precedente e il primo numero dell'estrazione successiva la distanza e 17 ( 71+17= 88 )

e così via via con tutti gli altri numeri tra l'estrazione precedente e quella successiva

se ragioniamo sugli adattatori e per utopia avrei in mano

una cinquina di adattatori ritardata x ambo x terno ecc ( attenzione parliamo di adattatori o distanze )

tipo 17- 63-27-10-41 da sommare al primo numero di BARI AVREI FATTO UNA QUATERNA ( prova a somma gli adattatori al 71 )

certo capirai che il pronostico cambierà ad ogni estrazione
perchè andrò a sommare di volta in volta la cinquina degli adattatori

spero che avrai capito

ripeto una statistica sugli adattatori a mia scelta nella quantità
e nella posizione

ciaooo

Ti ringrazio, perhè hai capito che il mio intervento
non era per criticare o polemizzare, ma veramente per capire.

In effetti come lo avevi esposto, dava dubbi sulle interpretazioni....

Veniamo al succo :

Adesso ho capito il discorso "distanza"....

Il 1° estratto di una Ruota, meno il 1° estratto della stessa ruota
nell'estrazione successiva.
(una sorta di differenza matematica)

88 - 71 = 17 (questo è l'adattatore o "distanza" ).

più o meno è così ?

BARI estrazione del 12-04-2012-- 71.75.56.49.70. (estrazione di base o partenza)

estrazione successiva :

Bari estrazione del 14-04-2012-- 88.44.08.67.41.

--------------------------------------------------

In pratica per ognuno dei cinque estratti dell'estrazione di base
si ricavano 5 (adattatori) per ognuna posizione

Dal 1° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 2° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 3° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 4° estratto dell'estrazione di base si ricavano 5 adattatori
Dal 5° estratto dell'estrazione di base si ricavano 5 adattatori
----------------------------------------------------------------

90 + 88 = 178 - 71 = 107 - 90 = "17"

90 + 44 = 134 - 71 = "63"

90 + 08 = 98 - 71 = "27"

90 + 67 = 157 - 71 = "86"

90 + 41 = 131 - 71 = "60"
--------------------------------------

questi sono i 5 adattatori che si ricavano dal 1° estratto di Bari

17..63..27..86..60.

che sommati al 71, 1° estratto di Bari vengono fuori :

88..44..08..67..41 ( corrispondente all'estrazione successiva di Bari)
--------------------------------------

Quindi tenendo conto che sono 5 estratti, in totale gli adattatori sarebbero 25.

Mi confermi tutto ?

rosa962 · 18 Aprile 2012

confermo BAFFO

hai perfettamente capito

CIAOO

fillotto · 18 Aprile 2012

rosa962 ha scritto:
confermo BAFFO

hai perfettamente capito

CIAOO

Rosa, ma hai visto in spaziometria? in "Metodi"----->"Statistica Adattatori" ------->"Imposta i PARAMETRI" ------>Esegui .... e avrai tutto e di più compresi i ritardi le frequenze le posizioni e la possibilità di esportare in EXCEL!!!!!!! è una soluzione proposta da me a Luigi......

Roby · 18 Aprile 2012

Rosa mi togli una curiosità? anzi 2

1 - ma a te interessa la distanza o la differenza?
2 - Presumo tu voglia farlo su un indice mensile specifico altrimenti verrebbero fuori 25 adattatori a estrazione (come ha detto Baffo) giusto?

Questo script ce l'ho nel mio archivio (calcolava la differenza), risalente a 1 anno fa, il problema è trovarlo...........

Ciao

Mike58 · 18 Aprile 2012

Ciao, IO invece ero completamente fuori strada....
Benissimo baffo hai fatto bene a precisare.
Però penso che la statistica sia sempre difficile da fare per questo tipo di analisi mentre per lo script degli esiti è una passeggiata.
Ciao Baffo se puoi pensaci TU...

Ciao a Tutti

Baffoblu · 18 Aprile 2012

Blackmore ha scritto:
Rosa mi togli una curiosità? anzi 2

1 - ma a te interessa la distanza o la differenza?
2 - Presumo tu voglia farlo su un indice mensile specifico altrimenti verrebbero fuori 25 adattatori a estrazione (come ha detto Baffo) giusto?

Questo script ce l'ho nel mio archivio (calcolava la differenza), risalente a 1 anno fa, il problema è trovarlo...........

Ciao

Ciao Blackmore

Mi sembra che non sia ne uno ne l'altro.

Guarda i calcoli che ho fatto....

rosa conferma che è così !

Una domanda :

Ma quando dice fillotto, nel messaggio precedente al tuo,
si puo fare con spaziometria ?

Tu che usi quella parte, confermi ?

e quello che cerca rosa o no ?

Baffoblu · 18 Aprile 2012

Mike58 ha scritto:
Ciao, IO invece ero completamente fuori strada....
Benissimo baffo hai fatto bene a precisare.
Però penso che la statistica sia sempre difficile da fare per questo tipo di analisi mentre per lo script degli esiti è una passeggiata.
Ciao Baffo se puoi pensaci TU...

Ciao a Tutti

Io invece in alto mare......

ho solo provato ad interpretare....

Posso provare ad abbozzare uno script

ma poi su i ritardi ed altro ci devi mettere tu le mani........

Roby · 18 Aprile 2012

Baffo, visto che non è che ci abbia capito molto
ti posto l'immagine, giudica tu stesso

Baffoblu · 18 Aprile 2012

Blackmore ha scritto:
Baffo, visto che non è che ci abbia capito molto
ti posto l'immagine, giudica tu stesso

No, ho controllato e non corrisponde a quelli che chiede rosa.

In spaziometria non si puo fare.....

Ho fatto questo script un po arzigogolato, ma rende l'idea
di cosa vuole rosa......

Almeno per i calcoli da effettuare....

è logico che la giocata risulta sempre vincente.....

Mike58......a te la palla (bollente.....)

Codice:

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim poste(10)
    Dim r
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n(5)
    poste(1) = 1
    r = CInt(InputBox(" Scegli la ruota ",,"1"))
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"20"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"1"))
    estr1 = CInt(InputBox(" In che posizione è l'Estratto ? ",,"1"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        ruote(1) = r
        If estr1 = 1 Then
            estr = Estratto(idEstr,r,1)
        End If
        '----------------------------
        If estr1 = 2 Then
            estr = Estratto(idEstr,r,2)
        End If
        '----------------------------
        If estr1 = 3 Then
            estr = Estratto(idEstr,r,3)
        End If
        '----------------------------
        If estr1 = 4 Then
            estr = Estratto(idEstr,r,4)
        End If
        '----------------------------
        If estr1 = 5 Then
            estr = Estratto(idEstr,r,5)
        End If
        '----------------------------------------------
        extra1 = Estratto(idEstr + 1,r,1)
        '----------------------------
        extra2 = Estratto(idEstr + 1,r,2)
        '----------------------------
        extra3 = Estratto(idEstr + 1,r,3)
        '----------------------------
        extra4 = Estratto(idEstr + 1,r,4)
        '----------------------------
        extra5 = Estratto(idEstr + 1,r,5)
        '---------------------------------------
        c1 = 90 + extra1
        c2 = 90 + extra2
        c3 = 90 + extra3
        c4 = 90 + extra4
        c5 = 90 + extra5
        '------------------------------
        d1 = c1 - estr
        If d1 > 90 Then
            d1 = d1 - 90
        End If
        '--------------
        d2 = c2 - estr
        If d2 > 90 Then
            d2 = d2 - 90
        End If
        '--------------
        d3 = c3 - estr
        If d3 > 90 Then
            d3 = d3 - 90
        End If
        '--------------
        d4 = c4 - estr
        If d4 > 90 Then
            d4 = d4 - 90
        End If
        '--------------
        d5 = c5 - estr
        If d5 > 90 Then
            d5 = d5 - 90
        End If
        '--------------------
        nu1 = Fuori90(estr + d1)
        nu2 = Fuori90(estr + d2)
        nu3 = Fuori90(estr + d3)
        nu4 = Fuori90(estr + d4)
        nu5 = Fuori90(estr + d5)
        '---------------------
        n(1) = nu1
        n(2) = nu2
        n(3) = nu3
        n(4) = nu4
        n(5) = nu5
        ruote(1) = r
        co = co + 1
        Scrivi String(100,"°") & " Caso n°" & co,1
        Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r),1
        Scrivi
        ColoreTesto 1
        Scrivi "I 5 ADATTATORI per l'Estratto scelto : " & Format2(d1) & " . " & Format2(d2) & " . " & Format2(d3) & " . " & Format2(d4) & " . " & Format2(d5),1
        Scrivi
        ColoreTesto 0
        Scrivi String(80,"="),1
        ImpostaGiocata 1,n,ruote,poste,nColpiDiGioco,1
        Gioca idEstr,1
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

rosa962 · 18 Aprile 2012

x FILLOTTO

si ho visto in SPAZIOMETRIA ma non è quello che cerco

x BLAKMORE

chiamala come vuoi tu ma gli adattatori o differenze devone essere 90 come sono i numeri del lotto

presumo che le distanze sono solo 45

x MIKE58

mi fa piacere che hai capito
siamo sulla giusta strada

x TUTTI

come si fa la ricerca statistica di una serie di numeri
così deve essere per gli adattatori

ammettiamo che voglia scegliere 9 adattatori da sommare ai numeri di BARI

VOGLIO SAPERE DI QUESTI 9 NUMERI
IL RITARDO AD ACCOPPIARSI ( AMBO ) ( TERNO ) SIA MIN E MAX
IN TUTTE LE POSIZIONI ( 1°,2°,3°,4°,5° )

CAPITE IL VANTAGGIO

in una estrazione abbiamo non una ma cinque possibilità che quella novina, sestina, terzina
di adattatori vengono estratti ed accoppiandosi svilupperanno ambi e terni

Xmike58

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Advanced Member >PLATINUM PLUS<

Advanced Member

Roby

Guest

Advanced Member

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Advanced Member

Baffoblu

Guest

Advanced Member

Advanced Member >PLATINUM<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Baffoblu

Guest

Baffoblu

Guest

Roby

Guest

Baffoblu

Guest

Advanced Member