SUPER LOTTO


 
Replying to il segreto del monco di san ferdinando
Nickname
Post Icons
                                     

                                   

Code Buttons

         
           FFUpload  Huppy Pick colour HTML Editor Help
Enter your Post
(Check Message Length)

Clickable Smilies
:huh:^_^:o:;):P:D
:lol::B)::rolleyes:-_-<_<:)
:wub::angry::(:unsure::wacko::blink:
:ph34r::alienff::cry::sick::shifty::woot:
<3:XD:*_*:];P:XP:
(:=)X):D:>.<>_<
=_=:|:?3_3:p:;_;
^U^*^^*:=/::*::b::f:
:winner_first_h4h.gif::insane.gif::kissing.gif::nopity.gif::arf2.gif::sadangel.gif:
:bleh.gif::band::1kBp4mm::2n1tao9::cUmVG::Ciba4FC:
:teacup26gj_1_::JNDdFqK::009::bll::abbr::A9-15:
:10E71B~1135::2en41o6.gif::quadr::005::lGgUHek.gif::9be55084b59bdfa57aca3f1d4b9b43d
:kI2RTjo::bgiorno::1j-JE8ow-21::1475246355-adrian3::ATzkbi0::drunk:
:2Mid5OK::EAiVdVi::Rq9uQpD::clapping-inclusive::piace-a-pikopi::https://encrypted-tbn0.gstatic.
:epifania-immagine-animata-0104::buona-giornata-immagine-animata:buon-pomeriggio-immagine-animat:epifania-immagine-animata-0063::BjKbhl2: 
Show All

File Attachments
BlogFree Hosting   jpg gif png zip ...

Descr.:
Image Hosting: host it!


  
 


Last 10 Posts [ In reverse order ]
pigreko73..Posted: 9/2/2011, 20:13
..un po messa da parte..??? :)
occhidigiada58.Posted: 21/12/2010, 22:56
segreto del monco di san ferdinando

almeno cosi' dice l'utente che ha postato un esempio del 1967 e la previsione da giocare, entrambe calcolate dalla posizione isotopa del 55 come 5° estratto!!!
nella tavola la previsione e' in rosso!!!
non so' se il segreto del monco si basasse solo sul 55 isotopo come 5° estratto e nemmeno solo con il 55 comunque la vincita e' al 100% questo lo si vede dallo script!!
percio'... ho studiato la tavola per tutti i 90 numeri, non metto limiti,lascio a voi utilizzarla come piu' vi piace io preferisco le somme uguali isotope su due ruote e i numeri uguali isotopi!!!




seguono gli script
somme uguali su due ruote isotope
CODICE
Sub main()
Dim nu1(5),nu2(5),nu3(7),nu4(7),amb(7),ruota(2),ruote(2),ruot(1)
Dim posta(1),poste(2),post(5)
Dim pstd(10)

posta(1)=5:poste(2)=3
post(2)=1.5:post(3)=1.5:post(4)=1.5
post(2)=1.5:post(3)=1.5

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8276)'7850 inizio 2008
k=InputBox ("per quanti colpi?","colpi di gioco",16)
ini=ce
fin=EstrazioneFin
Scrivi "segreto del monco (2 ambi uniti somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
Scrivi String(70,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "& DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)

For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1)
b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'iso
n1=Fuori90(a+b)
n2=Fuori90(c+d)
If n1=n2 And d1=d2 Then

casi=casi+1:Scrivi String(19,"=")&" metodo <segreto del monco > "&String(19,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)&"."&Format2(b)&" ] in "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&" ] [ "&_
Format2(c)&"."&Format2(d)&" ] in "&(p3)&"^/"&(p4)&"^ pos."
Scrivi String(70,"-")
Scrivi "somma "&format2(a)&"."&format2(b)&" = "&format2(n1)&" / somma "&_
Format2(c)&"."&format2(d)&" = "&format2(n2)
Scrivi String(58,"-")&" caso n° "&(casi)

If (n1)=(n2) Then


amb(1)=Fuori90(n1+1) : amb(2)=Vert(amb(1)) : amb(3)=Fuori90(Figura(amb(1)))
amb(4)=Fuori90(amb(3)+1) : amb(5)=Fuori90(amb(4)+4) :amb(6)= Fuori90(amb(5)+4):amb(7)=Diametrale (amb(1))


ruota(1)=r1:ruota(2)=r2:ruote(1)=11:ruote(2)=12:co=0


nu1(1)=amb(1):nu1(2)=amb(2)
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k,1,0
pstd(p1+5)=1
co=co+1
ImpostaGiocata co,nu1,ruota,pstd,k,0
Erase pstd
pstd(p2+5)=1
co=co+1
ImpostaGiocata co,nu1,ruota,pstd,k,0
Erase pstd

nu3(1)=amb(1):nu3(2)=amb(2):nu3(3)=amb(3)
nu3(4)=amb(4):nu3(5)=amb(5):nu3(6)=amb(6):nu3(7)=amb(7)  
co=co+1
ImpostaGiocata 4,nu3,ruota,post,k

Gioca es
End If
End If
End If 'iso
Next:next:Next:Next:Next:Next:Next
ScriviResoconto
Scrivi "segreto del monco(2 ambi uniti somma uguale)",1
Scrivi "script by joe91 & ramco & maxma62 & occhidigiada",1
End Sub




CODICE
'numero uguale isotopo con il segreto del monco di san ferdinando
Sub main()
Dim k(10),ab(2),ab1(7)
Dim rt(4),rtt(4),ruote(2)
Dim pt(5),ptt(5)
pt(1)=1 : ptt(2)=1: ptt(3)=1 : clp=13
ini=EstrazioneFin -100
co=0
For es=ini To EstrazioneFin
Messaggio (es)
For r=1 To 10
rt(1)=r : rtt(1)=r
For p1=1 To 5
n1=Estratto(es,r,p1)
For r1=r+1 To 12
If r1=11 Then r1=12
rt(2)=r1 : rtt(2)=r1
ruote(1)=11:ruote(2)=12
n2=Estratto(es,r1,p1)
If (n1)=(n2)Then
co=co+1
Scrivi String (70,"=")
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r1)&"  "& StringaEstratti (es,r1)&""
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" "
Scrivi DataEstrazione (es)&" "& SiglaRuota(r)&"-"& SiglaRuota (r1)&_
" Numero isotopo "& n1 &"-"& n2 &" estratto al "&p1&"° posto",1
Scrivi
ab(1)=Fuori90(n1+1)
ab(2)=Vert (ab(1))
ImpostaGiocata 1,ab,rtt,pt,clp

ab1(1)=Fuori90(n1+1)
ab1(2)=Vert (ab1(1))
ab1(3)=Figura (ab1(1))
ab1(4)=Fuori90(ab1(3)+1)
ab1(5)=Fuori90(ab1(4)+4)
ab1(6)=Fuori90(ab1(5)+4)
ab1(7)=Diametrale (ab1(1))
ImpostaGiocata 2,ab1, rtt, ptt,clp  
ImpostaGiocata 3,ab1, ruote, ptt,clp

Gioca es  

End If
Next
Next
Next
Next

ScriviResoconto
End Sub




beppone 50 consiglia con la terzina simmetrica due su una ruota e uno su altra ruota
CODICE
Sub main()
Dim nu1(4),nu2(10),ruote(2),ruot(1),ruo(2)
Dim posta(1),poste(5)
Dim nn(3),ruota(1)

posta(1)=5:poste(2)=3:poste(3)=1.5
ini=8007
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di " & DataEstrazione (es,1)

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)
If Distanza(a,b)=30 Then
If Fuori90(a+60)=b Then nm=Fuori90 (a+30) Else nm=Fuori90 (a+60)
If  Fuori90(a+30)=b Then nm=Fuori90 (a+60) Else nm=Fuori90 (a+30)
For r2=1 To 12  
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
c=Estratto(es,r2,p3)
If c=nm And (p3=p1 Or p3=p2) Then

casi=casi+1:Scrivi String(70,"=")&" by maxma62"
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)& " - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&"."&format2(b)&" ] in "&(p1)&"/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)& " - "&StringaEstratti(es,r2)&_
" ] [ "&format2(c)&" ] in "&(p3)&"^ pos."
Scrivi String(68,"-")&" caso n° " & casi

ruote(1)=r1
ruote(2)=r2

nu1(1)=Fuori90 (c+1)
nu1(2)=Vert(nu1(1))
ImpostaGiocata 1,nu1, ruote,posta,14  
nu2(1)=Fuori90 (c+1)
nu2(2)=Vert(nu1(1))
nu2(3)=Figura (nu2(1))
nu2(4)=Fuori90(nu2(3)+1)
nu2(5)=Fuori90(nu2(4)+4)
nu2(6)=Fuori90(nu2(5)+4)
nu2(7)=Diametrale (nu2(1))


ImpostaGiocata 2,nu2, ruote,poste,14  

Gioca es

End If
Next:
End If
Next
End If
Next:Next:Next:Next
ScriviResoconto
Scrivi Now&" (by maxma62)",1
End Sub