Novità

Ambo comune in 10 cicli

fillotto

fillotto

Advanced Member >PLATINUM<
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
 
L

LuigiB

Guest
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

fillotto

Advanced Member >PLATINUM<
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
Clicca per espandere...
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è?
 
Joe91

Joe91

Advanced Member >PLATINUM PLUS<
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

pfca

Advanced Member >GOLD<
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

fillotto

Advanced Member >PLATINUM<
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" ?????
 
L

LuigiB

Guest
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

fillotto

Advanced Member >PLATINUM<
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 ?
Clicca per espandere...
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

fillotto

Advanced Member >PLATINUM<
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

barattolo

Senior Member
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
Clicca per espandere...

Grazie
 
R

Roby

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

fillotto

Advanced Member >PLATINUM<
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 :)
Clicca per espandere...
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

barattolo

Senior Member
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!!!!
Clicca per espandere...

Ciao filotto,

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

fillotto

Advanced Member >PLATINUM<
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto