solare
Advanced Member >PLATINUM<
Ciao tom75, tu come hai risolto il problema della pagina bianca ?Siamo in due
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.
Ciao tom75, tu come hai risolto il problema della pagina bianca ?Siamo in due
Ciao tom75, tu come hai risolto il problema della pagina bianca ?
Si, Tom. Ciccioriccio aveva visto lungo anche tra le ruote dei miei ambi.
Appena posso vado a vedere i tuoi studi del 2015.
Ma i 49 n. continuo a sfoltirli ? Per ora lo sto facendo in parte manualmente in attesa di trovare in modo automatizzato
la soluzione per togliere numeri ambi e anche terni da una lunga sarie di numeri.
Ciao tom75, tu come hai risolto il problema della pagina bianca ?
Scusate, a qualcun funziona lo script?con resilienza... nel senso che continuo a vederla white
Eccomi, Tom.
Di cinquine simili ve ne sono altre su Palermo.
Le ho ricavao costruendo uno script.
Lo pubblico anche se sarebbe da ottimizzare, nel senso che riporta tutti i casi con storico
inferiore a quello attuale mentre si vorrebbero solo quelli con uguaglianza tra i due incrementi, storico attuale.
Magari tu o qualche altro esperto riuscite a modificarlo in tal senso.
Sennò per il momento, mi accontento.
Codice:'OK - il migliore Sub Main() Dim n(5),ru(1) w = 3 r = 7 ru(1) = r numeri = Array(05,06,07,11,12,13,17,19,20,29,32,47,50,55,58,59,61,67,70,75,76,78,79,80,87) x = UBound(numeri) For i = 0 To x n(1) = numeri(i) For j = i + 1 To x n(2) = numeri(j) For k = j + 1 To x n(3) = numeri(k) For l = k + 1 To x n(4) = numeri(l) For m = l + 1 To x n(5) = numeri(m) OrdinaMatrice(n),1 att = SerieRitardoTurbo(1,EstrazioneFin,n,ru,w) sto = SerieStoricoTurbo(1,EstrazioneFin,n,ru,w) If att > sto Then c = 0 mx = 0 mx1 = 0 Scrivi For es = 1 To EstrazioneFin If SerieFreqTurbo(es,es,n,ru,w) > 0 Then st = SerieRitardoTurbo(1,es - 1,n,ru,w) Messaggio "Elaborazione in corso - Attendere" If st > mx Then mx = st incr = mx - mxx If incr > mx1 Then mx1 = incr c = c + 1 Scrivi FormatSpace(c,4,1) & ") " & FormatSpace(es,4,1) & " " & StringaNumeri(n) & " st " & FormatSpace(st,4,1) & " ",0,0 Scrivi " agg. mx " & mx & " ",0,0 If mx > mxx Then Scrivi FormatSpace(incr,4,1) & " ",1,0 If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,3) > 0 Then Scrivi " sortito" Else Scrivi mxx = mx End If Next Scrivi at = SerieRitardoTurbo(1,EstrazioneFin,n,ru,w) Scrivi " Ritardo storico " & mx & " Ritardo attuale " & at Scrivi " Incremento massimo storico " & mx1 & " Incremento massimo attuale " & at - mx If mx1 =(at - mx) Then Scrivi "UGUAGLIANZA IncrS-IncrA" Scrivi End If Next Next Next Next Next End Sub
Ciao Cinzia, riprovato, il risultato è sempre lo stesso, elabora e poi pagina bianca.
Sub Main()
Dim n(3),ru(1)
For r = 1 To 10
c = 0
mx = 0
mx1 = 0
mxx = 0
ru(1) = r
w = 1
For i = 1 To 88
n(1) = i
For j = i + 1 To 89
n(2) = j
For k = j + 1 To 90
n(3) = k
c = 0
mx = 0
mx1 = 0
mxx = 0
stt = SerieStoricoTurbo(1,EstrazioneFin,n,ru,w)
att = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,w)
If stt < att Then
For es = 1 To EstrazioneFin
If SerieFreqTurbo(es,es,n,ru,w) > 0 Then
st = SerieRitardoTurbo(1,es - 1,n,ru,w)'storici
If st > mx Then mx = st'max storico
incrst = mx - mxx'max storico-max storico precedente
If incrst > mx1 Then mx1 = incrst 'max incr storico
ri = FormatSpace(es,4,1) & " " & SiglaRuota(r) & " " & StringaNumeri(n) & " agg. mx " & FormatSpace(mx,4,1)
If mx > mxx Then ri3 = FormatSpace(incrst,4,1)' se il massimo storico è il massimo
If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,w) > 0 Then ri1 = " sortito" Else ri1 = ""
mxx = mx
End If
'End If
Next
incrat = att - mx
If mx1 = incrat Then
Messaggio ri
Scrivi ri3 & " " & ri & " " & ri1
Scrivi "Max st " & mx
Scrivi "Max incr st " & mx1
Scrivi "att " & FormatSpace(att,4,1)
Scrivi "Incr. att " & incrat
If(att - mx) = mx1 Then Scrivi " l' incr max =incr st " & mx1,1
End If
End If
Next
Next
Next
Next
End Sub
Ho provato a scandagliare la 47ina in 46ine ma lo storico è diventato =1.
Di seguito la 47ina a storico 0
02.05.06.10.12.15.16.17.18.20.21.22.24.28.29.31.35.36.37.39.40.41.42.43.44.47.48.51.52.53.54.57.61.65.66.68.71.74.77.78.80.82.83.85.87.88.90
Speriamo che qualcuno possa aiutarci a capire il perché.
Tra l' altro volevo pubblicare lo script ambo per ambata ma anch' esso oggi dà pagina bianca.
Ieri andava bene.
Quello delle terzine per ambata invece funziona.
Ve lo posto:
Codice:Sub Main() Dim n(3),ru(1) For r = 1 To 10 c = 0 mx = 0 mx1 = 0 mxx = 0 ru(1) = r w = 1 For i = 1 To 88 n(1) = i For j = i + 1 To 89 n(2) = j For k = j + 1 To 90 n(3) = k c = 0 mx = 0 mx1 = 0 mxx = 0 stt = SerieStoricoTurbo(1,EstrazioneFin,n,ru,w) att = SerieRitardoTurbo(EstrazioneFin - 100,EstrazioneFin,n,ru,w) If stt < att Then For es = 1 To EstrazioneFin If SerieFreqTurbo(es,es,n,ru,w) > 0 Then st = SerieRitardoTurbo(1,es - 1,n,ru,w)'storici If st > mx Then mx = st'max storico incrst = mx - mxx'max storico-max storico precedente If incrst > mx1 Then mx1 = incrst 'max incr storico ri = FormatSpace(es,4,1) & " " & SiglaRuota(r) & " " & StringaNumeri(n) & " agg. mx " & FormatSpace(mx,4,1) If mx > mxx Then ri3 = FormatSpace(incrst,4,1)' se il massimo storico è il massimo If SerieFreqTurbo(EstrazioneFin,EstrazioneFin,n,ru,w) > 0 Then ri1 = " sortito" Else ri1 = "" mxx = mx End If 'End If Next incrat = att - mx If mx1 = incrat Then Messaggio ri Scrivi ri3 & " " & ri & " " & ri1 Scrivi "Max st " & mx Scrivi "Max incr st " & mx1 Scrivi "att " & FormatSpace(att,4,1) Scrivi "Incr. att " & incrat If(att - mx) = mx1 Then Scrivi " l' incr max =incr st " & mx1,1 End If End If Next Next Next Next End Sub
Se rimane sotto il valore 9 è sempre un ottimo traguardo...
Sub Main()
Dim n(30),ru(1)
w = 3
rr = 11
ru(1) = rr
For i=0 To 60
c = i
n(1) = c + 1
n(2) = c + 2
n(3) = c + 3
n(4) = c + 4
n(5) = c + 5
n(6) = c + 6
n(7) = c + 7
n(8) = c + 8
n(9) = c + 9
n(10) = c + 10
n(11) = c + 11
n(12) = c + 12
n(13) = c + 13
n(14) = c + 14
n(15) = c + 15
n(16) = c + 16
n(17) = c + 17
n(18) = c + 18
n(19) = c + 19
n(20) = c + 20
n(21) = c + 21
n(22) = c + 22
n(23) = c + 23
n(24) = c + 24
n(25) = c + 25
n(26) = c + 26
n(27) = c + 27
n(28) = c + 28
n(29) = c + 29
n(30) = c + 30
st = SerieStoricoTurbo(1,EstrazioneFin,n,ru,w)
If st < 30 Then
co = c + co + 1
Messaggio StringaNumeri(n)
Scrivi StringaNumeri(n) & " st " & st
End If
Next
End Sub
classe 29 analizzate per punti 3 sulle ruote TT formazione: 2.5.6.10.12.15.18.24.28.29.31.35.36.37.39.40.41.42.44.47.54.57.61.66.77.80.85.87.90 - FQ 28855 - RA 2 - RS 3 - 1 - INCMAX 0 - contatore 4960 dello stesso tipo rs3 incmax0 ce ne sono 102 a partire dalla classe 32 rs2 per avere un quadro integrale il più completo possibile... con un opportuno sistema automatico... andrebbero considerate tutte fino ad ottenere le rispettive classi finali del valore di elementi desiderato... |
...
la sfida... aperta a tutti è cercare una classe inferiore a 28 con rs <= 3 incmax=0 x T su TT