Script su metodi di Fabarri

salvo50 · 12 Marzo 2018

Ciao a Tutti!

PREVISIONE ASSOLUTA

Previsione assoluta (Fabarri) - 1a parte - Delear.jpg

Previsione assoluta (Fabarri) - 2a parte - Delear.jpg

Codice:

 'PROGETTO - PREVISIONE ASSOLUTA - BY FABARRI
'SCRIPT - BY SALVO50
Option Explicit
Sub Main
    Dim R1,R2,R3,A1,A2,A3,B1,B2,B3,E1,E2,E3,X,Es,Es1,Es2
    Dim Dist1,Dist2,Dist3,Dist4,Dist5,Dist6,Dist7
    Dim Ini,Fin,P1,P2,P3,P4,P5,P6,P7,P8,P9
    Dim Clp,EsqCol,Esq,Col,Salvo50,Caso,Casi
    Dim Ruote(3),Posta(1),Amb(1)
    Posta(1) = 1
    'Posta(2) = 1
    Fin = EstrazioneFin
    Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,Fin - 4)
    Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,10))
    EsqCol = Esq + Col
    If EsqCol > Fin Then EsqCol = Fin
    For Es = Esq To EsqCol
        Messaggio Es
        AvanzamentoElab Esq,EsqCol,Es
        Messaggio Es
        Caso = 0
        For R1 = 1 To 9
            For P1 = 1 To 4
                A1 = Estratto(Es,R1,P1)
                P2 = P1 + 1
                B1 = Estratto(Es,R1,P2)
                Dist1 = Distanza(A1,B1)
                X = 45 - Dist1
                If Dist1 <> 1 And Dist1 <> 44 And Dist1 <> 45 And Dist1 <> 17 Then
                    Es1 = Es - 1
                    For Es1 = Es1 To(Es1 - 50) Step - 1
                        For R2 = R1 + 1 To 10
                            For P3 = 1 To 4
                                A2 = Estratto(Es1,R2,P3)
                                P4 = P3 + 1
                                B2 = Estratto(Es1,R2,P4)
                                Dist2 = Distanza(A2,B2)
                                If Dist1 = Dist2 Then
                                    'A1----B1
                                    '|      |
                                    '|      |
                                    'A2----B2
                                    Dist3 = Distanza(A1,B2)
                                    Dist4 = Distanza(A2,B1)
                                    If Dist3 = Dist4 And Dist3 = X Then
                                        Es2 = Es1 - 1
                                        For Es2 = Es2 To Es2 - 50 Step - 1
                                            For R3 = 1 To 10
                                                For P5 = 1 To 4
                                                    A3 = Estratto(Es2,R3,P5)
                                                    P6 = P5 + 1
                                                    B3 = Estratto(Es2,R3,P6)
                                                    'Filtri per regola numero 3 ----------------
                                                    If((A1 < B1) And(A2 > B2) And(A3 > B3)) _
                                                        Or((A1 < B1) And(A2 < B2) And(A3 > B3)) _
                                                        Or((A1 > B1) And(A2 > B2) And(A3 < B3)) _
                                                        Or((A1 > B1) And(A2 < B2) And(A3 < B3)) Then
                                                        '---------------------------------------------
                                                        'A1----B1
                                                        '|      |
                                                        '|      |
                                                        'A3----B3
                                                        Dist5 = Distanza(A3,B3)
                                                        If Dist5 = Dist1 Then
                                                            Dist6 = Distanza(A1,B3)
                                                            Dist7 = Distanza(A3,B1)
                                                            If Dist6 = Dist7 And Dist6 = X Then
                                                                Caso = Caso + 1
                                                                Casi = Casi + 1
                                                                ColoreTesto 1
                                                                Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                                ColoreTesto 2
                                                                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                                ColoreTesto 0
                                                                Scrivi
                                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                                Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                                For P7 = 1 To 5
                                                                    E1 = Estratto(Es,R1,P7)
                                                                    If E1 = A1 Or E1 = B1 Then
                                                                        ColoreTesto 2
                                                                    Else
                                                                        ColoreTesto 0
                                                                    End If
                                                                    Scrivi Format2(E1) & " ",1,0
                                                                    ColoreTesto 0
                                                                Next
                                                                Scrivi
                                                                Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                                                Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                                For P8 = 1 To 5
                                                                    E2 = Estratto(Es1,R2,P8)
                                                                    If E2 = A2 Or E2 = B2 Then
                                                                        ColoreTesto 2
                                                                    Else
                                                                        ColoreTesto 0
                                                                    End If
                                                                    Scrivi Format2(E2) & " ",1,0
                                                                    ColoreTesto 0
                                                                Next
                                                                Scrivi
                                                                Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                                                                Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                                For P9 = 1 To 5
                                                                    E3 = Estratto(Es2,R3,P9)
                                                                    If E3 = A3 Or E3 = B3 Then
                                                                        ColoreTesto 2
                                                                    Else
                                                                        ColoreTesto 0
                                                                    End If
                                                                    Scrivi Format2(E3) & " ",1,0
                                                                    ColoreTesto 0
                                                                Next
                                                                Scrivi
                                                                Scrivi
                                                                Scrivi Space(38) & "  Distanze   " & Space(12) & "  Distanze   "
                                                                Scrivi Space(14) & "  Estratti  " & Space(12) & "Ciclometriche " & Space(11) & "Ciclometriche "
                                                                Scrivi Space(14) & "Consecutivi " & Space(12) & " Orizontali   " & Space(11) & " Incrociate "
                                                                Scrivi Space(15) & SiglaRuota(R1) & "  " & Format2(A1) & " " & Format2(B1),1,0
                                                                Scrivi Space(19) & Format2(Dist1) & Space(23) & Format2(Dist3),1
                                                                '
                                                                Scrivi Space(15) & SiglaRuota(R2) & "  " & Format2(A2) & " " & Format2(B2),1,0
                                                                Scrivi Space(19) & Format2(Dist2) & Space(23) & Format2(Dist4),1
                                                                ColoreTesto 2
                                                                Scrivi Space(15) & String(55,"-"),1
                                                                ColoreTesto 0
                                                                Scrivi Space(15) & SiglaRuota(R1) & "  " & Format2(A1) & " " & Format2(B1),1,0
                                                                Scrivi Space(19) & Format2(Dist1) & Space(23) & Format2(Dist6),1
                                                                '
                                                                Scrivi Space(15) & SiglaRuota(R3) & "  " & Format2(A3) & " " & Format2(B3),1,0
                                                                Scrivi Space(19) & Format2(Dist5) & Space(23) & Format2(Dist7),1
                                                                Scrivi
                                                                Ruote(3) = 0
                                                                If R1 = R3 Or R2 = R3 Then
                                                                    Ruote(1) = R1
                                                                    Ruote(2) = R2
                                                                    Clp = 4
                                                                Else
                                                                    Ruote(1) = R1
                                                                    Ruote(2) = R2
                                                                    Ruote(3) = R3
                                                                    Clp = 3
                                                                End If
                                                                Amb(1) = B3
                                                                ImpostaGiocata 1,Amb,Ruote,Posta,Clp,1
                                                                Gioca Es
                                                            End If
                                                        End If
                                                    End If
                                                Next
                                            Next
                                        Next
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    ScriviResoconto
    Scrivi Space(50) & "PROGETTO - PREVISIONE ASSOLUTA - BY FABARRI"
    Scrivi Space(50) & "SCRIPT BY SALVO50"
End Sub

salvo50 · 12 Marzo 2018

Script postati in ordine di inserimento

IL QUADRATO ARMONICO
LA MASSIMA ARMONIA QUADRATICA <-- postato da Claudio8
IL COEFFICIENTE MEDIO INTEGRATORE
IL TRIANGOLO ISCRITTO
NUOVA FORMULA PROPORZIONALE
IL QUADRATO A DIAGONALE FISSA
IL PUNTO DIAMETRALE
LA STRUTTURA DEI NUMERI
PROCEDIMENTO EINS-FAB
IL PROCEDIMENTO S.91
L'AMBO SECCO SULLA RUOTA I VALORI 1-44
PROCEDIMENTO DISTICON
UNA AMBATA ED UN TRIAMBO
IL VALORE MEDIO O MEDIOVALORE
PARALLELISMO FRA SOMME E NUMERI
PROCEDIMENTO SUMMIT
PROCEDIMENTO FERCAT
LA COMPOSIZIONE SOMMA 92
L'AMBATA VERTICE
LA PREVISIONE ASSOLUTA

Roby · 24 Aprile 2018

salvo50;n2105634 ha scritto:
Script postati in ordine di inserimento

IL QUADRATO ARMONICO
LA MASSIMA ARMONIA QUADRATICA <-- postato da Claudio8
IL COEFFICIENTE MEDIO INTEGRATORE
IL TRIANGOLO ISCRITTO
NUOVA FORMULA PROPORZIONALE
IL QUADRATO A DIAGONALE FISSA
IL PUNTO DIAMETRALE
LA STRUTTURA DEI NUMERI
PROCEDIMENTO EINS-FAB
IL PROCEDIMENTO S.91
L'AMBO SECCO SULLA RUOTA I VALORI 1-44
PROCEDIMENTO DISTICON
UNA AMBATA ED UN TRIAMBO
IL VALORE MEDIO O MEDIOVALORE
PARALLELISMO FRA SOMME E NUMERI
PROCEDIMENTO SUMMIT
PROCEDIMENTO FERCAT
LA COMPOSIZIONE SOMMA 92
L'AMBATA VERTICE
LA PREVISIONE ASSOLUTA

Ciao salvo, ne ho uno di Fabarri che non vedo da nessuna parte, nemmeno in altri siti...(per quello che son riuscito a cercare, sembra che non lo trovo.

Il metodo è: il procedimento Laser "50"

se lo vuoi, lo posto.

Cesare

salvo50 · 24 Aprile 2018

Cerberus;n2112273 ha scritto:
Ciao salvo, ne ho uno di Fabarri che non vedo da nessuna parte, nemmeno in altri siti...(per quello che son riuscito a cercare, sembra che non lo trovo.

Il metodo è: il procedimento Laser "50"

se lo vuoi, lo posto.

Cesare

Ciao, postalo pure, anch'io lo sento per la prima volta.

Roby · 24 Aprile 2018

salvo50;n2112274 ha scritto:
Ciao, postalo pure, anch'io lo sento per la prima volta.

Ok, domani lo scannerizzo, è uno di quei giornaloni e devo ingegnarmi con lo scanner ma lo farò.

Cesare

Roby · 24 Aprile 2018

Ciao salvo

Ho cercato inutilmente nel web, ma non lo trova da nessuna parte. Sicuramente qualcuno lo ha.

A quanto pare è la prima volta che si vede in giro.

Cesare

salvo50 · 24 Aprile 2018

Preso, dopo me lo guardo con calma

Roby · 25 Aprile 2018

salvo50;n2112381 ha scritto:
Preso, dopo me lo guardo con calma

Fai con tutta calma, perchè di carne al fuoco mi sembra che sia abbastanza, poi io a volte non mi rendo conto che sto postando a ritmi sostenuti.
Strano che non si sia visto da nessuna parte...

Enplein · 2 Maggio 2018

Un saluto a Tutti ed in particolare a Cerberus, che ha inserito tantissimi procedimenti di autorevoli autori.
Mi ha colpito questo procedimento del laser 50 di Fabarri, e provo ad inserire un caso per capire se i
calcoli sono giusti ed in particolare se rispettano tutte le regole...grazie.

19.04.2018 Mi 22.12.73.06.88 --> 73.06 Som. 79 Dist. 23 Pos. 3^ 4^
19.04.2018 Ro 16.07.10.33.38 --> 10.33 Som. 43 Dist. 23 Pos. 3^ 4^

Quadrato
79 23 = 79*3=237=57 - 45 = Diam. del T.S. = 12
43 23 = SOMMA Somme 32 Somma X [(12+90)-32]=70 Dist. (79-70)=09 Dist.X [23-09]=14

--------
70 14
...84
--------
42 28 Trasposizione 48 22
87 73 Trasposizione 83 77

Ciao, Enplein.

Roby · 2 Maggio 2018

Enplein;n2113506 ha scritto:
Un saluto a Tutti ed in particolare a Cerberus, che ha inserito tantissimi procedimenti di autorevoli autori.
Mi ha colpito questo procedimento del laser 50 di Fabarri, e provo ad inserire un caso per capire se i
calcoli sono giusti ed in particolare se rispettano tutte le regole...grazie.

19.04.2018 Mi 22.12.73.06.88 --> 73.06 Som. 79 Dist. 23 Pos. 3^ 4^
19.04.2018 Ro 16.07.10.33.38 --> 10.33 Som. 43 Dist. 23 Pos. 3^ 4^

Quadrato
79 23 = 79*3=237=57 - 45 = Diam. del T.S. = 12
43 23 = SOMMA Somme 32 Somma X [(12+90)-32]=70 Dist. (79-70)=09 Dist.X [23-09]=14

--------
70 14
...84
--------
42 28 Trasposizione 48 22
87 73 Trasposizione 83 77

Ciao, Enplein.

Ciao Enplein

Ma questo Laser 50, tu che sei esperto (ti conosco di fama perchè leggo molto) lo hai mai visto prima da qualche parte?

Io mi son ritrovato questo ritaglio e nemmeno mi ricordavo di averlo ritagliato e da dove.

Ho ricercato in lungo e in largo sul web, ma non è trovato proprio traccia...booo

riguardo al metodo, nonj saprei aiutarti per il momento, per il semplice motivo che non ci ho capito una mazza.

Dovrei leggermelo con attenzione, ma chi ha tempo., poi non gioco.

ciao Cesare

salvo50 · 3 Maggio 2018

Ciao a Tutti

Avevo iniziato a fare lo script, poi ho fatto altro, adesso lo riprendo e vediamo se ci sono riscontri

salvo50 · 3 Maggio 2018

Enplein;n2113506 ha scritto:
Un saluto a Tutti ed in particolare a Cerberus, che ha inserito tantissimi procedimenti di autorevoli autori.
Mi ha colpito questo procedimento del laser 50 di Fabarri, e provo ad inserire un caso per capire se i
calcoli sono giusti ed in particolare se rispettano tutte le regole...grazie.

19.04.2018 Mi 22.12.73.06.88 --> 73.06 Som. 79 Dist. 23 Pos. 3^ 4^
19.04.2018 Ro 16.07.10.33.38 --> 10.33 Som. 43 Dist. 23 Pos. 3^ 4^

Quadrato
79 23 = 79*3=237=57 - 45 = Diam. del T.S. = 12
43 23 = SOMMA Somme 32 Somma X [(12+90)-32]=70 Dist. (79-70)=09 Dist.X [23-09]=14

--------
70 14
...84
--------
42 28 Trasposizione 48 22
87 73 Trasposizione 83 77

Ciao, Enplein.

La formuletta per trovare la dist, 14 nel tuo esempio, applicandola con i numeri originali dell'esempio 46 - 79 - 50 - 83, non dà il valore che dà nell'esempio che è il 4, io mi sono arenato proprio in questo punto, dalle spiegazioni dell'articolo non ho capito come fa ad ottenere quel 4 metto le spiegazioni spero che si vedano

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s25.postimg.cc\/3oqwaojj3\/Cattura_4.png"}[/IMG2]
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s25.postimg.cc\/leskvq4tr\/Cattura_5.png"}[/IMG2]

Ho fatto un piccolo script di controllo ed inserendo i 4 numeri dell'esempio fatto da te, come risultato per (dist) dà il 14 come da esempio, se invece inserisco i numeri dell'articolo 46 - 79 - 50 - 83 che per (dist) dovrebbe risultare il 4, invece dà il 70, quindi credo che i passaggi da fare siano diversi per trovare (dist), io come ho già detto non ho capito come fà ad arrivare a quel 4.

Puoi aiutarmi? Grazie

Corretto in data 05-05-2018

Codice:

'PROGETTO - LASER 50 by FABARRI - - Inserimento ambi uniti tramite InputBox
'SCRIPT BY SALVO50
'Condizioni:
'1)la distanza tra i 2 numeri degli ambi, non deve essere di 17
'2)I 2 ambi devono avere distanza uguale
'3)la somma di ogni ambo unito non deve essere nè 45, nè 90
'------------------------------------------------------------
Option Explicit
Sub Main
   Dim Dab,Dcd,Sab,Scd,Sabcd,S1,S2,A,B,C,D,Dist,X,S3,X1,X2,X3,X4
   Dim DecX1,DecX2,DecX3,DecX4,CadX1,CadX2,CadX3,CadX4,Ok
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
   Ok = 0
   A = CInt(InputBox("Inserisci il primo numero del primo ambo",,46))
   B = CInt(InputBox("Inserisci il secondo numero del primo ambo",,79))
   C = CInt(InputBox("Inserisci il primo numero del secondo ambo",,50))
   D = CInt(InputBox("Inserisci il secondo numero del secondo ambo",,83))
   Dab = Distanza(A,B)
   Dcd = Distanza(C,D)
   If Dab <> 17 And Dcd <> 17 Then
      If Dab = Dcd Then
         Sab = Fuori90(A + B)
         Scd = Fuori90(C + D)
         S1 = Fuori90(Sab * 3)
         If Sab <> 45 And Sab <> 90 And Scd <> 45 And Scd <> 90 Then
            Ok = 1
            S1 = Diametrale(S1)
            Sabcd = Fuori90(Sab + Scd)
            S2 = Fuori90(90 +(S1 - Sabcd))
            X = Distanza(Sab,S2)
            Dist = Distanza(Dab,X)
            S3 = Fuori90(S2 + Dist)
            X1 = S3 / 2
            X2 = Fuori90(90 +(S2 - X1))
            If X1 > 45 Then X3 = X1 - 45 Else X3 = X1 + 45
            If X2 > 45 Then X4 = X2 - 45 Else X4 = X2 + 45
            DecX1 = Decina(X1) : DecX2 = Decina(X2) : DecX3 = Decina(X3) : DecX4 = Decina(X4)
            CadX1 = Cadenza(X1) : CadX2 = Cadenza(X2) : CadX3 = Cadenza(X3) : CadX4 = Cadenza(X4)
            'Principali
            Ambo1(1) = X1 : Ambo1(2) = X2
            Ambo2(1) = X3 : Ambo2(2) = X4
            'trasposti
            Ambo3(1) = DecX1 & CadX2 : Ambo3(2) = DecX2 & CadX1
            Ambo4(1) = DecX3 & CadX4 : Ambo4(2) = DecX4 & CadX3
            'incrociati
            Ambo5(1) = X1 : Ambo5(2) = X4
            Ambo6(1) = X2 : Ambo6(2) = X3
            If Ok = 1 Then
               Scrivi "PROGETTO - LASER 50 by FABARRI - Inserimento ambi uniti tramite InputBox ",1
               Scrivi "                         SCRIPT by SALVO50",1
               ColoreTesto 2
               Scrivi String(72,"*") : ColoreTesto 0
               Scrivi " Ambi uniti" & Space(8) & "Somme" & Space(7) & "Dist. Ciclom." & Space(10) & "Prospetto",1
               Scrivi "   " & Format2(A) & " " & Format2(B) & Space(12) & Format2(Sab) & Space(14) & Format2(Dab),1,0
               ColoreTesto 2
               Scrivi Space(15) & Format2(S2) & Space(8) & Format2(Dist),1
               ColoreTesto 0
               Scrivi "   " & Format2(C) & " " & Format2(D) & Space(12) & Format2(Scd) & Space(14) & Format2(Dcd),1,0
               ColoreTesto 2
               Scrivi Space(20) & Format2(S3),1
               Scrivi Space(20) & Format2(S2) & Space(31) & Format2(X1) & Space(8) & Format2(X2),1
               ColoreTesto 0
               Scrivi Space(20) & Format2(S1),1,0
               ColoreTesto 2
               Scrivi Space(31) & Format2(X3) & Space(8) & Format2(X4),1
               ColoreTesto 0
               Scrivi
               ColoreTesto 1
               Scrivi Space(13) & "Ambi Principali" & Space(6) & "Ambi Trasposti" & Space(6) & "Ambi Incrociati",1
               'ColoreTesto 0
               Scrivi " Pronostico  ",1,0
               ColoreTesto 2
               Scrivi Format2(Ambo1(1)) & " " & Format2(Ambo1(2)),1,0
               Scrivi Space(3) & Format2(Ambo2(1)) & " " & Format2(Ambo2(2)),1,0
               Scrivi Space(8) & Format2(Ambo3(1)) & " " & Format2(Ambo3(2)),1,0
               Scrivi Space(3) & Format2(Ambo4(1)) & " " & Format2(Ambo4(2)),1,0
               Scrivi Space(8) & Format2(Ambo5(1)) & " " & Format2(Ambo5(2)),1,0
               Scrivi Space(3) & Format2(Ambo6(1)) & " " & Format2(Ambo6(2)),1
               ColoreTesto 0
               Scrivi
            End If
         End If
      End If
   End If
   If Ok = 0 Then
      ColoreTesto 2
      Scrivi "GLI AMBI INSERITI NON SONO COMPATIBILI CON LE CONDIZIONI DEL SISTEMA"
      ColoreTesto 1
      Scrivi
      Scrivi "1)la Distanza tra i 2 numeri degli ambi, non deve essere di 17"
      Scrivi "2)I 2 ambi inseriti devono avere Distanza uguale"
      Scrivi "3)la somma di ogni ambo unito non deve essere nè 45, nè 90"
      ColoreTesto 0
   End If
End Sub

Roby · 4 Maggio 2018

Ciao, leggendo la "terza via" descritta, non sono comuni distanze, quindi non calcolabili nomalmente, o così mi sembra

Roby · 4 Maggio 2018

Allora. si parla del valore distanziale :

il 72 rappresenta il valore sommativo dell'ambo incognito e abbiamo visto come ricavarlo.

abbiamo 35 e 43 valori somma degli ambi principali

35
43
72

adesso calcoliamo il valore distanziale

72 in terza fila dista dal 35 in prima fila = 37

per il calcolo ci serve la distanza 33 degli ambi base

ma 33 + 37 = 70 non va!

33 - 37= dice che è negativo e non si può fare. (ma volendo fa 4)

la terza via per trovare la terza distanza è sommare un numero alla prima distanza(33)
Fino ad ottenere il numero corrispondente alla distanza 37 (fra 72 e 35)

33+4 = 37

4 è il valore distanziale

In pratica quel 4 è un icognita che devi calcolarti ogni volta.

Pensandoci, è una sottrazione negativa che si puo fare con gli script....

Enplein · 4 Maggio 2018

Ciao Salvo, adesso non posso controllare lo script perche’ sono con il telefonino, pero’ posso affermare che tutto procede bene...per i numeri distanziali basta usare il codice Distanza( ), infatti Distanza (33,37)=4.

A dopo, Enplein.

salvo50 · 4 Maggio 2018

Cerberus;n2113801 ha scritto:
Allora. si parla del valore distanziale :

il 72 rappresenta il valore sommativo dell'ambo incognito e abbiamo visto come ricavarlo.

abbiamo 35 e 43 valori somma degli ambi principali

35
43
72

adesso calcoliamo il valore distanziale

72 in terza fila dista dal 35 in prima fila = 37

per il calcolo ci serve la distanza 33 degli ambi base

ma 33 + 37 = 70 non va!

33 - 37= dice che è negativo e non si può fare. (ma volendo fa 4)

la terza via per trovare la terza distanza è sommare un numero alla prima distanza(33)
Fino ad ottenere il numero corrispondente alla distanza 37 (fra 72 e 35)

33+4 = 37

4 è il valore distanziale

In pratica quel 4 è un icognita che devi calcolarti ogni volta.

Pensandoci, è una sottrazione negativa che si puo fare con gli script....

Ciao a Tutti!

Come l'hai descritta tu è già più comprensibile posso ricavarne una serie di calcoli che mi portano a quel 4 dell'articolo, questa formula io poi la devo applicare per tutte le estrazioni e applicandola all'esempio di Emplein è venuto fuori invece di 14 un 58, bene proseguirò così.

Grazie

salvo50 · 4 Maggio 2018

Enplein;n2113816 ha scritto:
Ciao Salvo, adesso non posso controllare lo script perche’ sono con il telefonino, pero’ posso affermare che tutto procede bene...per i numeri distanziali basta usare il codice Distanza( ), infatti Distanza (33,37)=4.

A dopo, Enplein.

Perfetto, usando il codice distanza nei 2 passaggi oltre al 4 dell'articolo viene fuori anche il tuo 14.

Grazie

Ho modificato l'abbozzo di script adesso viene fuori il 4 ed il 14 modificando i 4 numeri di partenza

Roby · 4 Maggio 2018

bene...

Ciao a tutti

Cesare

salvo50 · 4 Maggio 2018

L'ho finito ma non ho applicato tutte le 12 regole, anche perchè qualcuna mi sembra come una ripetizione, la regola numero 4 verso la fine della spiegazione dice che se dopo la trasposizione si hanno di nuovo i numeri di partenza, quell'ambo non bisogna giocarlo e giocare gli ambi incrociati, io ho impostato nella ricerca 4 ambi, i due ambi ottenuti dopo la trasposizione ed anche i 2 ambi incrociati, la regola n6 funziona da sola in automatico, le regole numero 7, 8, 10, 11, 12 non le ho applicate perchè mi sembra che ripete sempre le stesse cose, forse mi sbaglio.

Comunque c'è ancora qualcosa che non va, perchè se cerco più estrazioni indietro, va in errore di < indice non compreso nell'intervallo> probabilmente in qualche estrazione i calcoli vanno fuori range, adesso non ho voglia di cercare l'errore, in seguito forse lo farò.

Trovato dovevo postarlo per accendersi la lampadina, era la Nazionale che nelle estrazioni indietro non c'è, già corretto

Aggiunti altri 2 ambi, quindi sono 6

Codice:

'PROGETTO - LASER 50 by FABARRI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Clp,Col,Esqcol
   Dim Posta(2),Ruote(2)
   Dim Caso,Casi,R1,R2,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,Dab,Dcd,Sab,Scd,Sabcd,S1,S2
   Dim DecX1,DecX2,DecX3,DecX4,CadX1,CadX2,CadX3,CadX4
   Dim Dist,X,S3,X1,X2,X3,X4
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2)
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9450)
   Clp = InputBox("Per quanti colpi vuoi giocare gli ambi?",,6)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn - 1))
   'Posta(1) = 1
   Posta(2) = 1
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Messaggio Es
      AvanzamentoElab Esq,Esqcol,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 11
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 4
               P2 = P1 + 1
               A = Estratto(Es,R1,P1) : If A > 0 Then
               B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1) : If C > 0 Then
               D = Estratto(Es,R2,P2)
               Dab = Distanza(A,B)
               Dcd = Distanza(C,D)
               If Dab <> 17 And Dcd <> 17 Then
                  If Dab = Dcd Then
                     Sab = Fuori90(A + B)
                     Scd = Fuori90(C + D)
                     S1 = Fuori90(Sab * 3)
                     If Sab <> 45 And Sab <> 90 And Scd <> 45 And Scd <> 90 Then
                        S1 = Diametrale(S1)
                        Sabcd = Fuori90(Sab + Scd)
                        S2 = Fuori90(90 +(S1 - Sabcd))
                        X = Distanza(Sab,S2)
                        Dist = Distanza(Dab,X)
                        S3 = Fuori90(S2 + Dist)
                        X1 = S3 / 2
                        X2 = Fuori90(90 +(S2 - X1))
                        If X1 > 45 Then X3 = X1 - 45 Else X3 = X1 + 45
                        If X2 > 45 Then X4 = X2 - 45 Else X4 = X2 + 45
                        DecX1 = Decina(X1) : DecX2 = Decina(X2) : DecX3 = Decina(X3) : DecX4 = Decina(X4)
                        CadX1 = Cadenza(X1) : CadX2 = Cadenza(X2) : CadX3 = Cadenza(X3) : CadX4 = Cadenza(X4)
                        'Principali
                        Ambo1(1) = X1 : Ambo1(2) = X2
                        Ambo2(1) = X3 : Ambo2(2) = X4
                        'trasposti
                        Ambo3(1) = DecX1 & CadX2 : Ambo3(2) = DecX2 & CadX1
                        Ambo4(1) = DecX3 & CadX4 : Ambo4(2) = DecX4 & CadX3
                        'incrociati
                        Ambo5(1) = X1 : Ambo5(2) = X4
                        Ambo6(1) = X2 : Ambo6(2) = X3
                        '-------------------------------------------------
                        Ruote(1) = R1
                        Ruote(2) = R2
                        If SerieFreq(Es,Es,Ambo1,Ruote,2) = 0 Then
                           If SerieFreq(Es,Es,Ambo2,Ruote,2) = 0 Then
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For PP1 = 1 To 5
                                 E1 = Estratto(Es,R1,PP1)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For PP2 = 1 To 5
                                 E2 = Estratto(Es,R2,PP2)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi " Ambi uniti" & Space(8) & "Somme" & Space(7) & "Dist. Ciclom." & Space(10) & "Prospetto",1
                              Scrivi "   " & Format2(A) & " " & Format2(B) & Space(12) & Format2(Sab) & Space(14) & Format2(Dab),1,0
                              ColoreTesto 2
                              Scrivi Space(15) & Format2(S2) & Space(8) & Format2(Dist),1
                              ColoreTesto 0
                              Scrivi "   " & Format2(C) & " " & Format2(D) & Space(12) & Format2(Scd) & Space(14) & Format2(Dcd),1,0
                              ColoreTesto 2
                              Scrivi Space(20) & Format2(S3),1
                              Scrivi Space(20) & Format2(S2) & Space(31) & Format2(X1) & Space(8) & Format2(X2),1
                              ColoreTesto 0
                              Scrivi Space(20) & Format2(S1),1,0
                              ColoreTesto 2
                              Scrivi Space(31) & Format2(X3) & Space(8) & Format2(X4),1
                              ColoreTesto 0
                              Scrivi
                              ColoreTesto 1
                              Scrivi Space(13) & "Ambi Principali" & Space(6) & "Ambi Trasposti" & Space(6) & "Ambi Incrociati",1
                              'ColoreTesto 0
                              Scrivi " Pronostico  ",1,0
                              ColoreTesto 2
                              Scrivi Format2(Ambo1(1)) & " " & Format2(Ambo1(2)),1,0
                              Scrivi Space(3) & Format2(Ambo2(1)) & " " & Format2(Ambo2(2)),1,0
                              Scrivi Space(8) & Format2(Ambo3(1)) & " " & Format2(Ambo3(2)),1,0
                              Scrivi Space(3) & Format2(Ambo4(1)) & " " & Format2(Ambo4(2)),1,0
                              Scrivi Space(8) & Format2(Ambo5(1)) & " " & Format2(Ambo5(2)),1,0
                              Scrivi Space(3) & Format2(Ambo6(1)) & " " & Format2(Ambo6(2)),1
                              ColoreTesto 0
                              Scrivi
                              ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp
                              ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
                              ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp
                              ImpostaGiocata 4,Ambo4,Ruote,Posta,Clp
                              ImpostaGiocata 5,Ambo5,Ruote,Posta,Clp
                              ImpostaGiocata 6,Ambo6,Ruote,Posta,Clp
                              Gioca Es
                           End If
                        End If
                     End If
                  End If
               End If
            End If
         End If
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Roby · 5 Maggio 2018

Bravo salvo, poi me lo guardo,

Script su metodi di Fabarri

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Super Member >PLATINUM<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Roby

Guest

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest