Novità

Per gli scripter un favore

Ciao rabberto mi spiace non poterti aiutare , ma spero che Joe91 o Mike58 leggano questo post perche solo loro sono in grado di aiutarti , e una combinazione particolare che non esce sempre e difficile da trovare , ottima per spunti di ciclometria servirebbe anche a me , spero ti aiutino , ciao.
 
Ciao rabberto
premetto un paio di cosette...
1 - nel file c'ho capito poco (prende 2 estrazioni ad 1 mese di distanza)
2 - il listato tecnicamente non è il massimo
3 - penso sia errato
4 - Lascio la palla a Joe o Mike in quanto molto più bravi di me
Ciao


Codice: 
' Se usate Spaziometria togliete la virgola e l' 1 dopo Gioca es
Sub Main()
	Dim ruote(10)
	Dim am(1)
	Dim posta(1)
	posta(1) = 1
	k = 10
	ini = 7000
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 9
			For r2 = r1 + 1 To 10
				For p1 = 1 To 4
					p2 = p1 + 1
					ruote(1) = r1 : ruote(2) = r2
					a = Estratto(es,r1,p1): b = Estratto(es,r1,p2)
					c = Estratto(es,r2,p1): d = Estratto(es,r2,p2)
					x1 = Distanza(a,b): x2 = Distanza(c,d)
					x3 = Distanza(a,c): x4 = Distanza(b,d)
					x5 = Distanza(a,d): x6 = Distanza(b,c)
					x7 = Fuori90(a + b): x8 = Fuori90(c + d)
					x9 = Fuori90(a + c): x10 = Fuori90(b + d)
					If x1 = x2 Then
						If x3 = x4 Then
							If x5 = x6 Then
								If x7 = x8 Then
									If x9 = x10 Then
										y = Distanza(x7,x9)
										If y = 45 Then
											j = Fuori90(x1 + x2 + x3 + x4 + x5 + x6)
											If j = 90 Then
												co = co + 1
												Scrivi String(99,"=") & " Caso n°" & co,1
												Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "   --->  " & Format2(a) & "-" & Format2(b)
												Scrivi DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & "   --->  " & Format2(c) & "-" & Format2(d)
												Scrivi
												Scrivi "distanze orizzontali    : " & Format2(x1) & " - " & Format2(x2)
												Scrivi "distanze Verticali      : " & Format2(x3) & " - " & Format2(x4)
												Scrivi "distanze diagonali      : " & Format2(x5) & " - " & Format2(x6) & " --> Distanza 45 "
												Scrivi "somme orizzontali       : " & Format2(x7) & " - " & Format2(x8)
												Scrivi "somme verticali         : " & Format2(x9) & " - " & Format2(x10)
												Scrivi "distanza tra le 2 somme : " & y
												Scrivi "Somma totale " & x1 & " + " & x2 & " + " & x3 & " + " & x4 & " + " & x5 & " + " & x6 & "  =  " & j & " [Fuori90]"
												Scrivi
												am(1) = d
												ImpostaGiocata 1,am,ruote,posta,k,1
												Gioca es,1
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				Next
			Next
		Next
		If ScriptInterrotto Then Exit For
	Next
	Scrivi:Scrivi:ScriviResoconto
End Sub
 
Ciao Black, Rabberto, da una prima lettura mi sembra che il listato sia corretto ed anche tecnicamente valido.

Ciao.
 
Ciao Blackmore ciao Mike58 infinite grazie per lo script e per l'iteressamento , per Blackmore tu dici : 1 - nel file c'ho capito poco (prende 2 estrazioni ad 1 mese di distanza) , non so darti una risposta perche' non lo so nemmeno io , penso che l'ideatore del metodo si riferisce al fatto che si possono trovare le condizioni di ricerca anche a distanza di tante estrazioni e non solo in quella di calcolo , come da esempio da lui fatto , pero' con carta e penna trovare certe condizioni e' un'impresa assai difficile , poi se Mike58 lo a controllato e dice che sendo lui il listato sia corretto mi fido di lui che come ben sai in materia di script e uno che sa il fatto suo , per il resto cerchero' di fare delle prove per vedere se tutto e ok , ancora grazie a tutti e due per tutto quello che fate , ciao.
 
Ciao a tutti
- è tantissimo tempo che non entro nel forum
- e anche tanto che non faccio un listato... ma oggi m'è preso la voglia di riprovarci..

- Concordo con Blackmore sui dubbi circa l'esempio presentato da Fabarri (ambi su ruote diverse a distanza di varie estrazioni)
- anch'io ho provato ad impostare la ricerca nella stessa estrazione, ma senza vincoli di isotopia (dato che l'esempio non lo era...), anche se l'ho evidenziata sull'output

- Dovrebbe essere ok ma se trovate imprecisioni o errori gentilmente segnalate...
- Ho scaricato due giorni fa spaziometria, dovrebbe andare anche lì..
- Un suggerimento: divertitevi a controllare se dei 4 elementi è davvero il 4° ad essere migliore...

Un saluto a tutti in particolare a Joe91

Codice: 
Sub main()
'0904_07 Quadrato Fab su unica estrazione x rabberto
'listato da Rosanna 01-07-2013

Dim es,r1,r2,p,q,n1,n2,m1,m2
Dim ru(2),nu(1),poste(1)

colpi=15   '<======= a vs scelta
poste(1)=1
ini=7000
fin=EstrazioneFin
'----------------------
For es= ini To fin
    For r1= 1 To 10
        For p= 1 To 4
            n1=Estratto(es,r1,p) : n2= Estratto(es,r1,p+1)
            For r2= r1+1 To 10
                For q= 1 To 4
                    m1=Estratto(es,r2,q) : m2= Estratto(es,r2,q+1)
                    If Distanza(n1,m2) =45  And Distanza(n2,m1) = 45 Then
                        If n1<>m1 And n2<>m2 Then
                            Scrivi "-----------------------------------------------------------"
                            Scrivi DataEstrazione(es)
                            Scrivi SiglaRuota(r1) & " " & Format2(n1) & "-" & Format2(n2)                    
                             Scrivi SiglaRuota(r2) & " " &  Format2(m1) & "-" & Format2(m2),0,0: ColoreTesto(2) : If p=q  Then Scrivi " Ambi isotopi <=======",1 Else Scrivi ""
                            ColoreTesto(1)                        
                             Scrivi " Dist diagonale " &  FormatSpace(Distanza(n1,m2),2,1) & " - " &  FormatSpace(Distanza(n2,m1),2,1)
                            Scrivi "  Dist orizzon.. " & FormatSpace(Distanza(n1,n2),2,1) & " - "  & FormatSpace(Distanza(m1,m2),2,1)
                             Scrivi " Dist verticale " & FormatSpace(Distanza(n1,m1),2,1) & "  - " & FormatSpace(Distanza(n2,m2),2,1)
                            Scrivi "somma delle distanze "& Fuori90(Distanza(n1,m2)+Distanza(n1,n2)+Distanza(n1,m1)),1
                            ColoreTesto(2)
                             Scrivi "Somma diagonale " &  FormatSpace(Fuori90(n1+m2),2,1) & " - " &  FormatSpace(Fuori90(n2+m1),2,1)
                            Scrivi  "Somma orizzon.. " & FormatSpace(Fuori90(n1+n2),2,1) & " - "  & FormatSpace(Fuori90(m1+m2),2,1)
                             Scrivi "Somma verticale " & FormatSpace(Fuori90(n1+m1),2,1) & "  - " & FormatSpace(Fuori90(n2+m2),2,1)
                            Scrivi "differenza delle somme OV" & Fuori90(90+(n1+n2)-(n1+m1)),1
                            Scrivi
                            ColoreTesto(0)
                        
                            ru(1)=r1 : ru(2)=r2
                            nu(1)=m2

                            ImpostaGiocata 1,nu,ru,poste,colpi,1
                            Gioca es
                            Scrivi
                        End If                        
                    End If
                Next
            Next                            
        Next
    Next
Next
ScriviResoconto
End Sub
 
Ciao Rosanna
ecco un altra Scripter con la "S" maiuscola da cui imparare :)
Grazie
 
Ciao Rosanna grazie per lo script e per il tempo che mi hai dedicato , controllero' il tutto per vedere se tutto e ok , secondo me sono delle buone condizioni per spunti su studi di ciclometria , grazie ancora , ciao.
 
Ciao Blackmore e Rosanna volevo chiedervi dando una prima occhiata veloce vedo che ci sono due output diversi e tutti e due i listati sembra che cerchino correttamente la condizione , ma il listato di Rosanna iniziando tutti e due dall'estrazione numero 7000 da piu' previsioni , come mai ?
Grazie ancora , ciao.
 
Ciao ancora ho capito lo script di Blackmore cerca solo posizioni isotope mentre quello di Rosanna cerca tutte le posizioni , grazie ancora , ciao.
 
Esatto ma ricontrollando un particolare, se non ricordo male, Fabarri usava scrivere i quadrati Fab in questo ordine

4° - 1°
3° - 2°

infatti nel suo primo esempio cita

80 - 15
60 - 35

ma nel caso reale citato i numeri non sono sortiti in quell'ordine..
infatti

82 - 18
37 - 63

sono un quadrato Fab solo se disposti
82-18
63-37

quindi il listato è da rivedere per fare in modo che peschi tutti i quadrati Fab e non solo quelli già così disposti sul tessuto estrazionale, tenendo fermo invece il 4° numero da giocare, intendendo quello realmente sortito.

Adesso sto facendo altro ma poi lo riprendo... intanto se avete osservazioni...

(Blackmore, ero una tapina ai tempi, figurati adesso... sono invecchiata e smemorata.. ;)
 
Ciao Rosanna,

sono molto contento di rileggerti.

Ricambio senz'altro il caro saluto ... di grande stima e riconoscenza.

:) Giorgio.
 
Domenico, l'esempio di Fabarri, quello del 1959, ha le distanze 45 in verticale (sul quadro), sono diagonali solo se le metti sul cerchio ciclometrico ovvero se disponi i 4 numeri in senso orario...partendo dalla seconda posizione del primo ambo. Per cui è lo stesso autore che ci dà l'input.
A sto punto io ho modificato il listato prendendole tutti i casi (anche con le 2 distanze 45 in orizzontale ). Sta poi a chi legge ed usa lo script fare le sue valutazioni e scremature, dando la propria personale interpretazione delle istruzioni di Fabarri, per testare la validità delle sue teorie, delle varianti e di altre idee che ne possano derivare.

Codice: 
Sub main()
'0904_07b Quadrato Fab su unica estrazione x rabberto
' trova tutti i quadrati Fab anche quelli non "ordinati" sul quadro estrazionale
'listato da Rosanna 01-07-2013

Dim es,r1,r2,p,q,n1,n2,m1,m2
Dim ru(2),nu(1),poste(1)

colpi=15
poste(1)=1
ini=8000
fin=EstrazioneFin
'----------------------
For es= ini To fin
    For r1= 1 To 10
        For p= 1 To 4
            n1=Estratto(es,r1,p) : n2= Estratto(es,r1,p+1)
            For r2= r1+1 To 10
                For q= 1 To 4
                    m1=Estratto(es,r2,q) : m2= Estratto(es,r2,q+1)
                    If Distanza(n1,m2) =45  And Distanza(n2,m1) = 45 Or Distanza(n1,m1)=45 And Distanza(n2,m2)=45 Or Distanza(n1,n2)=45 And Distanza(m1,m2)=45 then
                        If n1<>m1 And n2<>m2 Then
                        
                            Scrivi "-----------------------------------------------------------"
                            Scrivi DataEstrazione(es)
                            Scrivi SiglaRuota(r1) & " " & Format2(n1) & "-" & Format2(n2)                    
                            Scrivi SiglaRuota(r2) & " " & Format2(m1) & "-" & Format2(m2),0,0: ColoreTesto(2) : If p=q Then Scrivi " Ambi isotopi <=======",1 Else Scrivi ""
                            ColoreTesto(1)                        
                            Scrivi " Dist diagonale " & FormatSpace(Distanza(n1,m2),2,1) & " - " & FormatSpace(Distanza(n2,m1),2,1)
                            Scrivi " Dist orizzon.. " & FormatSpace(Distanza(n1,n2),2,1) & " - " & FormatSpace(Distanza(m1,m2),2,1)
                            Scrivi " Dist verticale " & FormatSpace(Distanza(n1,m1),2,1) & " - " & FormatSpace(Distanza(n2,m2),2,1)
                            ColoreTesto(2)
                            Scrivi "Somma diagonale " & FormatSpace(Fuori90(n1+m2),2,1) & " - " & FormatSpace(Fuori90(n2+m1),2,1)
                            Scrivi "Somma orizzon.. " & FormatSpace(Fuori90(n1+n2),2,1) & " - " & FormatSpace(Fuori90(m1+m2),2,1)
                            Scrivi "Somma verticale " & FormatSpace(Fuori90(n1+m1),2,1) & " - " & FormatSpace(Fuori90(n2+m2),2,1)
                            Scrivi
                            ColoreTesto(0)
                        
                            ru(1)=r1 : ru(2)=r2 : nu(1)=m2

                            ImpostaGiocata 1,nu,ru,poste,colpi,1
                            Gioca es
                            Scrivi
                        End If                        
                    End If                    
                Next
            Next                            
        Next
    Next
Next
ScriviResoconto
End Sub

Ciao tutti.
 
Ciao Rosanna grazie per la tua spiegazione e per la correzione , questi sono quadrati particolari tutti da studiare , spero possa essere utile a tanti che studiano la ciclometria , grazie ancora , ciao.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto