Posts written by Cinzia28

Posted: 28/4/2020, 19:12

Funzione Interrompi script - Aiuto per Listati

C' è, Kabila, ma non so dove collocarla.

Posted: 28/4/2020, 18:06

Funzione Interrompi script - Aiuto per Listati

Ciao a tutti.
A volte mi succede di volere interrompere alcuni miei script lenti.
Credo si debba usare la Funzione Interrompi script
Qualche esperto di Spaziometria può aiutarmi ?

Cinzia

Posted: 25/4/2020, 14:07

chiedo un semplice listato - Aiuto per Listati

Si è vero. Mi scuso con Kabila.
Lo avevo messo a posto ma come al solito mi sono dimenticata di questo particolare.

Posted: 25/4/2020, 11:57

chiedo un semplice listato - Aiuto per Listati

Da me funziona.

Posted: 24/4/2020, 21:06

chiedo un semplice listato - Aiuto per Listati

Grazie, Joe per il listato.
Come sempre gentile.
Come giustamente affermi, qualche script adatto a Lottodesk è compatibile con Spaziometria.
E con la funzione turbo è più veloce.
Altri richiedono istruzioni proprie di questo bel programma.
Proverò a cimentarmi, anche perché vedo che molti usano Spaziometria.

Cinzia

Posted: 23/4/2020, 22:04

chiedo un semplice listato - Aiuto per Listati

Grazie anche da parte mia a Jkf.
Come già anticipato altrove, non so listare in Spaziometria.
Chissà se imparerò.

Posted: 23/4/2020, 20:08

chiedo un semplice listato - Aiuto per Listati

Ciao, Kabila.
I miei sono questi.

SPOILER (clicca per visualizzare)

Ba 37 1° pos 207 2° pos 354 3° pos 80 4° pos 336 5° pos 116 somma 1093
Ba 07 1° pos 210 2° pos 3 3° pos 150 4° pos 390 5° pos 174 somma 927
Ba 41 1° pos 22 2° pos 375 3° pos 454 4° pos 12 5° pos 0 somma 863
Ba 45 1° pos 146 2° pos 300 3° pos 187 4° pos 109 5° pos 111 somma 853
Ba 39 1° pos 114 2° pos 52 3° pos 134 4° pos 74 5° pos 401 somma 775

Ca 17 1° pos 135 2° pos 25 3° pos 76 4° pos 405 5° pos 245 somma 886
Ca 35 1° pos 65 2° pos 99 3° pos 603 4° pos 0 5° pos 49 somma 816
Ca 41 1° pos 173 2° pos 106 3° pos 50 4° pos 418 5° pos 59 somma 806
Ca 26 1° pos 187 2° pos 328 3° pos 82 4° pos 35 5° pos 170 somma 802
Ca 36 1° pos 57 2° pos 243 3° pos 210 4° pos 80 5° pos 173 somma 763

Fi 58 1° pos 44 2° pos 256 3° pos 185 4° pos 498 5° pos 445 somma 1428
Fi 28 1° pos 104 2° pos 23 3° pos 275 4° pos 126 5° pos 319 somma 847
Fi 30 1° pos 290 2° pos 429 3° pos 14 4° pos 69 5° pos 25 somma 827
Fi 15 1° pos 153 2° pos 3 3° pos 554 4° pos 75 5° pos 7 somma 792
Fi 49 1° pos 303 2° pos 74 3° pos 91 4° pos 31 5° pos 248 somma 747

Ge 38 1° pos 439 2° pos 147 3° pos 138 4° pos 196 5° pos 165 somma 1085
Ge 44 1° pos 18 2° pos 462 3° pos 106 4° pos 209 5° pos 158 somma 953
Ge 09 1° pos 130 2° pos 486 3° pos 102 4° pos 8 5° pos 224 somma 950
Ge 35 1° pos 44 2° pos 248 3° pos 253 4° pos 6 5° pos 301 somma 852
Ge 22 1° pos 471 2° pos 243 3° pos 3 4° pos 35 5° pos 91 somma 843

Mi 08 1° pos 276 2° pos 211 3° pos 254 4° pos 204 5° pos 35 somma 980
Mi 57 1° pos 293 2° pos 80 3° pos 164 4° pos 230 5° pos 42 somma 809
Mi 10 1° pos 151 2° pos 185 3° pos 220 4° pos 76 5° pos 158 somma 790
Mi 64 1° pos 112 2° pos 310 3° pos 43 4° pos 70 5° pos 208 somma 743
Mi 68 1° pos 338 2° pos 138 3° pos 26 4° pos 133 5° pos 101 somma 736

Na 88 1° pos 93 2° pos 204 3° pos 88 4° pos 382 5° pos 311 somma 1078
Na 64 1° pos 89 2° pos 302 3° pos 290 4° pos 66 5° pos 183 somma 930
Na 63 1° pos 80 2° pos 173 3° pos 58 4° pos 329 5° pos 276 somma 916
Na 49 1° pos 458 2° pos 207 3° pos 60 4° pos 103 5° pos 57 somma 885
Na 65 1° pos 20 2° pos 170 3° pos 247 4° pos 50 5° pos 298 somma 785

Pa 22 1° pos 184 2° pos 297 3° pos 204 4° pos 378 5° pos 213 somma 1276
Pa 14 1° pos 27 2° pos 246 3° pos 188 4° pos 503 5° pos 146 somma 1110
Pa 12 1° pos 0 2° pos 392 3° pos 382 4° pos 50 5° pos 248 somma 1072
Pa 29 1° pos 59 2° pos 103 3° pos 186 4° pos 535 5° pos 3 somma 886
Pa 35 1° pos 57 2° pos 205 3° pos 116 4° pos 183 5° pos 292 somma 853

Ro 63 1° pos 142 2° pos 78 3° pos 18 4° pos 381 5° pos 327 somma 946
Ro 75 1° pos 369 2° pos 53 3° pos 81 4° pos 92 5° pos 305 somma 900
Ro 87 1° pos 49 2° pos 143 3° pos 20 4° pos 412 5° pos 234 somma 858
Ro 06 1° pos 106 2° pos 216 3° pos 391 4° pos 71 5° pos 70 somma 854
Ro 71 1° pos 497 2° pos 58 3° pos 179 4° pos 78 5° pos 13 somma 825

To 78 1° pos 509 2° pos 2 3° pos 335 4° pos 316 5° pos 4 somma 1166
To 25 1° pos 134 2° pos 77 3° pos 6 4° pos 592 5° pos 197 somma 1006
To 89 1° pos 266 2° pos 86 3° pos 300 4° pos 41 5° pos 194 somma 887
To 73 1° pos 185 2° pos 78 3° pos 35 4° pos 227 5° pos 295 somma 820
To 16 1° pos 36 2° pos 250 3° pos 285 4° pos 104 5° pos 121 somma 796

Ve 14 1° pos 76 2° pos 421 3° pos 835 4° pos 86 5° pos 42 somma 1460
Ve 52 1° pos 214 2° pos 311 3° pos 120 4° pos 32 5° pos 521 somma 1198
Ve 75 1° pos 82 2° pos 77 3° pos 88 4° pos 478 5° pos 169 somma 894
Ve 09 1° pos 59 2° pos 174 3° pos 21 4° pos 409 5° pos 204 somma 867
Ve 39 1° pos 446 2° pos 84 3° pos 228 4° pos 66 5° pos 31 somma 855

Posted: 23/4/2020, 16:15

chiedo un semplice listato - Aiuto per Listati

Ciao, Kabila.
Ecco il listato.

SPOILER (clicca per visualizzare)

'Ricerca Kabila somma ritardi su posizioni determinate di ambata ( Cinzia)

Sub main()
Dim n(1),ru(1),mt(90,9)
For r=1 To 10
ru(1)=r
c=0
For i=1 To 90
n(1)=i

rt=SerieRitardo(1,EstrazioneFin,n,ru,6)
rt1=SerieRitardo(1,EstrazioneFin,n,ru,7)
rt2=SerieRitardo(1,EstrazioneFin,n,ru,8)
rt3=SerieRitardo(1,EstrazioneFin,n,ru,9)
rt4=SerieRitardo(1,EstrazioneFin,n,ru,10)
s=rt+rt1+rt2+rt3+rt4
c=c+1
mt(c,1)=c
mt(c,2)=SiglaRuota(r)
mt(c,3)=n(1)
mt(c,4)=rt
mt(c,5)=rt1
mt(c,6)=rt2
mt(c,7)=rt3
mt(c,8)=rt4
mt(c,9)=s

Next
OrdinaMatrice mt,-1,9

For w=1 To 5 ' scegli le quantità di casi da visualizzare

Scrivi mt(w,2)&" "&format2(mt(w,3))&" 1° pos "&formatspace(mt(w,4),4,1)&" 2° pos "&formatspace(mt(w,5),4,1)&" 3° pos "&formatspace(mt(w,6),4,1)_
&" 4° pos "&formatspace(mt(w,7),4,1)&" 5° pos "&formatspace(mt(w,8),4,1)&" somma "&formatspace(mt(w,9),4,1)

Next
Scrivi
Next
End Sub

Posted: 19/4/2020, 15:10

terzine simmetriche - Aiuto per Listati

Ciao, Eugenio e Jumbobox.
r=1
'ru(1)=r

E' un refuso che ho lasciato erroneamente, ma di per sé non incide.
Ringrazio Jumbobox per avere adattato lo script a Spaziomatria,
col quale non so ancora tanto destreggiarmi.

Jumbobox è partito dall' ultima a ritroso, ho provato anch' io e i risultati coincidono ma in parte .
Quindi dipende dal numero superstar, come ipotizza Eugenio ?

Fatemi sapere.
Vi ringrazio per la fattiva partecipazione e buona domenica.
Cinzia

Posted: 18/4/2020, 20:34

terzine simmetriche - Aiuto per Listati

Ciao, Eugenio.
Ho aggiornato l' archivio superenalotto manualmente.

Ecco lo script.
Controlla che sia corretto.

SPOILER (clicca per visualizzare)

'Ricerca di Eugenio :Superenalotto - raggruppamento ( di qualsiasi lunghezza)terzine simmetriche assenti per ambate nelle ultime 10 estrazioni (Cinzia)
Sub main()
Dim n(),n1(1),n2(1),n3(1),nn(3)
r=1
'ru(1)=r

For es=EstrazioneFin(1)-500 To EstrazioneFin(1) -5
co=0

For i=1 To 30
nn(1)=i
nn(2)=i+30
nn(3)=i+60

If SerieFreq(es-10,es,nn,,1,1,True)=0 Then

n1(1)=i
If SerieFreq(es-10,es,n1,,1,1,True)=0 Then
co=co+1
Redim preserve n(co)
n(co)=n1(1)

n2(1)=i+30
If SerieFreq(es-10,es,n2,,1,1,True)=0 Then
co=co+1
Redim preserve n(co)
n(co)=n2(1)

n3(1)=i+60
If SerieFreq(es-10,es,n3,,1,1,True )=0 Then
co=co+1
Redim preserve n(co)
n(co)=n3(1)

End If
End If
End If
End If

Next

Scrivi FormatSpace(es,4,1)&" "&StringaNumeri(n)
If SerieFreq(es-10,es,n,,1,1,True)=0 Then
fr=SerieFreq(es+1,es+5,n,,2,1,True)
fr1=SerieFreq(es+1,es+5,n,,3,1,True)
fr2=SerieFreq(es+1,es+5,n,,4,1,True)
fr3=SerieFreq(es+1,es+5,n,,5,1,True)
fr4=SerieFreq(es+1,es+5,n,,6,1,True)
If fr>0 Then Scrivi "ambi "&fr
If fr1>0 Then Scrivi "terni "&fr1
If fr2>0 Then Scrivi "quaterne "&fr2
If fr3>0 Then Scrivi "cinquine "&fr3
If fr4>0 Then Scrivi "sestine "&fr4
Scrivi String(45,"*")
End If
Next

End Sub

Posted: 17/4/2020, 21:48

terzine simmetriche - Aiuto per Listati

E' uno stralcio dell' output su una prova di script che ho fatto per il superenalotto
la 9263 è del 17/02/2018
Come ti dicevo non ho l' archivio aggiornato.

Ciao
Cinzia

Posted: 17/4/2020, 18:48

terzine simmetriche - Aiuto per Listati

Prova a controllare questi risultati.

9263 26.56.86
ambi 1
*********************************************
9264 26.56.86
ambi 1
*********************************************
9265 12.42.72.26.56.86
ambi 1
*********************************************
9266 12.42.72.26.56.86
ambi 1
*********************************************
9267 12.42.72.20.50.80
*********************************************
9268 20.50.80
*********************************************
9269 20.50.80
*********************************************
9270 13.43.73.20.50.80.24.54.84
*********************************************
9271 13.43.73.24.54.84.28.58.88
*********************************************
9272 03.33.63.13.43.73.28.58.88
ambi 1

Posted: 17/4/2020, 14:58

terzine simmetriche - Aiuto per Listati

Mi dispiace, Eugenio.
Non ho l' archivio del superenalotto aggiornato.

Posted: 14/4/2020, 17:54

terzine simmetriche - Aiuto per Listati

Ciao, Eugenio.
Ecco lo script.

SPOILER (clicca per visualizzare)

'Ricerca di Eugenio : Raggruppamento ( di qualsiasi lunghezza)terzine simmetriche assenti per ambate nelle ulime 12 estrazioni (Cinzia)
Sub main()
Dim n(),ru(1),n1(1),n2(1),n3(1),nn(3)
r=1
ru(1)=r

For es=EstrazioneFin-100 To EstrazioneFin -6
co=0

For i=1 To 30
nn(1)=i
nn(2)=i+30
nn(3)=i+60

If SerieFreq(es-12,es,nn,ru,1)=0 Then

n1(1)=i
If SerieFreq(es-12,es,n1,ru,1)=0 Then
co=co+1
Redim preserve n(co)
n(co)=n1(1)

n2(1)=i+30
If SerieFreq(es-12,es,n2,ru,1)=0 Then
co=co+1
Redim preserve n(co)
n(co)=n2(1)

n3(1)=i+60
If SerieFreq(es-12,es,n3,ru,1)=0 Then
co=co+1
Redim preserve n(co)
n(co)=n3(1)

End If
End If
End If
End If

Next

Scrivi FormatSpace(es,4,1)&" "&siglaruota(r)&" "&StringaNumeri(n)
If SerieFreq(es-12,es,n,ru,1)=0 Then
fr=SerieFreq(es+1,es+6,n,ru,2)
fr1=SerieFreq(es+1,es+6,n,ru,3)
fr2=SerieFreq(es+1,es+6,n,ru,4)
fr3=SerieFreq(es+1,es+6,n,ru,5)
If fr>0 Then Scrivi "ambi "&fr
If fr1>0 Then Scrivi "terni "&fr1
If fr2>0 Then Scrivi "quaterne "&fr2
If fr3>0 Then Scrivi "cinquine "&fr3
Scrivi String(45,"*")
End If
Next

End Sub

Posted: 14/4/2020, 15:52

terzine simmetriche - Aiuto per Listati

Ciao, Eugenio.

Lottodesk nei test in cui imposta la giocata non ammette quantità di numeri superiori a 10.
Prova a fare qualche controllo su questi risultati.

SPOILER (clicca per visualizzare)

9663 Ba 11.41.71.13.43.73.20.50.80.25.55.85.29.59.89
ambi 1
*********************************************
9664 Ba 13.43.73.20.50.80.25.55.85.29.59.89
*********************************************
9665 Ba 13.43.73.20.50.80.25.55.85.29.59.89
*********************************************
9666 Ba 13.43.73.20.50.80.25.55.85.29.59.89
*********************************************
9667 Ba 07.37.67.13.43.73.20.50.80.27.57.87.29.59.89
*********************************************
9668 Ba 07.37.67.13.43.73.20.50.80.27.57.87.29.59.89
*********************************************
9669 Ba 07.37.67.13.43.73.27.57.87.29.59.89
*********************************************
9670 Ba 07.37.67.13.43.73.27.57.87.29.59.89
*********************************************
9671 Ba 07.37.67.13.43.73.27.57.87.29.59.89
*********************************************
9672 Ba 07.37.67.13.43.73.27.57.87.29.59.89
*********************************************
9673 Ba 07.37.67.13.43.73.27.57.87.29.59.89
*********************************************
9674 Ba 07.37.67.13.43.73.29.59.89
*********************************************
9675 Ba 05.35.65.07.37.67.13.43.73.29.59.89
ambi 1
*********************************************
9676 Ba 03.33.63.05.35.65.07.37.67.13.43.73.15.45.75.29.59.89
ambi 2
*********************************************
9677 Ba 03.33.63.05.35.65.07.37.67.12.42.72.13.43.73.15.45.75.29.59.89
ambi 3
*********************************************
9678 Ba 03.33.63.07.37.67.12.42.72.15.45.75.29.59.89
*********************************************
9679 Ba 03.33.63.07.37.67.12.42.72.15.45.75
ambi 1
*********************************************
9680 Ba 07.37.67.12.42.72.15.45.75
*********************************************
9681 Ba 12.42.72.15.45.75
*********************************************
9682 Ba 12.42.72.15.45.75.20.50.80
*********************************************
9683 Ba 12.42.72.15.45.75.20.50.80.22.52.82
*********************************************
9684 Ba 12.42.72.15.45.75.18.48.78.20.50.80.22.52.82
*********************************************
9685 Ba 15.45.75.18.48.78.20.50.80.22.52.82
*********************************************
9686 Ba 15.45.75.18.48.78.20.50.80.22.52.82
*********************************************
9687 Ba 15.45.75.18.48.78.20.50.80.22.52.82
*********************************************
9688 Ba 15.45.75.18.48.78.20.50.80.22.52.82
*********************************************
9689 Ba 15.45.75.18.48.78.20.50.80
ambi 1
*********************************************
9690 Ba 15.45.75.18.48.78.20.50.80
ambi 1
*********************************************
9691 Ba 15.45.75.18.48.78.20.50.80
ambi 2
*********************************************
9692 Ba 15.45.75.20.50.80
*********************************************
9693 Ba 15.45.75.20.50.80
*********************************************
9694 Ba 15.45.75.20.50.80
*********************************************
9695 Ba 15.45.75
*********************************************
9696 Ba 15.45.75
ambi 1
*********************************************
9697 Ba 15.45.75
9698 Ba 12.42.72
*********************************************
9699 Ba 11.41.71.12.42.72
*********************************************
9700 Ba 11.41.71.12.42.72.29.59.89
*********************************************
9701 Ba 03.33.63.11.41.71.12.42.72.19.49.79.29.59.89
ambi 1
*********************************************
9702 Ba 03.33.63.11.41.71.12.42.72.19.49.79.29.59.89
ambi 1
*********************************************
9703 Ba 03.33.63.11.41.71.12.42.72.13.43.73.19.49.79.29.59.89
ambi 1
*********************************************
9704 Ba 03.33.63.11.41.71.12.42.72.13.43.73.14.44.74.19.49.79.29.59.89
ambi 6
terni 4
quaterne 1
*********************************************
9705 Ba 11.41.71.12.42.72.13.43.73.14.44.74.19.49.79.27.57.87.29.59.89
ambi 3
terni 1
*********************************************
9706 Ba 11.41.71.12.42.72.14.44.74.19.49.79.21.51.81.27.57.87.29.59.89
ambi 3
terni 1

188 replies since 20/3/2020

Filter forums