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 |