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

    La conoscenza è libertà, ma la libertà non è gratuita

  • #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


        La conoscenza è libertà, ma la libertà non è gratuita

        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
          ----------------------------------------------------------------------



          La conoscenza è libertà, ma la libertà non è gratuita

          Commenta

          Unconfigured Ad Widget

          Comprimi

          Ultima estrazione del lotto

          Comprimi

          Estrazione del lotto
          giovedì 19 luglio 2018
          Bari
          20
          87
          21
          59
          03
          Cagliari
          53
          14
          29
          56
          73
          Firenze
          02
          03
          47
          76
          34
          Genova
          04
          40
          32
          01
          77
          Milano
          58
          06
          56
          71
          15
          Napoli
          27
          60
          43
          49
          15
          Palermo
          77
          75
          14
          38
          81
          Roma
          73
          47
          41
          90
          10
          Torino
          06
          69
          18
          16
          26
          Venezia
          16
          56
          39
          88
          89
          Nazionale
          41
          50
          53
          61
          32
          Sto operando...
          X