Novità

x Salvo

salvo50

Advanced Member >PLATINUM PLUS<
Domanda

Negli esempi esposti quando si fanno le sottrazioni il primo numero è più alto del secondo, quindi dopo la sottrazione il numero è positivo, ma non sempre è così, può capitare che il primo numero sia più basso del secondo, in questi casi come mi devo comportare, faccio la sottrazione col fuori90 oppure sottraggo il numero più basso dal più alto?
 

salvo50

Advanced Member >PLATINUM PLUS<
kubes;n2121045 ha scritto:
non so se ti riferisci al post mio,,,,

Si, mi riferivo al tuo post, comunque l'ho fatto col fuori90.

Codice:
'Chiesto da Kubes - Autore MANARA
'La meteodologia parte da un ambo con Distanza 30, ovviamente sono
'da considerare anche le distanze: 30,15, 18, 22, 27, 36.
'Quindi veniamo ad un esempio con la Distanza 30.
'In data 3.2.96 a Bari viene Estratto l?ambo 48.18 (Distanza trenta).
'Calcolo
'48 + 18 = 66. Il completamento a 90 di 66 è 24.
'Per trovare il Primo ambo dovremo col Diametrale del Primo elemento
'(48-45 = 3) formare la somma 24. Pertanto faremo: 3 e 21. 3+21 = 24. I° ambo.
'Il secondo ambo si ottiene col Diametrale del secondo elemento (18+45 = 63)
'quindi col 63 dovremo formare una somma uguale a 24.
'Per formare il secondo ambo con somma 24, ci vuole il 51. 63+51 = 114 ? 90 = 24.
'Il secondo ambo per il nostro gioco è 63.51. Il terzo ed ultimo ambo da mettere
'In gioco è costituito dai rispettivi diametrali dell?ambo Base: 3.63.
'Ecco In sintesi i tre ambi secchi: Tutte 3.21/51.63/3.63. [ads1]
'script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,P1,P2,P3,Clp1,E1
   Dim A,B,Caso,DAB,Somma,Com90a,Com90b
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(1),Post(2)
   Ruo(1) = TU_
   Clp1 = 8
   Post(2) = 1
   Call ScegliRange(Ini,Fin,9400,EstrazioneFin)'estrazione articolo 6526
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               DAB = Distanza(A,B)
               If DAB = 30 Or DAB = 15 Or DAB = 18 Or DAB = 22 Or DAB = 27 Or DAB = 36 Then
                  Somma = Fuori90(A + B)
                  Com90a = 90 - Somma
                  Ambo1(1) = Diametrale(A)
                  Ambo1(2) = Fuori90(90 +(Com90a - Ambo1(1)))
                  '--------------------------------------------
                  Ambo2(1) = Diametrale(B)
                  Ambo2(2) = Fuori90(90 +(Com90a - Ambo2(1)))
                  '--------------------------------------------
                  Ambo3(1) = Diametrale(A)
                  Ambo3(2) = Diametrale(B)
                  '
                  Caso = Caso + 1
                  ColoreTesto 1
                  Scrivi String(95,"-") & " Caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then
                        Call ColoreTesto(2)
                     Else
                        Call ColoreTesto(0)
                     End If
                     Call Scrivi(Format2(E1) & " ",1,0)
                     Call ColoreTesto(0)
                  Next
                  Scrivi "  Distana " & Format2(DAB),1
                  Scrivi
                  Scrivi " Primo Ambo          Secondo Ambo          Terzo Ambo"
                  Scrivi "   " & Format2(Ambo1(1)) & " " & Format2(Ambo1(2)) & Space(16) & Format2(Ambo2(1)),1,0
                  Scrivi " " & Format2(Ambo2(2)) & Space(16) & Format2(Ambo3(1)) & " " & Format2(Ambo3(2)),1
                  Scrivi
                  ImpostaGiocata 1,Ambo1,Ruo,Post,Clp1
                  ImpostaGiocata 2,Ambo2,Ruo,Post,Clp1
                  ImpostaGiocata 3,Ambo3,Ruo,Post,Clp1
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

kubes

Senior Member
trovato in rete questo utente desiderava che questo script potesse trovare dellle coppie x ambata
e sosteneva che questa porzione di script era imprecisa If Posizione(a,r,num(v,1)) Then num(v,2)=num(v,2)+1
Puoi finire l'opera ?( sempre se ti è possibile e con i dovuti ringraziamenti )
eccoti il codice :

Sub Main()
Dim num(90,2)

r=eval(InputBox("su quale ruota?","ruota?",12))
sp=eval(InputBox("quale numero spia?","spia?",90))
cn=eval(InputBox("quanti numeri più usciti controllo?","quanti numeri?",12))
ee=CInt(InputBox("quante estrazioni controllo?","quante estrazioni?",50))
colpi=eval(InputBox("quanti colpi di gioco controllo?","colpi di gioco?",9))

ini=EstrazioneFin-ee
fin=EstrazioneFin
Scrivi "analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin)&" ("&(ee)&" estrazioni)",1
Scrivi "numeri più frequenti usciti dopo il numero spia < "&sp&" > su < "&NomeRuota(r)&" >",1
casi=0
For i=1 To 90
num(i,1)=i : num(i,2)=0
Next

For es=ini To fin
Messaggio " Spia: "&sp&" Estrazione : "&es
If Posizione(es,r,sp)>0 Then
casi=casi+1
ess=es+colpi
If ess>fin Then ess=fin End If

For a=es+1 To ess
For v=1 To 90
If Posizione(a,r,num(v,1)) Then num(v,2)=num(v,2)+1
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((casi/100)*80)
Scrivi String(80,"-"):Scrivi
Scrivi "numero spia < "&sp&" > su < "&NomeRuota(r)&" > (entro i "&colpi&" colpi)",1
Scrivi "casi : "&casi,1 : Scrivi
Scrivi String(80,"-") : Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To (cn)
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),3)&" "
Next
Scrivi riga,1
ColoreTesto 1
Scrivi riga1,1
Scrivi : ColoreTesto 0 : Scrivi String(80,"-")
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti



kubes;n2123858 ha scritto:
trovato in rete questo utente desiderava che questo script potesse trovare dellle coppie x ambata

Ciao Kubes, non ho capito, vuoi che lo script trova delle coppie e poi cercarle per ambata?
Già questo script trova tutti i numeri che gli imposti in - Quanti numeri più usciti controllo?
Quindi basta cercarne solo 2, mi sembra troppo semplice, probabilmente non è così.


e sosteneva che questa porzione di script era imprecisa If Posizione(a,r,num(v,1)) Then num(v,2)=num(v,2)+1

A me sembra a posto, cioè fà quello che si prefigge di fare, trovare per ogni numero trovato dopo una determinata spia il ritardo.

Ma siccome io non sono un esperto, chiedo aiuto a Joe ed ad altri scripters più esperti, se possono confermare o no quello che ho scritto.
 
Ultima modifica:

claudio8

Premium Member
salvo50;n2123960 ha scritto:
Ciao a Tutti

Ciao Kubes, non ho capito, vuoi che lo script trova delle coppie e poi cercarle per ambata?
Già questo script trova tutti i numeri che gli imposti in - Quanti numeri più usciti controllo?
Quindi basta cercarne solo 2, mi sembra troppo semplice, probabilmente non è così. E' così



A me sembra a posto, cioè fà quello che si prefigge di fare, trovare per ogni numero trovato dopo una determinata spia il ritardo.

Ma siccome io non sono un esperto, chiedo aiuto a Joe ed ad altri scripters più esperti, se possono confermare o no quello che ho scritto.

Lo scrpt gira perfettamente, e fà ciò che dichiara in output, ( Salvo si è sicuramente confuso nello scrivere "il ritardo" )
allego l'output.
Codice:
analisi dal 13.03.2018 al 07.07.2018 (50 estrazioni)
numeri più frequenti usciti dopo il numero spia < 90 > su < Bari >
--------------------------------------------------------------------------------

numero spia < 90 > su < Bari > (entro i 9 colpi)
casi : 6

--------------------------------------------------------------------------------

Num .  77  58  70  20  65  38  17  26  90  82  79  36
Freq.  10   8   8   8   6   6   6   6   6   6   6   5

Voglio solo approfittare x precisare che a mio parere vi son 2 errori concettuali relativi all'analisi che viene fatta, per cui vi consiglio, per gli scripter che "giocano rischiando i propri danari" di leggerlo approfonditamente e per gli utilizzatori di non usarlo perchè porta con se gli errori elancati.
un saluto
 

salvo50

Advanced Member >PLATINUM PLUS<
Hai ragione Claudio, ho confuso la frequenza con il ritardo

Grazie
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Per Kubes

Negli script che ho nel mio computer, ho trovato questo

Cerca ambi più frequenti dopo spia, non sò chi è l'autore dello script

Codice:
 'Cerca ambi più frequenti dopo spia
Sub Main()
   Dim ru(2) : Dim ambi(4005,5) : Dim nn(2)
   r = InputBox("su quale ruota ? 1-10",,1)
   n1 = InputBox(" Numero Spia - ",,1)
   For i = 1 To 4005
      ambi(i,4) = 0 : ambi(i,1) = 0 : ambi(i,2) = 0 : ambi(i,3) = 0
   Next
   casi = 0 : co = 0 : fin = EstrazioneFin : ini = 7694'7086 per 31-12-2001''6584 per 12-03-1997 doppia estrazione'
   For es = ini To fin
      Messaggio " Spia " & CInt(n1) & " est. " & es & " su " & NomeRuota(r) & " dal " & DataEstrazione(ini) & " ad oggi"
      If Posizione(es,r,n1) > 0 Then
         casi = casi + 1 : c = 9 : ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 90
            For y = x + 1 To 90
               co = co + 1 : ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y : nn(1) = x : nn(2) = y : ru(1) = r
               ambi(co,4) = ambi(co,4) + SerieFreq(es + 1,ess,nn,ru,2)
            Next
         Next
      End If
   Next
   OrdinaMatrice ambi,- 1,4
   ColoreTesto 1
   Scrivi " Spia " & CInt(n1) & " su " & NomeRuota(r) & " - Ambi più frequenti, " & c & " colpi, " & CInt(casi) & " casi" & " dal " & DataEstrazione(ini) & " ad oggi"
   Scrivi
   Scrivi " Ambi a ruota"
   ColoreTesto 2
   Scrivi String(10," ") & "Ambo   Frequenza"
   ColoreTesto 0
   For x = 1 To 10
      riga = Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "      " & Format2(ambi(x,4))
      Scrivi String(9," ") & riga
      riga = ""
   Next
   Scrivi "********************************************************"
End Sub
 

kubes

Senior Member
ciao Salvo , è possibile modificare uno script? tu che sei un guru , non credo sarà difficile in sostanza desidererei, fare una modifica a lf4 di manara. togliere la ricerca sulla distanza verticale e diagonale , rimanere quella orizzontale e che sia = oppure >30
es:
CA 30-65
FI 79-41
SONO DISTANZA > 30
X LA SOMMA 65+41=106
30+79=109
POI LA SOMMA 109+106= 215 =35
POI SI DEVE MOLTIPLICARE *2
215*2=430
430 FUORI 90 ESCE 70
DIAMETRALE DI 70= 25 ETC ETC poi resta uguale
il metodo èssendo vecchio è valido per tutte le ruote? mi sa che manca la Nazionale
Codice:
Scrivi "Lotto Facile 4 di Osvaldo Manara ",1
Sub Main()
   Dim nr(2),d(6)
   Dim nr1(4)
   Dim ruote(2),rt(3)
   Dim poste(2),post(5)
   poste(1) = 1
   post(2) = 1
   post(3) = 0.5
   cn = CInt(InputBox("Quante estrazioni controlliamo ?",,14))
   ini = EstrazioneFin - cn
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            ruote(1) = r1
            ruote(2) = r2
            For p1 = 1 To 5
               For p2 = p1 + 1 To 5
                  For p3 = 1 To 5
                     For p4 = p3 + 1 To 5
                        n1 = Estratto(es,r1,p1)
                        n2 = Estratto(es,r1,p2)
                        n3 = Estratto(es,r2,p3)
                        n4 = Estratto(es,r2,p4)
                        d1 = Distanza(n1,n2)
                        d2 = Distanza(n1,n3)
                        d3 = Distanza(n1,n4)
                        d4 = Distanza(n2,n3)
                        d5 = Distanza(n2,n4)
                        d6 = Distanza(n3,n4)
                        If(d1 = 30 And d6 = 30)Or(d2 = 30 And d5 = 30)Or(d3 = 30 And d4 = 30) Then
                           sn1 = Fuori90((n1 + n2 + n3 + n4)*2)
                           Scrivi "____________________________________________________________________________________________"
                           ColoreTesto 1
                           Scrivi DataEstrazione(es) & " " & NomeRuota(r1) & " Ambo " & Format2(n1) & "-" & Format2(n2) & ".....Dist. Or1 = " & d1 & " ...Vert_1 = " & d2 & " ...Diag_1 = " & d3,1
                           Scrivi DataEstrazione(es) & " " & NomeRuota(r2) & " Ambo " & Format2(n3) & "-" & Format2(n4) & ".....Dist. Or2 = " & d6 & " ...Vert_2 = " & d5 & " ...Diag_2 = " & d4,1
                           nr(1) = Diametrale(sn1)
                           ImpostaGiocata 1,nr,ruote,poste,14,1
                           rt(1) = r1
                           rt(2) = r2
                           rt(3) = 11
                           nr1(1) = Diametrale(sn1)
                           nr1(2) = sn1
                           nr1(3) = Fuori90(nr(1) + 30)
                           nr1(4) = Fuori90(nr(1) + 60)
                           ImpostaGiocata 2,nr1,rt,post,14,2
                           Gioca es
                        End If
                     Next : Next : Next
                  Next : Next : Next
               Next
               ScriviResoconto
End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

kubes;n2125707 ha scritto:
ciao Salvo , è possibile modificare uno script? tu che sei un guru , non credo sarà difficile in sostanza desidererei, fare una modifica a lf4 di manara. togliere la ricerca sulla distanza verticale e diagonale , rimanere quella orizzontale e che sia = oppure >30
es:
CA 30-65
FI 79-41
SONO DISTANZA > 30
X LA SOMMA 65+41=106
30+79=109
POI LA SOMMA 109+106= 215 =35
POI SI DEVE MOLTIPLICARE *2
215*2=430
430 FUORI 90 ESCE 70
DIAMETRALE DI 70= 25 ETC ETC poi resta uguale
il metodo èssendo vecchio è valido per tutte le ruote? mi sa che manca la Nazionale

Vedi se va bene così, perchè non sono sicuro di aver capito la tua richiesta.

Codice:
 Sub Main()
   Dim nr(2)
   Dim ruote(2)
   Dim poste(2)
   poste(1) = 1
   cn = CInt(InputBox("Quante estrazioni controlliamo ?",,14))
   ini = EstrazioneFin - cn
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      For r1 = 1 To 10
         For r2 = r1 + 1 To 12
            If r2 = 11 Then r2 = 12
            ruote(1) = r1
            ruote(2) = r2
            For p1 = 1 To 4
               For p2 = p1 + 1 To 5
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        n1 = Estratto(es,r1,p1) : If n1 > 0 Then
                        n2 = Estratto(es,r1,p2)
                        n3 = Estratto(es,r2,p3) : If n3 > 0 Then
                        n4 = Estratto(es,r2,p4)
                        d1 = Distanza(n1,n2)
                        d2 = Distanza(n3,n4)
                        If(d1 > 29 And d2 > 29) Then
                           Casi = casi + 1
                           sn1 =(n1 + n2 + n3 + n4)
                           sn2 = sn1 * 2
                           sn3 = Fuori90(sn2)
                           nr(1) = Diametrale(sn3)
                           Scrivi String(99,"_") & " Caso " & Format2(casi)
                           ColoreTesto 1
                           Scrivi " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " Ambo " & Format2(n1) & "-" & Format2(n2),1,0
                           Scrivi ".....Dist. Or1 = " & Format2(d1),1
                           Scrivi " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " Ambo " & Format2(n3) & "-" & Format2(n4),1,0
                           Scrivi ".....Dist. Or2 = " & Format2(d2),1
                           ColoreTesto 2
                           Scrivi " Somma " & Format2(n1) & " + " & Format2(n2) & " + " & Format2(n3) & " + " & Format2(n4) & " = ",1,0
                           Scrivi Format2(sn1) & " * 2 = " & Format2(sn2) & " Fuori90 = " & Format2(sn3),1,0
                           Scrivi " Diametrale = " & Format2(nr(1)),1
                           ColoreTesto 0
                           ImpostaGiocata 1,nr,ruote,poste,14,1
                           Gioca es
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 

kubes

Senior Member
sei semplicemente un genio... complimenti.....funziona alla grande
 
Ultima modifica:

kubes

Senior Member
ciao salvo, possibile avere uno script che ti mostri 50 60..o.30estrazioni a scelta di una singola ruota , ordinando gli estratti in maniera crescente , per poi trovare in essa gli ambi che si son ripetuti ? grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
kubes;n2128898 ha scritto:
ciao salvo, possibile avere uno script che ti mostri 50 60..o.30estrazioni a scelta di una singola ruota , ordinando gli estratti in maniera crescente , per poi trovare in essa gli ambi che si son ripetuti ? grazie

Ciao a Tutti

Penso sia possibile, però io non ho le idee chiare di come procedere, la tua richiesta assomiglia ad una ricerca tipo - LEGGE DEL TERZO - a questo riguardo se non ricordo male in passato qualcuno (forse Beppignello) aveva fatto degli script.
 

kubes

Senior Member
ciao salvo ho trovato questo , non so di chi sia , che praticamente mostra i numeri usciti,non usciti e usciti varie volte, in X estrazioni. In effetti va bene a metà , ora ci vorrebbe anche che trovi gli ambi ripetuti se ci sono.
Codice:
Sub Main()

Dim frequenze(90)
Dim n ,c
Dim i
Dim ruota
Dim es
Dim s

es=EstrazioneFin
ruota=6 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ


For n= es To es-17 Step-1
'17 numero di estrazioni da variare a piacere
For i= 1 To 5
e=Estratto (n,ruota,i)
frequenze(e)=frequenze(e)+1
Next
Next


For n=0 To 20
s=" numeri sortiti " & CStr(n) & " volte: "
c=0
For i= 1 To 90
If frequenze(i)=n Then
s=s & CStr(i) & " "
c=c+1
End If

Next
If c>0 Then
Scrivi CStr(c) & s
End If

Next

End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto