PER ESSELOTTO o PER CHI VUOLE

[Roby]

Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numero</uche io vado a scrivere) quante volte è
uscito nel mese</uche io vado a scrivere)e a quale Ruota</u>:
(che io vado a scrivere)dall'inizio della storia dell'otto,o
negli ultimi 10 anni?

Esempio n. 10 mese agosto anno 1871 2 volte ruota PA
Esempio n. 10 mese agosto anno 1872 0 volte ruota PA
ecc.ecc.
Grazie.
Ciao

 

[esselotto]

quote:Originally posted by joi_lotto

Ciao.
Chiedo: potresti scrivere uno script che facesse vedere un
determinato numero</uche io vado a scrivere) quante volte è
uscito nel mese</uche io vado a scrivere)e a quale Ruota</u>:
(che io vado a scrivere)dall'inizio della storia dell'otto,o
negli ultimi 10 anni?

Esempio n. 10 mese agosto anno 1871 2 volte ruota PA
Esempio n. 10 mese agosto anno 1872 0 volte ruota PA
ecc.ecc.
Grazie.
Ciao

appena trovo tempo libero ci posso provare io.
esselotto

 

[joi_lotto]

Grazie.

 

[esselotto]

per joy ho fatto listato 1 mese a scelta per 10 o quanti anni si vogliano

ho aggiunto qualcosa di mio. Dato che ho capito cosa volevi fare.
Ricercare la frequenza di un numero su una ruota in un dato mese

Mia aggiunta.
Quando avvii lo script ti risulterano data e frequenza di tutti i 90 numeri
cosi puoi fare meglio la casistica.

per altro mese ho ruota leggi commenti sulla sinistra di ogni commando

esselotto

 

[esselotto]

Scipt gira su l8 e spaziometria




'programmato da Esselotto

Sub main()


ini=EstrazioneFin-1700 ' cambia - 1700 a - 4000 o piu
fin=EstrazioneFin

For nx= 1 To 90
Scrivi
Scrivi "Controllo numero .......> "& nx,1

ind = 1 ' indica il mese 1 Genn 12 dic
rx=2 ' indica ruota 1 Ba fino a 10 Venezia 11= Tutte 12= naz



For es= ini To fin



inx=Mese(es) ' prendo il numero del mese 2 per febbraio
IdxMese1 =IndiceMensile(es) ' prendo indice mensile

If IdxMese1= 1 And inx=ind Then ' se indice mensile e la prima calcolo

co=0
For j= 0 To 15 ' controllo 16 estrazioni ma esco se fine mese

For p= 1 To 5 ' controllo 5 estratti
If nx=Estratto (es+j,rx,p) Then fre =fre+1
Next
co=co+1 ' conta i cicli partendo da 1
idxmese2=IndiceMensile (es+co)' prendo indici mensili temporali
If idxmese2 =1 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
Next

Scrivi DataEstrazione(es) & " Ruota "& NomeRuota (rx) &" ____Frequenza --->"& fre 'scrivo data e frequenza
fre=0
End If
Next

Next
scrivi "°°°esselotto°°°"
End Sub









La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb
distanza doppia forza=1/4 distanza tripla forza 1/9

°°°esselotto°°°

 

[joi_lotto]

Ciao.
GRAZIE MOLTO.
Cerco di capire quello che mi hai scritto per quanto riguarda il mese
e la ruota non riesco a capire.
Potresti sottolinearmi le righe,
ripeto sono completamente incompetente.
Grazie.

Cisono riuscito dopo tanto sudore,ora ti chiedo: se correggo la parola controlla numero in (controlla numeri es.1-2 posso farlo)?
cosa succede? mando tutto a pallino?
Grazie.
Ciao.

 

[esselotto]

quote:Originally posted by esselotto

Scipt gira su l8 e spaziometria




'programmato da Esselotto

Sub main()


ini=EstrazioneFin-1700 ' cambia - 1700 a - 4000 o piu
fin=EstrazioneFin

For nx= 1 To 90
Scrivi
Scrivi "Controllo numero .......> "& nx,1

ind = 1 ' indica il mese 1 Genn 12 dic
rx=2 ' indica ruota 1 Ba fino a 10 Venezia 11= Tutte 12= naz



For es= ini To fin



inx=Mese(es) ' prendo il numero del mese 2 per febbraio
IdxMese1 =IndiceMensile(es) ' prendo indice mensile

If IdxMese1= 1 And inx=ind Then ' se indice mensile e la prima calcolo

co=0
For j= 0 To 15 ' controllo 16 estrazioni ma esco se fine mese

For p= 1 To 5 ' controllo 5 estratti
If nx=Estratto (es+j,rx,p) Then fre =fre+1
Next
co=co+1 ' conta i cicli partendo da 1
idxmese2=IndiceMensile (es+co)' prendo indici mensili temporali
If idxmese2 =1 Then Exit For ' controllo indici mensili temporali se di nuovo 1 1° mese esco dal ciclo for
Next

Scrivi DataEstrazione(es) & " Ruota "& NomeRuota (rx) &" ____Frequenza --->"& fre 'scrivo data e frequenza
fre=0
End If
Next

Next
scrivi "°°°esselotto°°°"
End Sub









La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb
distanza doppia forza=1/4 distanza tripla forza 1/9

°°°esselotto°°°

ind = 1 <---- sono i mesi vale come sopra se cambi solo il numero. cambia il mese
1=Gennaio 2= Febbraio 3=Marzo 4=aprile 5=maggio 6=giugno 7=luglio
8 =agosto 9=settembe 10=ottobre 11=novembre 12=dicembre


rx=2 <--- sono le ruote in gioco se cambi numero (solo numero), cambia la ruota.
ti riporto i numeri delle ruote
1=Bari 2=Cagliari 3=firenze 4=Genova 5=milano
6=napoli 7=palermo 8=roma 9=torino 10=vanezia 11=Tutte 12=Nazionale




ini=EstrazioneFin -1700 <--- se qui invece di -1700 provi a mettere
-2000 va a ritroso indietro di 2000 estrazioni
-4000 indietro di 4000 ecc ecc
come vedi preceduto da segno meno.

 

[esselotto]

Spero di essere stato chiaro.
ciao esselotto


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
dalla Fisica
°°°esselotto°°°

 

[esselotto]

Spero di essere stato chiaro.
ciao esselotto


Attenuazione. Un'impulso in un mezzo elastico non si propaga all'infinito ma soltanto fino a che l'energia iniziale non si sia completamente trasformata in energia termica.
dalla Fisica
°°°esselotto°°°

 

[joi_lotto]

Ciao.
Non avevo capito la parte del numero delle estrazioni,
ma dopo un po cisono arrivato.
Grazie ancora.
Ciao.