come fare statistica

[rossonero8]

SALVE LUIGIB, ho un problema vorrei sapere come listare in quante posizioni esce una determinate ambata:
per esempio:
57 a mi
in 1^pos...5
in 2^pos...15
in 3^pos...7
in 4^pos...22
in 5^pos...13
su 1000 estrazioni
con inputbox su quante estraz--su quale ruota--
casi positivi(percentuale)sul tot estraz.
casi negativi(percentuale)
perchè ho visto nell'outpunt la posizione dell'estratto, giocando ma anche ridurre il costo delle giocate sapendo statisticamente dove mirare.
UN GRANDISSIMO GRAZIE ANTICIPATAMENTE E BUONA DOMENICA

 

[LuigiB]

ciao , spero qualcuno ti aiuti in questo semplice listato.

 

[Mike58]

Da neroAzzurro eccoti il listato, dei ritardi e frequenze sulle posizioni determinate.

Ciao

Sub Main
	nu = InputBox("QUALE NUMERO",,1)
	ru = InputBox("QUALE RUOTA",,1)
	qt = InputBox("QUANTE ESTRAZIONI",,1000)
	ReDim aPos(5)
	Dim k
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi "Numero analizzato " & nu,1
	Scrivi "Ruota analizzata  " & SiglaRuota(ru),1
	Scrivi "Estrazioni in esame.... " & Tot,1
	Scrivi
	For k = 1 To 5
		aPos(k) = True
	Next
	Call Scrivi("Il ritardo sulle 5 caselle del numero è   : ",1,0)
	Call Scrivi(EstrattoRitardo(ru,nu,Ini,fin,,,aPos),True,True,4,2,4)
	Call Scrivi("la frequenza sulle 5 caselle del numero è : ",1,0)
	Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),True,False,3,1,3)
	Call Scrivi("  casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
	Scrivi "-----------------------------------------"
	For k = 1 To 5
		ReDim aPos(5)
		aPos(k) = True
		Call Scrivi("Il ritardo sulla casella   " & k & " del Numero è : ",True,False,,0,2)
		Call Scrivi(EstrattoRitardo(ru,nu,,,,,aPos),True,True,2,4,3)
		Call Scrivi("La frequenza sulla casella " & k & " del numero è : ",True,False,,0,2)
		Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),True,False,3,1,3)
		Call Scrivi("  casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
		Scrivi
	Next
End Sub

 

[rossonero8]

grazie

grazie

SALVE A TUTTI, grazie di cuore a MIKE58 per la risposta per il listato richiesto
VERAMENTE GENTILE E DISPONIBILISSIMO

 

[LOTTOLEON]

Ciao mi da errore su lottodesk dove dovrei modificare!?

 

[Mike58]

Ciao LOTTOLEON, i codici scrivi sono scritti per spaziometria, per un miglior output sia per scrittura Size, che colorazioni volute.
per questo bisogna modificare tutti i codici se vuoi usarlo per lottodesk.

Ti riposto lo script senza le scritture per spaziometria, non sono però sicuro che altri codici possano andare in conflitto.

Ciao

Sub Main
	nu = InputBox("QUALE NUMERO",,1)
	ru = InputBox("QUALE RUOTA",,1)
	qt = InputBox("QUANTE ESTRAZIONI",,1000)
	ReDim aPos(5)
	Dim k
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi "Numero analizzato " & nu,1
	Scrivi "Ruota analizzata  " & SiglaRuota(ru),1
	Scrivi "Estrazioni in esame.... " & Tot,1
	Scrivi
	For k = 1 To 5
		aPos(k) = True
	Next
	Call Scrivi("Il ritardo sulle 5 caselle del numero è   : ",1,0)
	Call Scrivi(EstrattoRitardo(ru,nu,Ini,fin,,,aPos),1)
	Call Scrivi("la frequenza sulle 5 caselle del numero è : ",1,0)
	Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),1,0)
	Call Scrivi("  casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
	Scrivi "-----------------------------------------"
	For k = 1 To 5
		ReDim aPos(5)
		aPos(k) = True
		Call Scrivi("Il ritardo sulla casella   " & k & " del Numero è : ",1,0)
		Call Scrivi(EstrattoRitardo(ru,nu,,,,,aPos),1)
		Call Scrivi("La frequenza sulla casella " & k & " del numero è : ",1,0)
		Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),1,0)
		Call Scrivi("  casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
		Scrivi
	Next
End Sub

 

[LOTTOLEON]

Sub Main
nu = InputBox("QUALE NUMERO",,1)
ru = InputBox("QUALE RUOTA",,1)
qt = InputBox("QUANTE ESTRAZIONI",,1000)
ReDim aPos(5)
Dim k
Ini = EstrazioneFin - qt
fin = EstrazioneFin
Tot = fin - Ini
Scrivi "Numero analizzato " & nu,1
Scrivi "Ruota analizzata " & SiglaRuota(ru),1
Scrivi "Estrazioni in esame.... " & Tot,1
Scrivi
For k = 1 To 5
aPos(k) = True
Next
Call Scrivi("Il ritardo sulle 5 caselle del numero è : ",1,0)
Call Scrivi(EstrattoRitardo(ru,nu,Ini,fin,,,aPos),1)------------- estrattoritardo tipo non corrispondente
Call Scrivi("la frequenza sulle 5 caselle del numero è : ",1,0)
Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),1,0)
Call Scrivi(" casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
Scrivi "-----------------------------------------"
For k = 1 To 5
ReDim aPos(5)
aPos(k) = True
Call Scrivi("Il ritardo sulla casella " & k & " del Numero è : ",1,0)
Call Scrivi(EstrattoRitardo(ru,nu,,,,,aPos),1)
Call Scrivi("La frequenza sulla casella " & k & " del numero è : ",1,0)
Call Scrivi(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos),1,0)
Call Scrivi(" casi perc% " & EstrattoFrequenza(ru,nu,Ini,fin,,,aPos)/qt*100,1,2)
Scrivi
Next

Ciao Mike58 grazie per aver risposto mi continua a dare errore estrattoritardo tipo non corrispondente

 

[Mike58]

Ciao Lottoleon,infatti immaginavo che anche estrattoritardo con le posizione poteva non essere comtemplato in lottodesk, in questo caso non avendo lottedesk e non potendo sapere quali vecchi codici sono diversi da spaziometria non saprei cosa modificare.

L'unica cosa che puoi fare è eseguirlo in spaziometria, corredato di tanti nuovi codici vbscript e un output migliore.


Ciao

 

[LOTTOLEON]

ok Mike58 grazie lo stesso se c'e' qualche anima buona