SUPER LOTTO

Richiesta script (3 equazioni a 90 naturali), Byron di Nicola Russo

« Older   Newer »
  Share  
althas01
icon14  CAT_IMG Posted on 20/2/2011, 01:32




Ciao ragazzi,

3 equazioni a 90 naturali

è possibile fare uno script sul Byron di Nicola Russo con ricerca libera
prima equazione somma delle somme + somma delle differenze = 90
seconda equazione somma 2 cinquina + 1 estratto 1 cinquina = 90
terza equazione somma di tutte le differenze + somma delle 6 colonne =90

Ecco lo sviluppo:

07/01/2011 PALERMO 82 70 18 74 85
11/01/2011 NAPOLI 23 37 15 16 07


12 52 34 79 62 76
_______________________________
82 70 18 74 85 23 37
70 18 74 85 23 37 15
18 74 85 23 37 15 16
74 85 23 37 15 16 07
85 23 37 15 16 07 29
_______________________________
59 90 57 54 86 08 14
59 33 03 58 78 84


La somma delle differenze e`uguale a...: 546
La somma delle differenze ristretta e`...: 6
La somma delle somme delle sei colonne e` uguale a...: 264
La somma ristretta fa...: 84
La PRIMA equazione e`verificata, infatti 6+84=90
Sommando il primo estratto della seconda estrazione con la somma delle differenze
abbiamo la nostra ambata : 23 + 6 = 29
Il futuro Primo Estratto e`...: 29
La somma della settima colonna e`...: 14

82 ---> 37 = 45
59 ---> 08 = 39

La loro somma e` 84
La SECONDA equazione e`verificata, infatti 84+06=90 !!!
Ora calcoliamo le terza equazione fondamentale :
primo estratto della prima estrazione sommato alla settima ed ultima somma colonna ottenuta con il primo futuro estratto
82 + 14 = 6 (Jolly) (Coincide con la somma delle differenze)
somma delle differenze + somma delle somme delle sei colonne
La TERZA equazione e`verificata, infatti 6 + 84 = 90 !!!
Dato che la terza equazione è 90 possiamo calcolare il 5° futuro estraendo.
Sommando la sesta e la settima somma delle colonne abbiamo :
Complemento a 90 del 22 : 22 ---> 90 = 68
Il futuro Quinto Estratto e`...: 68
Ambate ed ambo secco : 29 e 68


questo impianto si è sfaldato i 13 gennaio a napoli con il 29 in 3ª posizione
a dato esito positivo il 15 gennaio con 29 in 1ª posizione e 68 in 5ª posizione come da previsioni ambo secco a Napoli e il 18 gennaio il 68 si è ripetuto a Napoli e Palermo rispettivamente in 2 e 3ª posizione

Un abbraccio :) :)

Edited by althas01 - 20/2/2011, 11:54
 
Top
lones
icon11  CAT_IMG Posted on 22/2/2011, 19:51




althas ,ma questo BYron deve essere una frana , dai riscontri risultati nisba,ho modificato si fa per dire,
è tutto suo ,un listato del grande RAmco vedi se da questa videata puo andare.
CODICE
28.01.2010  Ba  44.69.51.22.67
02.02.2010  Ve  32.25.61.85.23
          SCHEMA
  65    18    29    45    35    07    <-- Diff.
--------------------------------------------------------------------------
44    69    51    22    67    32    25
69    51    22    67    32    25    61
51    22    67    32    25    61    85
22    67    32    25    61    85    23
67    32    25    61    85    23   (78)
--------------------------------------------------------------------------
73    61    17    27    90    46   (02)    <-- Som.Col.

  12    44    80    27    44   (44)    <-- Diff.Somme

Somma delle somme delle prime sei colonne 44
Somma di tutte le Differenze (Ultima esclusa)46

PRIMA    EQUAZIONE..... 44 + 46 = 90 (ok!!)
Primo Futuro Estratto[1^estratto della 2^es.+ Som.Diff.](32+46) = 78
1^estratto della 1^es. 44 +(settima somma 2)= 46 Jolly uguale Som.Diff.
2°/TERZA EQUAZIONE..... 46 + 44 = 90(Jolly+Som.6 col.)(ok!!)
Somma sesta e settima colonna (46+2) = 48
Ricaviamo il Secondo Futuro, complementandolo a 90 [90-48] = 42
Primo  Numero  in gioco 78 <-- rit. in ruota 19
Secondo Numero in gioco 42 <-- rit. in ruota 1
L'Ambo formato dai due elementi ritarda in ruota da 241 estrazioni
mar 02.02.2010  [8177]
 G  1:  MD1D5      78.42   Ba Ve    12/12    
    negativo
 G  2:  A          78.42   Ba Ve    12/12    
    negativo
 
Top
althas01
CAT_IMG Posted on 22/2/2011, 21:41




Ciao Lones

si mi va benissimo, grazie di cuore.

Ciao Althas
 
Top
CAT_IMG Posted on 23/2/2011, 10:30
Avatar

Group:
Member
Posts:
757
Location:
Sicilia

Status:


I listati per una e due ruote li puoi trovare nella sezione del Byron... ;)
 
Top
althas01
CAT_IMG Posted on 23/2/2011, 12:21




Grazie mille ragazzi!
 
Top
lones
CAT_IMG Posted on 24/2/2011, 10:28




CITAZIONE (daimon1975 @ 23/2/2011, 10:30) 
I listati per una e due ruote li puoi trovare nella sezione del Byron... ;)

come è possibile accedere a questa sezione?
Per althas ti ho inserito un input box per cercare a tuo piacere le estrazioni di riferimento
per i calcoli,con questo listato modificandolo a tuo piacimento puoi fare tutte le ricerche che
reputi buone,ma se accetti un consiglio non giocarle ,quelle di altri utenti che si trovano
su questo forum sono piu attendibili.
(ringrazio vivamente RAmco per le varie implementazione che ci mette a disposizione)
SPOILER (click to view)
'Ramco it142 x Daimon1975 (Cabala di LORD BYRON)
Sub main()
Dim rt(2),nu(2),pt(10),ptt(2),n1(1),n2(1)
pt(1)=1 : pt(6)=1 : pt(10)=1
ptt(2)=1
clp=12
x1=CInt(InputBox(" estrazione retroattiva ","1^ ruota",2))
x2=CInt(InputBox("estrazione retroattiva ","2^ ruota",0))
ce=CInt(InputBox("quante estrazione vuoi controllare ?",,200))

ini=EstrazioneFin-ce
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es

For r1=1 To 12
If r1=11 Then r1=12
For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
rt(1)=r1
rt(2)=r2

a1=Estratto (es-x1,r1,1) : a2=Estratto (es-x1,r1,2) : a3=Estratto (es-x1,r1,3) : a4=Estratto (es-x1,r1,4) : a5=Estratto (es-x1,r1,5)
b1=Estratto (es-x2,r2,1) : b2=Estratto (es-x2,r2,2) : b3=Estratto (es-x2,r2,3) : b4=Estratto (es-x2,r2,4) : b5=Estratto (es-x2,r2,5)
If a1<a2 Then d1=(90+a1)-a2 Else d1=a1-a2
If a2<a3 Then d2=(90+a2)-a3 Else d2=a2-a3
If a3<a4 Then d3=(90+a3)-a4 Else d3=a3-a4
If a4<a5 Then d4=(90+a4)-a5 Else d4=a4-a5
If a5<b1 Then d5=(90+a5)-b1 Else d5=a5-b1
If b1<b2 Then d6=(90+b1)-b2 Else d6=b1-b2
s1=Fuori90 (a1+a2+a3+a4+a5) : s2=Fuori90 (a2+a3+a4+a5+b1) : s3=Fuori90 (a3+a4+a5+b1+b2)
s4=Fuori90 (a4+a5+b1+b2+b3) : s5=Fuori90 (a5+b1+b2+b3+b4) : s6=Fuori90 (b1+b2+b3+b4+b5)
If s1<s2 Then ds1=(90+s1)-s2 Else ds1=s1-s2
If s2<s3 Then ds2=(90+s2)-s3 Else ds2=s2-s3
If s3<s4 Then ds3=(90+s3)-s4 Else ds3=s3-s4
If s4<s5 Then ds4=(90+s4)-s5 Else ds4=s4-s5
If s5<s6 Then ds5=(90+s5)-s6 Else ds5=s5-s6
ss=Fuori90 (s1+s2+s3+s4+s5+s6) : sd=Fuori90 (d1+d2+d3+d4+d5+d6+ds1+ds2+ds3+ds4+ds5)
If (ss+sd)=90 Then
xx=Fuori90 (b1+sd) : nu(1)=xx : n1(1)=xx
s7=Fuori90 (b2+b3+b4+b5+xx)
If s6<s7 Then ds6=(90+s6)-s7 Else ds6=s6-s7
jy=Fuori90 (a1+s7)
If jy=sd And (jy+ss)=90 Then
co=co+1
sp1=Fuori90 (s7+s6)
kk=90-sp1 : nu(2)=kk : n2(1)=kk
sf1=SerieRitardo (es-200,es,n1,rt,1) : sf2=SerieRitardo (es-200,es,n2,rt,1)
sfa=SerieRitardo (1,es,nu,rt,2)
ColoreTesto 4 :Scrivi : Scrivi String (70,"=")&" Caso n°"& co,1 : ColoreTesto 0
Scrivi DataEstrazione (es-x1)&" "& SiglaRuota (r1)&" "& StringaEstratti (es-x1,r1)
Scrivi DataEstrazione (es-x2)&" "& SiglaRuota (r2)&" "& StringaEstratti (es-x2,r2)
Scrivi Space (10)&" SCHEMA ",1
Scrivi Space(3)& Format2(d1)& Space(4)& Format2(d2)& Space(4)& Format2(d3)& Space(4)& Format2(d4)&_
Space(4)& Format2(d5)& Space(4)& Format2(d6)& Space(4)&"<-- Diff."
Scrivi String (74,"-")
Scrivi Format2(a1)& Space(4)& Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)&_
Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)
Scrivi Format2(a2)& Space(4)& Format2(a3)& Space(4)& Format2(a4)& Space(4)& Format2(a5)& Space(4)&_
Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)
Scrivi Format2(a3)& Space(4)& Format2(a4)& Space(4)& Format2(a5)& Space(4)& Format2(b1)& Space(4)&_
Format2(b2)& Space(4)& Format2(b3)& Space(4)& Format2(b4)
Scrivi Format2(a4)& Space(4)& Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)& Space(4)&_
Format2(b3)& Space(4)& Format2(b4)& Space(4)& Format2(b5)
Scrivi Format2(a5)& Space(4)& Format2(b1)& Space(4)& Format2(b2)& Space(4)& Format2(b3)& Space(4)&_
Format2(b4)& Space(4)& Format2(b5)& Space(3)&"("& Format2(xx)&")"
Scrivi String (74,"-")
Scrivi Format2(s1)& Space(4)& Format2(s2)& Space(4)& Format2(s3)& Space(4)& Format2(s4)& Space(4)&_
Format2(s5)& Space(4)& Format2(s6)& Space(3)&"("& Format2(s7)&")"& Space(4)&"<-- Som.Col."
Scrivi
Scrivi Space(3)& Format2(ds1)& Space(4)& Format2(ds2)& Space(4)& Format2(ds3)& Space(4)& Format2(ds4)&_
Space(4)& Format2(ds5)& Space(3)&"("& Format2(ds6)&")"& Space(4)&"<-- Diff.Somme"
Scrivi : ColoreTesto 1
Scrivi "Somma delle somme delle prime sei colonne "& ss
Scrivi "Somma di tutte le Differenze (Ultima esclusa)"& sd : ColoreTesto 0
Scrivi : Scrivi "PRIMA EQUAZIONE..... "& Format2(ss)&" + "& Format2(sd)&" = 90 (ok!!)"
ColoreTesto 2
Scrivi "Primo Futuro Estratto[1^estratto della 2^es.+ Som.Diff.]("& b1&"+"&sd&") = "& Format2(xx)
ColoreTesto 0
Scrivi "1^estratto della 1^es. "& a1 &" +(settima somma "& s7 &")= "& Format2(jy)&" Jolly uguale Som.Diff."
Scrivi "2°/TERZA EQUAZIONE..... "& Format2(jy)&" + "& Format2(ss)&" = 90(Jolly+Som.6 col.)(ok!!)"
Scrivi "Somma sesta e settima colonna ("& s6&"+"&s7&") = "&sp1
ColoreTesto 2
Scrivi "Ricaviamo il Secondo Futuro, complementandolo a 90 [90-"&sp1&"] = "& Format2(kk)
ColoreTesto 0
Scrivi "Primo Numero in gioco "& Format2(xx)&" <-- rit. in ruota "& sf1
Scrivi "Secondo Numero in gioco "& Format2(kk)&" <-- rit. in ruota "& sf2
Scrivi "L'Ambo formato dai due elementi ritarda in ruota da "& sfa &" estrazioni"
ImpostaGiocata 1,nu,rt,pt,clp
ImpostaGiocata 2,nu,rt,ptt,clp
Gioca es
End If
End If
End If
Next
Next
Next

ScriviResoconto

End Sub
 
Top
CAT_IMG Posted on 24/2/2011, 11:10
Avatar

Group:
Member
Posts:
757
Location:
Sicilia

Status:


Grande! Anche te usi il listato del grande Ramco, come del resto ho fatto io ma mi sono dimenticato di non levare le due linee iniziali per fare vedere l'autore, perchè non mi piacciono TROPPE linee da leggere, quindi per farmi scusare ringrazio PUBBLICAMENTE il grande Ramco per avermi dato una mano ENORME! Grazie Ramco! Grazie a tutti...
 
Top
althas01
CAT_IMG Posted on 24/2/2011, 12:37




Grazie ancora di cuore

Lones, Daimon e Ramco

siete dei veri image

un abbraccio
 
Top
7 replies since 20/2/2011, 01:32   804 views
  Share