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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto