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ì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31

Ultimi Messaggi

Indietro
Alto