Quadrato Intellettuale

[salvo50]

Sto facendo uno script sul - Quadrato Intellettuale - dicono di Pico Della Mirandola, leggendo le spiegazioni ho appurato che 6 piramidi sono in più, lui dopo aver fatto la prima piramide dice di queste ne facciamo 9, ma poi ne usa solo 3, la prima, la quarta e la quinta, per arrivare alla quinta fa un giro tortuoso coinvolgendo anche le piramidi che non centrano per niente, nello script ho inserito un numero fisso il 33.
Adesso ho da fare, più tardi riprendo il discorso.

Saluti!

 

[salvo50]

Continuo il discorso sospeso, praticamente all'ambo di partenza, basta aggiungere 3 alla decina e 3 alle unità col fuori 9, per avere la seconda coppia di numeri, a questa seconda coppia aggiungere 3 alla decina e 3 alle unità per avere la terza coppia di numeri, basta guardare le prime 3 piramidi per accertarsene.
Metto il codice per le prime tre piramidi, se si va a vedere le spiegazioni del - Quadrato Intellettuale - le piramidi 1,4,e 5 sono uguali a quelle che ho ottenuto con lo script, senza fare tutti quei giri tortuosi

Option Explicit
Sub Main
    Dim g1p1,g1p4,g1p5,g2p2,g3p3,g3p4,fig(6),decnum(3),cadnum(3)
    Dim ap1(5),ap2(5),ap3(5),bp1,cp1,ep1,a,fisso1,fisso2
    Dim ag2num,bg2num,aag2num,bbg2num,ag3num,bg3num,aag3num,bbg3num
    ReDim g1Num(3)
    ReDim g2Num(3)
    ReDim g3num(3)
    Scrivi
    g1Num(1) = 46
    g1Num(3) = 14
    fig(1) = FuoriX(((g1Num(1) + g1Num(3)) + 9),9)
    If fig(1) = 1 Then g1Num(2) = 35
    If fig(1) = 2 Then g1Num(2) = 57
    If fig(1) = 3 Then g1Num(2) = 79
    If fig(1) = 4 Then g1Num(2) = 92
    If fig(1) = 5 Then g1Num(2) = 24
    If fig(1) = 6 Then g1Num(2) = 46
    If fig(1) = 7 Then g1Num(2) = 68
    If fig(1) = 8 Then g1Num(2) = 81
    If fig(1) = 9 Then g1Num(2) = 13
    g1p1 = StringaNumeri(g1Num,"",True)
    ap1(1) = Piramide(g1p1,1)
    ap1(2) = Piramide(g1p1,2)
    ap1(3) = Piramide(g1p1,3)
    ap1(4) = Piramide(g1p1,4)
    'calcoli gruppo 2 prima piramide
    fisso1 = 33
    ag2num = FuoriX(Decina(g1Num(1)) + Decina(fisso1),9)
    bg2num = FuoriX(Cadenza(g1Num(1)) + Cadenza(fisso1),9)
    g2Num(1) = ag2num & bg2num
    aag2num = FuoriX(Decina(g1Num(3)) + Decina(fisso1),9)
    bbg2num = FuoriX(Cadenza(g1Num(3)) + Cadenza(fisso1),9)
    g2Num(3) = aag2num & bbg2num
    fig(2) = FuoriX(((g2Num(1) + g2Num(3)) + 9),9)
    If fig(2) = 1 Then g2Num(2) = 35
    If fig(2) = 2 Then g2Num(2) = 57
    If fig(2) = 3 Then g2Num(2) = 79
    If fig(2) = 4 Then g2Num(2) = 92
    If fig(2) = 5 Then g2Num(2) = 24
    If fig(2) = 6 Then g2Num(2) = 46
    If fig(2) = 7 Then g2Num(2) = 68
    If fig(2) = 8 Then g2Num(2) = 81
    If fig(2) = 9 Then g2Num(2) = 13
    g2p2 = StringaNumeri(g2Num,"",True)
    ap2(1) = Piramide(g2p2,1)
    ap2(2) = Piramide(g2p2,2)
    ap2(3) = Piramide(g2p2,3)
    ap2(4) = Piramide(g2p2,4)
    'calcoli gruppo 3 prima piramide
    ag3num = FuoriX(Decina(g2Num(1)) + Decina(fisso1),9)
    bg3num = FuoriX(Cadenza(g2Num(1)) + Cadenza(fisso1),9)
    g3num(1) = ag3num & bg3num
    aag3num = FuoriX(Decina(g2Num(3)) + Decina(fisso1),9)
    bbg3num = FuoriX(Cadenza(g2Num(3)) + Cadenza(fisso1),9)
    g3num(3) = aag3num & bbg3num
    fig(3) = FuoriX(((g3num(1) + g3num(3)) + 9),9)
    If fig(3) = 1 Then g3num(2) = 35
    If fig(3) = 2 Then g3num(2) = 57
    If fig(3) = 3 Then g3num(2) = 79
    If fig(3) = 4 Then g2Num(2) = 92
    If fig(3) = 5 Then g3num(2) = 24
    If fig(3) = 6 Then g3num(2) = 46
    If fig(3) = 7 Then g3num(2) = 68
    If fig(3) = 8 Then g3num(2) = 81
    If fig(3) = 9 Then g3num(2) = 13
    g3p3 = StringaNumeri(g3num,"",True)
    ap3(1) = Piramide(g3p3,1)
    ap3(2) = Piramide(g3p3,2)
    ap3(3) = Piramide(g3p3,3)
    ap3(4) = Piramide(g3p3,4)
    ColoreTesto 1
    Scrivi "  Gruppo:1                  Gruppo:2                  Gruppo:3  ",1
    Scrivi " Piramide:1                Piramide:2                Piramide:3 ",1
    ColoreTesto 0
    Scrivi
    Scrivi "   " & g1p1 & "                   " & g2p2 & "                     " & g3p3,1
    Scrivi "   " & ap1(1) & "                    " & ap2(1) & "                      " & ap3(1),1
    Scrivi "   " & ap1(2) & "                     " & ap2(2) & "                       " & ap3(2),1
    Scrivi "   " & ap1(3) & "                      " & ap2(3) & "                        " & ap3(3),1
    Scrivi "   " & ap1(4) & "                       " & ap2(4) & "                         " & ap3(4),1

End Sub

 

[salvo50]

inserisco lo script finito

Option Explicit
Sub Main
    Dim g1p1,g1p4,g1p5,g2p2,g3p3,g2p6,g2p7,g3p8,g3p9,fig(12),decnum(3),cadnum(3)
    Dim ap1(20),ap2(20),ap3(20),bp1,cp1,dp1,ep1,fp1,gp1,a,fisso1,fisso2
    Dim ag2num,bg2num,aag2num,bbg2num,ag3num,bg3num,aag3num,bbg3num
    Dim g1p10,g1p11,g2p12,g2p13,g3p14,g3p15,g1p16,g2p17,g3p18,g1p19,g2p20,g3p21
    ReDim g1Num(3),g1Num2(3),g1Num3(5)
    ReDim g2Num(3),g2Num2(3),g2Num3(5)
    ReDim g3num(3),g3num2(3),g3num3(5)
    Scrivi
    g1Num(1) = 46
    g1Num(3) = 14
    fig(1) = FuoriX(((g1Num(1) + g1Num(3)) + 9),9)
    If fig(1) = 1 Then g1Num(2) = 35
    If fig(1) = 2 Then g1Num(2) = 57
    If fig(1) = 3 Then g1Num(2) = 79
    If fig(1) = 4 Then g1Num(2) = 92
    If fig(1) = 5 Then g1Num(2) = 24
    If fig(1) = 6 Then g1Num(2) = 46
    If fig(1) = 7 Then g1Num(2) = 68
    If fig(1) = 8 Then g1Num(2) = 81
    If fig(1) = 9 Then g1Num(2) = 13
    g1p1 = StringaNumeri(g1Num,"",True)
    ap1(1) = Piramide(g1p1,1)
    ap1(2) = Piramide(g1p1,2)
    ap1(3) = Piramide(g1p1,3)
    ap1(4) = Piramide(g1p1,4)
    'calcoli gruppo 2 seconda piramide
    fisso1 = 33
    ag2num = FuoriX(Decina(g1Num(1)) + Decina(fisso1),9)
    bg2num = FuoriX(Cadenza(g1Num(1)) + Cadenza(fisso1),9)
    g2Num(1) = ag2num & bg2num
    aag2num = FuoriX(Decina(g1Num(3)) + Decina(fisso1),9)
    bbg2num = FuoriX(Cadenza(g1Num(3)) + Cadenza(fisso1),9)
    g2Num(3) = aag2num & bbg2num
    fig(2) = FuoriX(((g2Num(1) + g2Num(3)) + 9),9)
    If fig(2) = 1 Then g2Num(2) = 35
    If fig(2) = 2 Then g2Num(2) = 57
    If fig(2) = 3 Then g2Num(2) = 79
    If fig(2) = 4 Then g2Num(2) = 92
    If fig(2) = 5 Then g2Num(2) = 24
    If fig(2) = 6 Then g2Num(2) = 46
    If fig(2) = 7 Then g2Num(2) = 68
    If fig(2) = 8 Then g2Num(2) = 81
    If fig(2) = 9 Then g2Num(2) = 13
    g2p2 = StringaNumeri(g2Num,"",True)
    ap2(1) = Piramide(g2p2,1)
    ap2(2) = Piramide(g2p2,2)
    ap2(3) = Piramide(g2p2,3)
    ap2(4) = Piramide(g2p2,4)
    'calcoli gruppo 3 terza piramide
    ag3num = FuoriX(Decina(g2Num(1)) + Decina(fisso1),9)
    bg3num = FuoriX(Cadenza(g2Num(1)) + Cadenza(fisso1),9)
    g3num(1) = ag3num & bg3num
    aag3num = FuoriX(Decina(g2Num(3)) + Decina(fisso1),9)
    bbg3num = FuoriX(Cadenza(g2Num(3)) + Cadenza(fisso1),9)
    g3num(3) = aag3num & bbg3num
    fig(3) = FuoriX(((g3num(1) + g3num(3)) + 9),9)
    If fig(3) = 1 Then g3num(2) = 35
    If fig(3) = 2 Then g3num(2) = 57
    If fig(3) = 3 Then g3num(2) = 79
    If fig(3) = 4 Then g3Num(2) = 92
    If fig(3) = 5 Then g3num(2) = 24
    If fig(3) = 6 Then g3num(2) = 46
    If fig(3) = 7 Then g3num(2) = 68
    If fig(3) = 8 Then g3num(2) = 81
    If fig(3) = 9 Then g3num(2) = 13
    g3p3 = StringaNumeri(g3num,"",True)
    ap3(1) = Piramide(g3p3,1)
    ap3(2) = Piramide(g3p3,2)
    ap3(3) = Piramide(g3p3,3)
    ap3(4) = Piramide(g3p3,4)
    ' visualizzazione piramidi 1-2-3
    ColoreTesto 1
    Scrivi "     Gruppo:1                   Gruppo:2                  Gruppo:3  ",1
    Scrivi "    Piramide:1                 Piramide:2                Piramide:3 ",1
    ColoreTesto 0
    Scrivi
    Scrivi "     " & g1p1 & "                     " & g2p2 & "                     " & g3p3,1
    Scrivi "     " & ap1(1) & "                      " & ap2(1) & "                      " & ap3(1),1
    Scrivi "     " & ap1(2) & "                       " & ap2(2) & "                       " & ap3(2),1
    Scrivi "     " & ap1(3) & "                        " & ap2(3) & "                        " & ap3(3),1
    Scrivi "     " & ap1(4) & "                         " & ap2(4) & "                         " & ap3(4),1
    'calcoli piramidi 4 e 5
    fig(4) = FuoriX(Decina(ap1(4)) + Cadenza(ap1(4)),9)
    g1p4 = fig(4)*100 + g1Num(1)
    bp1 = Piramide(g1p4,1)
    g1p5 = fig(4)*100 + g1Num(3)
    cp1 = Piramide(g1p5,1)
    'calcoli piramidi 6 e 7
    fig(5) = FuoriX(Decina(ap2(4)) + Cadenza(ap2(4)),9)
    g2p6 = fig(5)*100 + g1Num(1)
    dp1 = Piramide(g2p6,1)
    g2p7 = fig(5)*100 + g1Num(3)
    ep1 = Piramide(g2p7,1)
    'calcoli piramidi 8 e 9
    fig(6) = FuoriX(Decina(ap3(4)) + Cadenza(ap3(4)),9)
    g3p8 = fig(6)*100 + g1Num(1)
    fp1 = Piramide(g3p8,1)
    g3p9 = fig(6)*100 + g1Num(3)
    gp1 = Piramide(g3p9,1)
    'visualizzazione piramidi 4-5-6-7-8-9
    Scrivi
    ColoreTesto 2
    Scrivi "Pir:4   Pir:5            Pir:6      Pir:7            Pir:8      Pir:9 "
    ColoreTesto 0
    Scrivi "" & g1p4 & "     " & g1p5 & "              " & g2p6 & "        " & g2p7 & "              " & g3p8 & "        " & g3p9,1
    Scrivi "" & bp1 & "      " & cp1 & "               " & dp1 & "         " & ep1 & "               " & fp1 & "         " & gp1,1
    ' calcoli piramidi 10 e 11
    g1p10 = ap1(4)*100 + bp1
    ap1(5) = Piramide(g1p10,1)
    ap1(6) = Piramide(g1p10,2)
    g1p11 = ap1(4)*100 + cp1
    ap1(7) = Piramide(g1p11,1)
    ap1(8) = Piramide(g1p11,2)
    ' calcoli piramidi 12 e 13
    g2p12 = ap2(4)*100 + dp1
    ap2(5) = Piramide(g2p12,1)
    ap2(6) = Piramide(g2p12,2)
    g2p13 = ap2(4)*100 + ep1
    ap2(7) = Piramide(g2p13,1)
    ap2(8) = Piramide(g2p13,2)
    ' calcoli piramidi 14 e 15
    g3p14 = ap3(4)*100 + fp1
    ap3(5) = Piramide(g3p14,1)
    ap3(6) = Piramide(g3p14,2)
    g3p15 = ap3(4)*100 + gp1
    ap3(7) = Piramide(g3p15,1)
    ap3(8) = Piramide(g3p15,2)
    Scrivi
    'visualizzazione piramidi 10-11-12-13-14-15
    ColoreTesto 1
    Scrivi "Pir:10  Pir:11           Pir:12     Pir:13           Pir:14     Pir:15 "
    ColoreTesto 0
    Scrivi "" & g1p10 & "    " & g1p11 & "             " & g2p12 & "       " & g2p13 & "             " & g3p14 & "       " & g3p15,1
    Scrivi "" & ap1(5) & "     " & ap1(7) & "              " & ap2(5) & "        " & ap2(7) & "              " & ap3(5) & "        " & ap3(7),1
    Scrivi "" & ap1(6) & "      " & ap1(8) & "               " & ap2(6) & "         " & ap2(8) & "               " & ap3(6) & "         " & ap3(8),1
    'calcoli piramide 16
    g1Num2(1) = ap1(6)
    g1Num2(3) = ap1(8)
    fig(7) = FuoriX(((g1Num2(1) + g1Num2(3)) + 9),9)
    If fig(7) = 1 Then g1Num2(2) = 35
    If fig(7) = 2 Then g1Num2(2) = 57
    If fig(7) = 3 Then g1Num2(2) = 79
    If fig(7) = 4 Then g1Num2(2) = 92
    If fig(7) = 5 Then g1Num2(2) = 24
    If fig(7) = 6 Then g1Num2(2) = 46
    If fig(7) = 7 Then g1Num2(2) = 68
    If fig(7) = 8 Then g1Num2(2) = 81
    If fig(7) = 9 Then g1Num2(2) = 13
    g1p16 = StringaNumeri(g1Num2,"",True)
    ap1(9) = Piramide(g1p16,1)
    ap1(10) = Piramide(g1p16,2)
    ap1(11) = Piramide(g1p16,3)
    ap1(12) = Piramide(g1p16,4)
    ' calcoli piramide 17
    g2Num2(1) = ap2(6)
    g2Num2(3) = ap2(8)
    fig(8) = FuoriX(((g2Num2(1) + g2Num2(3)) + 9),9)
    If fig(8) = 1 Then g2Num2(2) = 35
    If fig(8) = 2 Then g2Num2(2) = 57
    If fig(8) = 3 Then g2Num2(2) = 79
    If fig(8) = 4 Then g2Num2(2) = 92
    If fig(8) = 5 Then g2Num2(2) = 24
    If fig(8) = 6 Then g2Num2(2) = 46
    If fig(8) = 7 Then g2Num2(2) = 68
    If fig(8) = 8 Then g2Num2(2) = 81
    If fig(8) = 9 Then g2Num2(2) = 13
    g2p17 = StringaNumeri(g2Num2,"",True)
    ap2(9) = Piramide(g2p17,1)
    ap2(10) = Piramide(g2p17,2)
    ap2(11) = Piramide(g2p17,3)
    ap2(12) = Piramide(g2p17,4)
    ' calcoli piramide 18
    g3num2(1) = ap3(6)
    g3num2(3) = ap3(8)
    fig(9) = FuoriX(((g3num2(1) + g3num2(3)) + 9),9)
    If fig(9) = 1 Then g3num2(2) = 35
    If fig(9) = 2 Then g3num2(2) = 57
    If fig(9) = 3 Then g3num2(2) = 79
    If fig(9) = 4 Then g3num2(2) = 92
    If fig(9) = 5 Then g3num2(2) = 24
    If fig(9) = 6 Then g3num2(2) = 46
    If fig(9) = 7 Then g3num2(2) = 68
    If fig(9) = 8 Then g3num2(2) = 81
    If fig(9) = 9 Then g3num2(2) = 13
    g3p18 = StringaNumeri(g3num2,"",True)
    ap3(9) = Piramide(g3p18,1)
    ap3(10) = Piramide(g3p18,2)
    ap3(11) = Piramide(g3p18,3)
    ap3(12) = Piramide(g3p18,4)
    Scrivi
    ColoreTesto 2
    Scrivi "    Pir:16                    Pir:17                     Pir:18"
    ColoreTesto 0
    Scrivi "    " & g1p16 & "                    " & g2p17 & "                     " & g3p18,1
    Scrivi "    " & ap1(9) & "                     " & ap2(9) & "                      " & ap3(9),1
    Scrivi "    " & ap1(10) & "                      " & ap2(10) & "                       " & ap3(10),1
    Scrivi "    " & ap1(11) & "                       " & ap2(11) & "                        " & ap3(11),1
    Scrivi "    " & ap1(12) & "                        " & ap2(12) & "                         " & ap3(12),1
    'calcoli piramide 19
    g1Num3(1) = ap1(12)
    g1Num3(2) = ap1(4)
    g1Num3(3) = ap2(12)
    g1Num3(4) = ap1(4)
    g1Num3(5) = ap3(12)
    g1p19 = StringaNumeri(g1Num3,"",True)
    ap1(13) = Piramide(g1p19,1)
    ap1(14) = Piramide(g1p19,2)
    ap1(15) = Piramide(g1p19,3)
    ap1(16) = Piramide(g1p19,4)
    ap1(17) = Piramide(g1p19,5)
    ap1(18) = Piramide(g1p19,6)
    ap1(19) = Piramide(g1p19,7)
    ap1(20) = Piramide(g1p19,8)
    'calcoli piramide 20
    g2Num3(1) = ap1(12)
    g2Num3(2) = ap2(4)
    g2Num3(3) = ap2(12)
    g2Num3(4) = ap2(4)
    g2Num3(5) = ap3(12)
    g2p20 = StringaNumeri(g2Num3,"",True)
    ap2(13) = Piramide(g2p20,1)
    ap2(14) = Piramide(g2p20,2)
    ap2(15) = Piramide(g2p20,3)
    ap2(16) = Piramide(g2p20,4)
    ap2(17) = Piramide(g2p20,5)
    ap2(18) = Piramide(g2p20,6)
    ap2(19) = Piramide(g2p20,7)
    ap2(20) = Piramide(g2p20,8)
    'calcoli piramide 21
    g3num3(1) = ap1(12)
    g3num3(2) = ap3(4)
    g3num3(3) = ap2(12)
    g3num3(4) = ap3(4)
    g3num3(5) = ap3(12)
    g3p21 = StringaNumeri(g3num3,"",True)
    ap3(13) = Piramide(g3p21,1)
    ap3(14) = Piramide(g3p21,2)
    ap3(15) = Piramide(g3p21,3)
    ap3(16) = Piramide(g3p21,4)
    ap3(17) = Piramide(g3p21,5)
    ap3(18) = Piramide(g3p21,6)
    ap3(19) = Piramide(g3p21,7)
    ap3(20) = Piramide(g3p21,8)
    Scrivi
    ColoreTesto 1
    Scrivi "    Pir:19                    Pir:20                     Pir:21"
    ColoreTesto 0
    Scrivi "  " & g1p19 & "                " & g2p20 & "                 " & g3p21,1
    Scrivi "  " & ap1(13) & "                 " & ap2(13) & "                  " & ap3(13),1
    Scrivi "  " & ap1(14) & "                  " & ap2(14) & "                   " & ap3(14),1
    Scrivi "  " & ap1(15) & "                   " & ap2(15) & "                    " & ap3(15),1
    Scrivi "  " & ap1(16) & "                    " & ap2(16) & "                     " & ap3(16),1
    Scrivi "  " & ap1(17) & "                     " & ap2(17) & "                      " & ap3(17),1
    Scrivi "  " & ap1(18) & "                      " & ap2(18) & "                       " & ap3(18),1
    Scrivi "  " & ap1(19) & "                       " & ap2(19) & "                        " & ap3(19),1
    Scrivi "  " & ap1(20) & "                        " & ap2(20) & "                         " & ap3(20),1
    Scrivi
    Scrivi
End Sub

 

[ufolotto]

Ciao ho provato il listato mi dà errore 13 a riga 12 mi farebbe piacere provarlo puoi correggere in modo che funziona grazie .

 

[salvo50]

Ciao Ufolotto. è uno script datato quando l'ho fatto non conoscevo la funzione Spazio, comunque a me non da errore, probabilmente non stai usando spaziometria.

 

[salvo50]

lanciando lo script questo è quello che appare nell'output

 

[bubù]

Grazie, confermo che lo script funziona, ma non ho capito i numeri da giocare e se il gioco è a TUTTE o su una ruota se si, quali sono?????

 

[ufolotto]

Bubù devi cambiare i numeri 46 e 14 e mettere quelli che vuoi tu due a due come dice mirandola , trovi qui la spiegazione più semplice : https://www.artelotto.it/sto/mirandola.htm

 

[salvo50]

Ciao a Tutti

Questo script da i risultati delle piramidi derivanti dalle estrazioni, ma come mi faceva notare Nelson1331, come risultato i numeri finali delle 3 piramidi non sono 90 ma solo 27 esattamente questi
3,6,9,11,14,17,22,25,28,33,36,39,41,44,47,52,55,58,63,66,69,71,74,77,82,85,88
C'è uno script di Avio dove i finali delle 3 piramidi danno tutti i 90 numeri, ma non ricordo se l'aveva fatto con le estrazioni vere.

'Progetto - Quadrato Intellettuale - di Pico Sella Mirandola. Script di Salvo50 con la collaborazione degli scripters di Lottoced
'Dei 5 estratti di una ruota si prendono gli estratti a due a due,cioè il 1° e 2°, il 2° e 3°, il 3° e 4°, il 4° e 5°, il 5° e 1°
'Per ogni coppia si ricava un numero, quindi si fa la ricerca con 5 numeri, a differenza dell'originale che cerca un solo numero
'Si chiede quante estrazioni controllare, la ruota e per quanti colpi fare la ricerca
Option Explicit
Sub Main
   Dim ruota(1),posta(5),clp,qes,estraz
   Dim k1,r1,a(6),es,fin,riga,nu,B,de,ca,Ini
   Dim anum,bnum,cnum,dnum
   Dim P1,P2,P3,P4,P5,P6,P7,np(22),fig(6)
   ReDim num(3),num2(3),num3(5)
   posta(1) = 1
   posta(2) = 1
   'posta(3) = 1
   'posta(4) = 1
   'posta(5) = 0.5
   fin = EstrazioneFin
   qes = InputBox("Quante estrazioni controllare",estraz,12)
   clp = InputBox("Inserisci per quanti colpi fare la ricerca ",,3)
   r1 = ScegliRuota
   ruota(1) = r1
   Ini = fin - qes
   Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
   Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
   Scrivi
   For es = Ini To fin
      Messaggio es
      AvanzamentoElab Ini,fin,es
      a(1) = Estratto(es,r1,1)
      a(2) = Estratto(es,r1,2)
      a(3) = Estratto(es,r1,3)
      a(4) = Estratto(es,r1,4)
      a(5) = Estratto(es,r1,5)
      For k1 = 1 To 5
         If k1 = 1 Then : num(1) = a(1) : num(3) = a(2)
         If k1 = 2 Then : num(1) = a(2) : num(3) = a(3)
         If k1 = 3 Then : num(1) = a(3) : num(3) = a(4)
         If k1 = 4 Then : num(1) = a(4) : num(3) = a(5)
         If k1 = 5 Then : num(1) = a(5) : num(3) = a(1)
         fig(1) = FuoriX(((num(1) + num(3)) + 9),9)
         If fig(1) = 1 Then num(2) = 35
         If fig(1) = 2 Then num(2) = 57
         If fig(1) = 3 Then num(2) = 79
         If fig(1) = 4 Then num(2) = 92
         If fig(1) = 5 Then num(2) = 24
         If fig(1) = 6 Then num(2) = 46
         If fig(1) = 7 Then num(2) = 68
         If fig(1) = 8 Then num(2) = 81
         If fig(1) = 9 Then num(2) = 13
         P1 = StringaNumeri(num,"",True)
         np(4) = Piramide(P1,4)
         ' CALCOLI PIRAMIDI 2 E 3
         fig(2) = FuoriX((Decina(np(4)) + Cadenza(np(4)) + 9),9)
         P2 = fig(2)*100 + num(1)
         np(5) = Piramide(P2,1)
         P3 = fig(2)*100 + num(3)
         np(6) = Piramide(P3,1)
         ' CALCOLI PIRAMIDI 4 E 5
         P4 = np(4)*100 + np(5)
         np(8) = Piramide(P4,2)
         P5 = np(4)*100 + np(6)
         np(10) = Piramide(P5,2)
         ' CALCOLI PIRAMIDI 6
         num2(1) = np(8)
         num2(3) = np(10)
         fig(3) = FuoriX(((num2(1) + num2(3)) + 9),9)
         If fig(3) = 1 Then num2(2) = 35
         If fig(3) = 2 Then num2(2) = 57
         If fig(3) = 3 Then num2(2) = 79
         If fig(3) = 4 Then num2(2) = 92
         If fig(3) = 5 Then num2(2) = 24
         If fig(3) = 6 Then num2(2) = 46
         If fig(3) = 7 Then num2(2) = 68
         If fig(3) = 8 Then num2(2) = 81
         If fig(3) = 9 Then num2(2) = 13
         P6 = StringaNumeri(num2,"",True)
         np(14) = Piramide(P6,4)
         'CALCOLI PIRAMIDE 7
         anum = FuoriX(((Decina(np(14)) + 6) + 9),9)
         bnum = FuoriX(((Cadenza(np(14)) + 6) + 9),9)
         cnum = FuoriX((((Decina(np(14))) + 3) + 9),9)
         dnum = FuoriX((((Cadenza(np(14))) + 3) + 9),9)
         num3(1) = np(14)
         num3(2) = np(4)
         num3(3) = anum & bnum
         num3(4) = np(4)
         num3(5) = cnum & dnum
         P7 = StringaNumeri(num3,"",True)
         np(22) = Piramide(P7,8)
         de = Decina(np(22))
         ca = Cadenza(np(22))
         If de = 9 Then de = 0
         np(22) = de & ca
         riga = riga & Format2(np(22)) & " "
      Next
      nu = Split(Trim(riga)," ")
      riga = ""
      ImpostaGiocata 1,nu,ruota,posta,clp,1
      Gioca es
   Next
   ScriviResoconto
End Sub