Isocronismo Simmetrico di Gianna Palumbo Modificat

[Roby]

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

 

[esselotto]

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.

 

[esselotto]

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

 

[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°°°

 

[fillotto]

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

 

[imported_n/a]

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

 

[oruam]

buono per l'amante delle ambate

 

[scoglio2]

bravo esse

 

[esselotto]

Ringrazio a tutti per i complimenti, che mi avete fatto

 

[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????

 

[imported_n/a]

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

 

[Zagor]

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

 

[Enplein]

...complimenti esselotto...ottimo script.

Con stima, Enplein.

 

[esselotto]

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

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.

 

[esselotto]

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

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

 

[esselotto]

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)

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

 

[esselotto]

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

 

[imported_n/a]

Esselotto
hai fatto una cosa spettacolare.[^]
Cosi posso utuilizzare il codice per valutare altri scrpt

1000 grazie a buon rendere

 

[esselotto]

riporto sù per inserire metodo spiegato dalla Palumbo.

 

[esselotto]

FIRENZE
ambata : 15
ruota secondaria Genova
15 86 Ambo secco su tutte