Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
c+ 1873882
c-
ca 70838
ct 1944720
%+ 96.3574190628985
clpmax 1996
crtmin 794
ruota con crtmin 7
formazione con crtmin 1.2
Tt 00:40:19
Provo a dire clp teorici 794/100 e ad arrotondare a 8
Nessuna Certezza Solo Poca Probabilità
Ti riporto la piccola legenda che per pigrizia... e/o distrazione... non hai visto...
c+ = casi positivi
c- = casi negativi
ca = casi attuali
ct = casi totali
%+ = percentuale positiva
clpmax = colpo massimo di sfaldamento
crtmin = colpi restanti teorici minimi
ruota con crtmin = ruota con colpi restanti teorici minimi
formazione con crtmin = formazione con colpi restanti teorici minimi
Tt Tempo trascorso
buona notte.
1 .2 palermo per 8 colpi giusto? mi sta calando la palpebra
e da dove si evince? ecco cosa mi da l'output (non ho toccato niente dal postato)
Option Explicit
Sub Main
Dim estrazione
Dim Inizioverifica
Dim Inizioanalisi
Dim Fineanalisi
Dim rit,ritmax,Incmax,freq
Inizioanalisi = EstrazioneIni
Fineanalisi = EstrazioneFin
Dim ruota(1)
'ruota(1) = BA_
Dim sortediricerca
sortediricerca = 2
Dim estrazionidaverificare
estrazionidaverificare = CInt(InputBox("estrazioni da verificare",,2700))
Inizioverifica = Fineanalisi - estrazionidaverificare
'modulodiverifica---------------------------------------------------------------------
Dim colpidiverifica
Dim sortediverifica
Dim ruotadiverifica(1)
Dim colpodiuscita
Dim colpomassimo
Dim colpirimanenti
Dim casipositivi
Dim casinegativi
Dim casiattuali
Dim casitotali
Dim estrattiusciti
Dim esitoverifica
Dim estrazionediuscita
Dim colpirimanentiminimi
Dim ruotaconcolpirimanentiminimi
Dim formazioneconcrtmin
colpirimanentiminimi = EstrazioneFin
Dim esi
Dim ncolpo
'x salvataggio numero di colpi rispettivi
Dim qClp
Dim E
qClp = 2700 '18
ReDim aClp(qClp)
' carico la matrice
For E = 1 To 2700
aClp(E) = 0
Next
'----------------------------------------------
'ruotadiverifica(1) = BA_
sortediverifica = 2
colpidiverifica = estrazionidaverificare - 2
'-----------------------------------------------------------------------------------------
Dim ru
For ru = 1 To 10
ruota(1) = ru
ruotadiverifica(1) = ru
For estrazione = Inizioverifica To Fineanalisi
Call Messaggio(NomeRuota(ru) & " " & GetInfoEstrazione(estrazione) & " clpmax " & colpomassimo & " crtmin " & colpirimanentiminimi & " c+ " & casipositivi & " c- " & casinegativi & " ca " & casiattuali)
'Scrivi
'Scrivi "<font color=red>estrazione " & GetInfoEstrazione(estrazione) & "</font>"
'Scrivi
'Scrivi NomeRuota(ru)
'Scrivi
ReDim sRiga(10) '(3)
Dim x
Dim aNumeri
Dim sRiga2
Dim sRiga3
'Dim gruppibasenumericidoc(90)
sRiga(1) = Array(0,1,2,3,4,5,6,7,8,9,10)
sRiga(2) = Array(0,11,12,13,14,15,16,17,18,19,20)
sRiga(3) = Array(0,21,22,23,24,25,26,27,28,29,30)
sRiga(4) = Array(0,31,32,33,34,35,36,37,38,39,40)
sRiga(5) = Array(0,41,42,43,44,45,46,47,48,49,50)
sRiga(6) = Array(0,51,52,53,54,55,56,57,58,59,60)
sRiga(7) = Array(0,61,62,63,64,65,66,67,68,69,70)
sRiga(8) = Array(0,71,72,73,74,75,76,77,78,79,80)
sRiga(9) = Array(0,81,82,83,84,85,86,87,88,89,90)
Dim r
For r = 1 To 9
'Call SplitByChar(StringaNumeri(sRiga(r)),".",aNumeri)
x = UBound(sRiga(r))
Do
'Call Scrivi(StringaNumeri(aNumeri))
'Call Scrivi(StringaNumeri(sRiga(r)))
sRiga(r)(x) = 0
x = x - 1
Call StatisticaFormazioneTurbo(sRiga(r),ruota,sortediricerca,rit,ritmax,Incmax,freq,Inizioanalisi,estrazione)
'Scrivi StringaNumeri(sRiga(r)) & " ra " & rit & " rs " & ritmax & " incmax " & Incmax & " freq " & freq
'filtro
Dim diff
diff = ritmax - rit
'If diff=0 Then
Call VerificaEsitoTurbo(sRiga(r),ruotadiverifica,estrazione + 1,sortediverifica,colpidiverifica,,esitoverifica,colpodiuscita,estrattiusciti,estrazionediuscita)
'Call VerificaEsitoTurbo(sRiga(r),ruotadiverifica,estrazione + 1,sortediverifica,colpidiverifica,,esitoverifica,ncolpo,estrattiusciti,estrazionediuscita)
If esitoverifica <> "" Then
'Scrivi esitoverifica
casipositivi = casipositivi + 1
If colpodiuscita > colpomassimo Then
colpomassimo = colpodiuscita
End If
Else
colpirimanenti = colpidiverifica -(EstrazioneFin - estrazione)
If colpirimanenti < 0 Then
'Scrivi "<font color=red>esito negativo</font>"
casinegativi = casinegativi + 1
Else
'Scrivi "<font color=blue>colpi rimanenti " & colpirimanenti & "</font>"
casiattuali = casiattuali + 1
If colpirimanenti < colpirimanentiminimi Then
colpirimanentiminimi = colpirimanenti
ruotaconcolpirimanentiminimi = ru
formazioneconcrtmin = StringaNumeri(sRiga(r))
End If
End If
End If
'End If ' filtro if
'enumerazione e salvataggio dei rispettivi colpi
If esitoverifica <> "" Then
'Scrivi esitoverifica & " " & E & " Colpo=" & colpodiuscita
aClp(colpodiuscita) = aClp(colpodiuscita) + 1
Else
'Scrivi
End If
'-------------------------------------------------------
Loop While x >= 3
Call AvanzamentoElab(Inizioverifica,Fineanalisi,estrazione)
If ScriptInterrotto Then Exit For
Next
If ScriptInterrotto Then Exit For
Next 'x r
If ScriptInterrotto Then Exit For
Next 'x ru
casitotali = casipositivi + casinegativi + casiattuali
Scrivi
Scrivi "c+ " & casipositivi
Scrivi "c- " & casinegativi
Scrivi "ca " & casiattuali
Scrivi "ct " & casitotali
Scrivi "%+ " &(casipositivi/casitotali)*100
Scrivi "clpmax " & colpomassimo
Scrivi "crtmin " & colpirimanentiminimi
Scrivi "ruota con crtmin " & ruotaconcolpirimanentiminimi
Scrivi "formazione con crtmin " & formazioneconcrtmin
Scrivi
For E = 1 To 2700
Scrivi "Colpo" & E & " =" & aClp(E)
Next
Scrivi
Scrivi "Tt " & TempoTrascorso
Scrivi
End Sub
questo è l'output
c+ 1873882
c-
ca 70838
ct 1944720
%+ 96.3574190628985
clpmax 1996
crtmin 794
ruota con crtmin 7
formazione con crtmin 1.2
Due domande : dove si evince per 8 colpi?
perchè la formazione con crtmin è composta dai num 1 e 2 quale criterio è stato adottato?
per restare nell'ambito degli ambi consecutivi a PA 37 e 38 ritardano da 3160 estraz.
evidentemente il ritardo non centra niente ecco vorrei capire di più
adesso ho capitoL'output in questione non ha nulla a che vedere con i consecutivi nè tanto meno con i ritardi ma appunto solo con la differenza minima rilevata dallo stesso script tra colpo massimo o colpi di ricerca e l'estrazione dinamica di riferimento... (sceglie il valore minore tra i due) confrontando tutte le ruote in modo separato. Per quanto riguarda gli 8 colpi è solo una "licenza poetica..." derivante dalla semplice divisione, come sopra riportato, dei colpi minimi rilevati (794) per 100 -> 7,94 e del successivo arrotondamento a 8. Tutto qui. Visto che una analoga riduzione ha sfaldato con lo stesso strano arrotondamento.., ho voluto riprovarci...
