Risultati della ricerca

Sub Main() Dim dati(10,5) Dim dati2(10,5,10) '''estrattiinposizioneqta Dim dati3(10,5,10) '''ambiinposizioneqta es = InputBox("Quante estrazioni vuoi controllare ?",,100) v = CInt(InputBox("Ambi Verifica in n.colpi",,1)) det = InputBox("Vuoi Lista ambi Usciti? S/N ",,"N") es = CInt(es) inizio =...

Tabella 1 La tabella indica la presenza di ogni singolo estratto nell'estrazione successiva. Esempio: E1 = 45 indica che il primo estratto su Bari è sortito 45 volte nelle estrazioni successive. Tabella 1 Resoconto Complessivo E1 E2 E3 E4 E5 49 54 77 57 60 50 58 47 56 46 51...

NUOVA PICCOLA RICHIESTA PER UNO SCRIPT CHE CONFRONTA 2 O PIU ESTRAZIONI CONSEGUTIVE E INDICHI I NUMERI RIPETUTI E I VERGINI RIMASTI. SAPENDO CHE VENGONO ESTRATTI IN UNA ESTRAZIONE 50 NUMERI SU 90 E CHE DI QUESTI TRA16-22 NUMERI SI RIPETONO L ESTRAZIONE SUCCESIVA. ALLO STESSO MODO I 50 NUMERI...

sono in cerca di uno script o di qualcuno che riesca a farlo ,provo a fare una richiesta ringraziando anticipatamente tutti. in sostanza lo script dovrebbe riuscire ad analizzare il ritardo 0 di ogni singola ruota,faccio un esempio per essere più chiaro il 12/1/2019 i numeri 73-72 -64-27 di...

chi mi riesce ad aiutare ,a trovare 50 terzine per ambo su di una ruota,a colpo secondo voi possibile??? grazie anticipatamente.

chi mi aiuta a trovare 9 ambate a ruota da giocare a colpo. o 1 ambata da trovare su 9 ruote a colpo . grazie atutti per le vostre idee di esperti ,

a tutti gli scriptter riuscire a rintracciare gli ambi ripetuti. Rit. Data Estr. Bari Cagliari Firenze Genova Milano Napoli Palermo Roma Torino Venezia 0 07.02.2012 31.46 19.35 25.87 39.85 38.84 36.55 20.21 11.36 04.59 38.40...

vi presento un'altra tecnica:ALLA QUATERNA COL TRIANGOLO RETTANGOLO. individuazione di una figura geometrica composta da elementi simmetrici è una dei casi di sinergismo piu affascinanti nel mondo dei 90 numeri, il "TRIANGOLO RETTANGOLO"ci portera a ricavare una quaterna chiaramente anche per...

Sub Main() Dim nu(8) Dim ruote(2) Dim poste(2) 'poste(1)=1 poste(2)=1 fin=EstrazioneFin ini=fin-50 For es=ini To fin Messaggio es ruote(1)=r r=12 For r1=1 To 10 ruote(2)=r1 a1=Abs(SommaEstratti(es-3,r)) a2=Abs(SommaEstratti(es-3,r1)) If a1>a2 Then a3=Abs (Fuori90 (a1-a2)) If a2>a1 Then a3=Abs...

valido script Sub main() Dim som(5,90) Dim estr(5) Dim val(5,90) es=InputBox("Inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1) For r2=1 To 10 For r=1 To 10 z=0 For i=1 To 5 For j=1 To 90 som(i,j)=0 val(i,j)=True Next Next For i=1 To 5 estr(i)=0 Next...

Sub Main() Dim num(5) Dim rit(5) Dim rrit(5) Dim tem(5) Dim numeri(5) Dim ruote(2) Dim poste(2) poste(2)=1 r=InputBox("RUOTA ???",,2) ruote(1)=r If r<6 Then r1=r+5 End If If r>5 Then r1=r-5 End If ruote(2)=r1 fin=EstrazioneFin For es=6503 To fin Messaggio DataEstrazione (es) For p=1 To 5...