Spaziometria o uno script possono rilevare la 10ina + in ritardo x A su tutte?

[skygirl]

Scusate è già stato postato lo script per esaminare le lunghette con tre numeri per Ambo? se si mi indicate il link
grazie

 

[Joe91]

Buona sera a tutte/i.

X Skygirl trovi le indicazioni al messaggio #13.

X Beppignello quale e' lo script di Luigi ?

Grazie.

 

[Beppignello]

E' richiesta statistica

Ambo
Lunghette ritardo ambo

E' possibile scegliere la quantia' di nr. Fino ad un Max di 30

Circa 30 secondi di elaborazione per ogni richiesta di unaqualsiasi qta numerica

Ci sarebbe anche la similare per combinazioni frequenti, anziche' quelle di ritardo.

Comunque il tutto e' limitato alla sola sorte dell' ambo

Ciao

 

[Joe91]

Ok ... si grazie

ma si deve considerare che se fosse uno script-equivalente ...

l'esecuzione sarebbe molto più lenta.

Cordiali saluti.

 

[lotto_tom75]

Ciao Tom ...

per i Terni, con lo script ... modificato ... secondo me non si va da nessuna parte.

Se poi t'ho sconsigliato lunghette con più di 3 numeri per Ambo ...

per Terno è .... miliardi di miliardi di volte peggio.

In sintesi è NO. Secco-secco.

Te modificalo.. se ci riesci dai.. e poi si vede se si va o meno da qualche parte... . Mai porre limiti alla Provvidenza... caro Joe o preferisci che ti citi... il grande Goethe? "L'Audacia... ha in sè Genio e Magia..." Se è vero che io sono troppo con la testa fra le nuvole... è anche vero però che Tu e il Grandissimo LuigiB siete dei GENI un pò troppo razionali !!! (Detto con grandissimo affetto e stima ovviamente!)

 

[Joe91]

Tom ... si ... ti ringrazio.

Ti farò un esempio incitandoti:

Dai coraggio prova a migliorare la teoria della relatività generale.

Coraggio ... se Albert, l'ha scriitta cent'anni fa, tu oggi, puoi riuscire a migliorarla,

sei solo troppo modesto ... devi provarci!

Ho reso l'idea?

Io, quello script ... si, lo miglioro ... ma so che è come nuotare contro corrente.

Ci si stanca per niente.

Inoltre ... ho esperienza di quale siano "le correnti".

Forse è solo ... perchè (ci) spiace vedere della gente che si fa del male ...

ed in questo non piace aiutarli.

Interpretando Luigi (che saluto) so (meglio immagino) che abbia

scritto Spaziometria con spirito opposto a quello che chiedi.

Ovvero serve per poter permettere e dimostrare che "quella teoria" (per quanto complicata) ...

non funziona. Ovvero con l' aiuito di un computer, dimostrare e rendere evidente, che non funziona.

Qui, non solo, non funziona, ma funzianando peggiorerebbe anche la situazione,

a maggior danno del giocatore.

Poi ... dovrebbe essere che ... chi fa da sè fa per tre. Ma è altro discorso.

Rimane ... no. Secco-secco.

Tutto come come previsto.

Cordiali saluti.

 

[lotto_tom75]

Tom ... si ... ti ringrazio.

Ti farò un esempio incitandoti:

Dai coraggio prova a migliorare la teoria della relatività generale.

Coraggio ... se Albert, l'ha scriitta cent'anni fa, tu oggi, puoi riuscire a migliorarla,

sei solo troppo modesto ... devi provarci!

Ho reso l'idea?

Io, quello script ... si, lo miglioro ... ma so che è come nuotare contro corrente.

Ci si stanca per niente.

Inoltre ... ho esperienza di quale siano "le correnti".

Forse è solo ... perchè (ci) spiace vedere della gente che si fa del male ...

ed in questo non piace aiutarli.

Interpretando Luigi (che saluto) so (meglio immagino) che abbia

scritto Spaziometria con spirito opposto a quello che chiedi.

Ovvero serve per poter permettere e dimostrare che "quella teoria" (per quanto complicata) ...

non funziona. Ovvero con l' aiuito di un computer, dimostrare e rendere evidente, che non funziona.

Qui, non solo, non funziona, ma funzianando peggiorerebbe anche la situazione,

a maggior danno del giocatore.

Poi ... dovrebbe essere che ... chi fa da sè fa per tre. Ma è altro discorso.

Rimane ... no. Secco-secco.

Tutto come come previsto.

Cordiali saluti.

Va bene... insormontabile saggio Joe. No problem Grazie mille lo stesso.

 

[Joe91]

Prendi ... o fai uno script semplicssimo:

 Sub Main
For A = 1 To 89
For B = A + 1 To 90
K = K + 1
AR = AmboRitardoTurbo(TT_,A,B)
If AR > 250 Then
Scrivi Format2(A) & "." & Format2(B),False,False
Scrivi " RC_TT " & FormatSpace(AR,3,True)
End If
Next
Next
End Sub

Eseguendolo,

Hai velocità ... pochi numeri ... ed Ambi Secchi:

05.79 RC_TT 350

07.67 RC_TT 256

24.85 RC_TT 274

25.77 RC_TT 390

28.87 RC_TT 290

31.50 RC_TT 306

37.57 RC_TT 331

55.73 RC_TT 356

70.82 RC_TT 275

Molti di essi sono già "auto-organizzati" (in cadenza 7)

Escono o meglio usciranno, nè più nè meno di altri calcolati con più complicatezza.

Come vedi ... mediamente (ed attualmente) uno ogni 15 estrazioni.
_



Perchè stressarsi ulteriormente ?

Buona giornata.

 

[lotto_tom75]

Prendi ... o fai uno script semplicssimo:

 Sub Main
For A = 1 To 89
For B = A + 1 To 90
K = K + 1
AR = AmboRitardoTurbo(TT_,A,B)
If AR > 250 Then
Scrivi Format2(A) & "." & Format2(B),False,False
Scrivi " RC_TT " & FormatSpace(AR,3,True)
End If
Next
Next
End Sub

Hai velocità ... pochi numeri ... ambi secchi.

Un mucchio di essi già organizzati (ora in cadenza 7)

Perchè stressarsi ulteriormente ?

Escono, meglio usciranno, nè più nè meno di altri calcolati con più complicatezza.

Come vedi ... mediamente (attualmente) uno ogni 15 estrazioni.

Grazie 1000 per il tuo spettacolare ermetico e potente "zuccherino" di consolazione... Ora mi verrebbe una piccola domanda solo per studio e approfondimento della programmazione script di spaziometria. La funzione AmboRitardoTurbo presente anche in questo tuo distillato alchemico di codice ha sue corrispettive per ESTRATTO, e le altre sorti? Se si quali? Ho cercato nella libreria funzioni visibili dal campo apposito nella barra dei menu in alto nella sezione script ma non ne ho trovate alcune.. Grazie Maestro!!!

 

[Joe91]

Ciao Tom,

SerieRitardo (eventualmente nella versione Turbo) ha i parametri per gestire sia numeri, che ruote, che sorti.

EstrattoRitardo / RitardoEstratto sono analoghi, naturalmente per l' Estratto.

Poi c'è RitardoCombinazione anche qui con l'opzioneTurbo.

In pratica si deve solo scegliere semplicemente la funzione più adatta.

 

[lotto_tom75]

Ciao Tom,

SerieRitardo (eventualmente nella versione Turbo) ha i parametri per gestire sia numeri, che ruote, che sorti.

EstrattoRitardo / RitardoEstratto sono analoghi, naturalmente per l' Estratto.

Poi c'è RitardoCombinazione anche qui con l'opzioneTurbo.

In pratica si deve solo scegliere semplicemente la funzione più adatta.

Ho provato così...

Sub Main

Dim aVettore

For A = 1 To 88
For B = A + 1 To 89
For C = B + 1 To 90
K = K + 1


aVettore = Array(A,B,C)


AR = SerieRitardo(1,9129,aVettore,2)

If AR > 250 Then

Scrivi Format2(A) & "." & Format2(B),False,False
Scrivi " RC_TT " & FormatSpace(AR,3,True)

End If
Next
Next
Next
End Sub

ma mi da errore alla riga

AR = SerieRitardo(1,9129,aVettore,2)

Come faccio a passare i numeri a questa funzione oppure alla funzione equivalente alternativa RitardoCombinazione

Potresti postarmi un esempio per entrambi le funzioni? Grazie e buona notte big

 

[Beppignello]

manca vettore delle ruote, prima della sorte
ciao

 

[Joe91]

Si esatto per le istruzioni, più esigenti e potenti,

occorre che i dati siano organizzati in array.

 Option Explicit
Sub Main
	Dim a,b,c,k,sr
	Dim aNumeri(3),aRuote(1)
	aRuote(1) = TT_
	Scrivi "Terzina" &Space(3) &   "Rit_Ambo_TT_",True
	For a = 1 To 88 : aNumeri(1) = a
		For b = a + 1 To 89 : aNumeri(2) = b
			For c = b + 1 To 90 : aNumeri(3) = c
				k = k + 1 : AvanzamentoElab 1,Combinazioni(90,3),k
				sr = SerieRitardoTurbo (1,9129,aNumeri,aRuote,AMBO_)
				If sr > 120 Then
					Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),False,False
					Scrivi FormatSpace(sr,10,True)
				End If
			Next
		Next
	Next
End Sub

Cordiali saluti

 

[lotto_tom75]

Si esatto per le istruzioni, più esigenti e potenti,

occorre che i dati siano organizzati in array.

Option Explicit
Sub Main
Dim a,b,c,k,sr
Dim aNumeri(3),aRuote(1)
aRuote(1) = TT_
Scrivi "Terzina" &Space(3) & "Rit_Ambo_TT_",True
For a = 1 To 88 : aNumeri(1) = a
For b = a + 1 To 89 : aNumeri(2) = b
For c = b + 1 To 90 : aNumeri(3) = c
k = k + 1 : AvanzamentoElab 1,Combinazioni(90,3),k
sr = SerieRitardoTurbo (1,9129,aNumeri,aRuote,AMBO_)
If sr > 120 Then
Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c),False,False
Scrivi FormatSpace(sr,10,True)
End If
Next
Next
Next
End Sub

Cordiali saluti

Ciao Joe grazie per quest'ennesima perla di codice
Io ho provato ad espanderlo... ma già alla 5ina x A (se non ho commesso errori nell'espansione...) mi raggiunge tempi troppo lunghi rispetto ad altri script analoghi... che sono molto più veloci nell'elaborazione ma che non saprei come espandere...

Option Explicit
Sub Main
    Dim a,b,c,k,sr,q,r
    Dim aNumeri(5),aRuote(1)
    aRuote(1) = TT_
    Scrivi "Cinquina" & Space(3) & "Rit_Ambo_TT_",True



For r = 1 To 86 : aNumeri(1) = r
   For q = r To 87 : aNumeri(2) = q
           For a = q To 88 : aNumeri(3) = a
              For b = a + 1 To 89 : aNumeri(4) = b
                  For c = b + 1 To 90 : aNumeri(5) = c
                      k = k + 1 : AvanzamentoElab 1,Combinazioni(90,5),k
                      sr = SerieRitardoTurbo(9000,9129,aNumeri,aRuote,AMBO_)
                      If sr > 120 Then
                    Scrivi Format2(a) & "." & Format2(b) & "." & Format2(c) & "." & Format2(q) & "." & Format2(r),False,False
                    Scrivi FormatSpace(sr,10,True)
                    If ScriptInterrotto Then Exit For
                End If
                If ScriptInterrotto Then Exit For
                 Next
                 If ScriptInterrotto Then Exit For
             Next
             If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
   Next
   If ScriptInterrotto Then Exit For
Next
    
End Sub

Mi diresti se c'è un modo per velocizzare l'elaborazione anche in questo script per A in 5ina su TUTTE?

GRAZIE e Good Saturday Joe!

 

[Joe91]

Mi chiedi se c'è un modo per velocizzare ...

... chiaro che si ... utilizzare lo script di Denis ... che è molto più veloce.

Scrivere codice veloce ... è un arte, nell'arte.

Materia riservata a persone particolarmente fortutate.

Io, non per modestia ... ho scritto, in periodo non sospetto,

che ... non intendevo partecipare a si cotal tenzone.

Ma ti consoli: è una delle richieste più furbe che ho letto negli ultimi mesi.

Grazie. Buon fine settimana.

 

[lotto_tom75]

Mi chiedi se c'è un modo per velocizzare ...

... chiaro che si ... utilizzare lo script di Denis ... che è molto più veloce.

Scrivere codice veloce ... è un arte, nell'arte.

Materia riservata a persone particolarmente fortutate.

Io, non per modestia ... ho scritto, in periodo non sospetto,

che ... non intendevo partecipare a si cotal tenzone.

Ma ti consoli: è una delle richieste più furbe che ho letto negli ultimi mesi.

Grazie. Buon fine settimana.

Ci provo Joe ma mi sa che mi rimarrà uno dei sogni da realizzare . Good Saturday Night and Good Sunday Joe.

 

[lotto_tom75]

Mi chiedi se c'è un modo per velocizzare ...

... chiaro che si ... utilizzare lo script di Denis ... che è molto più veloce.

Scrivere codice veloce ... è un arte, nell'arte.

Materia riservata a persone particolarmente fortutate.

Io, non per modestia ... ho scritto, in periodo non sospetto,

che ... non intendevo partecipare a si cotal tenzone.

Ma ti consoli: è una delle richieste più furbe che ho letto negli ultimi mesi.

Grazie. Buon fine settimana.

Ci provo Joe ma mi sa che mi rimarrà uno dei sogni da realizzare . Good Saturday Night and Good Sunday Joe.

ps: Nel frattempo cercando di automatizzare il tutto... per non dover ogni volta aprire il programma ed eseguire lo script, cercando di compilarlo come altri che non danno problemi... questo invece purtroppo si blocca e in particolare mi mostra questa finestra di errore relativa alle righe che sotto ti ho riportato (sempre nell'immagine). Sai mica come potrei ovviare a questo problema per poter compilare anche questo magnifico script senza problemi? Grazie

 

[Joe91]

Ciao non so. If fine = 0 then exit do dovrebbe essere sufficiente. Perchè l'interprete non trovando altro "sulla stessa linea" dovrebbe eseguire solo Exit Do. End if è già implicito e dunque scritto diventa forse "doppio".

 

[lotto_tom75]

Ciao non so. If fine = 0 then exit do dovrebbe essere sufficiente. Perchè l'interprete non trovando altro "sulla stessa linea" dovrebbe eseguire solo Exit Do. End if è già implicito e dunque scritto diventa forse "doppio".

Meno male che te l'ho chiesto e meno male che "Ciao non so..." mi hai dipanato un'altra matassa... per me irrisolvibile!!! A ri grazie grandissimooo Joe!

 

[i legend]

Ciao tom , joe
Ciao a tutti
Joe hai provato a scriverne uno ex novo?
Concordo con te questa è arte pura.
Ho visto uno script che luigi ha fatto per tom .
Trova le decine su due ruote ,(altra opera d arte)
In pratica tom ha una galleria

Ciao a tutti
P.s
Secondo me , ma è solo la mia opinione
Questi sono gli script da cui imparare, e in cui bisognerebbe cimentarsi, per imparare