xMike58...richiesta modifica listato....

[Zetrix]

Ciao Mike il prospetto e semplice ..lo so per me potrebbe essere semplice ma per altri forse no ..
bisogna conoscere bene gli ambi a d45 ovvero gli ambi diam ... 40.85 >d45 .... 29.(74) >d45
poi 13.58 > d45 .... 83.(38) d45... se noti anche su to. 58.83 quindi chiude su ba. il 38
il gioco sta tutto qua .... per quanto riguarda il 38 su script quello e un altra cosa e converg su questo disegno...
Mike nn devi guardare i triangoli ma bensi i quadrati ... per i triangoli valgono le terzine simmetriche a d30..ma qui il discorso e diverso
per trovare queste quadrature ... bisogna anche di esperienza ....
ben venga se si puo fare un listato ma come lo si imposta questo e il problema....per trovare due numeri che chiudono contemporaneamente nello stesso posto .....per iniziare lo script la prima riga di comando sarebbe rintracciare in diag la d45.... poi bisogna rintracciare un altro ambo a d45 ... e vedere quali numeri potrebbero corrispondere nello stesso posto e sulla stessa ruota ... per esperienza diciamo che gli ambi a d45 in diag sono le migliori perche 'legano' il quadrato...
ma la tecnica collage si puo fare anche con numeri della stessa figura e qui nn ha importanza se ce o meno la d.45....... ma se vogliamo rilevare la d45 allora per iniziare bisognerebbe trovare tutte le d.45 in diag sul quad estratti su unica est ...ma devono essere rappresentate sul prospetto della tabella est ..

 

[Zetrix]

xMike58 ...esempio d45 in diag....come si puo notare su ba. abbiamo
due numeri 40 e 13 che 'lega' il quadrato con 85 su mi. e 58 su to.. una volta fatto questo le due chiusure su ba. sono 74 e 38 cioe i rispettivi diam
come si puo notare i due num 74 e 38 sono dirottati nello stesso posto..(75)
come si evince questi due num sono della stessa figura 2 forse per questo sono usciti a colpo....
per iniziare lo script sarebbe opportuno trovare due ambi a d45 in diag e due di essi devono trovarsi in una unica ruota ...l'esempio esposto sarebbe ideale cosi si puo vedere subito le possibili chiusure dei quadrati.....ma serve anche esperienza per fare tutto cio perche bisogna tener conto anche delle convergenze su altre strutture preced..oppure nella stessa est.....
.

 

[Zetrix]

                   Sub Main
    
    
    Dim idestr
    Ini = EstrazioneFin - 2
    fin = EstrazioneFin
    For idestr = Ini To fin
        ReDim MatriceCaselleDaEvid(11,1)
        '---------------------------------------------------------------------------------------
        MatriceCaselleDaEvid(1,0) = 8 'ruota
        MatriceCaselleDaEvid(1,1) = 2 ' pos
        '------------------------------ ---------------------
        MatriceCaselleDaEvid(2,0) = 9
        MatriceCaselleDaEvid(2,1) = 1
        '--------------------------------------------------
        MatriceCaselleDaEvid(3,0) = 9
        MatriceCaselleDaEvid(3,1) = 2
        '----------------------------------------------------
        'MatriceCaselleDaEvid(4,0) = 10
        'MatriceCaselleDaEvid(4,1) = 2
        '---------------------------------------------------------
        'MatriceCaselleDaEvid(5,0) = 10
    ' MatriceCaselleDaEvid(5,1) = 4
        '---------------------------------------------------------
        'MatriceCaselleDaEvid(6,0) = 8
        'MatriceCaselleDaEvid(6,1) = 1
        '-------------------------------------------------------
        'MatriceCaselleDaEvid(7,0) = 8
        'MatriceCaselleDaEvid(7,1) = 2
        '--------------------------------------------------------
        'MatriceCaselleDaEvid(8,0) = 8
        'MatriceCaselleDaEvid(8,1) = 3
        '------------------------------------------------------------
        'MatriceCaselleDaEvid(9,0) = 8
        'MatriceCaselleDaEvid(9,1) = 5
        'MatriceCaselleDaEvid(10,0) = 10
        'MatriceCaselleDaEvid(10,1) = 1
        'MatriceCaselleDaEvid(11,0) = 11
        'MatriceCaselleDaEvid(11,1) = 1
        Call DisegnaEstrazione(idestr,MatriceCaselleDaEvid)
        'Call DisegnaCerchioCiclometrico(n,True)
        If ScriptInterrotto Then Exit For
    Next
End Sub

xMike58 i num evidenziati nella tabella lo fatto con questo listato....

 

[Zetrix]

xMike58 .. questo e un altro disegno ma l'ambo resta sempre 38.74 su ba.

 

[Mike58]

Ciao Zetrix, intanto grazie per farmi partecipe delle tue ricerche, ma come ti dicevo tutto con le dovute specifiche pu¨° essere sviluppato.

eccoti un riepilogo del tuo metodo collage, salvo errori ed omissioni, provalo.

Sub Main

Dim Nu(2),R1(1),R2(1),R3(1),Nch(2),N1(1),N2(1),NumGioco(2)

Ini = EstrazioneFin - 25

fin = EstrazioneFin

Scrivi "Metodo Collage By Zetrix *** Script By Mike58 *** ",1,1,,1,3,,1

Scrivi

sorte = CInt(InputBox("QUALE SORTE VERIFICO 2 NUMERI",,2))

For es = Ini To fin

For r = 1 To 10

For rr = r + 1 To 10

For rrr = rr + 1 To 10

If rr <> r And rr <> rrr Then

For p1 = 1 To 4

For p2 = p1 + 1 To 5

a = Estratto(es,r,p1)

b = Estratto(es,r,p2)

For p3 = 1 To 5

c = Estratto(es,rr,p3)

cc = Estratto(es,rrr,p3)

d = Estratto(es,rr,p1)

e = Estratto(es,rrr,p2)

If Figura(a) = Figura(b) Then

If Distanza(a,c) = 45 Or Distanza(b,c) = 45 Then

If Figura(d) = Figura(e) Then

Nu(1) = a

Nu(2) = b

R1(1) = r

Nch(1) = c

Nch(2) = cc

N1(1) = d

N2(1) = e

Scrivi GetInfoEstrazione(es) & vbTab,0,0

Scrivi SiglaRuota(r) & vbTab & StringaNumeri(Nu,,1) & vbTab & SiglaRuota(rr) & "-" & SiglaRuota(rrr) & " " & StringaNumeri(Nch,,1),0,0

Scrivi vbTab & Format2(N1(1)) & " " & Format2(N2(1)),0,0

NumGioco(1) = Diametrale(N1(1))

NumGioco(2) = Diametrale(N2(1))

Call VerificaEsito(NumGioco,R1,es+1,sorte,25,,esito,colpi,estratti,id)

Scrivi vbTab & "Numeri in gioco.... " & StringaNumeri(NumGioco,,1) & vbTab,1,0

Scrivi "Esito... " & estratti & " colpo : " & colpi,1,1,,1,2,,1

End If

End If

End If

Next

Next

Next

End If

Next

Next

Next

Next

End Sub

 

[Zetrix]

Ciao Mike sono tornato adesso e mentre sono andato per aprire il programma SpazioMetria
E uscita questa finestra ..nn so cosa sia successo ..dobbiamo chiedere aiuto a LuigiB se conosce
questo tipo di errore ...il fatto e che quando chiudo la finestra si chiude pure il programma ..e quindi nn posso provare il listato che hai fatto
devo dirti anche che e intervenuto pure l'antivirus perche aveva rilevato un troyan .....e successo proprio poco fa ... quanto ho aperto il programma ero collegato al forum on line ed e intervenuto subito l'antivirus.....

 

[Zetrix]

Ciao Mike ieri ho provato il listato metodo collage ma l'out nn va bene ..nn e lo script che mi deve dire quale ambo devo giocare ..la ricerca e personale e nn e facile individuare l'ambo collage ..per iniziare il listato la ricerca che deve fare lo script e evidenziare sul pannello estratti tutti gli ambi diam in diag poi si vedra con la ricerca personale quale sono le chiusure e come vengono dirottate sullo stesso posto.. bisogna tenere in considerazione anche gli ambi diam in vert per cui la ricerca nn e semplice ... dico queste cose perche bisogna vedere pure i numeri a quale figure appartengono, poi in tutte le cose conta sempre un pizzico di fortuna
anche se ieri sera hai visto cosa e successo ho combinato un pasticcio
sono andati persi tutti i listati script che avevo nella cartella erano moltissimi e adesso nn so come recuperarli e sarà difficile perche con la disintallazione di SpazioMetria(quella completa) ha cancellato tutto..

 

[Zetrix]

xMike58 con questa applicazione ho fatto la disintallazione di SpazioMetria.... poi ho installato la nuova versione 1.5.21 ...
ci sono i listati script di base del programma (per fortuna) ma nn ci sono gli altri listati che avevo nella mia cartella personale...

 

[Zetrix]

Ciao Mike ce lo fatta a recuperare tutti i file dei listati script con Recuva .... e un gioco da ragazzi ..su queste cose sono molto bravo.............
ho recuperato anche tutti i tuoi listati script.............

 

[Zetrix]

xMike58 questi disegni sono miei nn li trovi ne sulle riviste di lotto ne tanto meno li puo fare
gli script ... merito anche della ciclometria...

 

[Zetrix]

Ciao Mike questo e un prospetto dove ce un ambo collage 60.78 su ba. ma si puo giocare anche 37.60.78
per ambo e terno..