In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da Fortuna_68 il 11/11/2023, 0:37
Ciao ragazzi , se possibile , chiedo a Dj Nomade un listato che trovi due ambi isotopi o meno con un numero ripetuto avente distanza ripettivamente + 18 - 9 o -18 + 9 così :
BA 46-64 --> + 18 NA 37-46 --> - 9
Rispetto al numero ripetuto 46 abbiamo il +18 -9
37-46-XX-64 -->giochiamo il mancante 55 per BANA
----------------------------------------
GE 71-53 --> - 18 RO 71-80 --> + 9
Rispetto al numero ripetuto 71 abbiamo il +9 -18
53-XX-71-80 --> giochiamo il mancante 62 per GERO
Ciaoooo
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da DjNomade il 11/11/2023, 13:40
Controlla cosi Ciauz- Codice: Seleziona tutto
'11/11/2023 'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955 ColoreTesto 1 Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68",1 Scrivi
Scrivi Date &_ Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1 Scrivi String (2,Chr(11)): ColoreTesto 1 ColoreTesto 0 Sub main() Dim n(4),nn(3) Dim num(1) Dim nu(6) Dim ruote(10) Dim ruot(1) Dim poste(1) Dim post(5) poste(1)=1 post(2)=1 post(3)=1 post(4)=1 post(5)=1 tmp=InputBox("Quante estrazioni controllo?",,300) fin=EstrazioneFin ini=fin-tmp For es=ini To fin Messaggio CStr (EstrazioneFin - es) For r=1 To 9 For r1=r+1 To 10 For p=1 To 4 For p1=p+1 To 5 n(1)=Estratto(es,r,p) n(2)=Estratto(es,r,p1) n(3)=Estratto(es,r1,p) n(4)=Estratto(es,r1,p1) a=Distanza(n(1),n(2)) b=Distanza(n(3),n(4))
If(a=9 and b=18)or(b=9 and a=18)Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3): If n(2)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): If n(2)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3): Call OrdinaMatrice(nn,1)
aa=Distanza(nn(1),nn(2)) bb=Distanza(nn(2),nn(3)) cc=Distanza(nn(1),nn(3)) If aa=18 Then c1=Fuori90(nn(1)+9) If bb=18 Then c1=Fuori90(nn(2)+9) If cc=18 Then c1=Fuori90(nn(3)+9)
Scrivi DataEstrazione(es),1 Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_ Format2(a)&" --> "&Format2(n(1))&"."&Format2(n(2)),1 Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_ Format2(b)&" --> "&Format2(n(3))&"."&Format2(n(4)),1 ColoreTesto 1 Scrivi StringaNumeri (nn),1
ColoreTesto 2 Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r ruote(2)=r1 num(1)=c1 ImpostaGiocata 1,num,ruote,poste,12
Gioca es Scrivi"****************************************************************" End If End If 'End If Next Next Next Next Next ScriviResoconto End Sub
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da Fortuna_68 il 11/11/2023, 14:56
Grazie mille Dj , sempre gentile , buona giornata !
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da Fortuna_68 il 12/11/2023, 2:15
Ciao Dj , controllando i vari casi non tutti risultano esatti :
16.04.2022 Ba 47.90.39.40.81 Distanza 09 --> 90.81 --> abbiamo il -9 rispetto al ripetuto OK Ge 02.18.15.26.90 Distanza 18 --> 18.90 --> abbiamo il +18 rispetto al ripetuto OK
Abbiamo 81-90-x-18 --> gioca il 9 successivo al 90 OK ---------------------------------------------------- 25.02.2023 Fi 79.55.19.49.73 Distanza 18 --> 55.73 --> abbiamo il -18 rispetto al ripetuto Mi 65.73.19.47.64 Distanza 09 --> 73.64 --> abbiamo il -9 rispetto al ripetuto
Abbiamo il 73 ripetuto quindi dovrebbe esserci il -9 ed il +18 oppure il +9 ed il -18 , invece abbiamo il -9 e -18 rispetto al 73
In questo caso col 73 dovremmo avere questi due casi validi :
55-73 dist 18 (-18) 73-82 dist 9 (+9)
Così avremmo : 55-x-73-82 --> gioca il 64 - 46
oppure
64-73 dist 9 (-9) 73-01 dist 18 (+18)
Così avremmo 64-73-x-01 --> gioca l' 82 - 28
Praticamente rispetto al numero ripetuto avremmo da giocare sempre o il successivo o il precedente Un' ultima richiesta se potessi anche mettere il vertibile del numero da giocare , come ho fatto sopra , così due ambate su due ruote perchè controllando ho visto che esce anche il vertibile
Grazie e ciao
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da DjNomade il 13/11/2023, 20:11
Per il vertibile ok, ma per il resto bho- Codice: Seleziona tutto
'11/11/2023 'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955 ColoreTesto 1 Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68 Vers.2 ",1 Scrivi
Scrivi Date &_ Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1 Scrivi String (2,Chr(11)): ColoreTesto 1 ColoreTesto 0 Sub main() Dim n(4),nn(3) Dim num(2) Dim nu(6) Dim ruote(10) Dim ruot(1) Dim poste(1) Dim post(5) poste(1)=1 post(2)=1 post(3)=1 post(4)=1 post(5)=1 tmp=InputBox("Quante estrazioni controllo?",,300) fin=EstrazioneFin ini=fin-tmp For es=ini To fin Messaggio CStr (EstrazioneFin - es) For r=1 To 9 For r1=r+1 To 10 For p=1 To 4 For p1=p+1 To 5 n(1)=Estratto(es,r,p) n(2)=Estratto(es,r,p1) n(3)=Estratto(es,r1,p) n(4)=Estratto(es,r1,p1)
'a=Distanza(n(1),n(2)) 'b=Distanza(n(3),n(4))
df1=Abs(n(1)-n(2)) df2=Abs(n(3)-n(4)) a=n(1) b=n(2) c=n(3) d=n(4)
If df1>45 And a>b Then k1="+" If df1>45 And a<b Then k1="-" If df1=<45 And a>b Then k1="-" If df1=<45 And a<b Then k1="+" If df2>45 And c>d Then k2="+" If df2>45 And c<d Then k2="-" If df2=<45 And c>d Then k2="-" If df2=<45 And c<d Then k2="+" If (k1="-" And K2="+") Or (k1="+" And K2="-") Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): '''nn(1)=n(1)ripetuto If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3): If n(2)=n(3)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(4): If n(2)=n(4)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(3):
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))_ Or ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))_ Or ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(nn(1)-18)=nn(3)))_ Or ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(nn(1)-9)=nn(3)))Then
Call OrdinaMatrice(nn,1)
df11=Abs(nn(1)-nn(2)) df22=abs(nn(1)-nn(3)) 'If(df11=9 And df22=18)Or(df22=9 And df11=18)Then cc=Distanza(nn(1),nn(3)) 'If aa=18 Then c1=Fuori90(nn(2)+9) 'If bb=18 Then c1=Fuori90(nn(2)+9) 'If cc=18 Then c1=Fuori90(nn(3)+9)
'If(a=9 And b=18)Or(b=9 And a=18)Then
If ((Fuori90(90+nn(2)-18)=nn(1))And (Fuori90(nn(2)+9)=nn(3))) Then c1=Fuori90(nn(2)-9) If ((Fuori90(90+nn(2)-9)=nn(1))And (Fuori90(nn(2)+18)=nn(3))) Then c1=Fuori90(nn(2)+9) If ((Fuori90(90+nn(3)+9)=nn(1))And (Fuori90(nn(2)+18)=nn(3))) Then c1=Fuori90(90+nn(3)-9) If ((Fuori90(90+nn(3)-18)=nn(1))And (Fuori90(nn(2)+9)=nn(3))) Then c1=Fuori90(90+nn(3)-9)
'If ((Fuori90(n(1)+18)=n(2))And (Fuori90(90+n(3)-9)=n(4))) Then c1=Fuori90(nn(1)+9) 'If ((Fuori90(90+n(1)-18)=n(2))And (Fuori90(n(3)+9)=n(4))) Then c1=Fuori90(nn(1)-9) caso= caso+1 Scrivi " ========================================== Caso N. "&caso,1 Scrivi DataEstrazione(es),1 Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_ Format2(a)&" --> "&Format2(n(1))&"."&Format2(n(2))&" ----- "&k1,1 Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_ Format2(b)&" --> "&Format2(n(3))&"."&Format2(n(4))&" ----- "&k2,1 ColoreTesto 1 Scrivi StringaNumeri (nn),1
ColoreTesto 2 Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r ruote(2)=r1 num(1)=c1 num(2)=Vert(c1) ImpostaGiocata 1,num,ruote,poste,12
Gioca es Scrivi"****************************************************************" End If End If End If 'End If Next Next Next Next Next ScriviResoconto End Sub
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da Fortuna_68 il 13/11/2023, 22:07
Ciao Dj , il procedimento è giusto , solo che in alcuni casi calcola l'ambata in maniera errata .
Ho messo i casi errati e poi in ultimo ho messo l ' ambata corretta con il colpo di uscita :
'29.08.1964 'Mi 02.15.71.27.18 Distanza 27 --> 27.18 ----- - 'Ro 67.11.27.90.18 Distanza 18 --> 90.18 ----- + '18.27.90 '32 <----- Ambata 'Estrazione generatrice del pronostico 04886 [ 35 - 29/08/1964] 'G 0001 Numeri In gioco : 32.23 su MI RO per Estratto '7° colpo RO 9 '------------------------------------------ '04.12.1999 'Fi 76.04.86.58.36 Distanza 76 --> 76.04 ----- + 'Mi 13.04.73.16.58 Distanza 04 --> 13.04 ----- - '4.13.76 '76 <----- Ambata 'Estrazione generatrice del pronostico 06869 [ 97 - 04/12/1999] 'G 0001 Numeri In gioco : 76.67 su FI MI per Estratto '3° colpo FI 85 '------------------------------------------------------------- '08.11.2005 'Ba 25.14.59.88.05 Distanza 14 --> 14.05 ----- - 'Ve 04.77.87.60.05 Distanza 05 --> 77.05 ----- + '5.14.77 '76 <----- Ambata 'Estrazione generatrice del pronostico 07514 [110 - 08/11/2005] 'G 0001 Numeri In gioco : 76.67 su BA VE per Estratto '1° colpo 68 BA '--------------------------------------------------------- '05.05.2009 'Ca 70.54.47.14.05 Distanza 14 --> 14.05 ----- - 'Ge 27.50.82.77.05 Distanza 05 --> 77.05 ----- + '5.14.77 '19 <----- Ambata 'Estrazione generatrice del pronostico 08060 [ 54 - 05/05/2009] 'G 0001 Numeri In gioco : 19.11 su CA GE per Estratto '4° colpo 68 CA '--------------------------------------------------------- '02.05.2017 'Ba 86.23.39.89.05 Distanza 86 --> 86.05 ----- + 'Ca 23.04.14.86.05 Distanza 05 --> 23.05 ----- - ''5.23.86 '61 <----- Ambata 'Estrazione generatrice del pronostico 09311 [ 52 - 02/05/2017] 'G 0001 Numeri In gioco : 61.16 su BA CA per Estratto '8° colpo 14 CA '----------------------------------------------- '02.11.2019 'Fi 58.75.12.73.03 Distanza 75 --> 75.03 ----- + 'Na 15.12.49.32.03 Distanza 03 --> 12.03 ----- - '3.12.75 '77 <----- Ambata 'Estrazione generatrice del pronostico 09703 [132 - 02/11/2019] 'G 0001 Numeri In gioco : 77.79 su FI NA per Estratto '1° colpo 84 FI --------------------------------------------------- Grazie come sempre Ciao
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da DjNomade il 13/11/2023, 23:01
VEDI ORA- Codice: Seleziona tutto
'11/11/2023 'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=17955&sid=91d63d04407710570946ba7e543debd4#p17955 ColoreTesto 1 Scrivi " Due ambi con distanza + 18 - 9 o -18 + 9 by Fortuna_68 ",1 Scrivi
Scrivi Date &_ Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1 Scrivi String (2,Chr(11)): ColoreTesto 1 ColoreTesto 0 Sub main() Dim n(4),nn(3) Dim num(2) Dim nu(6) Dim ruote(10) Dim ruot(1) Dim poste(1) Dim post(5) poste(1)=1 post(2)=1 post(3)=1 post(4)=1 post(5)=1 tmp=InputBox("Quante estrazioni controllo?",,300) fin=EstrazioneFin ini=fin-tmp For es=ini To fin Messaggio CStr (EstrazioneFin - es) For r=1 To 9 For r1=r+1 To 10 For p=1 To 4 For p1=p+1 To 5 n(1)=Estratto(es,r,p) n(2)=Estratto(es,r,p1) n(3)=Estratto(es,r1,p) n(4)=Estratto(es,r1,p1)
aa=Distanza(n(1),n(2)) bb=Distanza(n(3),n(4))
df1=Abs(n(1)-n(2)) df2=Abs(n(3)-n(4)) a=n(1) b=n(2) c=n(3) d=n(4)
If df1>45 And a>b Then k1="+" If df1>45 And a<b Then k1="-" If df1=<45 And a>b Then k1="-" If df1=<45 And a<b Then k1="+" If df2>45 And c>d Then k2="+" If df2>45 And c<d Then k2="-" If df2=<45 And c>d Then k2="-" If df2=<45 And c<d Then k2="+" If (k1="-" And K2="+") Or (k1="+" And K2="-") Then
If(n(1)=n(3)Or n(1)=n(4)Or n(2)=n(3)Or n(2)=n(4)) Then
If n(1)=n(3)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(4): '''nn(1)=n(1)ripetuto If n(1)=n(4)Then nn(1)=n(1):nn(2)=n(2):nn(3)=n(3): If n(2)=n(3)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(4): If n(2)=n(4)Then nn(1)=n(2):nn(2)=n(1):nn(3)=n(3):
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))_ Or ((Fuori90(90+nn(1)-18)=nn(3))And (Fuori90(nn(1)+9)=nn(2)))_ Or ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))_ Or ((Fuori90(90+nn(1)-9)=nn(3))And (Fuori90(nn(1)+18)=nn(2)))_ Or ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(nn(1)-18)=nn(3)))_ Or ((Fuori90(90+nn(1)+9)=nn(3))And (Fuori90(nn(1)-18)=nn(2)))_ Or ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(nn(1)-9)=nn(3)))_ Or ((Fuori90(90+nn(1)+18)=nn(3))And (Fuori90(nn(1)-9)=nn(2)))Then
If ((Fuori90(90+nn(1)-18)=nn(2))And (Fuori90(nn(1)+9)=nn(3)))Then c1=Fuori90(90+nn(1)-9) If ((Fuori90(90+nn(1)-18)=nn(3))And (Fuori90(nn(1)+9)=nn(2)))Then c1=Fuori90(90+nn(1)-9) If ((Fuori90(90+nn(1)-9)=nn(2))And (Fuori90(nn(1)+18)=nn(3)))Then c1=Fuori90(nn(1)+9) If ((Fuori90(90+nn(1)-9)=nn(3))And (Fuori90(nn(1)+18)=nn(2)))Then c1=Fuori90(nn(1)+9) If ((Fuori90(90+nn(1)+9)=nn(2))And (Fuori90(90+nn(1)-18)=nn(3)))Then c1=Fuori90(90+nn(1)-9) If ((Fuori90(90+nn(1)+9)=nn(3))And (Fuori90(90+nn(1)-18)=nn(2)))Then c1=Fuori90(90+nn(1)-9) If ((Fuori90(90+nn(1)+18)=nn(2))And (Fuori90(90+nn(1)-9)=nn(3)))Then c1=Fuori90(nn(1)+9) If ((Fuori90(90+nn(1)+18)=nn(3))And (Fuori90(90+nn(1)-9)=nn(2)))Then c1=Fuori90(nn(1)+9) caso= caso+1 Scrivi " ========================================== Caso N. "&caso,1 Scrivi DataEstrazione(es),1 Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" Distanza "&_ Format2(aa)&" --> "&Format2(n(1))&"."&Format2(n(2))&" ----- "&k1,1 Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" Distanza "&_ Format2(bb)&" --> "&Format2(n(3))&"."&Format2(n(4))&" ----- "&k2,1 ColoreTesto 1 Scrivi StringaNumeri (nn),1
ColoreTesto 2 Scrivi Format2(c1)&" <----- Ambata",1
ruote(1)=r ruote(2)=r1 num(1)=c1 num(2)=Vert(c1) ImpostaGiocata 1,num,ruote,poste,12
Gioca es Scrivi"****************************************************************" End If End If End If 'End If Next Next Next Next Next ScriviResoconto End Sub
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da Fortuna_68 il 14/11/2023, 6:04
SUPERDJ ! BRA-VIS-SI-MO , HAI DIPANATO LA MATASSA GRAZIE E BUONA GIORNATA
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|