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, 10:53.
      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

            Commenta

            Unconfigured Ad Widget

            Comprimi

            Ultima estrazione del lotto

            Comprimi

            Estrazione del lotto
            martedì 25 settembre 2018
            Bari
            75
            17
            73
            59
            77
            Cagliari
            89
            10
            43
            30
            66
            Firenze
            01
            56
            51
            55
            84
            Genova
            72
            33
            70
            58
            79
            Milano
            89
            12
            76
            43
            13
            Napoli
            27
            88
            85
            52
            68
            Palermo
            80
            05
            17
            81
            90
            Roma
            48
            64
            11
            34
            21
            Torino
            67
            42
            46
            52
            20
            Venezia
            16
            61
            66
            26
            80
            Nazionale
            77
            52
            58
            86
            11
            Sto operando...
            X