annuncio

Comprimi
Ancora nessun annuncio.

sommativi da strapazzo

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • sommativi da strapazzo

    ...I sommativi...


    Dimostrazione di costruzione di un sommativo (Antica arte di far coincidere le cose) :

    tempo di analisi : 100 estrazioni

    Durata gioco : 9 colpi

    Numeri in gioco : una cinquina X Ambo,terno,Quaterna.

    Ruote di gioco : Tutte


    Esito analisi:

    In 100 estrazioni, 2 quaterne, 12 terni, 107 ambi con un guadagno netto di 4.000 euro.


    Resoconto



    codice:
    +----------------------------------------+
    | Prima Giocata      : 9394              |
    | Ultima Giocata     : 9494              |
    | Range              : 101               |
    | Casi giocab perc.  : 100%              |
    +----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
    |               RESOCONTO                | |       DISTRIBUZIONE ESITI        | | DISTRIBUZIONE ESITI PERCENTUALI  | |        DISTRIBUZIONE CASI        |
    +----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
    | Casi esaminati     :              101  | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT |  Q  |                       |
    | Casi vincenti      :               82  | +----------------------------------+ +----------------------------------+ +----------------------------------+
    | Percentuale pos.   :          81,19 %  | | BA |     |     |     |     |     | | BA |     |     |     |     |     | | BA |     |                       |
    | Pronostici totali  :              101  | | CA |     |     |     |     |     | | CA |     |     |     |     |     | | CA |     |                       |
    | Pronostici vinc.   :               82  | | FI |     |     |     |     |     | | FI |     |     |     |     |     | | FI |     |                       |
    | Percentuale pos.   :          81,19 %  | | GE |     |     |     |     |     | | GE |     |     |     |     |     | | GE |     |                       |
    | Giocate in corso   :                4  | | MI |     |     |     |     |     | | MI |     |     |     |     |     | | MI |     |                       |
    | Giocate terminate  :               97  | | NA |     |     |     |     |     | | NA |     |     |     |     |     | | NA |     |                       |
    | Bollette giocate   :              388  | | PA |     |     |     |     |     | | PA |     |     |     |     |     | | PA |     |                       |
    | Bollette vincenti  :               82  | | RO |     |     |     |     |     | | RO |     |     |     |     |     | | RO |     |                       |
    | Attesa media       :                3  | | TO |     |     |     |     |     | | TO |     |     |     |     |     | | TO |     |                       |
    | Spesa              :       1.225,00 €  | | VE |     |     |     |     |     | | VE |     |     |     |     |     | | VE |     |                       |
    | Vincita            :       5.320,40 €  | | NZ |     |     |     |     |     | | NZ |     |     |     |     |     | | NZ |     |                       |
    | Guadagno           :       4.095,40 €  | | TT |     |  107|   12|    2|     | | TT |     |     |     |     |     | | TT |     |                       |
    | Perc. Rendimento   :        334,318 %  | +----------------------------------+ +----------------------------------+ +----------------------------------+
    | Mass. Esposizione  :          78,00 €  |    
    | Estratto su tutte  :              186  |                                                                                                                
    | Ambo su tutte      :              107  |                                                                                                                
    | Terno su tutte     :               12  |                                                                                                                
    | Quaterna su tutte  :                2  |                                                                                                                
    |                                        |                                                                                                                
    +----------------------------------------+



    Lo script da far girare così comè, cliccate su ok a tutto.



    codice:
    Option Explicit
    Sub Main
       Dim es,Ini,Fin,r0,r1,nRic,Clp,x,y,j
       Dim ruota(12)
       Dim ruote(12)
       Dim poste(10)
       Dim am(10)
       Dim nu(5)
       Dim na(5)
       Dim a,b,c,d,e,co
       Dim Importi(2,9)
       Dim nprogryn
       Dim nprogr(12)
       poste(2) = 1
       poste(3) = 1
       poste(4) = 1
       nprogryn = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO",,"1"))
       If nprogryn = 1 Then
          nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro ",,"1"))
          nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 2 Euro ",,"1"))
          nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 3 Euro ",,"1"))
          nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 4 Euro ",,"1"))
          nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 5 Euro ",,"1"))
          nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 6 Euro ",,"1"))
          nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 7 Euro ",,"2"))
          nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 8 Euro ",,"2"))
          nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 9 Euro ",,"2"))
          Importi(2,1) = nprogr(1)
          Importi(2,2) = nprogr(2)
          Importi(2,3) = nprogr(3)
          Importi(2,4) = nprogr(4)
          Importi(2,5) = nprogr(5)
          Importi(2,6) = nprogr(6)
          Importi(2,7) = nprogr(7)
          Importi(2,8) = nprogr(8)
          Importi(2,9) = nprogr(9)
       End If
       x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
       y = CInt(InputBox(" Scegli Fisso Base ",,"20"))
       j = CInt(InputBox(" Scegli Fisso Base ",,"84"))
       r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
       r1 = 11
       nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
       Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
       Ini = EstrazioneFin - nRic
       Fin = EstrazioneFin
       co = 0
       For es = Ini To Fin
          Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
          Call AvanzamentoElab(Ini,Fin,es)
          ruota(1) = r0
          ruote(1) = r1
          a = Estratto(es,r0,1)
          b = Estratto(es,r0,2)
          c = Estratto(es,r0,3)
          d = Estratto(es,r0,4)
          e = Estratto(es,r0,5)
          '--------------------
          am(1) = Fuori90(a + x)
          am(2) = Fuori90(b + x)
          am(3) = Fuori90(c + x)
          am(4) = Fuori90(d + x)
          am(5) = Fuori90(e + x)
          '---------------------
          am(6) = Differenza(a,x)
          am(7) = Differenza(b,x)
          am(8) = Differenza(c,x)
          am(9) = Differenza(d,x)
          am(10) = Differenza(e,x)
          '----------------------------
          nu(1) = Fuori90(am(1) + am(6))
          nu(2) = Fuori90(am(2) + am(7))
          nu(3) = Fuori90(am(3) + am(8))
          nu(4) = Fuori90(am(4) + am(9))
          nu(5) = Fuori90(am(5) + am(10))
          '------------------------------
          na(1) = Fuori90(nu(1) + nu(2))
          na(2) = Fuori90(nu(4) + nu(5))
          na(3) = Fuori90(Diametrale((nu(3)) + y))
          na(4) = Fuori90(na(1) + na(2))
          na(5) = Fuori90(Diametrale((nu(3)) + j))
          '-----------------------------
          co = co + 1
          Scrivi String(70,"-")
          Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fissi " & x & y & j,1,,,1
          ImpostaGiocata 1,na,ruote,poste,Clp,2
          ImpostaProgressione 1,Importi
          ' Scrivi "puntate eseguite " & Clp
          'Scrivi " - .1 colpo - " & Importi(2,1) & " euro  x ambo "
          'Scrivi " - .2 colpo - " & Importi(2,2) & " euro  x ambo"
          'Scrivi " - .3 colpo - " & Importi(2,3) & " euro  x ambo"
          'Scrivi " - .4 colpo - " & Importi(2,4) & " euro  x ambo"
          'Scrivi " - .5 colpo - " & Importi(2,5) & " euro  x ambo"
          'Scrivi " - .6 colpo - " & Importi(2,6) & " euro  x ambo"
          'Scrivi " - .7 colpo - " & Importi(2,7) & " euro  x ambo"
          'Scrivi " - .8 colpo - " & Importi(2,8) & " euro  x ambo"
          'Scrivi " - .9 colpo - " & Importi(2,9) & " euro  x ambo"
          Gioca es,True,,1
          If ScriptInterrotto Then Exit For
       Next
       Scrivi
       Scrivi String(100,"*")
       ColoreTesto 2
       Scrivi" casi trovati : " & co,1
       ColoreTesto 0
       Scrivi String(100," * ")
       ScriviResoconto,False
    End Sub


  • #2
    Come non ringraziarti ?? SEI DAVVERO GRANDE !! GRAZIE !!

    Commenta


    • #3
      Ottimo script Cerberus, anche come base per qualasiasi ulteriore variante è davvero molto ben strutturato Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:

      "In corso per altre 1 estrazioni"





      Ciao

      Ultima modifica di lotto_tom75; 05-07-2018, 09:53.
      NON SI GARANTISCE ALCUNA VINCITA. Giocare sempre con estrema moderazione perchè la Fortuna è Geka... ma la Sfiga ci vede benissimo! Presente.. in ogni dove... anche su faccialibro - " Non stare davanti a me potrei non seguirti, non stare dietro di me potrei non esserti di guida, ma sta al mio fianco e sii semplicemente mio amico/a " (Albert Camus). Cerca... Lotto IncMax e Good Luck Everybody! Namastè!

      Commenta


      • #4
        Ciao a tutti

        Vorrei precisare che questo 3D è più che altro una provocazione a questa discussione

        https://forum.lottoced.com/forum/lot...rto-in-listati


        Commenta


        • #5
          Ad ogni modo


          ----------------------------------------------------------------------
          26.06.2018 [ BA 30.55.45.23.54 ] Fissi 12084
          Estrazione generatrice del pronostico 09491 [ 76 - 26/06/2018]
          G 0001 Numeri in gioco : 80.64.65.54.39 su TT per Ambo,Terno,Quaterna
          In corso per altre 6 estrazioni
          ----------------------------------------------------------------------
          28.06.2018 [ BA 22.68.20.42.77 ] Fissi 12084
          Estrazione generatrice del pronostico 09492 [ 77 - 28/06/2018]
          G 0001 Numeri in gioco : 90.58.15.58.79 su TT per Ambo,Terno,Quaterna
          In corso per altre 7 estrazioni
          ----------------------------------------------------------------------



          Commenta


          • #6
            passa oltre.............e non ti curar di loro!

            Commenta

            Unconfigured Ad Widget

            Comprimi

            Ultima estrazione del lotto

            Comprimi

            Estrazione del lotto
            giovedì 06 dicembre 2018
            Bari
            51
            21
            12
            10
            62
            Cagliari
            60
            85
            81
            12
            43
            Firenze
            62
            17
            11
            28
            39
            Genova
            12
            67
            63
            42
            28
            Milano
            87
            42
            58
            32
            37
            Napoli
            74
            12
            27
            16
            03
            Palermo
            59
            89
            41
            79
            52
            Roma
            07
            51
            39
            37
            38
            Torino
            67
            29
            15
            14
            70
            Venezia
            33
            35
            06
            03
            58
            Nazionale
            81
            23
            45
            71
            14
            Sto operando...
            X