COMPLIMENTI A TATOO64 AL QUARTO COLPO AMBO SECCO 06-84 MI
COMPLIMENTI A LANCILLOTTO CENTRA AMBO SECCO 12-74 a GE
COMPLIMENTI A DJNOMADE AMBATA 78 E AMBO SECCO 78-02 a BARI

Numeri ripetuti e somme

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 4236
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Numeri ripetuti e somme

Messaggio da Tatoo64 »

Ciao Djnomade una richiesta di script per te.

Cercare un numero ripetuto anche non isotopo, trovato il numero si fà la somma due a due degli altri 4 numeri il risultato deve trovarsi come numero sull'altra ruota.

ES:

Estrazione del 04/10/2018

Il numero 1 lo troviamo su RM e VE, su VE abbiamo 85 e 33 che sommati danno 28.
Il 28 lo troviamo su RM quindi i requisiti sono rispettati.

Il numero 1 diventa l'ambata

Ricaviamo gli abbinamenti,
28+85=23
28+33=61

Ambi da mettere in gioco sulle ruote di RM e VE e a tutte per recupero
1-23 / 1-61

al 9° colpo AMBO 1-23 a RM
---------------------------------------------------------------------

Altro ES:

Estrazione del 10/06/17

Il numero 1 lo troviamo su GE e TO, su GE abbiamo 33 e 27 che sommati danno 60.
Il 60 lo troviamo su TO quindi i requisiti sono rispettati.

Il numero 1 diventa l'ambata

Ricaviamo gli abbinamenti,
60+33=03
60+27=87

Ambi da mettere in gioco sulle ruote di GE e TO e a tutte per recupero

al 2° colpo AMBO 3-87 a tutte ( MI )
al 5° colpo AMBO 1-87 a tutte ( NA )
----------------------------------------------------------------------

Altro ES:

Estrazione del 13/10/16

Il numero 1 lo troviamo su GE e RM, su RM abbiamo 81 e 13 che sommati danno 04.
Il 04 lo troviamo su GE quindi i requisiti sono rispettati.

Il numero 1 diventa l'ambata

Ricaviamo gli abbinamenti,
04+81=85
04+13=17

Ambi da mettere in gioco sulle ruote di GE e RM e a tutte per recupero

al 1° colpo AMBATA 01 a GE
--------------------------------------------------------------------

Il gioco termina con l'uscita dell'ambata o del primo ambo, all'uscita di un ambo a tutte consiglio di portarlo avanti almeno per 10 colpo.

Ringrazio DJNOMADE per la trasformazione in script.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 791
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Numeri ripetuti e somme

Messaggio da DjNomade »

Controlla questo

Ciauzzzzzzzzz

Codice: Seleziona tutto

'https://www.pentambo.info/forum/viewtopic.php?p=31148&sid=a6803ae04d2bc256fb5fb9ea1a28a4ea#p31148

ColoreTesto 2 :Scrivi String(17,32)&" NUMERI RIPETUTI E SOMME  by TATOO64",1

Scrivi String(17,32)&" List. by DjNomade",1

ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(4)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",10))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" NUMERI RIPETUTI E SOMME  by TATOO64a   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
For p22=1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
amb=Fuori90(n1+n2)
n22=Estratto(es,r1,p22)
If n22<>n1 and n22<>n2 Then


For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
n3=Estratto(es,r2,p3)
For p33=1 To 5
n33=Estratto(es,r2,p33)'AMBATA

If n33<>n3 Then

If amb=n3 And  n22=n33  Then

n4=Fuori90(amb+n1)'abb
n5=Fuori90(amb+n2)'abb


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "    "&Format2(n3),1
Scrivi
Scrivi" NUMERO RIPETUTO  "&n22,1
Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0

am(1)=n33
ImpostaGiocata 1,am,ruote,posta,k 

am3(1)=n33
am3(2)=n4

ImpostaGiocata 2,am3,ruote,poste,k 
am3(1)=n33
am3(2)=n5

ImpostaGiocata 3,am3,ruote,poste,k 

am4(1)=n33
am4(2)=n4
am4(3)=n5

ImpostaGiocata 4,am4,ruota,poste2,k 
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 4236
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: Numeri ripetuti e somme

Messaggio da Tatoo64 »

Grazie Djnomade va benissimo, peccato che i risultati non sono buoni pensavo meglio, ma va in perdita nel lungo periodo.
Devo studiarlo meglio.

Allora, ti chiedo una modifica i numeri da abbinare per la sortedi AMBO devono essere i tre numeri della condizione.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 791
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: Numeri ripetuti e somme

Messaggio da DjNomade »

vedi ora

Codice: Seleziona tutto

'https://www.pentambo.info/forum/viewtopic.php?p=31148&sid=a6803ae04d2bc256fb5fb9ea1a28a4ea#p31148

ColoreTesto 2 :Scrivi String(17,32)&" NUMERI RIPETUTI E SOMME  by TATOO64",1

Scrivi String(17,32)&" List. by DjNomade",1

ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(4)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",10))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" NUMERI RIPETUTI E SOMME  by TATOO64a   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5
For p22=1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
amb=Fuori90(n1+n2)
n22=Estratto(es,r1,p22)
If n22<>n1 and n22<>n2 Then


For r2=1 To 12
If r2=11 Then r2=12
If r1<>r2 Then
For p3=1 To 5
n3=Estratto(es,r2,p3)
For p33=1 To 5
n33=Estratto(es,r2,p33)'AMBATA

If n33<>n3 Then

If amb=n3 And  n22=n33  Then

n4=Fuori90(amb+n1)'abb
n5=Fuori90(amb+n2)'abb


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "    "&Format2(n3),1
Scrivi
Scrivi" NUMERO RIPETUTO  "&n22,1
Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0

am(1)=n33
ImpostaGiocata 1,am,ruote,posta,k 

am3(1)=n33
am3(2)=n1

ImpostaGiocata 2,am3,ruote,poste,k 
am3(1)=n33
am3(2)=n2

ImpostaGiocata 3,am3,ruote,poste,k 
am3(1)=n33
am3(2)=n3

ImpostaGiocata 4,am3,ruote,poste,k 

am4(1)=n33
am4(2)=n1
am4(3)=n2
am4(4)=n3
ImpostaGiocata 5,am4,ruota,poste2,k 
Gioca es
End If
End If
Next
Next
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Rispondi