Novità

Isocronismo Simmetrico di Gianna Palumbo Modificat

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
Isocronismo Simmetrico di Gianna Palumbo Modificato
Agli utenti di Lottoced e di quest'area vi propongo un'altro metodo della Lottologa
Gianna Palumbo.
Io chiaramente ho fatto lo script del metodo. e ho perso un po di tempo
per trovare un migliore rendimento.

in seguito riportero anche il metodo spiegato, dalla Lottologa
Per adesso accontentatevi della mia spiegazione.

Riporto esempio:
Su due ruote

Napoli 28 81 41 05 53 Palermo 80 78 66 73 89
Napoli 34 55 26 67 73 Palermo 36 72 64 53 81

Si puo notare il perfetto isocronismo simmetrico dei numeri 53 e 73.

'infatti 53 e 73
' 73 53

Fine Spiegazione
 
In cosa consiste la mia Modifica!!!!!!!!
Bene la Palumbo giocava i 2 numeri per ambata
che hanno esiti al 100% in 9 concorsi.
Ma sono due numeri per due ruote.

Per ovviare a questo problema, Giocare una sola ambata su due ruote

ho proceduto in questo modo ho constatato che il numero più piccolo dei due
sortisce maggiormante e portando i colpi da 9 a 14 la percentuale si mantiene elevata.

Comunque a voi ulteriori prove.
 
Codice:
Scrivi String (30," ")& String (30,"*"),1
ColoreTesto 1
Scrivi Space(30) &"Metodo Isocronismo Simmetrico ",1
Scrivi Space(30) &"di Gianna Palumbo",1
Scrivi Space(30) &"progammed by °°°esselotto°°°    ",1
Scrivi Space(30) &"per Lottoced                     ",1
ColoreTesto 0

Scrivi Space(30)& String (30,"*"),1
ColoreTesto 2
Scrivi
Scrivi String (100,"^"),1
Scrivi Space(30) &"Versione per Ambata Semplice",1
Scrivi String (100,"^"),1
Scrivi 
ColoreTesto 0


Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(8) 

Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)

Dim nu(2),na(8),na1(8),na2(8)
poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1

indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",14))
If clp= False Then Exit Sub
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
Messaggio "elaborazione. estraz. "&(es)

For r=1 To 9
    rt(1)=r
For p=1 To 4
For pp=p+1 To 5    
    a=Estratto (es,r,p) 
    b=Estratto (es-1,r,pp)' precedente
For rr=r+1 To 10
    rt(2)=rr
    c=Estratto (es,rr,p) 
    d=Estratto (es-1,rr,pp)
    
If a=d And b=c Then  

 
         

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es-1) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es-1,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es-1,rr) & " ] "
Scrivi DataEstrazione (es) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es,rr) & " ] "

Scrivi "Ambi Rilevati      [ "& b &" "& a  &" ] in pos [ "& pp &"^ ]"
Scrivi "Ambi Rilevati      [ "& d &" "& c  &" ] in pos [ "& p &"^ ]"



Scrivi 
If a<b Then 
am=a 
Else 
am=b
End if

ruote(1)=11
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp



Gioca es
End If
Next 
Next
Next
Next 
Next

ScriviResoconto 
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Metodo Isocronismo Simmetrico  ",1
Scrivi"Autore...* (Gianna Palumbo)",1
Scrivi"versione Ambata semplice",1
End Sub
 
Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°
 
quote:Originally posted by esselotto

Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°
A me piace!!! c'e sempre qualcosa di interessante nei tuoi script:D:D
 
quote:Originally posted by esselotto

Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

Ciao esselotto vorrei chiederti come faccio ad impostare una progressione al tuo script, la % e 100% ma ovviamente va in negativo perche gioca a massa pari.
Secondo me e piu corretto vedere come si comporta la cassa
Grazie
 
quote:Originally posted by cebino

quote:Originally posted by esselotto

Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

Ciao esselotto vorrei chiederti come faccio ad impostare una progressione al tuo script, la % e 100% ma ovviamente va in negativo perche gioca a massa pari.
Secondo me e piu corretto vedere come si comporta la cassa
Grazie


non sai come impostare la progressione sullo script????
Oppure cerchi una progressione di 1 ambata per 14 giocate su due ruote????
 
quote:Originally posted by esselotto

quote:Originally posted by cebino

quote:Originally posted by esselotto

Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

Ciao esselotto vorrei chiederti come faccio ad impostare una progressione al tuo script, la % e 100% ma ovviamente va in negativo perche gioca a massa pari.
Secondo me e piu corretto vedere come si comporta la cassa
Grazie


non sai come impostare la progressione sullo script????
Oppure cerchi una progressione di 1 ambata per 14 giocate su due ruote????
Esatto vorrei impostare la progressione su questo script ovviamente io fermerò il gioco nel momento in cui la prev si sfalda.
--------
ImpostaGiocata 1,nu,rt,poambata,clp,1
--------
Giocare 14 colpi su 2 ruote per ambata devi pianificare per bene.
Ciao e grazie
 
Ciao Esselotto , vorrei sapere perchè i tuoi script , non mi girano su L8.vers 6.4

Grazie anticipate.

1 Saluto.
Mauro

"V'é una marea nelle vicende umane Che presa al culmine conduce alla fortuna. Se mancata , tutto il viaggio della vita si arena nei bassifondi e nelle miserie."
Shakespeare dal GIULIO CESARE
 
quote:Originally posted by cebino

quote:Originally posted by esselotto

quote:Originally posted by cebino

quote:Originally posted by esselotto

Se la mia modifica non è stata sufficente.
Almeno datemi il merito di averlo tradotto in linguaggio macchina.:)



La forza F è inversamente proporzionale al quadrato della distanza R
Legge di Coulomb distanza doppia forza=1/4 distanza tripla forza 1/9
°°°esselotto°°°

Ciao esselotto vorrei chiederti come faccio ad impostare una progressione al tuo script, la % e 100% ma ovviamente va in negativo perche gioca a massa pari.
Secondo me e piu corretto vedere come si comporta la cassa
Grazie


non sai come impostare la progressione sullo script????
Oppure cerchi una progressione di 1 ambata per 14 giocate su due ruote????
Esatto vorrei impostare la progressione su questo script ovviamente io fermerò il gioco nel momento in cui la prev si sfalda.
--------
ImpostaGiocata 1,nu,rt,poambata,clp,1
--------
Giocare 14 colpi su 2 ruote per ambata devi pianificare per bene.
Ciao e grazie




Codice:
Per cebino con Progressioni 
 
Per gli importi sulla progressione puoi benissimo cambiare da solo

su queste righe 

Dim pro(5,20)
pro(1,1)=1
pro(1,2)=1
pro(1,3)=1
pro(1,4)=1
pro(1,5)=1
pro(1,6)=1
pro(1,7)=1
pro(1,8)=1
pro(1,9)=1
pro(1,10)=1
pro(1,11)=1
pro(1,12)=1
pro(1,13)=1
pro(1,14)=1



Giustamente come hai fatto notare 
ImpostaGiocata 1,nu,rt,poambata,clp,1
mi fermo alla prima vincita di ambata


Per le progressioni puoi usare Spaziometria
vai sulla voce Utility della pagina principale
cliccaci e sul menù a tendina scegli progressioni.
 
ISOCRONISMO SIMMETRICO CON AGGIUNTA PROGRESSIONI
Cambiare gli importi in base alle proprie esigenze di giocata
e a secono il vostro portafoglio(economico)



Codice:
Scrivi String (30," ")& String (30,"*"),1
ColoreTesto 1
Scrivi Space(30) &"Metodo Isocronismo Simmetrico ",1
Scrivi Space(30) &"di Gianna Palumbo",1
Scrivi Space(30) &"progammed by °°°esselotto°°°    ",1
Scrivi Space(30) &"per Lottoced                     ",1
ColoreTesto 0

Scrivi Space(30)& String (30,"*"),1
ColoreTesto 2
Scrivi
Scrivi String (100,"^"),1
Scrivi Space(30) &"Versione per Ambata Semplice",1
Scrivi String (100,"^"),1
Scrivi 
ColoreTesto 0


Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(8) 
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)
Dim nu(2),na(8),na1(8),na2(8)
Dim pro(5,20)
'''''''''''cambiare gli importi a secondo delle proprie esigenge
'''''''''' gli 1 equivalgono a 1 euro 1.50 1euro e 50
pro(1,1)=1
pro(1,2)=1
pro(1,3)=1
pro(1,4)=1
pro(1,5)=1
pro(1,6)=1
pro(1,7)=1
pro(1,8)=1
pro(1,9)=1
pro(1,10)=1
pro(1,11)=1
pro(1,12)=1
pro(1,13)=1
pro(1,14)=1



poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1





indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",14))
If clp= False Then Exit Sub
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
Messaggio "elaborazione. estraz. "&(es)

For r=1 To 9
    rt(1)=r
For p=1 To 4
For pp=p+1 To 5    
    a=Estratto (es,r,p) 
    b=Estratto (es-1,r,pp)' precedente
For rr=r+1 To 10
    rt(2)=rr
    c=Estratto (es,rr,p) 
    d=Estratto (es-1,rr,pp)
    
If a=d And b=c Then  

 
         

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es-1) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es-1,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es-1,rr) & " ] "
Scrivi DataEstrazione (es) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es,rr) & " ] "

Scrivi "Ambi Rilevati      [ "& b &" "& a  &" ] in pos [ "& pp &"^ ]"
Scrivi "Ambi Rilevati      [ "& d &" "& c  &" ] in pos [ "& p &"^ ]"



Scrivi 
If a<b Then 
am=a 
Else 
am=b
End if

ruote(1)=11
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp,1
ImpostaProgressione 1,pro


Gioca es
End If
Next 
Next
Next
Next 
Next

ScriviResoconto 
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Metodo Isocronismo Simmetrico  ",1
Scrivi"Autore...* (Gianna Palumbo)",1
Scrivi"versione Ambata semplice",1
End Sub
 
quote:Originally posted by esselotto

ISOCRONISMO SIMMETRICO CON AGGIUNTA PROGRESSIONI
Cambiare gli importi in base alle proprie esigenze di giocata
e a secono il vostro portafoglio(economico)
:):):)


Codice:
Scrivi String (30," ")& String (30,"*"),1
ColoreTesto 1
Scrivi Space(30) &"Metodo Isocronismo Simmetrico ",1
Scrivi Space(30) &"di Gianna Palumbo",1
Scrivi Space(30) &"progammed by °°°esselotto°°°    ",1
Scrivi Space(30) &"per Lottoced                     ",1
ColoreTesto 0

Scrivi Space(30)& String (30,"*"),1
ColoreTesto 2
Scrivi
Scrivi String (100,"^"),1
Scrivi Space(30) &"Versione per Ambata Semplice",1
Scrivi String (100,"^"),1
Scrivi 
ColoreTesto 0


Sub main()
Dim so(4)
Dim ruote(11)
Dim rt(8) 
Dim poambata(5),poambo(5),poterno(5),poquaterna(5)
Dim ptd1(6),ptd2(7),ptd3(8),ptd4(9),ptd5(10)
Dim nu(2),na(8),na1(8),na2(8)
Dim pro(5,20)
'''''''''''cambiare gli importi a secondo delle proprie esigenge
'''''''''' gli 1 equivalgono a 1 euro 1.50 1euro e 50
pro(1,1)=1
pro(1,2)=1
pro(1,3)=1
pro(1,4)=1
pro(1,5)=1
pro(1,6)=1
pro(1,7)=1
pro(1,8)=1
pro(1,9)=1
pro(1,10)=1
pro(1,11)=1
pro(1,12)=1
pro(1,13)=1
pro(1,14)=1



poambata(1)=1 : poambo(2)=1 :poterno(3)=1:poquaterna(4)=1





indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","°°°esselotto°°°",100))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi di gioco?..","°°°esselotto°°°",14))
If clp= False Then Exit Sub
co=0
ini=EstrazioneFin -indietro
fin=EstrazioneFin

For es=ini To fin 
Messaggio "elaborazione. estraz. "&(es)

For r=1 To 9
    rt(1)=r
For p=1 To 4
For pp=p+1 To 5    
    a=Estratto (es,r,p) 
    b=Estratto (es-1,r,pp)' precedente
For rr=r+1 To 10
    rt(2)=rr
    c=Estratto (es,rr,p) 
    d=Estratto (es-1,rr,pp)
    
If a=d And b=c Then  

 
         

co=co+1
Scrivi String(75,"*") & "Caso "& co,1
Scrivi String(75,"-"),1
Scrivi DataEstrazione (es-1) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es-1,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es-1,rr) & " ] "
Scrivi DataEstrazione (es) & "( " &   SiglaRuota(r)  & " ) - [ " & StringaEstratti (es,r) & " ] "&_
                      "( " &   SiglaRuota(rr)  & " ) - [ " & StringaEstratti (es,rr) & " ] "

Scrivi "Ambi Rilevati      [ "& b &" "& a  &" ] in pos [ "& pp &"^ ]"
Scrivi "Ambi Rilevati      [ "& d &" "& c  &" ] in pos [ "& p &"^ ]"



Scrivi 
If a<b Then 
am=a 
Else 
am=b
End if

ruote(1)=11
nu(1)=am
ImpostaGiocata 1,nu,rt,poambata,clp,1
ImpostaProgressione 1,pro


Gioca es
End If
Next 
Next
Next
Next 
Next

ScriviResoconto 
ColoreTesto 1
Scrivi "°°°esselotto°°°",1
Scrivi"Metodo Isocronismo Simmetrico  ",1
Scrivi"Autore...* (Gianna Palumbo)",1
Scrivi"versione Ambata semplice",1
End Sub
 
quote:Originally posted by Kant

Ciao Esselotto , vorrei sapere perchè i tuoi script , non mi girano su L8.vers 6.4

Grazie anticipate.

1 Saluto.
Mauro

"V'é una marea nelle vicende umane Che presa al culmine conduce alla fortuna. Se mancata , tutto il viaggio della vita si arena nei bassifondi e nelle miserie."
Shakespeare dal GIULIO CESARE



Prima di postare uno script ho preso l'abitudine di provarlo.
sia su l8 che su Spaziometria.
Per l8 versione 6.1
mentre su spaziometria versione .74
e girano alla perfezione.


Se mi dici l'errore! cercherò di risolverlo, anche se di l8 possiedo una versione precedente
alla tua. !!!

esselotto
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11
Indietro
Alto