Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Sab Mag 19, 2018 9:58 pm Da DjNomade

» Ultima del Mese BARI
Gio Mag 17, 2018 8:44 pm Da Mara*

» Da Ambo spia 09-90 a tutte
Mar Apr 03, 2018 6:22 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


Frequenze 90 Numeri nelle 5 posizioni

Andare in basso

Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Blackmore il Mar Mar 17, 2015 3:42 pm

Esamina le frequenze di tutti i 90 numeri nelle 5 posizioni e il loro Totale
su 2 ruote a scelta

Codice:
Sub Main()

 'Frequenze dei 90 numeri nelle 5 Posizioni su 2 ruote a scelta
 
 Dim ruote(2),n(1),r1,r2,Inizio,Fine
 Dim sf,sf1,sf2,sf3,sf4,sf5
 Inizio = InputBox("Estrazioni Di Verifica ?","Listed By Blackmore",450)
 r1 = InputBox("Ruota di Ricerca N° 1 ?","Listed By Blackmore",1)
 r2 = InputBox("Ruota di Ricerca N° 2 ?","Listed By Blackmore",2)
 Fine = EstrazioneFin
 ColoreTesto 1
 Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 1 Ruota è di 90 Estrazioni",1
 Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 2 Ruote è di 45 Estrazioni",1
 ColoreTesto 0
 Scrivi "Inizio                " & DataEstrazione(Fine-Inizio),1
 Scrivi "Fine                  " & DataEstrazione(Fine),1
 Scrivi "Estrazioni Esaminate  " & Inizio &" (Frequenze 'Teoriche' Per Ogni Posizione = "& Inizio/45 &")",1
 Scrivi "Ruote Esaminate       " & NomeRuota(r1) & "  " & NomeRuota(r2),1
 Scrivi
 Scrivi String(71,"-"),1
 ColoreTesto 2:Scrivi "Ruote  |  Num   |  P.Tot |   P1   |   P2   |   P3   |   P4   |   P5   |",1
 ColoreTesto 0:Scrivi String(71,"-"),1
 For x = 1 To 90
 AvanzamentoElab 1,90,x
 ruote(1) = r1
 ruote(2) = r2
 n(1) = x
 sf = SerieFreq(Fine-Inizio,Fine,n,ruote,1)
 sf1 = SerieFreq(Fine-Inizio,Fine,n,ruote,6)
 sf2 = SerieFreq(Fine-Inizio,Fine,n,ruote,7)
 sf3 = SerieFreq(Fine-Inizio,Fine,n,ruote,8)
 sf4 = SerieFreq(Fine-Inizio,Fine,n,ruote,9)
 sf5 = SerieFreq(Fine-Inizio,Fine,n,ruote,10)
 Scrivi SiglaRuota(r1) & "." & SiglaRuota(r2) & "  |   " & Format2(x) & "   |   " & Format2(sf) & "   |   " & Format2(sf1) & "   |   " & Format2(sf2) & "   |   " & Format2(sf3) & "   |   " & Format2(sf4) & "   |   " & Format2(sf5) & "   |",1
 Next
 Scrivi String(71,"-"),1
End Sub

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Tornare in alto Andare in basso

Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Marco il Mar Mar 17, 2015 5:34 pm

Ottimo lavoro Black (come sempre!) lo21
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo dell'utente http://lottomatematico.forumattivo.it

Tornare in alto Andare in basso

Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Blackmore il Mar Mar 17, 2015 9:28 pm

Ciao Marco, Metto anche la ruota singola, già che ci sono...  bounce

Codice:
Sub Main()

 'Frequenze dei 90 numeri nelle 5 Posizioni su ruota a scelta

 Dim Ruota(1), n(1), r, x, Inizio, Fine
 Dim sf, sf1, sf2, sf3, sf4, sf5    

 Inizio = InputBox("Estrazioni Di Verifica ?","Listed By Blackmore",900)
 r = ScegliRuota
 Fine = EstrazioneFin

 ColoreTesto 1
 Scrivi "Il Ciclo 'Teorico' di 1 Numero In Posizione Determinata Su 1 Ruota è di 90 Estrazioni"
 ColoreTesto 0
 Scrivi "Inizio                " & DataEstrazione(Fine-Inizio)
 Scrivi "Fine                  " & DataEstrazione(Fine)
 Scrivi "Estrazioni Esaminate  " & Inizio &" (Frequenze 'Teoriche' Per Ogni Posizione = "& Inizio/90 &")"
 Scrivi "Ruota Esaminata       " & NomeRuota(r)
 Scrivi
 ColoreTesto 1:Scrivi Space(18)&" F R E Q U E N Z E"
 ColoreTesto 0:Scrivi String(56,"-"),1
 ColoreTesto 1:Scrivi "Ruota | Num  | ToT  |  P1  |  P2  |  P3  |  P4  |  P5  |"
 ColoreTesto 0:Scrivi String(56,"-"),1

 For x = 1 To 90
 AvanzamentoElab 1,90,x

 Ruota(1) = r
 n(1) = x

 'Frequenze Totali e per singole posizioni
 sf = SerieFreq(Fine-Inizio,Fine,n,Ruota,1)
 sf1 = SerieFreq(Fine-Inizio,Fine,n,Ruota,6)
 sf2 = SerieFreq(Fine-Inizio,Fine,n,Ruota,7)
 sf3 = SerieFreq(Fine-Inizio,Fine,n,Ruota,8)
 sf4 = SerieFreq(Fine-Inizio,Fine,n,Ruota,9)
 sf5 = SerieFreq(Fine-Inizio,Fine,n,Ruota,10)

 Scrivi "  "& Ucase(SiglaRuota(r))& "  |  " & Format2(x) & "  |  " & Format2(sf) & "  |  " & Format2(sf1) & "  |  " & Format2(sf2) & "  |  " & Format2(sf3) & "  |  " & Format2(sf4) & "  |  " & Format2(sf5) & "  |"
   Next
 Scrivi String(56,"-"),1
End Sub

Blackmore

Messaggi : 387
Data d'iscrizione : 11.06.14

Visualizza il profilo dell'utente

Tornare in alto Andare in basso

Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da DjNomade il Mer Mar 18, 2015 10:03 am

lol! lo1 lol!
avatar
DjNomade

Messaggi : 263
Data d'iscrizione : 03.07.14

Visualizza il profilo dell'utente

Tornare in alto Andare in basso

Re: Frequenze 90 Numeri nelle 5 posizioni

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Tornare in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum