Metodo " PIRAMIDE A MODO MIO "

[chicco165]

Ciao a Tutti ,
Innanzi tutto volevo complimentarvi con tutti gli Scripter e con chi ha reso Gratuito e Pubblico Spaziometria .... Veramente altruisti e di Cuore .

Quello che vi vado a Sottoelencare e' un metodo per Ambata che su Qualsiasi ruota ha 1 percentuale di sortitta veramente Ottima e Chiederei ( Siccome non sono capace con gli script ) se poteste metterlo a disposizione di tutti facendo appunto Lo Script del Metodo

Ringrazio anticipatamente chi si Cimentera' e spero che questa condivisione si Gradita .

Metodo

Ad 1 estrazione qualsiasi di una ruota a piacimento si mette in gioco la Piramide come da Esempio qua sotto.

ESTRAZIONE - Firenze, sabato 10 settembre 2011

57 87 7 75 25 ( 57+87---> Furi 90) (54) 87+7 ---> fuori90 (4) e cosi via fino ad ottenere i due estratti in rosso
54 4 82 10
58 86 2
54 88


Una volta ottenuti i due estratti si giocano sulla Ruota di Apprtenenza e quella sucessiva
In questo caso Firenze e Genova x Max 9 Colpi

Fate Statistiche e vedrete che Risultati

Chiaro questo metodo io l'ho condiviso ma siccome non capisco 1 tubo di script sarebbe bello se qualche anima buona tra quelli capaci potesse metterlo giu' per tutti.


N.B

I numeri ottenuti NON DEVONO essere gia' stati estratti nelle tre estrazioni precedenti a quella di calcolo

Gazie della collaborazione ... io il Mio 50% l'ho fatto adesso tocca a Voi

 

[pfca]

Ciao chicco165,
prova questo se ti và bene:

'Script richiesto da chicco165. Elaborato da pfca
Sub Main()
Dim num(10)
Dim n1(6)
Dim n2(5)
Dim ruote(2)
Dim posta(1)
posta(1) = 1
r = InputBox("Scegli la prima ruota di gioco? ",,1)
fin = EstrazioneFin
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,20)
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
For es = fin - ini To fin
ess = es - 3
dd = 0
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
num(1) = Fuori90(a+b)
num(2) = Fuori90(b+c)
num(3) = Fuori90(c+d)
num(4) = Fuori90(d+e)
num(5) = Fuori90(num(1)+num(2))
num(6) = Fuori90(num(2)+num(3))
num(7) = Fuori90(num(3)+num(4))
n1(1) = Fuori90(num(5)+num(6))
n1(2) = Fuori90(num(6)+num(7))

Scrivi "-------------------------------------------------------------------"
ColoreTesto 1
Scrivi DataEstrazione(es) & " Ruote: " & Left(NomeRuota(r),2) &" - " & Left(NomeRuota(r+1),2),0,0,6
ColoreTesto 2
Scrivi String(10," ") & " Ambate: " & FormatSpace(n1(1),2) & " - " & FormatSpace(n1(2),2),1,1,4
ColoreTesto 0
'Scrivi "-------------------------------------------------------------------"
For mm = ess To es - 1
For ppp = 1 To 5
n2(1) = Estratto(mm,r,ppp)
n2(2) = Estratto(mm,r,ppp)
n2(1) = Estratto(mm,(r + 1),ppp)
n2(2) = Estratto(mm,(r + 1),ppp)
If n2(1) = n1(1) Or n2(1) = n1(1) Then dd = 1
If n2(2) = n1(2) Or n2(2) = n1(2) Then dd = 1
Next
Next
If dd = 0 Then
ruote(1) = r
ruote(2) = r + 1

ImpostaGiocata 1,n1,ruote,posta,colpi,1

Gioca es
End If
If dd = 1 Then Scrivi " Presente nelle 3 precedenti" End If

Next
Scrivi ""
Scrivi " • pfca • per Chicco165 ",1,1,2
Scrivi ""
ScriviResoconto
End Sub

Ciao

C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[chicco165]

Grazie era quello che intendevo perche' ho provato a farlo io con altri script pubblicati da voi ma ero in difficolta' nel costruire la piramide perche' non capisco nulla di questo linguaggio

Grazie Davvero

 

[Alien.]

OTTIMO

 

[Alien.]

da gennaio a dato sempre l'ambata entro 5 colpi un solo colpo nullo...non male
la migliore e la seconda ambata la prima per recupero.....

 

[Roby]

Ho visto lo script e forse non ho capito bene :

Sono due ambate su due ruote !

In pratica quattro ambate su una ruota per 12 colpi (cosi dice lo script !).

O mi sbaglio.....






Frank

 

[pfca]

Ciao kjo,
si 2 ambate da giocare su due ruote.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[Roby]

quote:Originally posted by pfca

Ciao kjo,
si 2 ambate da giocare su due ruote.


C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

Grazie francesco

Avevo capito bene allora.

ciao


Frank

 

[tommasog]

ciao pfca a me in L8 6.1 da errore su questa riga:
Scrivi DataEstrazione(es) & " Ruote: " & Left(NomeRuota(r),2) &" - " & Left(NomeRuota(r+1),2),0,0,6

 

[pfca]

Ciao Tommaso,
modifica queste tre righe come ti posto:

Scrivi DataEstrazione(es) & " Ruote: " & Left(NomeRuota(r),2) &" - " & Left(NomeRuota(r+1),2)

Scrivi String(10," ") & " Ambate: " & FormatSpace(n1(1),2) & " - " & FormatSpace(n1(2),2)

Scrivi " • pfca • per Chicco165 "

e dovrebbe funzionare.



C'è vero progresso solo quando i vantaggi di una nuova tecnologia diventano per tutti.
Francesco

 

[tommasog]

grazie pfca, adesso funziona benissimo e auguri per oggi
tommaso