Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
NON TI ABBATERE CE NE SARANNO ALTRIE' dura da digerire ho perso un ambo secco piu le ambate, dei bei soldini, colpa mia, grazie comunque
SI ESATTO ANCHE 88.89. SU BA.RO. ESSENDO UNA CADENZA 8 TENTEREI TERNO 78.88.89.Ciao, Mastrogino.
Dovrebbero essere rimasti solo 2 casi.
Confermi?
sab 20.01.2024 [10374]
G 1: M 88.89 Fi Ge 7/18
in corso (7° su 18)
mar 23.01.2024 [10375]
G 1: M 80.08 Mi Na 6/18
in corso (6° su 18)
ciao mastro complimenti e grazie per la condivisione
mi dici se ho capito bene? ROVE 56-65 in corso?
Vedi l'allegato 2277237
Ad ogni modo se è così , salvo errori, questo scriptino, che mi sono divertito a fare relativamente al tuo metodo l'ho cercato di ottimizzare per ottenere almeno per le ultime 90 es una % altina di esiti + rispetto ai colpi rimanenti minimi teorici da 1 a 13. I colpi di ricerca configurati sono 22 ma quelli possibili in output sono solo max 13. Nonostante la relativa ipotetica lunga attesa potrebbe tornare utile per eventuali abbinamenti... Ad es. adesso la coppia di ruote con colpi rimanenti minimi teorici e pari a 10, conservando una percentuale di output per il 95%+, sarebbe CAFI 6-60.
Codice:Sub Main Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es colpi = 22 posta(1) = 1 Ini = EstrazioneFin - 90 fin = EstrazioneFin For es = Ini To fin For r1 = 1 To 9 For r2 = r1 + 1 To 10 For p1 = 1 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r2,p1) If a = b Then ' numeri uguali k = k + 1 Nu(1) = a : Nu(2) = b Ru(1) = r1 : Ru(2) = r2 aNum(1) = Fuori90(Nu(1) + Nu(2) + 4) aNum(2) = Vert(aNum(1)) ImpostaGiocata 1,aNum,Ru,posta,colpi,1 Gioca es End If Next Next Next Call AvanzamentoElab(1,EstrazioneFin,es) Next ScriviResoconto Scrivi Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13") End Sub
Scusa che numeri ci sono in gioco ora ?Ora Palermo Venezia e anche Firenze Venezia
Fi,Ve 02/20?Firenze e Venezia 9,90
Palermo e Venezia 14,41
Capiamoci bene andy io non sono un previsionista e i numeri che ho scritto sono quelli del metodo che ci è stato suggerito. Cmq non è difficile calcolare le ambate. Anche una cosa così dovrebbe essere fatta.
Ciao, Mastrogino.Ciao, Mastrogino.
Dovrebbero essere rimasti solo 2 casi.
Confermi?
sab 20.01.2024 [10374]
G 1: M 88.89 Fi Ge 7/18
in corso (7° su 18)
mar 23.01.2024 [10375]
G 1: M 80.08 Mi Na 6/18
in corso (6° su 18)
@mastroginoCiao, Mastrogino.
Da stasera c'è anche questa. Giusto?
mar 06.02.2024 [10383]
G 1: M 80.08 Pa Ro 0/18
i.c. (18 colpi)
@mastrogino
Riesci a mettere tutte le previsioni in corso ?
LE AMBATE IO DI SOLITO LE GIOCO 3/5 GLI AMBI 5/8Ciao, Mastrogino.
Le previsioni sopra per quanti colpi sono impostate?
'Metodo Mastrogino
'Script Cinzia
Sub main()
Dim n1(2),n2(2),nn2(2),n3(3),ps1(1),ps2(2),ps3(3),ru(2)
ps1(1)=1
ps2(2)=1
ps3(3)=1
For es=1 To EstrazioneFin
For r=1 To 11
For r1=r+1 To 12
If r1=11 Then r1=12
If Estratto(es,r,1)>0 Then
If Estratto(es,r1,1)>0 Then
'----------------------------------------------------------------
'CONDIZIONI
'Condizione ruote consecutive - togliere apici per applicarla e mettere
'apice alle altre due
'If Abs(r1-r)=1 Or Abs(r1-r)=11 Then
'Condizione ruote diametrali - togliere apici per applicarla e mettere
'apice alle altre due
'If Abs(r1-r)=5 Then
'Condizione ruote gemelle - togliere apici per applicarla e mettere
'apice alle altre due
'If (r=1 And r1=10) Or (r=2 And r1=9) Or (r=3 And r1=8) Or (r=4 And r1=7) Or (r=5 And r1=6) Then
'----------------------------------------------------------------
ru(1)=r
ru(2)=r1
For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If a=b Then
c=Fuori90(a+a)
n1(1)=Fuori90(c+4)
n1(2)=Vert(n1(1))
n2(1)=a
n2(2)=n1(1)
nn2(1)=a
nn2(2)=n1(2)
n3(1)=a
n3(2)=n1(1)
n3(3)=n1(2)
Scrivi
Scrivi
Scrivi StringaEstratti(es,r)
Scrivi StringaEstratti(es,r1)
Scrivi "numero uguale isotopo = ",0,0
Scrivi Format2(a),1
Scrivi Format2(a)&" + "&Format2(a)&" = "&Format2(c)
Scrivi Format2(c)&" + 4 = ",0,0
Scrivi Format2(n1(1)),1
Scrivi "vertibile ",0,0
Scrivi Format2(n1(2)),1,0
Scrivi
ImpostaGiocata 1,n1,ru,ps1,5,1
ImpostaGiocata 2,n2,ru,ps2,8,2
ImpostaGiocata 3,nn2,ru,ps2,8,2
ImpostaGiocata 4,n3,ru,ps3,8,3
Scrivi
Gioca es
End If
Next
'End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub