Ambo comune in 10 cicli

fillotto · 3 Novembre 2011

Lanciando questo script (così come sta) si vede nell'output che i 10 num proposti danno sempre almeno un ambo nei 10 cicli presi in
considerazione , niente di eccezionale, i 2 adattatori denominati simpaticamente "CIP & CIOP" vanno addizionati NON all'estrazioni
legate agli indici mensili, ma alle 10 estrazioni con "STEP 9"
"CIP & CIOP" io li trovo con un programmino di Excel e allora CHIEDO:
come modificare questo script x fare in modo che CIP & CIOP li trovi in questo stesso script?
Se sono riuscito io a farlo in excel x i vari claudio, mike,DJnomade,cfpa ecc. ecc. per non parlare di Luigi, sarà acqua!!!

Sub Main()

Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10

Dim pta(2) ' la puntata che faccio è l'ambo

pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8357)
z = InputBox("su quale ruota ?",,5)
cip = InputBox("il primo adattatore (CIP)?",,72)
ciop = InputBox("il secondo adattatore (CIOP)?",,44)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop

ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + ciop)
nr(7) = Fuori90(Estratto(n,z,2) + ciop)
nr(8) = Fuori90(Estratto(n,z,3) + ciop)
nr(9) = Fuori90(Estratto(n,z,4) + ciop)
nr(10) = Fuori90(Estratto(n,z,5) + ciop)
EliminaRipetuti nr
ImpostaGiocata 1,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 2

Gioca n

'End If
Next
ScriviResoconto
End Sub

LuigiB · 3 Novembre 2011

Ciao Filotto !
Eccolo , non ti allarmare se non tira fuori la coppia uguale alal tua
perche di coppie che danno luogo allo stesso risultato ce ne sono
anche piu di una sola. Io con la modifica che ti ho fatto tiro fuori la prima.

Codice:

Sub Main()
	Dim rt(1) 'la ruota è una (1)
	Dim nr(10) ' i nr in gioco sono 10
	Dim pta(2) ' la puntata che faccio è l'ambo
	pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
	dal = InputBox("inserire il num di estrazione iniziale...",,8357)
	z = InputBox("su quale ruota ?",,5)
	'cip = InputBox("il primo adattatore (CIP)?",,72)
	'ciop = InputBox("il secondo adattatore (CIOP)?",,44)
	rt(1) = z ' la ruota che è una (1) è "Z" !!!)
	k = 9 ' i Kolpi in gioco sono 9
	
	Call GetCipECiop (dal , EstrazioneFin,rt,k, cip , ciop)
	
	If cip >0 And ciop >0 Then 
	
		For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
			'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
			'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
			'"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
			Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
			ng = 0
			nr(1) = Fuori90(Estratto(n,z,1 ) + cip)
			nr(2) = Fuori90(Estratto(n,z,2) + cip)
			nr(3) = Fuori90(Estratto(n,z,3) + cip)
			nr(4) = Fuori90(Estratto(n,z,4) + cip)
			nr(5) = Fuori90(Estratto(n,z,5) + cip)
			nr(6) = Fuori90(Estratto(n,z,1) + ciop)
			nr(7) = Fuori90(Estratto(n,z,2) + ciop)
			nr(8) = Fuori90(Estratto(n,z,3) + ciop)
			nr(9) = Fuori90(Estratto(n,z,4) + ciop)
			nr(10) = Fuori90(Estratto(n,z,5) + ciop)
			EliminaRipetuti nr
			Call ImpostaGiocata (1,nr,rt,pta  , k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
			Gioca n
			'End If
		Next
		ScriviResoconto
	Else
		MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
	End If
End Sub
 
Sub Sviluppoambi (aRetAmbi)
	ReDim aN(90)
	Dim k
	For k = 1 To 90
		aN(k) =k
	Next
	
	aRetAmbi  =SviluppoIntegrale ( aN , 2)
End Sub 
Sub GetCipECiop (Inizio, Fine ,aRuota ,Colpi, Cip , Ciop)

	Dim arrAmbi 
	Dim k , i , e ,  idEstr
	Dim bFound 
	
	
	Cip =0 
	Ciop =0
	
	Call Sviluppoambi (arrAmbi)
	
	For k = 1 To UBound (arrAmbi )
		
		bFound = True 
		
		For idEstr = Inizio To Fine Step 9
			
			ReDim aNumInGioco(10)
			i=5 
			For e  = 1 To 5
				i = i +1
				aNumInGioco(e) =  Fuori90(Estratto( idEstr,aRuota(1),e) + arrAmbi(k,1))
				aNumInGioco(i) =  Fuori90(Estratto( idEstr,aRuota(1),e) + arrAmbi(k,2))
			Next
			If VerificaEsito( aNumInGioco, aRuota ,idEstr+1,2,Colpi )= False Then
				bFound = False 
				'Call Scrivi  ("Ambo non valido " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )

 
				Exit For
			End If
		Next
		
		If bFound Then 
			Call Scrivi  ("Coppia di numeri che sommata all'estrazione base dia sempre almeno un ambo " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )
			Call Scrivi ("")
			Call Scrivi ( StringaNumeri(aNumInGioco) )
			
			Cip = arrAmbi(k,1)
			Ciop = arrAmbi(k,2)
			Exit For 
		End If 
	Next

	
End Sub

fillotto · 3 Novembre 2011

DIAVOLO DI UNO SCRIPTOR!!!![:0][:0][:0][:0]
up

fillotto · 6 Dicembre 2011

LuigiB ha scritto:

Ciao Filotto !
Eccolo , non ti allarmare se non tira fuori la coppia uguale alal tua
perche di coppie che danno luogo allo stesso risultato ce ne sono
anche piu di una sola. Io con la modifica che ti ho fatto tiro fuori la prima.

Codice:

Sub Main()
    Dim rt(1) 'la ruota è una (1)
    Dim nr(10) ' i nr in gioco sono 10
    Dim pta(2) ' la puntata che faccio è l'ambo
    pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
    dal = InputBox("inserire il num di estrazione iniziale...",,8357)
    z = InputBox("su quale ruota ?",,5)
    'cip = InputBox("il primo adattatore (CIP)?",,72)
    'ciop = InputBox("il secondo adattatore (CIOP)?",,44)
    rt(1) = z ' la ruota che è una (1) è "Z" !!!)
    k = 9 ' i Kolpi in gioco sono 9
    
    Call GetCipECiop (dal , EstrazioneFin,rt,k, cip , ciop)
    
    If cip >0 And ciop >0 Then 
    
        For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
            'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
            'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
            '"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
            Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
            ng = 0
            nr(1) = Fuori90(Estratto(n,z,1 ) + cip)
            nr(2) = Fuori90(Estratto(n,z,2) + cip)
            nr(3) = Fuori90(Estratto(n,z,3) + cip)
            nr(4) = Fuori90(Estratto(n,z,4) + cip)
            nr(5) = Fuori90(Estratto(n,z,5) + cip)
            nr(6) = Fuori90(Estratto(n,z,1) + ciop)
            nr(7) = Fuori90(Estratto(n,z,2) + ciop)
            nr(8) = Fuori90(Estratto(n,z,3) + ciop)
            nr(9) = Fuori90(Estratto(n,z,4) + ciop)
            nr(10) = Fuori90(Estratto(n,z,5) + ciop)
            EliminaRipetuti nr
            Call ImpostaGiocata (1,nr,rt,pta  , k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
            Gioca n
            'End If
        Next
        ScriviResoconto
    Else
        MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
    End If
End Sub
 
Sub Sviluppoambi (aRetAmbi)
    ReDim aN(90)
    Dim k
    For k = 1 To 90
        aN(k) =k
    Next
    
    aRetAmbi  =SviluppoIntegrale ( aN , 2)
End Sub 
Sub GetCipECiop (Inizio, Fine ,aRuota ,Colpi, Cip , Ciop)

    Dim arrAmbi 
    Dim k , i , e ,  idEstr
    Dim bFound 
    
    
    Cip =0 
    Ciop =0
    
    Call Sviluppoambi (arrAmbi)
    
    For k = 1 To UBound (arrAmbi )
        
        bFound = True 
        
        For idEstr = Inizio To Fine Step 9
            
            ReDim aNumInGioco(10)
            i=5 
            For e  = 1 To 5
                i = i +1
                aNumInGioco(e) =  Fuori90(Estratto( idEstr,aRuota(1),e) + arrAmbi(k,1))
                aNumInGioco(i) =  Fuori90(Estratto( idEstr,aRuota(1),e) + arrAmbi(k,2))
            Next
            If VerificaEsito( aNumInGioco, aRuota ,idEstr+1,2,Colpi )= False Then
                bFound = False 
                'Call Scrivi  ("Ambo non valido " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )

 
                Exit For
            End If
        Next
        
        If bFound Then 
            Call Scrivi  ("Coppia di numeri che sommata all'estrazione base dia sempre almeno un ambo " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )
            Call Scrivi ("")
            Call Scrivi ( StringaNumeri(aNumInGioco) )
            
            Cip = arrAmbi(k,1)
            Ciop = arrAmbi(k,2)
            Exit For 
        End If 
    Next

    
End Sub

Ciao LUIGI siccome il computer grande è in riparazione sto recuperando sul portatile gli script che mi ineressano questo (che è revisionato da te) una volta copiato non gira + e si inceppa qui
" If cip >0 And ciop >0 Then " insomma non digerisce questa riga ,chi mi può dire perchè?

silop2005 · 6 Dicembre 2011

Ciao fillotto,

forse al posto dei punto e virgola

dovresti mettere il segno uguale =

Saluti
Silop

Joe91 · 6 Dicembre 2011

Con i saluti a tutti,

Chiedo scusa se mi intrometto ...

ma avendo trovato lo stesso tipo di errore in parti di codice

da me postati, e dei quali naturalmente conoscevo il contenuto,

mi porta a pensare che possa trattarsi di un errore di "traduzione" o compatibilità

dipendente dal trasferimento del Forum.

Ovvero che GT significhi e sia il Greater-Than-Sign non correttamente tradotto in ">" (maggiore)

Cordiali saluti

PS: Ora che posso utilizzare il PC ... mi occuperò anche dell'archivio.

pfca · 6 Dicembre 2011

Un saluto a tutti,
confermo che il copia ed incolla sia in ingresso che in uscita, danno spesso errori, se non intervengono al più
presto i gestori, sarà difficile continuare a postare script, visto che poi sono inutilizzabili.

fillotto · 6 Dicembre 2011

Grazie Silop ho provato con = ma non va invece ho messo If cip &gt And ciop &gt Then e va !!!!! mi domando chi ha aggiunto quel ";0" ?????

barattolo · 6 Dicembre 2011

fillotto ha scritto:
Grazie Silop ho provato con = ma non va invece ho messo If cip &gt And ciop &gt Then e va !!!!! mi domando chi ha aggiunto quel ";0" ?????

Ciao filotto,

nemmeno come dici tu va!
Cioè in questo modo: If cip &gt And ciop &gt Then

LuigiB · 6 Dicembre 2011

scusate ma gli script che ho fatto io li inserisco tutti nella cartella SCRIPT\VARI che vien installata sempre col software ...
perche gl iscript che cercate non li andate a cercare li ?

fillotto · 6 Dicembre 2011

LuigiB ha scritto:
scusate ma gli script che ho fatto io li inserisco tutti nella cartella SCRIPT\VARI che vien installata sempre col software ...
perche gl iscript che cercate non li andate a cercare li ?

Ciao Luigi , giusto come dici tu MA la versione che sta nella cartella SCRIPT\VARI non funziona + , infatti dovrebbe chiedere da che estrazione incominciare e successivamente chiedere la ruota , invece propone direttamente la scelta della ruota trascurando la scelta dell'inizio cosa molto importante perchè se si va troppo indietro potrebbe non trovare i Cip e Ciop (ovvero gli adattatori utili ) che rendono positiva l'operazione ;
In definitiva ( x BAATTOLO) così funziona :
Sub Main()
'Cip e Ciop (che sono gli adattatori che si aggiungono alle estr generatrici 1 ogni 9) revisionato da Luigi
Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10
Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8367)
z = InputBox("su quale ruota ?",,5)
'cip = InputBox("il primo adattatore (CIP)?",,72)
'ciop = InputBox("il secondo adattatore (CIOP)?",,44)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

Call GetCipECiop(dal,EstrazioneFin,rt,k,cip,ciop)

If cip >0 And ciop >0 Then

For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + ciop)
nr(7) = Fuori90(Estratto(n,z,2) + ciop)
nr(8) = Fuori90(Estratto(n,z,3) + ciop)
nr(9) = Fuori90(Estratto(n,z,4) + ciop)
nr(10) = Fuori90(Estratto(n,z,5) + ciop)
EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
'End If
Next
ScriviResoconto
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub

Sub Sviluppoambi(aRetAmbi)
ReDim aN(90)
Dim k
For k = 1 To 90
aN(k) = k
Next

aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,aRuota,Colpi,Cip,Ciop)

Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound

Cip = 0
Ciop = 0

Call Sviluppoambi(arrAmbi)

For k = 1 To UBound(arrAmbi)

bFound = True

For idEstr = Inizio To Fine Step 9

ReDim aNumInGioco(10)
i = 5
For e = 1 To 5
i = i + 1
aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))
aNumInGioco(i) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,2))
Next
If VerificaEsito(aNumInGioco,aRuota,idEstr + 1,2,Colpi) = False Then
bFound = False
'Call Scrivi ("Ambo non valido " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )

Exit For
End If
Next

If bFound Then
Call Scrivi("Coppia di numeri che sommata all'estrazione base dia sempre almeno un ambo " & arrAmbi(k,1) & "-" & arrAmbi(k,2))
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))

Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next

End Sub

fillotto · 6 Dicembre 2011

Attenzione per rendersi conto di come effettivamente funziona la questione dei cicli quando lo script vi chiede da quale estrazione volete far partire i cicli potrete mettere 8365 ma non 8366 perchè come è congegnato lo script deve avere sempre una o più estrazioni da controllare l'esito il multiplo di 9 in 9 all'ultimo ciclo deve essere evitato almeno che LUIGI non faccia la modifica che non controlli l'esito dell'ultimo ciclo e sarebbe pure + logico

barattolo · 6 Dicembre 2011

fillotto ha scritto:
Ciao Luigi , giusto come dici tu MA la versione che sta nella cartella SCRIPT\VARI non funziona + , infatti dovrebbe chiedere da che estrazione incominciare e successivamente chiedere la ruota , invece propone direttamente la scelta della ruota trascurando la scelta dell'inizio cosa molto importante perchè se si va troppo indietro potrebbe non trovare i Cip e Ciop (ovvero gli adattatori utili ) che rendono positiva l'operazione ;
In definitiva ( x BAATTOLO) così funziona :
Sub Main()
'Cip e Ciop (che sono gli adattatori che si aggiungono alle estr generatrici 1 ogni 9) revisionato da Luigi
Dim rt(1) 'la ruota è una (1)
Dim nr(10) ' i nr in gioco sono 10
Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
dal = InputBox("inserire il num di estrazione iniziale...",,8367)
z = InputBox("su quale ruota ?",,5)
'cip = InputBox("il primo adattatore (CIP)?",,72)
'ciop = InputBox("il secondo adattatore (CIOP)?",,44)
rt(1) = z ' la ruota che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

Call GetCipECiop(dal,EstrazioneFin,rt,k,cip,ciop)

If cip >0 And ciop >0 Then

For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'ai 5 numeri di ognuna di queste estrazioni che troverà fino alla fine si aggiungerà col fuori 90 una volta
'"cip" ottenendo così 5 numeri e una volta " ciop " per ultreiori 5 numeri
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " a cui aggiugiamo una volta " & cip & " " & " e una volta " & ciop
ng = 0
nr(1) = Fuori90(Estratto(n,z,1) + cip)
nr(2) = Fuori90(Estratto(n,z,2) + cip)
nr(3) = Fuori90(Estratto(n,z,3) + cip)
nr(4) = Fuori90(Estratto(n,z,4) + cip)
nr(5) = Fuori90(Estratto(n,z,5) + cip)
nr(6) = Fuori90(Estratto(n,z,1) + ciop)
nr(7) = Fuori90(Estratto(n,z,2) + ciop)
nr(8) = Fuori90(Estratto(n,z,3) + ciop)
nr(9) = Fuori90(Estratto(n,z,4) + ciop)
nr(10) = Fuori90(Estratto(n,z,5) + ciop)
EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,2) ' imposto la giocata e la stoppo all'uscita dell'ambo = 2
Gioca n
'End If
Next
ScriviResoconto
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"
End If
End Sub

Sub Sviluppoambi(aRetAmbi)
ReDim aN(90)
Dim k
For k = 1 To 90
aN(k) = k
Next

aRetAmbi = SviluppoIntegrale(aN,2)
End Sub
Sub GetCipECiop(Inizio,Fine,aRuota,Colpi,Cip,Ciop)

Dim arrAmbi
Dim k,i,e,idEstr
Dim bFound

Cip = 0
Ciop = 0

Call Sviluppoambi(arrAmbi)

For k = 1 To UBound(arrAmbi)

bFound = True

For idEstr = Inizio To Fine Step 9

ReDim aNumInGioco(10)
i = 5
For e = 1 To 5
i = i + 1
aNumInGioco(e) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,1))
aNumInGioco(i) = Fuori90(Estratto(idEstr,aRuota(1),e) + arrAmbi(k,2))
Next
If VerificaEsito(aNumInGioco,aRuota,idEstr + 1,2,Colpi) = False Then
bFound = False
'Call Scrivi ("Ambo non valido " & arrAmbi(k,1) & "-" & arrAmbi(k,2) )

Exit For
End If
Next

If bFound Then
Call Scrivi("Coppia di numeri che sommata all'estrazione base dia sempre almeno un ambo " & arrAmbi(k,1) & "-" & arrAmbi(k,2))
Call Scrivi("")
Call Scrivi(StringaNumeri(aNumInGioco))

Cip = arrAmbi(k,1)
Ciop = arrAmbi(k,2)
Exit For
End If
Next

End Sub

Grazie

Roby · 6 Dicembre 2011

Ciao Fillotto, una informazione ... ma l'ambo sommatore comune si "spera" che continui ad essere efficiente anche nelle successive 9 estrazioni? Grzzzz

kabb77 · 6 Dicembre 2011

non cè mai niente di sicuro !! bisogna stare attenti a quello che si vede !!

Roby · 7 Dicembre 2011

kabb77 ha scritto:
non cè mai niente di sicuro !! bisogna stare attenti a quello che si vede !!

Concordo

fillotto · 7 Dicembre 2011

gennaro ha scritto:
Ciao Fillotto, una informazione ... ma l'ambo sommatore comune si "spera" che continui ad essere efficiente anche nelle successive 9 estrazioni? Grzzzz

Non so se hai capito bene.... LA PREVISIONE DEI 10 NUMERI DURA 9 ESTRAZIONI DOPO DI CHE SI PRENDE LA 9^ ESTRAZ A CIASCUN NUMERO DELLA QUALE SI AGGIUNGONO UNA VOLTA CIP (FUORI90) E SI OTTENGONO 5 NUMERI E UNA VOLTA CIOP COSI X ALTRI 5 NUMERI X UN TOTALE DI 10 NUMERI DA GIOCARE PER ALTRE 9 ESTRAZIONI ... SPERANDO OVVIAMENTE NELL'USCITA DI ALMENO UN AMBO: FACCIO UN ESEMPIO

PREMESSA : SETTATE LA FINE DELL'ARCHIVIO ALL'ESTRAZ DEL 26/11/11 N° 8462, QUANDO LO SCRIPT VI PROPORRA' DA CHE ESTRAZIONE INCOMINCIARE METTETE 8365 CHE CORRISPONDE ALL'ESTRAZ DEL 14/4/2011 QUANDO VI CHIEDERA' LA RUOTA METTETE 6 (OVVERO NAPOLI).IN QUESTO MODO E' COME SE DICESSIMO ALLO SCRIPT VAI ALL'ARCHIVIO RUOTA NA , AI NUMERI USCITI ALL'ESTRAZ. N° 8365 AGGIUNGI UNA VOLTA CIP E UNA VOLTA CIOP COSI' DA OTTENERE 10 NUMERI DAGIOCARE X 9 ESTRAZ SUCCESSIVAMENTE FAI COSI ANCHE ALL'ESTRAZ. 8374....8383 E DI 9 IN 9 FINO ALLA 8455 ULTIMA ESTRAZIONE UTILE GIACCHE' LA PROSSIMA 8464 LUI NON LA VEDE QUINDI SE HA TROVATO CIP E CIOP (E' QUESTO IL SUO COMPITO) MI FARA' VEDERE GLI 11 CICLI IN QUESTO CASO SPECIFICO CIP E' IL NUM 1 E CIOP E' IL 36.
A QUESTO PUNTO COME SFRUTTARE LA COSA? ANDARE SULL'ESTR. 8464 DELL'1/12/11: 55-5-54-3-44 (QUELLA A LUI IGNOTA) E AGGIUNGERE CIP E CIOP FOURI 90 COSI DA OTTENERE QUESTA DECINA 56-6-55-4-45-1-41-90-39-80 DA GIOCARE X MAX 9 ESTRAZ A PARTIRE DALLA 8465 FIN'ORA NON SONO USCITI MA SONO PASSATE SOLO 2 ESTRAZ
USCIRANNO!?!? BHO PROVATE A FARE TUTTA QUESTA TIRITERA CON PARTENZA 8356 SEMPRE NA CIP E CIOP CAMBIERANNO (SARANNO 9 E 87) E DARANNO L'AMBO (14 E 12 ) AL 2° COLPO. uRCA FACCIO + FATICA A SPIEGARLO CHE A FARLO!!!!
SPERO SOLO DI ESSERMI FATTO CAPIRE PERCHE' UTILIZZANDO I VARI CIP E CIOP OTTIMIZZANDO LE POSIZIONI SI PUO' MIGLIORARE!!!!

barattolo · 7 Dicembre 2011

fillotto ha scritto:
Non so se hai capito bene.... LA PREVISIONE DEI 10 NUMERI DURA 9 ESTRAZIONI DOPO DI CHE SI PRENDE LA 9^ ESTRAZ A CIASCUN NUMERO DELLA QUALE SI AGGIUNGONO UNA VOLTA CIP (FUORI90) E SI OTTENGONO 5 NUMERI E UNA VOLTA CIOP COSI X ALTRI 5 NUMERI X UN TOTALE DI 10 NUMERI DA GIOCARE PER ALTRE 9 ESTRAZIONI ... SPERANDO OVVIAMENTE NELL'USCITA DI ALMENO UN AMBO: FACCIO UN ESEMPIO

PREMESSA : SETTATE LA FINE DELL'ARCHIVIO ALL'ESTRAZ DEL 26/11/11 N° 8462, QUANDO LO SCRIPT VI PROPORRA' DA CHE ESTRAZIONE INCOMINCIARE METTETE 8365 CHE CORRISPONDE ALL'ESTRAZ DEL 14/4/2011 QUANDO VI CHIEDERA' LA RUOTA METTETE 6 (OVVERO NAPOLI).IN QUESTO MODO E' COME SE DICESSIMO ALLO SCRIPT VAI ALL'ARCHIVIO RUOTA NA , AI NUMERI USCITI ALL'ESTRAZ. N° 8365 AGGIUNGI UNA VOLTA CIP E UNA VOLTA CIOP COSI' DA OTTENERE 10 NUMERI DAGIOCARE X 9 ESTRAZ SUCCESSIVAMENTE FAI COSI ANCHE ALL'ESTRAZ. 8374....8383 E DI 9 IN 9 FINO ALLA 8455 ULTIMA ESTRAZIONE UTILE GIACCHE' LA PROSSIMA 8464 LUI NON LA VEDE QUINDI SE HA TROVATO CIP E CIOP (E' QUESTO IL SUO COMPITO) MI FARA' VEDERE GLI 11 CICLI IN QUESTO CASO SPECIFICO CIP E' IL NUM 1 E CIOP E' IL 36.
A QUESTO PUNTO COME SFRUTTARE LA COSA? ANDARE SULL'ESTR. 8464 DELL'1/12/11: 55-5-54-3-44 (QUELLA A LUI IGNOTA) E AGGIUNGERE CIP E CIOP FOURI 90 COSI DA OTTENERE QUESTA DECINA 56-6-55-4-45-1-41-90-39-80 DA GIOCARE X MAX 9 ESTRAZ A PARTIRE DALLA 8465 FIN'ORA NON SONO USCITI MA SONO PASSATE SOLO 2 ESTRAZ
USCIRANNO!?!? BHO PROVATE A FARE TUTTA QUESTA TIRITERA CON PARTENZA 8356 SEMPRE NA CIP E CIOP CAMBIERANNO (SARANNO 9 E 87) E DARANNO L'AMBO (14 E 12 ) AL 2° COLPO. uRCA FACCIO + FATICA A SPIEGARLO CHE A FARLO!!!!
SPERO SOLO DI ESSERMI FATTO CAPIRE PERCHE' UTILIZZANDO I VARI CIP E CIOP OTTIMIZZANDO LE POSIZIONI SI PUO' MIGLIORARE!!!!

Ciao filotto,

seguivo la discussione...ed è tutto chiaro!
Magari la si può usare "anche" per convergenze ad altre statistiche.

fillotto · 7 Dicembre 2011

Ciao Barattolo , fa piacere che qualcuno ha capito lo so è difficile seguire le elucubrazioni di noi "pazzoidi" ,come ha detto Luigi di Cip & Ciop ne esistono diverse coppie utili ho fatto l'esempio di Napoli per far notare proprio questo la coppia 1-36 e la coppia 9- 87 se si controlla che so che Cip (quello dell'1) in terza posizione non è stato mai utile per formare un ambo
allora potrei mettere il 2° cip non aumentando i num da giocare, non so se mi sono spiegato?! un po ricalcando quello che fa blakmore con tutti quei condizionamenti if ...if

Roby · 9 Dicembre 2011

Ok Fillotto, ho solo adesso letto la tua esauriente spiegazione

tnnnnx

Ambo comune in 10 cicli

Advanced Member >PLATINUM<

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Advanced Member >PLATINUM<

Senior Member

LuigiB

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Senior Member

Roby

Guest

Super member

Roby

Guest

Advanced Member >PLATINUM<

Senior Member

Advanced Member >PLATINUM<

Roby

Guest