richiesta script-metodo ottimo, trovato in rete

IL Matematico

Posted on 1/2/2011, 12:15

Buongiorno, il metodo che ho trovato in rete libero e senza nessun copyright a mio parere e' molto valido soprattutto perche' gioca 1 sola ambata su 1 sola ruota....mi rivolgo all'esperto maxma.62 , occhidigiada58 o chi puo'

...ne vale la pena :f_hmmm_a137855.gif:

Ambata secca su Bari
Ultima estrazione del 30..12..2010
Bari dei cinque estratti estrappoliamo tre terni
I cinque numeri sono: 35.26.48.52.06
***************************************************
Procedimento
1° terno........................ 35-26-48
2° terno........................ 26-48-52
3° terno........................ 48-52-06
somma in verticale dei terni estrappolati 19-36-16
somma in orizzontale delle tre somme
19+36+16 = 71 Figura.8
Figure delle tre somme in verticale
19..1
36..9
16..7
Unione delle 3 figure con la figura del terno in orizzontale
18 + 98 + 78 = somma 14 figura 5
unire la figura del terno in orizzontale 8
con la figura della somma unione figure 5
unire le due figure 85-58.. 1°/ 3°K ambo secco su Bari
Trovare l'ambata piramidando 85-58
con l'apertura e chiusura diametrale 45
45855845
9441439
485573
34131
7544
398
38
38 Ambata secca
x tutto il mese in corso
Per qualsiasi dubbio sono a vostra disposizione
In bocca al LUPO!!

occhidigiada58.

Posted on 1/2/2011, 16:49

ahi ahi c'e' la piramide... io potrei arrivare solo alla prima parte...la data appunto !!!
:FS-msn_117.gif:

matematico ...nn posso aiutarti!!! spero arrivi qualcuno piu' preparato!!

maxma.62

Posted on 1/2/2011, 20:38

Ciao, questi casi ti sembrano esatti?:

CODICE

======================================================= script by maxma62
mar 28.12.2010 [ Ba - 48.38.24.20.75 ]
------------------------------------------------------------ caso n° 1
1° terno [ 48.38.24 ]
2° terno [ 38.24.20 ]
3° terno [ 24.20.75 ]
-------------------------------------------------------------------------
somma in vert. [ 20.82.29 ]
somma in orr. [ 41 ]
figura somma in orr. [ 05 ]
figure somma in vert. [ 02.01.02 ]
unione figure orr./vert. [ 25.15.25 ]
somma [ 65 ]
figura [ 02 ]
unione figure [ 52 ] (abb.)
vert. [ 25 ] (abb.)
45522545 (piramide)
9174799
182279
91497
1547
692
62
-------------------------------------------------------------------------
ambata in gioco [ 62 ] abb. [ 52.25 ]
-------------------------------------------------------------------------
mar 28.12.2010 [8318]
G 1: M 62 Ba 11/14
M 62 su Ba 11° colpo [8329/22.01.2011]
I11
G 2: AT 62.52.25 Ba 14/14
negativo
G 3: AT 62.52.25 Tu 14/14
A 62.52 su Tu (Ve) 1° colpo [8319/30.12.2010]

======================================================= script by maxma62
gio 30.12.2010 [ Ba - 35.26.48.52.06 ]
------------------------------------------------------------ caso n° 2
1° terno [ 35.26.48 ]
2° terno [ 26.48.52 ]
3° terno [ 48.52.06 ]
-------------------------------------------------------------------------
somma in vert. [ 19.36.16 ]
somma in orr. [ 71 ]
figura somma in orr. [ 08 ]
figure somma in vert. [ 01.09.07 ]
unione figure orr./vert. [ 18.98.78 ]
somma [ 14 ]
figura [ 05 ]
unione figure [ 85 ] (abb.)
vert. [ 58 ] (abb.)
45855845 (piramide)
9441439
485573
34131
7544
398
38
-------------------------------------------------------------------------
ambata in gioco [ 38 ] abb. [ 85.58 ]
-------------------------------------------------------------------------
gio 30.12.2010 [8319]
G 1: M 38 Ba 8/14
M 38 su Ba 8° colpo [8327/18.01.2011]
I8
G 2: AT 38.85.58 Ba 13/14
A 58.85 su Ba 1° colpo [8320/03.01.2011]
A 85.58 su Ba 3° colpo [8322/07.01.2011]
in corso (13° su 14)
G 3: AT 38.85.58 Tu 13/14
A 58.85 su Tu (Ba) 1° colpo [8320/03.01.2011]
A 58.38 su Tu (Pa) 1° colpo [8320/03.01.2011]
A 85.58 su Tu (Ba) 3° colpo [8322/07.01.2011]
A 38.85 su Tu (Ca) 5° colpo [8324/11.01.2011]
in corso (13° su 14)
======================================================= script by maxma62
lun 03.01.2011 [ Ba - 58.12.26.85.81 ]
------------------------------------------------------------ caso n° 3
1° terno [ 58.12.26 ]
2° terno [ 12.26.85 ]
3° terno [ 26.85.81 ]
-------------------------------------------------------------------------
somma in vert. [ 06.33.12 ]
somma in orr. [ 51 ]
figura somma in orr. [ 06 ]
figure somma in vert. [ 06.06.03 ]
unione figure orr./vert. [ 66.66.36 ]
somma [ 78 ]
figura [ 06 ]
unione figure [ 66 ] (abb.)
vert. [ 69 ] (abb.)
45666945 (piramide)
9233649
256914
72615
9876
864
51
-------------------------------------------------------------------------
ambata in gioco [ 51 ] abb. [ 66.69 ]
-------------------------------------------------------------------------
lun 03.01.2011 [8320]
G 1: M 51 Ba 3/14
M 51 su Ba 3° colpo [8323/08.01.2011]
I3
G 2: AT 51.66.69 Ba 12/14
in corso (12° su 14)
G 3: AT 51.66.69 Tu 12/14
A 66.51 su Tu (Ve) 2° colpo [8322/07.01.2011]
in corso (12° su 14)
======================================================= script by maxma62

max

IL Matematico

Posted on 1/2/2011, 20:46

Ciao maxama.62, si esatto....bravissimo , come sempre!

Aspettiamo il tuo listato ...grazie mille! :mini-gif-803.gif:

lones

Posted on 12/2/2011, 08:34

non vedo il listato,forse è il caso di inserirlo

SPOILER (click to view)

Scrivi " PIRAMIDE Scritto da Lones x il matematico ",1
Scrivi " Aggiunta Funzione Fuori9 Rosanna ",1

Sub main()
Dim c1(),c2()
Dim no1(2),no2(3),posta(1),poste(3),ruota(2),ruote(1)
posta(1)=1:poste(2)=1:poste(3)=1

r1=InputBox("Qual' è la ruota? ","1^ ruota",1)

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",50)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
casi=0
ini=EstrazioneFin-ce
fin=EstrazioneFin

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)

n1=Estratto(es,r1,1):n2=Estratto(es,r1,2):n3=Estratto(es,r1,3):n4=Estratto(es,r1,4):n5=Estratto(es,r1,5)
n6=Fuori90(n1+n2+n3):n7=Fuori90(n4+n2+n3):n8=Fuori90(n5+n4+n3):n9=Fuori90(n6+n7+n8):n10=Figura(n9)
n11=Figura(n6):n12=Figura(n7):n13=Figura(n8)
n14=Fuori90(n11&n10):n15=Fuori90(n12&n10):n16=Fuori90(n13&n10): n17=Fuori90(n14+n15+n16):n18=Figura(n17):n19=Fuori90(n10&n18):n20=Vert(n19)

casi=casi+1:Scrivi String(58,"=")&" script by lones",1
Scrivi DataEstrazione(es,1)&" [ "&siglaruota(r1)&" - "&stringaestratti(es,r1)&" ]"
Scrivi " PRIMO TERNO [ "&n1&" - "&n2&" - "&n3&"]"
Scrivi " SECONDO TERNO [ "&n2&" - "&n3&" - "&n4&"]"
Scrivi " TERZO TERNO [ "&n3&" - "&n4&" - "&n5&"]"

Scrivi String(70,"-")
Scrivi " SOMMA IN VERTICALE [ "&n6&" - "&n7&" - "&n8&"]"
Scrivi " SOMMA DEI NUM.IN VERT.[ "&n9&" ]"
Scrivi " FIGURA SOMM..VERT. [ "&n10&" ]"

Scrivi " TRASF. IN FIGURA DEI NUM.SOMM.[ "&n11&" - "&n12&" - "&n13&"]"
Scrivi " UNIONE FIGURE TRASF.-VERTIC [ "&n14&" - "&n15&" - "&n16&"]"

Scrivi " SOMMA DEI NUM. IN FIGURE [ "&n17&" ]"
Scrivi " FIGURA [ "&n18&" ]"
Scrivi " UNIONE FIGURE [ "&n19&" ]"
Scrivi " VERT [ "&n20&" ]"
nu1=45& n19&n20& 45
Scrivi FormatSpace(nu1,1,1)
For a= 1 To Len (nu1)
Next
For fine = Len(nu1) To 3 step-1
Sp1 = S1p + 1 : For pir1 = 1 To sp1
Next
x1 = fine : np1 = "" : Redim c1(x1)
For a1 = 1 To x1 : c1(a1) = Mid (nu1,a1,1) : Next
For a1 = 1 To x1-1
If c1(a1)+c1(a1+1)=0 Then t1=0 Else t1=Fuori9(c1(a1)+c1(a1+1))
np1 = np1 & t1
Next
Scrivi FormatSpace(np1,1,1)
nu1=np1
Next
'
'--------------------------------
Scrivi String(70,"-")
ruota(1)=r1:ruota(2)=r2:ruote(1)=11

num1=Fuori90(np1)
num2=n19
num3=n20

no1(1)=num1

ImpostaGiocata 1,no1,ruota,posta,k
no2(1)=num1
no2(2)=num2
no2(3)=num3
ImpostaGiocata 2,no2,ruota,poste,k
ImpostaGiocata 3,no2,ruote,poste,k
Gioca es

Next
ScriviResoconto
Scrivi String(30,"=")&"mi coccolo ahahahah script by lones",1

Scrivi " PIRAMIDE Scritto da Lones x il matematico ",1
Scrivi " Aggiunta Funzione Fuori9 Rosanna ",1
End Sub

'--------------------------------
Function Fuori9(nn)
If Nn-(9*Int(nn/9))=0 Then Fuori9=9 Else Fuori9=(Nn-(9*Int(nn/9)))
End Function

IL Matematico

Posted on 12/2/2011, 09:47

Ciao Lones, grazie mille!

....forse maxma.62 se ne era dimenticato di postarlo heheheh, comunque visti i risultati mi sembra piu' che buono e funziona in tutte le estrazioni :o: