somme verticali

[kjo]

A rieccomi con un altra delle mie domande

So sommare i numeri di una ruota in orrizontale e usarla per vari scopi.

Ma in verticale come faccio ?

Esempio : per sommare tutti gli estratti in 3° posizione del mese di agosto sulla ruota di bari, o di un altro mese, sempre partendo dalla prima estrazione mese.

Come si fa.

Ps : non mi interessa il fuori 90, voglio proprio quella somma totale per lavorarla in altro modo.

C'ho provato, ma mi viene un pastrocchio orrendo, non so determinare con esattezza la cosa.

Insomma : HELP !!!!


-------------------------------------------------------------------

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 8000
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1


s =(SOMMA IN VERTICALE DI TUTTI I 3° ESTRATTI DEL MESE DI AGOSTO)



n(1) = (XX)
ImpostaGiocata 1,n,ruote,posta,6,1
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Kjo ***** ",1,3,0
ScriviResoconto
End Sub

----------------------------------------------------

Grazie in anticipo


Ciao.



Frank

 

[LuigiB]

Ciao !

	pos = 1
	
	For k = Inizio To fine
		somma =0 
		For ruota = 1 To 10
			somma = somma + Estratto(k,ruota,pos) 
		Next
		
		' ora somma contiene la somma degli estratti in posizione pos
	Next

 

[Roby]

quote:Originally posted by LuigiB


Ciao !

	pos = 1
	
	For k = Inizio To fine
		somma =0 
		For ruota = 1 To 10
			somma = somma + Estratto(k,ruota,pos) 
		Next
		
		' ora somma contiene la somma degli estratti in posizione pos
	Next

Ciao Luigi grazie per la risposta, ci sto provando adesso ma sono in difficolta,
ti metto lo script (con aggiunto il tuo codice) e in basso ti spiego quello che vorrei che faccia.
--------------------------------------------------------------------

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 8420
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1

##############################################

pos = 1
For k = Inizio To fine
somma = 0
For ruota = 1 To 10
somma = somma + Estratto(k,ruota,pos)
Next
' ora somma contiene la somma degli estratti in posizione pos
Next

##############################################

'sv = (somma verticale)

'Qui inserisco i mie calcoli

'n(1) = (Ambata)
ImpostaGiocata 1,n,ruote,posta,6,1
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Kjo ***** ",1,3,0
ScriviResoconto
End Sub

----------------------------------------------------------------


Io voglio la SOMMA TOTALE IN VERTICALE DI TUTTI gli ESTRATTI in una stessa posizione di un mese su una sola ruota.

con piena libertà di scelta della singola ruota e della posizione dell'estratto.(modificando il codice, a mia cura).

Una volta ricavata tale somma, la vorrei usare per farci dei calcoli.

Esempio del metodo

Ruota di bari.

Mese di settembre.

Somma di tutti gli estratti in 3° posizione (SOMMA VERTICALE).(Sv = somma verticale).

Poi fare i calcoli con questa somma ( a mia cura).

La previsione ricavabile nel mese di Settembre, la sì potrà mettere in gioco solo dalla prima estrazione di Ottobre.

Così per i calcoli su il mese di Ottobre, da mettersi in gioco da Novembre.


Grazie da un allievo fuori corso.



Frank

 

[topeiro]

quote:Originally posted by LuigiB


Ciao !

	pos = 1
	
	For k = Inizio To fine
		somma =0 
		For ruota = 1 To 10
			somma = somma + Estratto(k,ruota,pos) 

Ciao scusami ma sei io peovo a copiare queste istruzioni per uno scipt di un programma mi dà errore linea 4
cosa vuol dire?
scusa la domanda banale
		Next
		
		' ora somma contiene la somma degli estratti in posizione pos
	Next

 

[Roby]

quote:Originally posted by kjo

quote:Originally posted by LuigiB


Ciao !

	pos = 1
	
	For k = Inizio To fine
		somma =0 
		For ruota = 1 To 10
			somma = somma + Estratto(k,ruota,pos) 
		Next
		
		' ora somma contiene la somma degli estratti in posizione pos
	Next

Ciao Luigi grazie per la risposta, ci sto provando adesso ma sono in difficolta,
ti metto lo script (con aggiunto il tuo codice) e in basso ti spiego quello che vorrei che faccia.
--------------------------------------------------------------------

Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 8420
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1

##############################################

pos = 1
For k = Inizio To fine
somma = 0
For ruota = 1 To 10
somma = somma + Estratto(k,ruota,pos)
Next
' ora somma contiene la somma degli estratti in posizione pos
Next

##############################################

'sv = (somma verticale)

'Qui inserisco i mie calcoli

'n(1) = (Ambata)
ImpostaGiocata 1,n,ruote,posta,6,1
Gioca es
End If
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Kjo ***** ",1,3,0
ScriviResoconto
End Sub

----------------------------------------------------------------


Io voglio la SOMMA TOTALE IN VERTICALE DI TUTTI gli ESTRATTI in una stessa posizione di un mese su una sola ruota.

con piena libertà di scelta della singola ruota e della posizione dell'estratto.(modificando il codice, a mia cura).

Una volta ricavata tale somma, la vorrei usare per farci dei calcoli.

Esempio del metodo

Ruota di bari.

Mese di settembre.

Somma di tutti gli estratti in 3° posizione (SOMMA VERTICALE).(Sv = somma verticale).

Poi fare i calcoli con questa somma ( a mia cura).

La previsione ricavabile nel mese di Settembre, la sì potrà mettere in gioco solo dalla prima estrazione di Ottobre.

Così per i calcoli su il mese di Ottobre, da mettersi in gioco da Novembre.


Grazie da un allievo fuori corso.



Frank

Ciao Luigi, quelle righe trovano la somma in orizzontale sulle 10 ruote, io vorrei la somma in verticale su un sola ruota...




Frank

 

[LuigiB]

non ti avevo ancora risposto perche mi sembrava davvero troppo semplice
scusa le ruote vengono gestite con il ciclo

for ruota = 1 to 10

next

1 e 10 sono i limiti entro cui si muove ruota quindi fai finta che
volessi solo la ruota di cagliari che la 2 come dovresti modificare ?

 

[Roby]

quote:Originally posted by LuigiB

non ti avevo ancora risposto perche mi sembrava davvero troppo semplice
scusa le ruote vengono gestite con il ciclo

for ruota = 1 to 10

next

1 e 10 sono i limiti entro cui si muove ruota quindi fai finta che
volessi solo la ruota di cagliari che la 2 come dovresti modificare ?

Ciao Luigi, ho capito (For ruota = 1 to 10) e ho messo (For ruota =1 to 1) per quella di bari.

Ma non fa i calcoli giusti.

Avere la somma di tutti gli estratti in verticale della prima posizione, in un mese, ruota di bari.

La somma mese di Ottobre è 589, che fuori 90 mi da : 49


Lo script invece mi da sempre risultato 90, come mai ?


Sub Main()
Dim ruote(1)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 8420
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then


pos = 1
For k = Inizio To fine
somma = 0
For ruota = 1 To 1
somma = somma + Estratto(k,ruota,pos)
Next
' ora somma contiene la somma degli estratti in posizione pos
Next


n(1) = Fuori90(somma)' e solo un esempio
ImpostaGiocata 1,n,ruote,posta,6,1
Gioca es
End If
Next
Scrivi
ScriviResoconto
End Sub


ciao


Frank

 

[LuigiB]

se noti ci sono 2 cicli for nidificati
uno For K che gestisce le estrazioni
l'altro For Ruota che gestiscel le ruote
ora noterai che tra il for k e e il for Ruota
c'è l'istruzione somma =0
questo vuol dire che ad ogni ciclo di k
ovvero ad ogni estrazione somma torna = 0
quindi per avere la somma totale di un certo numero di estrazioni
tanto per cominciare devi spostare l'istruzione somma = 0 da un'altra parte ...
Ciao !

 

[Joe91]

Ciao Luigi,

scusa se mi permetto ma, prima ancora,

vedo una errata duplicazione del ciclo For-Next

attraverso il quale si vovrebbe controllare il "N° di estrazione"

Quindi, a parer mio, sarebbe opportuno eliminare uno di questi

due cicli decidendo se usare come variabile di controllo "Es" oppure "K".

Cordiali saluti.

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[Roby]

Pensavo fosse una cosa semplice da fare...

Purtroppo finora non ho letto nessun script che lo faccia.

Ho provato a spostare l'istruzione ( somma = 0 ), ma dovunque la metta non cambia nulla.

lo script lo fatto lo stesso ma troppo lungo, prendendo ogni singolo indice estrazione e la pos estratto (un po arzigogolato) ma i calcoli li fa giusti, ma solo se inserisco a mano l'id di inizio e l'id fine estrazioni in modo esatto per determinare tutte le estrazioni di quel mese.
Ma sono cosciente che questa non è la via piu giusta per fare le cose

ora ho mal di testa[xx(]




Frank

 

[LuigiB]

ciao Questo calcola la somma degli estratti in posizione pos
relativi all'ultimo mese di una data ruota

Option Explicit
Sub Main
	Dim ruota
	Dim Pos
	Dim k
	Dim Somma
	ruota = ScegliRuota
	Pos = CInt(InputBox("Posizione da 1 a 5","richiesta posizione",1))
	If ruota > 0 And Pos > 0 And Pos <= 5 Then
		For k =EstrazioneFin To 1 Step - 1
			Somma = Somma + Estratto(k,ruota,Pos)
			If IndiceMensile(k) = 1 Then Exit For
		Next
		Call Scrivi("La somma è " & Somma)
	End If
End Sub

 

[Roby]

Buongiorno a Luigi e a joe91.

Grazie di tutto, da solo sarebbe stato impossibile con le mie misere conoscenze, grazie anche perchè il codice che postate serve anche per capire come fare alcuni ragionamenti.

Adesso però non ho finito di rompervi le [8].

Ho messo insieme il codice di luigi con calcoli miei :

----------------------------------------

Sub Main
Dim ruota
Dim Pos
Dim k
Dim Somma
Dim posta(1)
Dim n(1)
posta(1) = 1
ruota = ScegliRuota
Pos = CInt(InputBox("Posizione da 1 a 5","richiesta posizione",1))
If ruota > 0 And Pos > 0 And Pos <= 5 Then
For k = EstrazioneFin To 1 Step - 1
Somma = Somma + Estratto(k,ruota,Pos)
If IndiceMensile(k) = 1 Then Exit For
Next
co = co + 1
w = Fuori90(Somma)'questo calcolo è solo un esempio per far girare lo script.
n(1) =(w)
Call Scrivi("La somma è " & Somma)
Scrivi("il numero in gioco è " & w)
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
ScriviResoconto
End If
End Sub


----------------------------------------------------


HO UN METODO PER RICAVARE DEI NUMERI, LO SCRIPT SERVIVA PER RICAVARE LA SOMMA DI TUTTI GLI ESTRATTI DEL MESE IN UNA CERTA POSIZIONE.
ADESSO LA SOMMA MI SERVE PER POTERLA SFRUTTARE CON DEI CALCOLI.

IL METODO IN QUESTIONE RICAVA DEI NUMERI ALL'ULTIMA ESTRAZIONE DEL MESE, E METTE IN GIOCO LA PREVISIONE DALLA PRIMA ESTRAZIONE SUCCESSIVA.

ADESSO NELLO SCRIPT COME FACCIO AD IMPOSTARE LA GIOCATA ???

Grazie mille




Frank

 

[Roby]

La mia prima previsione lo inserita qui :

Non male per un principiante......



http://forum.lottoced.com/topic.asp?TOPIC_ID=139206




Frank

 

[LuigiB]

ciao Kj , sei riuscito con l'ultimo quesito che avevi a trovare una soluzione per l'impostagiocata ?

 

[Roby]

quote:Originally posted by LuigiB

ciao Kj , sei riuscito con l'ultimo quesito che avevi a trovare una soluzione per l'impostagiocata ?

Ciao Luigi, No mi sono arenato, lo script mi serviva per verificare a ritroso come si comportava il metodo (anche per provarlo su altre ruote), continuo a fare i calcoli con excel anche se ho i miei limiti anche li.[xx(]

Ciao, grazie per la presenza



Frank

 

[Joe91]

'Somma Mensile degli Estratti in Posizione e Ruota. V.1.0 By Joe91 Alba, 04/11/2011
'Applicazione della Funzione "IsUltimaDelMese" del grande LuigiB !!! 

'Richiesta di Kjo 

'http://forum.lottoced.com/topic.asp?whichpage=0.56&TOPIC_ID=139209#1094972 

Sub Main
	 
	P=1 : R=1 'Primo Estratto di Bari

	For Es = EstrazioneFin -165 To EstrazioneFin  'Ultimo anno 
		If IndiceMensile (Es) =1 Then Ini= Es : Exit For 'Ricerca l'inizio del mese. 
	Next  

       Call Scrivi (P & "° Estratto di " & NomeRuota (R),True) :Call Scrivi("")
	For k = Ini  To EstrazioneFin

		If IndiceMensile (k) =1 Then Somma = 0 'Azzera al'inizio del mese
		E = Estratto (K,R,P)  'Estratto (Estrazione,Ruota,Posizione) 
		Somma = Somma + E 'Somma degli estratti 

			Call Scrivi (DataEstrazione (k)&"  "& Format2(E)) ' Visualizzazione Estratti x Debug     

		If IsUltimaDelMese  (k) Then 'All'ultima del Mese 

			ColoreTesto 2
			Call Scrivi ( "TOT. MESE" & FormatSpace (Somma,5,1), True ) 'Visualizza il Totale 
			ColoreTesto 0

			'ImpostaGiocata 

                        'Gioca K 
		
		End If 		

	Next 'Prossima estrazione 
		
End Sub



Function IsUltimaDelMese (idEstr)

	Dim sData , sDataNew
	Dim idGiornoSettimana 
	Dim gMancanti 
	Dim nMeseCorr
	
	sData = Replace(DataEstrazione(idEstr) , "." , "/")
	nMeseCorr = Month(sData) 
	idGiornoSettimana = WeekDay (sData)
	
	Select Case idGiornoSettimana
	
	Case vbTuesday ' martedi
		gMancanti =2
	Case vbThursday ' giovedi
		gMancanti = 2
	Case vbSaturday ' sabato
		gMancanti = 3
	End Select
	
	sDataNew = DateAdd( "d" , gMancanti ,sData)
	
	If Month (sDataNew) <> nMeseCorr Then 
		IsUltimaDelMese = True 
	Else
		IsUltimaDelMese = False 
	End If 
	
End Function

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[LuigiB]

Perfetto Joe, chi ne sa di piu fa sempre bene ad intervenire !
Ciao !

 

[Roby]

Un sentito grazie a LuigiB e Joe91

Eccovi lo script con tutte le modifiche e i calcoli fatti da me.

Nell'ultimo anno si è comportato bene, ma se si va indietro nel tempo gli esiti negativi non mancano,(sarebbe stato troppo bello se non c'è ne fossero stati).

Esso è solo per Ambata, comunque sempre migliorabile, ma se qualcuno con il prurito sui polpastrelli, avesse voglia di strofinarseli sulla tastiera per trovare degli accoppiamenti validi per Ambo, farebbe felice non solo me, ma tutti.


---------------------------------------------------------------

'Metodologia ideata da Frankjo. Versione Ambata
'Ringraziamenti per
'Somma Mensile degli Estratti in Posizione e Ruota. V.1.0 By Joe91
'Applicazione della Funzione "IsUltimaDelMese" del grande LuigiB !!!
'Ideazione e modifiche sull'algoritmo di calcolo by Frankjo
'Il metodo ricava due ambate su una ruota principale Cagliari
'La seconda ruota opzionale è Milano
'sarebbe bello sviluppare una versione ambo del metodo
'Il metodo è aperto a migliorie da parte di chi se la sente
Sub Main
Dim ruote(1)'mettere 2 per giocare su due ruote
Dim posta(1)'Ambata
Dim n(2)'due numeri in gioco
ruote(1) = 2'prima ruota di gioco cagliari ---- metti 5 per giocare solo su milano
'ruote(2) = 5' togliere l'apice iniziale per la seconda ruota di gioco milano --- facoltativa
posta(1) = 1
P1 = 1 'Primo estratto di Bari
P5 = 5 'quinto estratto di Bari
R1 = 1 'Ruota di Bari
For Es = EstrazioneFin - 165 To EstrazioneFin 'Ultimo anno
If IndiceMensile(Es) = 1 Then
Ini = Es
Exit For 'Ricerca l'inizio del mese.
End If
Next
'Call Scrivi(P1 & "° Estratto di " & NomeRuota(R1),True)
'Call Scrivi("")
For k = Ini To EstrazioneFin
If IndiceMensile(k) = 1 Then SommaA = 0 'Azzera al'inizio del mese
If IndiceMensile(k) = 1 Then SommaB = 0 'Azzera al'inizio del mese
E = Estratto(K,R1,P1) 'Estratto (Estrazione,Ruota,Posizione)
F = Estratto(K,R1,P5) 'Estratto (Estrazione,Ruota,Posizione)
SommaA = SommaA + E 'Somma degli estratti in prima posizione
SommaB = SommaB + F 'Somma degli estratti in quinta posizione
'Call Scrivi(DataEstrazione(k) & " " & Format2(E)) ' Visualizzazione Estratti x Debug
If IsUltimaDelMese(k) Then 'All'ultima del Mese
'ColoreTesto 2
'Call Scrivi("TOT. MESE" & FormatSpace(SommaA,5,1),True) 'Visualizza il Totale
ColoreTesto 0
sm1 =(5557 - SommaA)' un numero magico
sm2 =(5557 - SommaB)' un numero magico
w = Fuori90(sm1)
y = Fuori90(sm2)
n(1) = w'prima ambata
n(2) = y'seconda ambata
ImpostaGiocata 1,n,ruote,posta,7,1'max per 9 - 12 colpi facoltativo
Gioca K
End If
Next 'Prossima estrazione
Scrivi
ScriviResoconto
End Sub
Function IsUltimaDelMese(idEstr)
Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr
sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)
Select Case idGiornoSettimana
Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select
sDataNew = DateAdd("d",gMancanti,sData)
If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If
End Function

------------------------------------------------------


Ciao


Frank

 

[aldino]

Buon weekend a tutti Voi

Raccolgo l'invito per cercare abbinamenti e vi propongo questo metodo che possiamo chiamare "degli abbinamenti dinamici"
ecco un'esempio usando il soprastante listato scuola :

Estrazione generatrice del pronostico 08424 [104 - 30/08/2011]
G 0001
Numeri in gioco : 03.22 su CA per Estratto
N. [03.22 ] [CA] [.. .. .. .. ..] C. 1 08425 [105 - 01/09/2011]
N. [03.22 ] [CA] [.. .. .. .. ..] C. 2 08426 [106 - 03/09/2011]
N. [03.22 ] [CA] [.. .. .. .. ..] C. 3 08427 [107 - 06/09/2011]
V N. [03.22 ] [CA] [.. .. .. 22 ..] C. 4 Estratto 08428 [108 - 08/09/2011]

se andiamo a controllare la cinquina uscita Ca: 28 77 40 22 21

oltre al 22 abbiamo :21 (-1):40 (+18):77 (+55):28(+6)
se facciamo la somma algebrica abbiamo 78 che useremo come abbinamento per la prossima previsione ; che e':

Estrazione generatrice del pronostico 08437 [117 - 29/09/2011]
G 0001
Numeri in gioco : 49.30 su CA per Estratto

da inserire giocata ca 49-30-78 x ambo/t

N. [49.30 ] [CA] [.. .. .. .. ..] C. 1 08438 [118 - 01/10/2011]
V N. [49.30 ] [CA] [.. .. .. .. 49] C. 2 Estratto 08439 [119 - 04/10/2011]

Esito mar 04 ott 2011 - Ca 78 84 52 55 49 -- ambo in terzina 49-78

se andiamo a controllare la cinquina uscita a Ca:

oltre al 49 abbiamo 78(+29):84(+35):52(+3):55(+6)

se facciamo la somma algebrica delle diff.abbiamo 73

che abbineremo alla prossima previsione ...e cosi via

ovviamente ci sara' poi da tener conto del piu o meno uno

ma eventualmente lo vedremo in seguito

buon proseguimento

un saluto a tutti da aldino

 

[Roby]

Ciao aldino, grazie dell'intervento, almeno è un inizio.
Hai visto che con lo script si ha possibilità di giocare o a cagliari o a milano o a tutte due le ruote.
Delle due ambate, la seconda è quella che conta molte più presenze, almeno per l'ultimo anno.
L'ultima previsione 18-72 è già uscita su milano con il 72 al 2°colpo,
resta da vedere che cosa fa a cagliari a questo punto.
ciao



Frank