SUPER LOTTO

TAVOLA SETTENARIA APPLICATA AI NUMERI ISOTOPI

« Older   Newer »
  Share  
il Toscano
CAT_IMG Posted on 21/3/2011, 16:37




Rintracciato l'isotopo...rimetterlo in gioco con il suo vertibile, usandoli come CAPOGIOCO........
Dalla TAVOLA SETTENARIA.....possiamo prendere la QUARTINA
dell'isotopo stesso, Ma possiamo anche prendere la QUARTINA del suo vertibile....viene fuori un DECINA su 84 casi di isotopia, mentre in SEI casi viene fuori un'ottina (dai numeri 15 45 75 e 30 60 90) poi sta a ciascuno di noi come impostare la giocata...personalmente preferisco in quartine con dentro sempre i due capogiochi.

Una particolare attenzione, in quanto numeri isotopi ne troviamo tanti..
allora preferisco mettere in gioco l'isotopo su RUOTE VICINE o CONSECUTIVE.

A tal proposito ci sono due listati, uno di DJNOMADE in decine,
e l'altro di DRAGO2940 in sestine...che cerco di postarli.


Questo in DECINA dJNOMADE
Sub Main()
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto isotopo X Osvaldo1=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim numeri(5),numeri1(10),numeri2(10),amb(8)
Dim posta(2)
Dim poste(2),postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 2.5
postee(3) = 1.3
postee(4) = 1
postee(5) = 0.2
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r2,p1)
If(a) =(b) Then
n1 = a
co = co + 1
Scrivi String(70,"="): ColoreTesto 9
Scrivi NomeRuota(r1) & "-" & NomeRuota(r2) & _
" Numero isotopo " & a & "-" & b & " estratto al " & p1 & "° posto",1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ] ",1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(n,r2) & " ]",1

Scrivi : ColoreTesto 0
ruota(1) = r1
ruota(2) = r2
If n1 = 1 Then amb(1) = 7:amb(2) = 13:amb(3) = 78:amb(4) = 90
If n1 = 2 Then amb(1) = 14:amb(2) = 26:amb(3) = 65:amb(4) = 89
If n1 = 3 Then amb(1) = 21:amb(2) = 39:amb(3) = 52:amb(4) = 88
If n1 = 4 Then amb(1) = 28:amb(2) = 52:amb(3) = 39:amb(4) = 87
If n1 = 5 Then amb(1) = 35:amb(2) = 65:amb(3) = 26:amb(4) = 86
If n1 = 6 Then amb(1) = 42:amb(2) = 78:amb(3) = 13:amb(4) = 85
If n1 = 7 Then amb(1) = 49:amb(2) = 1:amb(3) = 90:amb(4) = 84
If n1 = 8 Then amb(1) = 56:amb(2) = 14:amb(3) = 77:amb(4) = 83
If n1 = 9 Then amb(1) = 63:amb(2) = 27:amb(3) = 64:amb(4) = 82
If n1 = 10 Then amb(1) = 70:amb(2) = 40:amb(3) = 51:amb(4) = 81
If n1 = 11 Then amb(1) = 77:amb(2) = 53:amb(3) = 38:amb(4) = 80
If n1 = 12 Then amb(1) = 84:amb(2) = 66:amb(3) = 25:amb(4) = 79
If n1 = 13 Then amb(1) = 1:amb(2) = 79:amb(3) = 12:amb(4) = 78
If n1 = 14 Then amb(1) = 8:amb(2) = 2:amb(3) = 89:amb(4) = 77
If n1 = 15 Then amb(1) = 15:amb(2) = 15:amb(3) = 76:amb(4) = 76
If n1 = 16 Then amb(1) = 22:amb(2) = 28:amb(3) = 63:amb(4) = 75
If n1 = 17 Then amb(1) = 29:amb(2) = 41:amb(3) = 50:amb(4) = 74
If n1 = 18 Then amb(1) = 36:amb(2) = 54:amb(3) = 37:amb(4) = 73
If n1 = 19 Then amb(1) = 43:amb(2) = 67:amb(3) = 24:amb(4) = 72
If n1 = 20 Then amb(1) = 50:amb(2) = 11:amb(3) = 11:amb(4) = 71
If n1 = 21 Then amb(1) = 57:amb(2) = 3:amb(3) = 88:amb(4) = 70
If n1 = 22 Then amb(1) = 64:amb(2) = 16:amb(3) = 75:amb(4) = 69
If n1 = 23 Then amb(1) = 71:amb(2) = 29:amb(3) = 62:amb(4) = 68
If n1 = 24 Then amb(1) = 78:amb(2) = 42:amb(3) = 49:amb(4) = 67
If n1 = 25 Then amb(1) = 85:amb(2) = 55:amb(3) = 36:amb(4) = 66
If n1 = 26 Then amb(1) = 2:amb(2) = 68:amb(3) = 23:amb(4) = 65
If n1 = 27 Then amb(1) = 9:amb(2) = 81:amb(3) = 10:amb(4) = 64
If n1 = 28 Then amb(1) = 16:amb(2) = 4:amb(3) = 87:amb(4) = 63
If n1 = 29 Then amb(1) = 23:amb(2) = 17:amb(3) = 74:amb(4) = 62
If n1 = 30 Then amb(1) = 30:amb(2) = 30:amb(3) = 61:amb(4) = 61
If n1 = 31 Then amb(1) = 37:amb(2) = 43:amb(3) = 48:amb(4) = 60
If n1 = 32 Then amb(1) = 44:amb(2) = 56:amb(3) = 35:amb(4) = 59
If n1 = 33 Then amb(1) = 51:amb(2) = 69:amb(3) = 22:amb(4) = 58
If n1 = 34 Then amb(1) = 58:amb(2) = 82:amb(3) = 9:amb(4) = 57
If n1 = 35 Then amb(1) = 65:amb(2) = 5:amb(3) = 86:amb(4) = 56
If n1 = 36 Then amb(1) = 72:amb(2) = 18:amb(3) = 73:amb(4) = 55
If n1 = 37 Then amb(1) = 79:amb(2) = 31:amb(3) = 60:amb(4) = 54
If n1 = 38 Then amb(1) = 86:amb(2) = 44:amb(3) = 47:amb(4) = 53
If n1 = 39 Then amb(1) = 3:amb(2) = 57:amb(3) = 34:amb(4) = 52
If n1 = 40 Then amb(1) = 10:amb(2) = 70:amb(3) = 21:amb(4) = 51
If n1 = 41 Then amb(1) = 17:amb(2) = 83:amb(3) = 8:amb(4) = 50
If n1 = 42 Then amb(1) = 24:amb(2) = 6:amb(3) = 85:amb(4) = 49
If n1 = 43 Then amb(1) = 31:amb(2) = 19:amb(3) = 72:amb(4) = 48
If n1 = 44 Then amb(1) = 38:amb(2) = 32:amb(3) = 59:amb(4) = 47
If n1 = 45 Then amb(1) = 45:amb(2) = 45:amb(3) = 46:amb(4) = 46
If n1 = 46 Then amb(1) = 52:amb(2) = 58:amb(3) = 33:amb(4) = 45
If n1 = 47 Then amb(1) = 59:amb(2) = 71:amb(3) = 20:amb(4) = 44
If n1 = 48 Then amb(1) = 66:amb(2) = 84:amb(3) = 7:amb(4) = 43
If n1 = 49 Then amb(1) = 73:amb(2) = 7:amb(3) = 84:amb(4) = 42
If n1 = 50 Then amb(1) = 80:amb(2) = 20:amb(3) = 71:amb(4) = 41
If n1 = 51 Then amb(1) = 87:amb(2) = 33:amb(3) = 58:amb(4) = 40
If n1 = 52 Then amb(1) = 4:amb(2) = 46:amb(3) = 45:amb(4) = 39
If n1 = 53 Then amb(1) = 11:amb(2) = 59:amb(3) = 32:amb(4) = 38
If n1 = 54 Then amb(1) = 18:amb(2) = 72:amb(3) = 19:amb(4) = 37
If n1 = 55 Then amb(1) = 25:amb(2) = 85:amb(3) = 6:amb(4) = 36
If n1 = 56 Then amb(1) = 32:amb(2) = 8:amb(3) = 83:amb(4) = 35
If n1 = 57 Then amb(1) = 39:amb(2) = 21:amb(3) = 70:amb(4) = 34
If n1 = 58 Then amb(1) = 46:amb(2) = 34:amb(3) = 57:amb(4) = 33
If n1 = 59 Then amb(1) = 53:amb(2) = 47:amb(3) = 44:amb(4) = 32
If n1 = 60 Then amb(1) = 60:amb(2) = 31
If n1 = 61 Then amb(1) = 67:amb(2) = 73:amb(3) = 18:amb(4) = 30
If n1 = 62 Then amb(1) = 74:amb(2) = 86:amb(3) = 5:amb(4) = 29
If n1 = 63 Then amb(1) = 81:amb(2) = 9:amb(3) = 82:amb(4) = 28
If n1 = 64 Then amb(1) = 88:amb(2) = 22:amb(3) = 69:amb(4) = 27
If n1 = 65 Then amb(1) = 5:amb(2) = 35:amb(3) = 56:amb(4) = 26
If n1 = 66 Then amb(1) = 12:amb(2) = 48:amb(3) = 43:amb(4) = 25
If n1 = 67 Then amb(1) = 19:amb(2) = 61:amb(3) = 30:amb(4) = 24
If n1 = 68 Then amb(1) = 26:amb(2) = 74:amb(3) = 17:amb(4) = 23
If n1 = 69 Then amb(1) = 33:amb(2) = 87:amb(3) = 4:amb(4) = 22
If n1 = 70 Then amb(1) = 40:amb(2) = 10:amb(3) = 81:amb(4) = 21
If n1 = 71 Then amb(1) = 47:amb(2) = 23:amb(3) = 68:amb(4) = 20
If n1 = 72 Then amb(1) = 54:amb(2) = 36:amb(3) = 55:amb(4) = 19
If n1 = 73 Then amb(1) = 61:amb(2) = 49:amb(3) = 42:amb(4) = 18
If n1 = 74 Then amb(1) = 68:amb(2) = 62:amb(3) = 29:amb(4) = 17
If n1 = 75 Then amb(1) = 75:amb(2) = 75:amb(3) = 16:amb(4) = 16
If n1 = 76 Then amb(1) = 82:amb(2) = 88:amb(3) = 3:amb(4) = 15
If n1 = 77 Then amb(1) = 89:amb(2) = 11:amb(3) = 80:amb(4) = 14
If n1 = 78 Then amb(1) = 6:amb(2) = 24:amb(3) = 67:amb(4) = 13
If n1 = 79 Then amb(1) = 13:amb(2) = 37:amb(3) = 54:amb(4) = 12
If n1 = 80 Then amb(1) = 20:amb(2) = 50:amb(3) = 41:amb(4) = 11
If n1 = 81 Then amb(1) = 27:amb(2) = 63:amb(3) = 28:amb(4) = 10
If n1 = 82 Then amb(1) = 34:amb(2) = 76:amb(3) = 15:amb(4) = 9
If n1 = 83 Then amb(1) = 41:amb(2) = 89:amb(3) = 2:amb(4) = 8
If n1 = 84 Then amb(1) = 48:amb(2) = 12:amb(3) = 79:amb(4) = 7
If n1 = 85 Then amb(1) = 55:amb(2) = 25:amb(3) = 66:amb(4) = 6
If n1 = 86 Then amb(1) = 62:amb(2) = 38:amb(3) = 53:amb(4) = 5
If n1 = 87 Then amb(1) = 69:amb(2) = 51:amb(3) = 40:amb(4) = 4
If n1 = 88 Then amb(1) = 76:amb(2) = 64:amb(3) = 27:amb(4) = 3
If n1 = 89 Then amb(1) = 83:amb(2) = 77:amb(3) = 14:amb(4) = 2
If n1 = 90 Then amb(1) = 90:amb(2) = 90:amb(3) = 1:amb(4) = 1


If Vert(n1) = 1 Then amb(5) = 7:amb(6) = 13:amb(7) = 78:amb(8) = 90
If Vert(n1) = 2 Then amb(5) = 14:amb(6) = 26:amb(7) = 65:amb(8) = 89
If Vert(n1) = 3 Then amb(5) = 21:amb(6) = 39:amb(7) = 52:amb(8) = 88
If Vert(n1) = 4 Then amb(5) = 28:amb(6) = 52:amb(7) = 39:amb(8) = 87
If Vert(n1) = 5 Then amb(5) = 35:amb(6) = 65:amb(7) = 26:amb(8) = 86
If Vert(n1) = 6 Then amb(5) = 42:amb(6) = 78:amb(7) = 13:amb(8) = 85
If Vert(n1) = 7 Then amb(5) = 49:amb(6) = 1:amb(7) = 90:amb(8) = 84
If Vert(n1) = 8 Then amb(5) = 56:amb(6) = 14:amb(7) = 77:amb(8) = 83
If Vert(n1) = 9 Then amb(5) = 63:amb(6) = 27:amb(7) = 64:amb(8) = 82
If Vert(n1) = 10 Then amb(5) = 70:amb(6) = 40:amb(7) = 51:amb(8) = 81
If Vert(n1) = 11 Then amb(5) = 77:amb(6) = 53:amb(7) = 38:amb(8) = 80
If Vert(n1) = 12 Then amb(5) = 84:amb(6) = 66:amb(7) = 25:amb(8) = 79
If Vert(n1) = 13 Then amb(5) = 1:amb(6) = 79:amb(7) = 12:amb(8) = 78
If Vert(n1) = 14 Then amb(5) = 8:amb(6) = 2:amb(7) = 89:amb(8) = 77
If Vert(n1) = 15 Then amb(5) = 15:amb(6) = 15:amb(7) = 76:amb(8) = 76
If Vert(n1) = 16 Then amb(5) = 22:amb(6) = 28:amb(7) = 63:amb(8) = 75
If Vert(n1) = 17 Then amb(5) = 29:amb(6) = 41:amb(7) = 50:amb(8) = 74
If Vert(n1) = 18 Then amb(5) = 36:amb(6) = 54:amb(7) = 37:amb(8) = 73
If Vert(n1) = 19 Then amb(5) = 43:amb(6) = 67:amb(7) = 24:amb(8) = 72
If Vert(n1) = 20 Then amb(5) = 50:amb(6) = 11:amb(7) = 11:amb(8) = 71
If Vert(n1) = 21 Then amb(5) = 57:amb(6) = 3:amb(7) = 88:amb(8) = 70
If Vert(n1) = 22 Then amb(5) = 64:amb(6) = 16:amb(7) = 75:amb(8) = 69
If Vert(n1) = 23 Then amb(5) = 71:amb(6) = 29:amb(7) = 62:amb(8) = 68
If Vert(n1) = 24 Then amb(5) = 78:amb(6) = 42:amb(7) = 49:amb(8) = 67
If Vert(n1) = 25 Then amb(5) = 85:amb(6) = 55:amb(7) = 36:amb(8) = 66
If Vert(n1) = 26 Then amb(5) = 2:amb(6) = 68:amb(7) = 23:amb(8) = 65
If Vert(n1) = 27 Then amb(5) = 9:amb(6) = 81:amb(7) = 10:amb(8) = 64
If Vert(n1) = 28 Then amb(5) = 16:amb(6) = 4:amb(7) = 87:amb(8) = 63
If Vert(n1) = 29 Then amb(5) = 23:amb(6) = 17:amb(7) = 74:amb(8) = 62
If Vert(n1) = 30 Then amb(5) = 30:amb(6) = 30:amb(7) = 61:amb(8) = 61
If Vert(n1) = 31 Then amb(5) = 37:amb(6) = 43:amb(7) = 48:amb(8) = 60
If Vert(n1) = 32 Then amb(5) = 44:amb(6) = 56:amb(7) = 35:amb(8) = 59
If Vert(n1) = 33 Then amb(5) = 51:amb(6) = 69:amb(7) = 22:amb(8) = 58
If Vert(n1) = 34 Then amb(5) = 58:amb(6) = 82:amb(7) = 9:amb(8) = 57
If Vert(n1) = 35 Then amb(5) = 65:amb(6) = 5:amb(7) = 86:amb(8) = 56
If Vert(n1) = 36 Then amb(5) = 72:amb(6) = 18:amb(7) = 73:amb(8) = 55
If Vert(n1) = 37 Then amb(5) = 79:amb(6) = 31:amb(7) = 60:amb(8) = 54
If Vert(n1) = 38 Then amb(5) = 86:amb(6) = 44:amb(7) = 47:amb(8) = 53
If Vert(n1) = 39 Then amb(5) = 3:amb(6) = 57:amb(7) = 34:amb(8) = 52
If Vert(n1) = 40 Then amb(5) = 10:amb(6) = 70:amb(7) = 21:amb(8) = 51
If Vert(n1) = 41 Then amb(5) = 17:amb(6) = 83:amb(7) = 8:amb(8) = 50
If Vert(n1) = 42 Then amb(5) = 24:amb(6) = 6:amb(7) = 85:amb(8) = 49
If Vert(n1) = 43 Then amb(5) = 31:amb(6) = 19:amb(7) = 72:amb(8) = 48
If Vert(n1) = 44 Then amb(5) = 38:amb(6) = 32:amb(7) = 59:amb(8) = 47
If Vert(n1) = 45 Then amb(5) = 45:amb(6) = 45:amb(7) = 46:amb(8) = 46
If Vert(n1) = 46 Then amb(5) = 52:amb(6) = 58:amb(7) = 33:amb(8) = 45
If Vert(n1) = 47 Then amb(5) = 59:amb(6) = 71:amb(7) = 20:amb(8) = 44
If Vert(n1) = 48 Then amb(5) = 66:amb(6) = 84:amb(7) = 7:amb(8) = 43
If Vert(n1) = 49 Then amb(5) = 73:amb(6) = 7:amb(7) = 84:amb(8) = 42
If Vert(n1) = 50 Then amb(5) = 80:amb(6) = 20:amb(7) = 71:amb(8) = 41
If Vert(n1) = 51 Then amb(5) = 87:amb(6) = 33:amb(7) = 58:amb(8) = 40
If Vert(n1) = 52 Then amb(5) = 4:amb(6) = 46:amb(7) = 45:amb(8) = 39
If Vert(n1) = 53 Then amb(5) = 11:amb(6) = 59:amb(7) = 32:amb(8) = 38
If Vert(n1) = 54 Then amb(5) = 18:amb(6) = 72:amb(7) = 19:amb(8) = 37
If Vert(n1) = 55 Then amb(5) = 25:amb(6) = 85:amb(7) = 6:amb(8) = 36
If Vert(n1) = 56 Then amb(5) = 32:amb(6) = 8:amb(7) = 83:amb(8) = 35
If Vert(n1) = 57 Then amb(5) = 39:amb(6) = 21:amb(7) = 70:amb(8) = 34
If Vert(n1) = 58 Then amb(5) = 46:amb(6) = 34:amb(7) = 57:amb(8) = 33
If Vert(n1) = 59 Then amb(5) = 53:amb(6) = 47:amb(7) = 44:amb(8) = 32
If Vert(n1) = 60 Then amb(5) = 60:amb(6) = 31
If Vert(n1) = 61 Then amb(5) = 67:amb(6) = 73:amb(7) = 18:amb(8) = 30
If Vert(n1) = 62 Then amb(5) = 74:amb(6) = 86:amb(7) = 5:amb(8) = 29
If Vert(n1) = 63 Then amb(5) = 81:amb(6) = 9:amb(7) = 82:amb(8) = 28
If Vert(n1) = 64 Then amb(5) = 88:amb(6) = 22:amb(7) = 69:amb(8) = 27
If Vert(n1) = 65 Then amb(5) = 5:amb(6) = 35:amb(7) = 56:amb(8) = 26
If Vert(n1) = 66 Then amb(5) = 12:amb(6) = 48:amb(7) = 43:amb(8) = 25
If Vert(n1) = 67 Then amb(5) = 19:amb(6) = 61:amb(7) = 30:amb(8) = 24
If Vert(n1) = 68 Then amb(5) = 26:amb(6) = 74:amb(7) = 17:amb(8) = 23
If Vert(n1) = 69 Then amb(5) = 33:amb(6) = 87:amb(7) = 4:amb(8) = 22
If Vert(n1) = 70 Then amb(5) = 40:amb(6) = 10:amb(7) = 81:amb(8) = 21
If Vert(n1) = 71 Then amb(5) = 47:amb(6) = 23:amb(7) = 68:amb(8) = 20
If Vert(n1) = 72 Then amb(5) = 54:amb(6) = 36:amb(7) = 55:amb(8) = 19
If Vert(n1) = 73 Then amb(5) = 61:amb(6) = 49:amb(7) = 42:amb(8) = 18
If Vert(n1) = 74 Then amb(5) = 68:amb(6) = 62:amb(7) = 29:amb(8) = 17
If Vert(n1) = 75 Then amb(5) = 75:amb(6) = 75:amb(7) = 16:amb(8) = 16
If Vert(n1) = 76 Then amb(5) = 82:amb(6) = 88:amb(7) = 3:amb(8) = 15
If Vert(n1) = 77 Then amb(5) = 89:amb(6) = 11:amb(7) = 80:amb(8) = 14
If Vert(n1) = 78 Then amb(5) = 6:amb(6) = 24:amb(7) = 67:amb(8) = 13
If Vert(n1) = 79 Then amb(5) = 13:amb(6) = 37:amb(7) = 54:amb(8) = 12
If Vert(n1) = 80 Then amb(5) = 20:amb(6) = 50:amb(7) = 41:amb(8) = 11
If Vert(n1) = 81 Then amb(5) = 27:amb(6) = 63:amb(7) = 28:amb(8) = 10
If Vert(n1) = 82 Then amb(5) = 34:amb(6) = 76:amb(7) = 15:amb(8) = 9
If Vert(n1) = 83 Then amb(5) = 41:amb(6) = 89:amb(7) = 2:amb(8) = 8
If Vert(n1) = 84 Then amb(5) = 48:amb(6) = 12:amb(7) = 79:amb(8) = 7
If Vert(n1) = 85 Then amb(5) = 55:amb(6) = 25:amb(7) = 66:amb(8) = 6
If Vert(n1) = 86 Then amb(5) = 62:amb(6) = 38:amb(7) = 53:amb(8) = 5
If Vert(n1) = 87 Then amb(5) = 69:amb(6) = 51:amb(7) = 40:amb(8) = 4
If Vert(n1) = 88 Then amb(5) = 76:amb(6) = 64:amb(7) = 27:amb(8) = 3
If Vert(n1) = 89 Then amb(5) = 83:amb(6) = 77:amb(7) = 14:amb(8) = 2
If Vert(n1) = 90 Then amb(5) = 90:amb(6) = 90:amb(7) = 1:amb(8) = 1

numeri1(1) = n1
numeri1(2) = Vert(n1)

ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri2(1) = n1
numeri2(2) = Vert(n1)
numeri2(3) = amb(1)
numeri2(4) = amb(2)
numeri2(5) = amb(3)
numeri2(6) = amb(4)
numeri2(7) = amb(5)
numeri2(8) = amb(6)
numeri2(9) = amb(7)
numeri2(10) = amb(8)
ImpostaGiocata 2,numeri2,ruota,postee,clp,3



Gioca n

End If
Next
Next : Next
Next
Scrivi : Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub


questo in DUE sestine di DRAGO2940
Sub Main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
x = Estratto(es,r2,p3):x1 = Vert(x)
If p3 = p1 Then
If x = n1 Then
a1 = Fuori90(x*7)
a2 = Fuori90(x*13)
k = Abs(x - 1):a3 = Fuori90(78*x - k)
a4 = 91 - x
b1 = Fuori90(x1*7)
b2 = Fuori90(x1*13)
k = Abs(x1 - 1):b3 = Fuori90(78*x1 - k)
b4 = 91 - x1
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > Numero uguale... < " & Format2(n1) & "."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > Numero uguale... < " & Format2(x) & " ."
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = r3: k = 14:co = 0:ruota(1) = 11:co = 0
nu1(1) = x
nu1(2) = x1
nu1(3) = a1
nu1(4) = a2
nu1(5) = a3
nu1(6) = a4
co = co + 1
ImpostaGiocata co,nu1,ruote,poste,k
nu1(1) = x
nu1(2) = x1
nu1(3) = b1
nu1(4) = b2
nu1(5) = b3
nu1(6) = b4
co = co + 1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1) = x
nu2(2) = x1
nu2(3) = a1
nu2(4) = a2
nu2(5) = a3
nu2(6) = a4
nu2(7) = b1
nu2(8) = b2
nu2(8) = b3
nu2(10) = b4
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


Edited by il Toscano - 6/7/2012, 10:16
 
Top
occhidigiada58.
CAT_IMG Posted on 10/6/2011, 20:49




wow , bei listati davvero!!!!!!!
 
Top
il Toscano
CAT_IMG Posted on 6/7/2011, 11:35




inserisco il listato fatto da Drago2940,che ringrazio,
con le relative chiavi..per ciascuna posizione dell'isotopo:

Sub main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2)=1
fin=EstrazioneFin
ini=fin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=1 To 10
For p1=1 To 5
n1=Estratto(es,r1,p1)
For r2=r1+1 To 11
If r2=11 Then r2=12
For p3=1 To 5
x=Estratto(es,r2,p3)
If p3=p1 Then
If x=n1 And r1+1=r2 Or n1=x And DiametraleD(r1)=r2 And r2<11 Or n1=x And r2<11 And r1=r2-11 Then
a1=Fuori90(x*13)
k1=Abs(x-1):a2=Fuori90(78*x-k1)
a3=Fuori90(x*7)
a4=91-x
b1=Fuori90(a2+a1)
b2=Fuori90(a3+a4)
c1=Fuori90(b1+b2)
c2=Fuori90(a1+a3)
c3=Fuori90(a2+a4)
k3=Fuori90(c2+c3)
If k3=c1 Then
If p1=1 Then k2=645
If p1=2 Then k2=554
If p1=3 Then k2=463
If p1=4 Then k2=372
If p1=5 Then k2=281
If Len(k3)=1 Then k3=(0&k3)
k5=(k2&k3)
w1=Figura(Mid(k5,1,1)+(Mid(k5,2,1)))
w2=Figura(Mid(k5,2,1)+(Mid(k5,3,1)))
w3=Figura(Mid(k5,3,1)+(Mid(k5,4,1)))
w4=Figura(Mid(k5,4,1)+(Mid(k5,5,1)))
w5=Figura(w1+w2)
w6=Figura(w2+w3)
w7=Figura(w3+w4)
w8=Figura(w5+w6)
w9=Figura(w6+w7)
w10=Fuori90(w8&w9)
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Numero uguale... < "&Format2(n1)&"."
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Numero uguale... < "&Format2(x)&" Pos "&Format2(p1)&" Codice "&Format2(k2)&" ."
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3: k=14:co=0:ruota(1)=11:co=0
nu2(1)=w10
nu2(2)=Diametrale(w10)
nu2(3)=a1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=w10
nu2(2)=Diametrale(w10)
nu2(3)=a2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=w10
nu2(2)=Diametrale(w10)
nu2(3)=a3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu2(1)=w10
nu2(2)=Diametrale(w10)
nu2(3)=a4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
co=co+1
ImpostaGiocata co,nu2,ruota,poste,k
nu1(1)=w10
nu1(2)=Diametrale(w10)
nu1(3)=a1
nu1(4)=a2
nu1(5)=a3
nu1(6)=a4
co=co+1
ImpostaGiocata co,nu1,ruote,poste,k
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


LE RELATIVE CHIAVI PER CIASCUNA POSIZIONE DELL'ISOTOPO SONO:
Isotopo in 1^ posizione CHIAVE 645
Isotopo in 2^ posizione CHIAVE 554
Isotopo in 3^ posizione CHIAVE 463
Isotopo in 4^ posizione CHIAVE 372
Isotopo in 5^ posizione CHIAVE 281

un esempio:
42 del 23/6 BA/CA sortito in I^ posizione....la CHIAVE è la 645

al n. 42 della Tavola settenaria la quartina:

06 85 =91+
24 49 =73
___________
30 44 =74

piramidiamo:
64574
.1932
..135
...48 (ambata)
....3 Abbinamento principale

abbinarci anche i numeri del rettangolo in cui si trova il 42
Cioè 24 49 06 85

ESITI:
28/06/----BARI 48 06
02/07/---CAGLIARI 48 24
05 07/---CAGLIARI 48 03

NB. piramidando le sole 5 chiavi....il numero a due cifre è sempre il 19..
visto e letto che il 19 è un numero ...diciamo magico della SETTENARIA.

............BUONA FORTUNA....





Edited by il Toscano - 23/3/2012, 23:42
 
Top
osvaldo1
CAT_IMG Posted on 6/11/2011, 21:11




il Toscano?....se moi....

la riporto su...vedendo un isotopo MI/NA in IV^ posizione il 26.....
di conseguenza uso il codice o Chiave 3 7 2...
al n.26 della settenaria troviamo:
68 23 =91
02 65 =67
_________
70 88 =68
piramidiamo con la chiave:
37268
-1985
--184
---93* Ambata
----3

giochiamo due terzine:
03 23 68
03 02 65

oppure la cinquina
02 03 23 65 68



:FS-msn_96.gif:

vediamo come si comporta nelle prossime estrazioni.






Edited by osvaldo1 - 7/11/2011, 13:09

Attached Image: TOSCANO

TOSCANO

 
Top
CAT_IMG Posted on 7/11/2011, 12:11
Avatar

Group:
Member
Posts:
378

Status:


CIAO OSVI, volevo chiederti, perchè non è incluso anche il 48 ? C'è forse qualche motivo particolare per escluderlo e poi le terzine del Metodo sono un po differenti, perchè le scegli così

CIao e Grazie
:winner_first_h4h.gif:
 
Top
osvaldo1
CAT_IMG Posted on 7/11/2011, 12:43




Nel listato viene inserito il Diametrale dell'ambata ...che personalmente non uso.

Il n. 26 sortito isotopo in IV^ posizione..indica la terzina 372, da piramidare con i due ambi rilevati al n.26...sommando i due in orizzontale e in verticale portano uno stesso numero da accodare al CODICE 372..e piramidare...il penultimo nomero è l'ambata (non in questo caso in quanto con il fuori 90 è 3 e l'ambo secco sarebbe con lo stesso 3) vedi il primo caso esposto.

Già parlato in altro Forum, e quante me ne hanno dette,in particolare
una "gentile Sig.na" che di gentile non ha proprio NULLA.



ciao giacomone :bye1.gif: :bye1.gif:


Edited by osvaldo1 - 7/11/2011, 13:06
 
Top
CAT_IMG Posted on 7/11/2011, 15:13
Avatar

Group:
Member
Posts:
378

Status:


Grazie OSVI, lascia perdere le "SIGNORINE" degli altri Forum, sono tutti camionisti travestiti.

Le perle le trovi solo qui

CIAO MELA,:wub: CIAO OKKI :wub:
 
Top
osvaldo1
CAT_IMG Posted on 10/11/2011, 21:48




CITAZIONE (osvaldo1 @ 6/11/2011, 21:11) 
il Toscano?....se moi....

la riporto su...vedendo un isotopo MI/NA in IV^ posizione il 26.....
di conseguenza uso il codice o Chiave 3 7 2...
al n.26 della settenaria troviamo:
68 23 =91
02 65 =67
_________
70 88 =68
piramidiamo con la chiave:
37268
-1985
--184
---93* Ambata
----3

giochiamo due terzine:
03 23 68
03 02 65

oppure la cinquina
02 03 23 65 68



:FS-msn_96.gif:

vediamo come si comporta nelle prossime estrazioni.





Napoli ambata 03 sola soletta II° colpo...

continua
 
Top
il Toscano
CAT_IMG Posted on 16/11/2011, 11:58




estrazione del 12 novembre:
FI 78
GE 78

la chiave della prima posizione dei numeri è la 645...

al n. 78 della tavola troviamo il due ambi:
24 67=91
06 13=19
_______
30 80=20

Piramidiamo

64520
-1972
--179
---87 (ambata)
----6 abb. principale

esito a colpo GE 87




dal 17 novembre la nuova:

PA 18
RO 18

la chiave del 18 isotopo sortito in II^ pos. è la 554

gli ambi della tav.Sett. al n. 18 sono:

54 37=91
36 73=19
________
90 20=20


Piramidiamo
55420
-1962
--168
---75 (ambata-okkio nell'estrazione di calcolo su ROMA)
----3 Abb.principale

Secco 75 03 (okkio il 03 nell'estrazione di calcolo su PA e il 75 su RO---si accoppieranno?)

per ambo 75 54 36 37 73
 
Top
il Toscano
CAT_IMG Posted on 17/11/2011, 21:16




CITAZIONE (il Toscano @ 16/11/2011, 11:58) 
estrazione del 12 novembre:
FI 78
GE 78

la chiave della prima posizione dei numeri è la 645...

al n. 78 della tavola troviamo il due ambi:
24 67=91
06 13=19
_______
30 80=20

Piramidiamo

64520
-1972
--179
---87 (ambata)
----6 abb. principale

esito a colpo GE 87





II° colpo ancora 87 ..ma su FIRENZE.......grrrrrrrrr 05!!!!
 
Top
il Toscano
CAT_IMG Posted on 23/11/2011, 10:05




CITAZIONE (il Toscano @ 16/11/2011, 11:58) 
dal 17 novembre la nuova:

PA 18
RO 18

la chiave del 18 isotopo sortito in II^ pos. è la 554

gli ambi della tav.Sett. al n. 18 sono:

54 37=91
36 73=19
________
90 20=20


Piramidiamo
55420
-1962
--168
---75 (ambata-okkio nell'estrazione di calcolo su ROMA)
----3 Abb.principale

Secco 75 03 (okkio il 03 nell'estrazione di calcolo su PA e il 75 su RO---si accoppieranno?)

per ambo 75 54 36 37 73

<b>Roma abbinamento principale 03

TT (CA ) sekko 75 03
terno 37 54 75 ...e 3!!!!!


N.B. prendendo in considerazione anche il vertibile dell'isotopo 18...cioè 81...ed applicando la quartina della TAVOLA...l'estrazione del 19 novembre forniva l'ambo 27 28 su ROMA

Per la cronaca que 53 isotopo di BA/FI..anche se non vicini, portava a colpo l'ambo 11 38 su BARI.</b>

Edited by il Toscano - 23/11/2011, 10:43
 
Top
occhidigiada58.
CAT_IMG Posted on 23/11/2011, 10:47




il 38 a bari l'avevo...io ho tralasciato il 23.32 isotopo a a ba e ca...il segreto del monco portavano 42.24...come ambate..,.mentre in mio metodo numero isotopo portavano le ambate 23.32 con 24.42 e 33.39...ormai l'e anda'!!
 
Top
il Toscano
CAT_IMG Posted on 30/11/2011, 11:41




CITAZIONE (il Toscano @ 16/11/2011, 11:58) 
estrazione del 12 novembre:
FI 78
GE 78

la chiave della prima posizione dei numeri è la 645...

al n. 78 della tavola troviamo il due ambi:
24 67=91
06 13=19
_______
30 80=20

Piramidiamo

64520
-1972
--179
---87 (ambata)
----6 abb. principale




anche se chiusa evidenzio ambo sekkissimo a tutte:
87 06 (NA)
 
Top
occhidigiada58.
CAT_IMG Posted on 2/12/2011, 12:28




bravo toscanone one one
ora posto lo studio con la settenaria di don rutili basandomi sugli ambi diametrali isotopi vedi se ti piace!!!
 
Top
il Toscano
CAT_IMG Posted on 17/12/2011, 18:01




CITAZIONE (il Toscano @ 21/3/2011, 16:37) 
manofico

Rintracciato l'isotopo...rimetterlo in gioco con il suo vertibile, usandoli come CAPOGIOCO........
Dalla TAVOLA SETTENARIA.....possiamo prendere la QUARTINA
dell'isotopo stesso, Ma possiamo anche prendere la QUARTINA del suo vertibile....viene fuori un DECINA su 84 casi di isotopia, mentre in SEI casi viene fuori un'ottina (dai numeri 15 45 75 e 30 60 90) poi sta a ciascuno di noi come impostare la giocata...personalmente preferisco in quartine con dentro sempre i due capogiochi.

Una particolare attenzione, in quanto numeri isotopi ne troviamo tanti..
allora preferisco mettere in gioco l'isotopo su RUOTE VICINE o CONSECUTIVE.

A tal proposito ci sono due listati, uno di DJNOMADE in decine,
e l'altro di DRAGO2940 in sestine...che cerco di postarli.


Questo in DECINA dJNOMADE
Sub Main()
ColoreTesto 2
Scrivi "================================================== TABELLA SETTENARIA===================== ",1
Scrivi "===============================================con numero ripetuto isotopo X Osvaldo1=================== ",1
Scrivi "===============================================Listato DjNomade",1
Scrivi
ColoreTesto 0
Dim ruota(2)
Dim numeri(5),numeri1(10),numeri2(10),amb(8)
Dim posta(2)
Dim poste(2),postee(5)
posta(1) = 1
posta(2) = 1
poste(2) = 1
postee(2) = 2.5
postee(3) = 1.3
postee(4) = 1
postee(5) = 0.2
tmp = CInt(InputBox("Quante Estrazioni Vuoi Controllare ?","ESTRAZIONI",50))
clp = CInt(InputBox("Per quanti colpi di gioco ?","COLPI",12))
co = 0
ini = EstrazioneFin - tmp
For n = ini To EstrazioneFin
Messaggio(n)
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p1 = 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r2,p1)
If(a) =(b) Then
n1 = a
co = co + 1
Scrivi String(70,"="): ColoreTesto 9
Scrivi NomeRuota(r1) & "-" & NomeRuota(r2) & _
" Numero isotopo " & a & "-" & b & " estratto al " & p1 & "° posto",1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(n,r1) & " ] ",1
Scrivi DataEstrazione(n,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(n,r2) & " ]",1

Scrivi : ColoreTesto 0
ruota(1) = r1
ruota(2) = r2
If n1 = 1 Then amb(1) = 7:amb(2) = 13:amb(3) = 78:amb(4) = 90
If n1 = 2 Then amb(1) = 14:amb(2) = 26:amb(3) = 65:amb(4) = 89
If n1 = 3 Then amb(1) = 21:amb(2) = 39:amb(3) = 52:amb(4) = 88
If n1 = 4 Then amb(1) = 28:amb(2) = 52:amb(3) = 39:amb(4) = 87
If n1 = 5 Then amb(1) = 35:amb(2) = 65:amb(3) = 26:amb(4) = 86
If n1 = 6 Then amb(1) = 42:amb(2) = 78:amb(3) = 13:amb(4) = 85
If n1 = 7 Then amb(1) = 49:amb(2) = 1:amb(3) = 90:amb(4) = 84
If n1 = 8 Then amb(1) = 56:amb(2) = 14:amb(3) = 77:amb(4) = 83
If n1 = 9 Then amb(1) = 63:amb(2) = 27:amb(3) = 64:amb(4) = 82
If n1 = 10 Then amb(1) = 70:amb(2) = 40:amb(3) = 51:amb(4) = 81
If n1 = 11 Then amb(1) = 77:amb(2) = 53:amb(3) = 38:amb(4) = 80
If n1 = 12 Then amb(1) = 84:amb(2) = 66:amb(3) = 25:amb(4) = 79
If n1 = 13 Then amb(1) = 1:amb(2) = 79:amb(3) = 12:amb(4) = 78
If n1 = 14 Then amb(1) = 8:amb(2) = 2:amb(3) = 89:amb(4) = 77
If n1 = 15 Then amb(1) = 15:amb(2) = 15:amb(3) = 76:amb(4) = 76
If n1 = 16 Then amb(1) = 22:amb(2) = 28:amb(3) = 63:amb(4) = 75
If n1 = 17 Then amb(1) = 29:amb(2) = 41:amb(3) = 50:amb(4) = 74
If n1 = 18 Then amb(1) = 36:amb(2) = 54:amb(3) = 37:amb(4) = 73
If n1 = 19 Then amb(1) = 43:amb(2) = 67:amb(3) = 24:amb(4) = 72
If n1 = 20 Then amb(1) = 50:amb(2) = 11:amb(3) = 11:amb(4) = 71
If n1 = 21 Then amb(1) = 57:amb(2) = 3:amb(3) = 88:amb(4) = 70
If n1 = 22 Then amb(1) = 64:amb(2) = 16:amb(3) = 75:amb(4) = 69
If n1 = 23 Then amb(1) = 71:amb(2) = 29:amb(3) = 62:amb(4) = 68
If n1 = 24 Then amb(1) = 78:amb(2) = 42:amb(3) = 49:amb(4) = 67
If n1 = 25 Then amb(1) = 85:amb(2) = 55:amb(3) = 36:amb(4) = 66
If n1 = 26 Then amb(1) = 2:amb(2) = 68:amb(3) = 23:amb(4) = 65
If n1 = 27 Then amb(1) = 9:amb(2) = 81:amb(3) = 10:amb(4) = 64
If n1 = 28 Then amb(1) = 16:amb(2) = 4:amb(3) = 87:amb(4) = 63
If n1 = 29 Then amb(1) = 23:amb(2) = 17:amb(3) = 74:amb(4) = 62
If n1 = 30 Then amb(1) = 30:amb(2) = 30:amb(3) = 61:amb(4) = 61
If n1 = 31 Then amb(1) = 37:amb(2) = 43:amb(3) = 48:amb(4) = 60
If n1 = 32 Then amb(1) = 44:amb(2) = 56:amb(3) = 35:amb(4) = 59
If n1 = 33 Then amb(1) = 51:amb(2) = 69:amb(3) = 22:amb(4) = 58
If n1 = 34 Then amb(1) = 58:amb(2) = 82:amb(3) = 9:amb(4) = 57
If n1 = 35 Then amb(1) = 65:amb(2) = 5:amb(3) = 86:amb(4) = 56
If n1 = 36 Then amb(1) = 72:amb(2) = 18:amb(3) = 73:amb(4) = 55
If n1 = 37 Then amb(1) = 79:amb(2) = 31:amb(3) = 60:amb(4) = 54
If n1 = 38 Then amb(1) = 86:amb(2) = 44:amb(3) = 47:amb(4) = 53
If n1 = 39 Then amb(1) = 3:amb(2) = 57:amb(3) = 34:amb(4) = 52
If n1 = 40 Then amb(1) = 10:amb(2) = 70:amb(3) = 21:amb(4) = 51
If n1 = 41 Then amb(1) = 17:amb(2) = 83:amb(3) = 8:amb(4) = 50
If n1 = 42 Then amb(1) = 24:amb(2) = 6:amb(3) = 85:amb(4) = 49
If n1 = 43 Then amb(1) = 31:amb(2) = 19:amb(3) = 72:amb(4) = 48
If n1 = 44 Then amb(1) = 38:amb(2) = 32:amb(3) = 59:amb(4) = 47
If n1 = 45 Then amb(1) = 45:amb(2) = 45:amb(3) = 46:amb(4) = 46
If n1 = 46 Then amb(1) = 52:amb(2) = 58:amb(3) = 33:amb(4) = 45
If n1 = 47 Then amb(1) = 59:amb(2) = 71:amb(3) = 20:amb(4) = 44
If n1 = 48 Then amb(1) = 66:amb(2) = 84:amb(3) = 7:amb(4) = 43
If n1 = 49 Then amb(1) = 73:amb(2) = 7:amb(3) = 84:amb(4) = 42
If n1 = 50 Then amb(1) = 80:amb(2) = 20:amb(3) = 71:amb(4) = 41
If n1 = 51 Then amb(1) = 87:amb(2) = 33:amb(3) = 58:amb(4) = 40
If n1 = 52 Then amb(1) = 4:amb(2) = 46:amb(3) = 45:amb(4) = 39
If n1 = 53 Then amb(1) = 11:amb(2) = 59:amb(3) = 32:amb(4) = 38
If n1 = 54 Then amb(1) = 18:amb(2) = 72:amb(3) = 19:amb(4) = 37
If n1 = 55 Then amb(1) = 25:amb(2) = 85:amb(3) = 6:amb(4) = 36
If n1 = 56 Then amb(1) = 32:amb(2) = 8:amb(3) = 83:amb(4) = 35
If n1 = 57 Then amb(1) = 39:amb(2) = 21:amb(3) = 70:amb(4) = 34
If n1 = 58 Then amb(1) = 46:amb(2) = 34:amb(3) = 57:amb(4) = 33
If n1 = 59 Then amb(1) = 53:amb(2) = 47:amb(3) = 44:amb(4) = 32
If n1 = 60 Then amb(1) = 60:amb(2) = 31
If n1 = 61 Then amb(1) = 67:amb(2) = 73:amb(3) = 18:amb(4) = 30
If n1 = 62 Then amb(1) = 74:amb(2) = 86:amb(3) = 5:amb(4) = 29
If n1 = 63 Then amb(1) = 81:amb(2) = 9:amb(3) = 82:amb(4) = 28
If n1 = 64 Then amb(1) = 88:amb(2) = 22:amb(3) = 69:amb(4) = 27
If n1 = 65 Then amb(1) = 5:amb(2) = 35:amb(3) = 56:amb(4) = 26
If n1 = 66 Then amb(1) = 12:amb(2) = 48:amb(3) = 43:amb(4) = 25
If n1 = 67 Then amb(1) = 19:amb(2) = 61:amb(3) = 30:amb(4) = 24
If n1 = 68 Then amb(1) = 26:amb(2) = 74:amb(3) = 17:amb(4) = 23
If n1 = 69 Then amb(1) = 33:amb(2) = 87:amb(3) = 4:amb(4) = 22
If n1 = 70 Then amb(1) = 40:amb(2) = 10:amb(3) = 81:amb(4) = 21
If n1 = 71 Then amb(1) = 47:amb(2) = 23:amb(3) = 68:amb(4) = 20
If n1 = 72 Then amb(1) = 54:amb(2) = 36:amb(3) = 55:amb(4) = 19
If n1 = 73 Then amb(1) = 61:amb(2) = 49:amb(3) = 42:amb(4) = 18
If n1 = 74 Then amb(1) = 68:amb(2) = 62:amb(3) = 29:amb(4) = 17
If n1 = 75 Then amb(1) = 75:amb(2) = 75:amb(3) = 16:amb(4) = 16
If n1 = 76 Then amb(1) = 82:amb(2) = 88:amb(3) = 3:amb(4) = 15
If n1 = 77 Then amb(1) = 89:amb(2) = 11:amb(3) = 80:amb(4) = 14
If n1 = 78 Then amb(1) = 6:amb(2) = 24:amb(3) = 67:amb(4) = 13
If n1 = 79 Then amb(1) = 13:amb(2) = 37:amb(3) = 54:amb(4) = 12
If n1 = 80 Then amb(1) = 20:amb(2) = 50:amb(3) = 41:amb(4) = 11
If n1 = 81 Then amb(1) = 27:amb(2) = 63:amb(3) = 28:amb(4) = 10
If n1 = 82 Then amb(1) = 34:amb(2) = 76:amb(3) = 15:amb(4) = 9
If n1 = 83 Then amb(1) = 41:amb(2) = 89:amb(3) = 2:amb(4) = 8
If n1 = 84 Then amb(1) = 48:amb(2) = 12:amb(3) = 79:amb(4) = 7
If n1 = 85 Then amb(1) = 55:amb(2) = 25:amb(3) = 66:amb(4) = 6
If n1 = 86 Then amb(1) = 62:amb(2) = 38:amb(3) = 53:amb(4) = 5
If n1 = 87 Then amb(1) = 69:amb(2) = 51:amb(3) = 40:amb(4) = 4
If n1 = 88 Then amb(1) = 76:amb(2) = 64:amb(3) = 27:amb(4) = 3
If n1 = 89 Then amb(1) = 83:amb(2) = 77:amb(3) = 14:amb(4) = 2
If n1 = 90 Then amb(1) = 90:amb(2) = 90:amb(3) = 1:amb(4) = 1


If Vert(n1) = 1 Then amb(5) = 7:amb(6) = 13:amb(7) = 78:amb(8) = 90
If Vert(n1) = 2 Then amb(5) = 14:amb(6) = 26:amb(7) = 65:amb(8) = 89
If Vert(n1) = 3 Then amb(5) = 21:amb(6) = 39:amb(7) = 52:amb(8) = 88
If Vert(n1) = 4 Then amb(5) = 28:amb(6) = 52:amb(7) = 39:amb(8) = 87
If Vert(n1) = 5 Then amb(5) = 35:amb(6) = 65:amb(7) = 26:amb(8) = 86
If Vert(n1) = 6 Then amb(5) = 42:amb(6) = 78:amb(7) = 13:amb(8) = 85
If Vert(n1) = 7 Then amb(5) = 49:amb(6) = 1:amb(7) = 90:amb(8) = 84
If Vert(n1) = 8 Then amb(5) = 56:amb(6) = 14:amb(7) = 77:amb(8) = 83
If Vert(n1) = 9 Then amb(5) = 63:amb(6) = 27:amb(7) = 64:amb(8) = 82
If Vert(n1) = 10 Then amb(5) = 70:amb(6) = 40:amb(7) = 51:amb(8) = 81
If Vert(n1) = 11 Then amb(5) = 77:amb(6) = 53:amb(7) = 38:amb(8) = 80
If Vert(n1) = 12 Then amb(5) = 84:amb(6) = 66:amb(7) = 25:amb(8) = 79
If Vert(n1) = 13 Then amb(5) = 1:amb(6) = 79:amb(7) = 12:amb(8) = 78
If Vert(n1) = 14 Then amb(5) = 8:amb(6) = 2:amb(7) = 89:amb(8) = 77
If Vert(n1) = 15 Then amb(5) = 15:amb(6) = 15:amb(7) = 76:amb(8) = 76
If Vert(n1) = 16 Then amb(5) = 22:amb(6) = 28:amb(7) = 63:amb(8) = 75
If Vert(n1) = 17 Then amb(5) = 29:amb(6) = 41:amb(7) = 50:amb(8) = 74
If Vert(n1) = 18 Then amb(5) = 36:amb(6) = 54:amb(7) = 37:amb(8) = 73
If Vert(n1) = 19 Then amb(5) = 43:amb(6) = 67:amb(7) = 24:amb(8) = 72
If Vert(n1) = 20 Then amb(5) = 50:amb(6) = 11:amb(7) = 11:amb(8) = 71
If Vert(n1) = 21 Then amb(5) = 57:amb(6) = 3:amb(7) = 88:amb(8) = 70
If Vert(n1) = 22 Then amb(5) = 64:amb(6) = 16:amb(7) = 75:amb(8) = 69
If Vert(n1) = 23 Then amb(5) = 71:amb(6) = 29:amb(7) = 62:amb(8) = 68
If Vert(n1) = 24 Then amb(5) = 78:amb(6) = 42:amb(7) = 49:amb(8) = 67
If Vert(n1) = 25 Then amb(5) = 85:amb(6) = 55:amb(7) = 36:amb(8) = 66
If Vert(n1) = 26 Then amb(5) = 2:amb(6) = 68:amb(7) = 23:amb(8) = 65
If Vert(n1) = 27 Then amb(5) = 9:amb(6) = 81:amb(7) = 10:amb(8) = 64
If Vert(n1) = 28 Then amb(5) = 16:amb(6) = 4:amb(7) = 87:amb(8) = 63
If Vert(n1) = 29 Then amb(5) = 23:amb(6) = 17:amb(7) = 74:amb(8) = 62
If Vert(n1) = 30 Then amb(5) = 30:amb(6) = 30:amb(7) = 61:amb(8) = 61
If Vert(n1) = 31 Then amb(5) = 37:amb(6) = 43:amb(7) = 48:amb(8) = 60
If Vert(n1) = 32 Then amb(5) = 44:amb(6) = 56:amb(7) = 35:amb(8) = 59
If Vert(n1) = 33 Then amb(5) = 51:amb(6) = 69:amb(7) = 22:amb(8) = 58
If Vert(n1) = 34 Then amb(5) = 58:amb(6) = 82:amb(7) = 9:amb(8) = 57
If Vert(n1) = 35 Then amb(5) = 65:amb(6) = 5:amb(7) = 86:amb(8) = 56
If Vert(n1) = 36 Then amb(5) = 72:amb(6) = 18:amb(7) = 73:amb(8) = 55
If Vert(n1) = 37 Then amb(5) = 79:amb(6) = 31:amb(7) = 60:amb(8) = 54
If Vert(n1) = 38 Then amb(5) = 86:amb(6) = 44:amb(7) = 47:amb(8) = 53
If Vert(n1) = 39 Then amb(5) = 3:amb(6) = 57:amb(7) = 34:amb(8) = 52
If Vert(n1) = 40 Then amb(5) = 10:amb(6) = 70:amb(7) = 21:amb(8) = 51
If Vert(n1) = 41 Then amb(5) = 17:amb(6) = 83:amb(7) = 8:amb(8) = 50
If Vert(n1) = 42 Then amb(5) = 24:amb(6) = 6:amb(7) = 85:amb(8) = 49
If Vert(n1) = 43 Then amb(5) = 31:amb(6) = 19:amb(7) = 72:amb(8) = 48
If Vert(n1) = 44 Then amb(5) = 38:amb(6) = 32:amb(7) = 59:amb(8) = 47
If Vert(n1) = 45 Then amb(5) = 45:amb(6) = 45:amb(7) = 46:amb(8) = 46
If Vert(n1) = 46 Then amb(5) = 52:amb(6) = 58:amb(7) = 33:amb(8) = 45
If Vert(n1) = 47 Then amb(5) = 59:amb(6) = 71:amb(7) = 20:amb(8) = 44
If Vert(n1) = 48 Then amb(5) = 66:amb(6) = 84:amb(7) = 7:amb(8) = 43
If Vert(n1) = 49 Then amb(5) = 73:amb(6) = 7:amb(7) = 84:amb(8) = 42
If Vert(n1) = 50 Then amb(5) = 80:amb(6) = 20:amb(7) = 71:amb(8) = 41
If Vert(n1) = 51 Then amb(5) = 87:amb(6) = 33:amb(7) = 58:amb(8) = 40
If Vert(n1) = 52 Then amb(5) = 4:amb(6) = 46:amb(7) = 45:amb(8) = 39
If Vert(n1) = 53 Then amb(5) = 11:amb(6) = 59:amb(7) = 32:amb(8) = 38
If Vert(n1) = 54 Then amb(5) = 18:amb(6) = 72:amb(7) = 19:amb(8) = 37
If Vert(n1) = 55 Then amb(5) = 25:amb(6) = 85:amb(7) = 6:amb(8) = 36
If Vert(n1) = 56 Then amb(5) = 32:amb(6) = 8:amb(7) = 83:amb(8) = 35
If Vert(n1) = 57 Then amb(5) = 39:amb(6) = 21:amb(7) = 70:amb(8) = 34
If Vert(n1) = 58 Then amb(5) = 46:amb(6) = 34:amb(7) = 57:amb(8) = 33
If Vert(n1) = 59 Then amb(5) = 53:amb(6) = 47:amb(7) = 44:amb(8) = 32
If Vert(n1) = 60 Then amb(5) = 60:amb(6) = 31
If Vert(n1) = 61 Then amb(5) = 67:amb(6) = 73:amb(7) = 18:amb(8) = 30
If Vert(n1) = 62 Then amb(5) = 74:amb(6) = 86:amb(7) = 5:amb(8) = 29
If Vert(n1) = 63 Then amb(5) = 81:amb(6) = 9:amb(7) = 82:amb(8) = 28
If Vert(n1) = 64 Then amb(5) = 88:amb(6) = 22:amb(7) = 69:amb(8) = 27
If Vert(n1) = 65 Then amb(5) = 5:amb(6) = 35:amb(7) = 56:amb(8) = 26
If Vert(n1) = 66 Then amb(5) = 12:amb(6) = 48:amb(7) = 43:amb(8) = 25
If Vert(n1) = 67 Then amb(5) = 19:amb(6) = 61:amb(7) = 30:amb(8) = 24
If Vert(n1) = 68 Then amb(5) = 26:amb(6) = 74:amb(7) = 17:amb(8) = 23
If Vert(n1) = 69 Then amb(5) = 33:amb(6) = 87:amb(7) = 4:amb(8) = 22
If Vert(n1) = 70 Then amb(5) = 40:amb(6) = 10:amb(7) = 81:amb(8) = 21
If Vert(n1) = 71 Then amb(5) = 47:amb(6) = 23:amb(7) = 68:amb(8) = 20
If Vert(n1) = 72 Then amb(5) = 54:amb(6) = 36:amb(7) = 55:amb(8) = 19
If Vert(n1) = 73 Then amb(5) = 61:amb(6) = 49:amb(7) = 42:amb(8) = 18
If Vert(n1) = 74 Then amb(5) = 68:amb(6) = 62:amb(7) = 29:amb(8) = 17
If Vert(n1) = 75 Then amb(5) = 75:amb(6) = 75:amb(7) = 16:amb(8) = 16
If Vert(n1) = 76 Then amb(5) = 82:amb(6) = 88:amb(7) = 3:amb(8) = 15
If Vert(n1) = 77 Then amb(5) = 89:amb(6) = 11:amb(7) = 80:amb(8) = 14
If Vert(n1) = 78 Then amb(5) = 6:amb(6) = 24:amb(7) = 67:amb(8) = 13
If Vert(n1) = 79 Then amb(5) = 13:amb(6) = 37:amb(7) = 54:amb(8) = 12
If Vert(n1) = 80 Then amb(5) = 20:amb(6) = 50:amb(7) = 41:amb(8) = 11
If Vert(n1) = 81 Then amb(5) = 27:amb(6) = 63:amb(7) = 28:amb(8) = 10
If Vert(n1) = 82 Then amb(5) = 34:amb(6) = 76:amb(7) = 15:amb(8) = 9
If Vert(n1) = 83 Then amb(5) = 41:amb(6) = 89:amb(7) = 2:amb(8) = 8
If Vert(n1) = 84 Then amb(5) = 48:amb(6) = 12:amb(7) = 79:amb(8) = 7
If Vert(n1) = 85 Then amb(5) = 55:amb(6) = 25:amb(7) = 66:amb(8) = 6
If Vert(n1) = 86 Then amb(5) = 62:amb(6) = 38:amb(7) = 53:amb(8) = 5
If Vert(n1) = 87 Then amb(5) = 69:amb(6) = 51:amb(7) = 40:amb(8) = 4
If Vert(n1) = 88 Then amb(5) = 76:amb(6) = 64:amb(7) = 27:amb(8) = 3
If Vert(n1) = 89 Then amb(5) = 83:amb(6) = 77:amb(7) = 14:amb(8) = 2
If Vert(n1) = 90 Then amb(5) = 90:amb(6) = 90:amb(7) = 1:amb(8) = 1

numeri1(1) = n1
numeri1(2) = Vert(n1)

ImpostaGiocata 1,numeri1,ruota,posta,clp,2
numeri2(1) = n1
numeri2(2) = Vert(n1)
numeri2(3) = amb(1)
numeri2(4) = amb(2)
numeri2(5) = amb(3)
numeri2(6) = amb(4)
numeri2(7) = amb(5)
numeri2(8) = amb(6)
numeri2(9) = amb(7)
numeri2(10) = amb(8)
ImpostaGiocata 2,numeri2,ruota,postee,clp,3



Gioca n

End If
Next
Next : Next
Next
Scrivi : Scrivi "Casi Riscontrati n° " & CInt(co)
ScriviResoconto
End Sub


questo in DUE sestine di DRAGO2940
Sub Main()
Dim nu1(10),nu2(10)
Dim ruote(10),ruota(10)
Dim poste(5)
poste(2) = 1
fin = EstrazioneFin
ini = fin - 100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5
n1 = Estratto(es,r1,p1)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 5
x = Estratto(es,r2,p3):x1 = Vert(x)
If p3 = p1 Then
If x = n1 Then
a1 = Fuori90(x*7)
a2 = Fuori90(x*13)
k = Abs(x - 1):a3 = Fuori90(78*x - k)
a4 = 91 - x
b1 = Fuori90(x1*7)
b2 = Fuori90(x1*13)
k = Abs(x1 - 1):b3 = Fuori90(78*x1 - k)
b4 = 91 - x1
casi = casi + 1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > Numero uguale... < " & Format2(n1) & "."
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > Numero uguale... < " & Format2(x) & " ."
Scrivi String(65,"-") & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = r3: k = 14:co = 0:ruota(1) = 11:co = 0
nu1(1) = x
nu1(2) = x1
nu1(3) = a1
nu1(4) = a2
nu1(5) = a3
nu1(6) = a4
co = co + 1
ImpostaGiocata co,nu1,ruote,poste,k
nu1(1) = x
nu1(2) = x1
nu1(3) = b1
nu1(4) = b2
nu1(5) = b3
nu1(6) = b4
co = co + 1
ImpostaGiocata co,nu1,ruote,poste,k
nu2(1) = x
nu2(2) = x1
nu2(3) = a1
nu2(4) = a2
nu2(5) = a3
nu2(6) = a4
nu2(7) = b1
nu2(8) = b2
nu2(8) = b3
nu2(10) = b4
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub


APRE e CHIUDE:
inalto


Okkietti.........
dal 38 Isotopo di PA/RO del 13 dicembre..
a colpo TERNO 38 83 47

..e la TAVOLA SETTENARIA La va!! la va!!!

Alla faccia di chi mi ha tanto criticato e offeso !!!!!!!



Ciaoooooooooo


Edited by il Toscano - 18/12/2011, 11:28
 
Top
59 replies since 21/3/2011, 16:37   21835 views
  Share