nuove tabelle

[vincenzo4221]

Ciao ragazzi , in passato avevo trovato uno script che oggi non trovo più.
DATA una distanza o differenza da 1 a 89 , lo script elabora le coppie che si formano con tale distanza , queste si possono inserire in un qualsiasi programma nelle tabelle delle formazioni ordinate , è possibile segnalarmi dove si trova? o magari rifarlo?
La stessa cosa ,andrebbe bene anche per la somma da 2 a 179.
grazie vincenzo

 

[LuigiB]

non ho idea di che formato necessitino i vari programmi di cui parli (ipotizzo i lclassico csv con i dati separati da ; ) ma lo script è di una banalita estrema.
Eventualmente modificatelo

Option Explicit
Sub Main

	Dim k,e,s
	ReDim aNumeri(90)
	Dim aColonne
	Dim nDist 
	 
	' inizializzo i numeri da sviluppare in questo caso 90
	
	nDist = Int(InputBox("Inserire distanza" )) 
	
	For k = 1 To 90
		aNumeri(k) =   k
	Next
	' sviluppo il sistema valorizzando le colonne sviluppate
	aColonne = SviluppoIntegrale(aNumeri,2)
	 
	For k = 1 To UBound(aColonne)
		If Distanza ( aColonne (k,1) ,aColonne (k,2)) = nDist  Then
			 s = ""
			' ciclo per leggere la colonna k
			For e = 1 To 2
				s = s & Format2(aColonne(k,e)) & ";"
			Next
			' tolgo l'ultimo ";"

			s = Left(s,Len(s) - 1)
			' scrive in output
			Call Scrivi(s)
		End If
		
	Next
End Sub

 

[vincenzo4221]

GRAZIE , si potrebbe modificare , per far in modo che possa elaborare anche le "differenze" (non solo distanza ciclometrica) che vanno da 46 ad 89 ? e ti spiego anche il perchè ,
attualmente la differenza 69 è in ritardo sulle coppie per estratto da 98 estrni su uno storico di 89 estr.ni nella ruota di torino , ora tra le coppie c'è anche la famosa coppia in ritardo in sincronismo continuo 07 28 che ha per l'appunto differenza 69 (e distanza cilometrica 21 , però non sono la stessa cosa) ; inserendo le coppie giuste in un qualsiasi programma con le tabelle ordinate , anche spaziometria , posso avere il quadro della situazione della coppia rispetto alle altre con uguale differenza con relativi RP1, RP2 ecc. importantissimo per valutare con correttezza la coppia in oggetto.
(la distanza ciclometrica 21 ha 90 coppie ed ha un ritardo su torino di 10 estrni su uno storico di 21 estrni, mentre la differenza 69 ha 21 coppie con un ritardo attuale di 98 estrni su 89 , quindi la cosa e differente-)

Inoltre è possibile modificarlo anche per le somme da 02 ad 189. Io non ne sono capace , ma posso dare una mano con i pronostici o con metodologie di mia ideazione, attualmente mi vanno benissimo , (vedi miei ultimi post), ciao vincenzo

 

[LuigiB]

ciao è cosi banale fare questo tipo di modifiche che altri giocatori interessati certamente ti aiuteranno ..

 

[vincenzo4221]

speremo

 

[LuigiB]

giusto per farti capire la banalita , nel caso tu voglia la differenza dei due numeri bastera sostituirenell'unica linea dove vedi scritto "Distanza" con Differenza.

 

[vincenzo4221]

bene ,tanK, proviamoci

 

[vincenzo4221]

e per la somma?

 

[Mike58]

Vincenzo ti ho messo i 4 codici che puoi attivare o disattivare a secondo delle tue ricerche, togliendo l'apice
con in + i dati statistici quali freq ritardi e storici.

Sub Main
	Dim k,e,s
	ReDim aNumeri(90),nu(2),ru(1)
	Dim aColonne
	Dim nDist
	' inizializzo i numeri da sviluppare in questo caso 90
	r = InputBox("Quale RUOTA",,1)
	nDist = CInt(InputBox("Inserire distanza,differenza,somma",,21))
	Scrivi "Analisi sulla ruota di... " & NomeRuota(r),1
	Scrivi "Analisi di ricerca " & nDist,1
	Scrivi " Num " & " freq " & " Rit  " & " Sto " & " incr "
	Scrivi "---- ----- ----- ----- -----"
	For k = 1 To 90
		aNumeri(k) = k
	Next
	' sviluppo il sistema valorizzando le colonne sviluppate
	aColonne = SviluppoIntegrale(aNumeri,2)
	For k = 1 To UBound(aColonne)
		nu(1) = aColonne(k,1)
		nu(2) = aColonne(k,2)
		ru(1) = r
		If Differenza(aColonne(k,1),aColonne(k,2)) = nDist Then ' differenza
		'If Distanza(aColonne(k,1),aColonne(k,2)) = nDist Then ' distanza
		'If (aColonne(k,1) + aColonne(k,2)) = nDist Then ' somma senza fuori 90
		'If Fuori90(aColonne(k,1) + aColonne(k,2)) = nDist Then ' somma con fuori 90

			kk = kk + 1
			Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,EstrazioneIni,EstrazioneFin)
			s = ""
			' ciclo per leggere la colonna k
			For e = 1 To 2
				s = s & Format2(aColonne(k,e)) & ";"
			Next
			' tolgo l'ultimo ";"
			s = Left(s,Len(s) - 1)
			' scrive in output
			If rit = max Then
				ColoreTesto 1
				Call Scrivi(s & "  " & FormatSpace(fre,4) & "  " & FormatSpace(rit,4) & "  " & FormatSpace(max,4) & "  " & Incr,1,1,2,4,2)
			Else
				ColoreTesto 0
				Call Scrivi(s & "  " & FormatSpace(fre,4) & "  " & FormatSpace(rit,4) & "  " & FormatSpace(max,4) & "  " & Incr)
			End If
		End If
	Next
	Scrivi
	Scrivi "Casi Trovati " & kk,1
End Sub

 

[boris]

buongiorno,
mi fate sapere perfavore come si
può usare il Vs. script e memorizzarlo ?
premetti che ho installato spaziometria di luigi

saluti

 

[80Sete]

Ciao Boris, vedi se combini con l'immagine che avevo già inserito a suo tempo, dopo aver aperto Spaziometria, seleziona TUTTO lo script qui sopra, e fai "COPIA" nella voce in ROSSO 2... dopo aver cancellato le 3 righe...INCOLLA lo script (Selezionato e fatto Copia) quindi trovi il resto qui sotto.
fammi sapere se combini. ciao

 

[vincenzo4221]

Bravissimo e generosissimo MIKE , un mondo di grazie e vado subito a provarlo , ciao , quando vuoi , a disposizione di cuore , vincenxo

 

[boris]

grazie 80sete,
provato ora .......dopo aver fatto copia
schiacciando su esegui skript
mi da errore skript 13
dove sbaglio?
saluti