SUPER LOTTO

il segreto del monco di san ferdinando, Image and video hosting by TinyPic

« Older   Newer »
occhidigiada58.
CAT_IMG Posted on 21/12/2010, 23:56 Quote




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!!!



image
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




 
Top
CAT_IMG Posted on 9/2/2011, 21:13 Quote
Avatar

Supermonello

Group:
Administrator
Posts:
4,383
Location:
Pescara

Status:


..un po messa da parte..??? :)
 
PM   Email   Web  Contacts  Top
1 replies since 21/12/2010, 23:56