Richiesta script triangoli

Rispondi
Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Richiesta script triangoli

Messaggio da SeeLe8 » 30/03/2014, 21:48

Eccomi qui ancora...

Avrei bisogno di uno script che mi ricerchi queste condizioni

Esempio:

4 febbraio

MI 09.64.46.01.52
NA 30.40.08.04.50

i tre numeri messi a triangolo formano un triangolo vero e proprio se guardiamo le distanze

30-8 = dist 22 (base)
30-64 = dist 34 (lato)
64-8 = dist 34 (lato)

l'ambata sarà il diametrale della "punta" 64 = 19
da mettere in gioco sulla ruota consecutiva di Palermo semplice e determinata in 2° posizione

il triangolo può essere trovato anche in altre posizioni 2°-3°-4° o 3°4°5°

se la condizione si trova tra BA e CA come nel caso del 13 febbraio

BA 40.47.62.74.48
CA 53.51.29.70.68

l'ambata 6 si gioca sulla Nazionale
(e vicecersa... se la condizione si trova tra VE e NAZ si gioca su BA)


Spero di aver spiegato bene.
Grazie 1000!!!

nel frattempo cerco abbinamenti per ambo
:abb:
Ultima modifica di SeeLe8 il 30/03/2014, 23:00, modificato 1 volta in totale.
Immagine

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

Re: Richiesta script triangoli

Messaggio da DjNomade » 01/04/2014, 22:15

Controlla questo.......ciauz

Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=23&p=23769#p23769
ColoreTesto 2
Scrivi String(37,32) & "triangoli  X SeeLe8",1
Scrivi String(45,32) & "by DjNomade",1
ColoreTesto 0
Sub Main()
	Dim nu1(10),nu2(10),nu3(10),nu4(10)
	Dim ruote(10),ruota(10)
	Dim poste(5),poste1(5),poste2(5),posta(10)
	:
	poste(2) = 1
	poste1(2) = 1
	poste2(2) = 1
	poste2(3) = 1
	fin = EstrazioneFin
	ini = fin - 80
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 12
             If r1 = 11 Then r1 = 12
			For p1 = 1 To 5
				
					n1 = Estratto(es,r1,p1)
					
					For r2 =  1 To 11
						If r2 = 11 Then r2 = 12
						For p3 = 1 To 4
							For p4 = p3 + 1 To 5
								If   (p1 = p3+1 And p1 = p4-1) Then
								n3 = Estratto(es,r2,p3)
								n4 = Estratto(es,r2,p4)
								n5 = Fuori90(n1 + n3)
								n6 = Fuori90(n2 + n4)
								n7 = Distanza(n1,n3)
								n8 = Distanza(n1,n4)
								n9 = Distanza(n3,n4)
								
								
								If  n7 = n8   And (p1 = p3+1 And p1 = p4-1) And Distanza(r1,r2)=1 Then
									casi = casi + 1
									Scrivi
									Scrivi String(75,"=") & " caso n° " &(casi)
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
									" >   < " & Format2(n1) & " >"
									Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
									" > < " & Format2(n3) & "." & Format2(n4) & " >"
									Scrivi  " DISTANZA LATO  "  & Format2(n1) & " - "& Format2(n3) & " = "& Format2(n7) 
									Scrivi  " DISTANZA LATO  "  & Format2(n1) & " - "& Format2(n4) & " = "& Format2(n8) 
									Scrivi  " DISTANZA  BASE "  & Format2(n3) & " - "& Format2(n4) & " = "& Format2(n9) 
                                                     If r1<r2 Then r3=r2+1
                                                     If r1<r2 And r2=10  Then r3=12
                                                     If r1<r2 And r2=12  Then r3=1
                                                     If r1>r2 Then r3=r2-1
                                                     'If r1>r2 And r1=1  Then r3=12
                                                     If r1>r2 And r2=1  Then r3=12
                                                     If r1>r2 And r2=10  Then r3=1
                                                     If r1>r2 And r1=12 And r2=1 Then r3=10
									ruote(1) = r3

									k = 10
									co = 0
									a = Diametrale(n1)
									b = n9
									c = n8
									nu1(1) = a'  1°capogioco
                                                      Erase posta
                                                      posta(1) = 1
									posta(p1+5) = 1
									ImpostaGiocata 1,nu1,ruote,posta,k
									
									nu2(1) = a'  1°capogioco
									nu2(2) = Vert(b)'  2°capogioco
									'ImpostaGiocata 2,nu2,ruote,poste,k							
									Gioca es
								End If
								End If
							Next
						Next
					Next
				Next
			Next
		Next

	ScriviResoconto
	ColoreTesto 2
Scrivi String(37,32) & "triangoli  X SeeLe8",1
	Scrivi String(45,32) & "by DjNomade",1
	ColoreTesto 0
End Sub

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script triangoli

Messaggio da SeeLe8 » 02/04/2014, 0:06

GRAZIE MILLE DJ!!

:abb: :abb:
Immagine

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

Re: Richiesta script triangoli

Messaggio da Tatoo64 » 02/04/2014, 22:34

Seele io ho provato a cercare degli abbinamenti buoni e ho notato che...... sommando i lati e la base si ottengono buoni risultati:

gio 06.02.2014 < Ba 89.68.56.03.53 > < 03 >
gio 06.02.2014 < Ca 64.76.60.10.36 > < 60.36 >
DISTANZA LATO 03 - 60 = 33
DISTANZA LATO 03 - 36 = 33
DISTANZA BASE 60 - 36 = 24

03+03 = 06
03+60 = 63
03+03+60 = 66

gli abbinamenti sono 06-63-66 / ambata 48 , al quarto colpo a GE esce 06-66-48 TERNO
============

sab 08.02.2014 < Mi 53.71.56.20.12 > < 20 >
sab 08.02.2014 < Ge 89.60.68.24.62 > < 68.62 >
DISTANZA LATO 20 - 68 = 42
DISTANZA LATO 20 - 62 = 42
DISTANZA BASE 68 - 62 = 06

gli abbinamenti sono 40-68-18 / ambata 65, al primo colpo a MI esce 65-40 e il +/-1 frega il TERNO con il17

ora divertitevi anche voi a controllare
:)
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
SeeLe8
Messaggi: 772
Iscritto il: 23/08/2012, 15:55

Re: Richiesta script triangoli

Messaggio da SeeLe8 » 02/04/2014, 23:38

bravo Tatoo!
purtroppo sono riuscita a modificare il listato solo in parte
e mi fa vedere solo gli esiti a ruota...

funziona anche con i diametrali degli altri due, però gli ambi sarebbero da giocare anche a tt
esempio:

martedì, ott 15 2013 < BA 49.69.79.58.23 >---< 58 >
martedì, ott 15 2013 < CA 90.78.04.89.22 > < 04.22 >

l'ambata è il diametrale del 58
abbinamenti: diametrale di 4 e 22
13.49 - 13.67
3° colpo FI ambo 13.67
Immagine

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

Re: Richiesta script triangoli

Messaggio da Tatoo64 » 03/04/2014, 22:01

e si purtroppo gli ambi escono a tutte................ provo a vedere cosa tirare fuori per la ruota fissa...
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti