x salvo 50

[kubes]

 'sviluppo del metodo MI
Dim  sommamil, mesedaconsiderare ,estraz
 abbinam =VarArrayCreate([1,10],3)
 numeri1 = VarArrayCreate([0, 9], 3)
 ruote = VarArrayCreate([0, 9], 3)
 importi = VarArrayCreate([0, 4], 3)
 interruzioni = VarArrayCreate([0, 99], 12)

' ************   dati da  cambiare  ****************************
  mesedaconsiderare="gennaio"            ' inserire il mese da analizzare
'**********************************************************

 initoutput
CancellaOutput() ' ripulisco la finestra di output
AzzeraGiocate()  ' azzera tutte le giocate precedenti
AzzeraReport()   ' azzera i report precedenti
colpi = 12
report = 1
importi[0] = 1
ruote[0]=6
  for i=1 to 10
      abbinam[i] =0
  next
estraz=estrazionefine
do while mesenome(estraz) <> mesedaconsiderare
  estraz=estraz-1
loop

sommamil= estratto(estraz,5,5) + estratto(estraz-1,5,1) -21
do while  (sommamil >90 )
       sommamil=sommamil-21
loop
g=1
for i=1 to 10
    if  (sommamil+(9 * i)) >90 then
         if (sommamil-(9 * i)) > 0 then
            abbinam[g] =sommamil-(9 * i)
            g=g+1
         end if
    else
        abbinam[g] = sommamil+(9 * i)
        g=g+1
    end if
next
numeri1[0]=sommamil

ImpostaGiocata(1, "Metodo MI",numeri1,ruote,importi,colpi,estraz+1,interruzioni,report)
Gioca()
visualizzareport()
AzzeraGiocate()
AzzeraReport()
importi[0] = 0
importi[1] = 1
for i=1 to 10
     if  abbinam[i] >0  then
          numeri1[1]=abbinam[i]
          ImpostaGiocata(1, "Metodo MI",numeri1,ruote,importi,colpi,estraz+1,interruzioni,report)
          Gioca()
          visualizzareport()
       AzzeraGiocate()
          AzzeraReport()
     end if
next

AddNL("Ambata da giocare su Napoli : " & sommamil, 1)
AddNL("Abbinamenti : " , 1)
 for i=1 to 10
     if  abbinam[i] >0  then
     Add(abbinam[i] & "  ", 1)
     end if
 next
formatoutput

Ciao SALVO50
potresti frlo girare su spaziometria? grazie

 

[salvo50]

Ciao Kubes, sembra che ne manchi un pezzo, ma anche se fosse intero e forse lo è, non è alla mia portata, non sono in grado di farlo

 

[kubes]

no , non manca nulla era un file .bas

 

[joe]

Ciao kubes,

quello script è per un dialetto Basic differente da quello di Spaziometria.

Se hai questo programma, dovresti sapere come farlo funzionare.

Al riguardo è come dire che ... Mario Bianchi ha generato un Basic diverso da quello di Mario Rossi.

e Mario Rossi non ri-conosce il linguaggio di Mario Bianchi.

Attualmente io non sono in grado di eseguirlo sul Pc. Solo di leggerlo (io).

Si può renderlo funzionante al 100% perché so con certezza che in passato

è stato già fatto per lavori ben più complicati.

Però, in questo caso non credo si acquisiscano meriti particolari nell'addentrarsi in una traduzione

molto più dettagliata di quella che ho già fatto.

Ho dovuto "rovesciare" la logica dello script perché, a quanto pare, si limitava

a controllare l' ultima di estrazione di Gennaio. Cioè di un caso particolare (di un anno particolare).

Sarebbe utile sapere per quale gennaio di quale anno era stato scritto.

Tuttavia, visto che ad un primo riscontro "si comporta bene" ... ci darò ancora uno sguardo.


Fammi sapere.

 

[kubes]

ciao Joe e grazie x l'interessamento , il file in questione l'ho trovato in uno zip, su un vecchio HD , ho provato a farlo girare in qbasic ma nulla da fare, io non so di quale mese o anno il metodo parli, ed in virtu' della similitudine con Spaziometria , appunto chiedevo di farlo girare come .ls .
purtroppo nel file zip ho trovato solo questo.bas . Con un editor l'ho copiato e messo qui sperando che qualcuno faccia questo "miracolo" , da come ho potuto capire fa una somma di 1 e 5 di Milano , poi nn capisco altro. Sarebbe bello se qualcuno riuscisse a farlo girare , a prescindere dalla validità del metodo . grazie

 

[joe]

Ok Kubes.

Va bene.

Diciamo che non ha senso (cioè interesse generale) addentrarsi nei particolari ...

... anche perché affermi di non conoscerli.

Come ho detto lo script che segue non è una traduzione ma è un remake.

Ho preso pari-pari una parte dello script,

lasciandola intatta cioè quella dove si svolgono i calcoli del pronostico.

Attorno a questa ho redatto una struttura-portante-inversa e diversa.

Cioè ora lo script "va in avanti" e non cerca a ritroso

l' "ultima estrazione di gennaio" presente in archivio.

E poi ... se è vero che la giocata di un estratto per 12 colpi è risultato assai probabile,

è anche vero che essa espone ad un investimento maggiore di 10 euro.

Ancora ... è vero che, in caso di vincita, questa può essere assai poco gratificante.

Probabilmente con questa ipotetica vincita ci si comprano 4 limoni, dopo averne rischiati più di 10.

Quindi ho cambiato anche la parte riservata alla giocata orientandola al controllo degli Ambi.

Per il resto ricordo, a chi legge, che si usa ... a fine gennaio.

Sub Main
'x Kubes
'https://forum.lottoced.com/forum/lottoced/area-download/2162834-x-salvo-50
'PL.bas to *.LS By Joe
   Dim Ini,Fin,Es
   Dim SommaMil,Colpi,G,K,I1,I2
   Dim Abbinam(11),Importi(2)
   Dim S(1)',Nu(2)
   Dim Ruote(1) : Ruote(1) = NA_
   Importi(1) = 0
   Importi(2) = 2
   Colpi = 12
   I1 = 1 : I2 = 2
   Ini = 7440 : Fin = EstrazioneFin
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      If Mese(Es) = 1 And IsUltimaDelMese(Es) Then
         SommaMil = Estratto(Es,5,5) + Estratto(Es - 1,5,1) - 21
         Do While(SommaMil > 90)
            SommaMil = SommaMil - 21
         Loop
         ReDim Nu(10)
         G = 1 : S(G) = SommaMil : Nu(1) = SommaMil
         For i = 1 To 10
            If(SommaMil +(9 * i)) > 90 Then
               If(SommaMil -(9 * i)) > 0 Then
               G = G + 1
                  Abbinam(G) = SommaMil -(9 * i)

               End If
            Else
            G = G + 1
               Abbinam(G) = SommaMil +(9 * i)

            End If
         Next

         S(1) = SommaMil : Nu(1) = SommaMil
         K = 1
         'ImpostaGiocata K,S,Ruote,Importi,Colpi,I1
         For i = 1 To 10
            If Abbinam(i) > 0 Then
               K = K + 1
               Nu(K) = Abbinam(i)
            End If
         Next
         EliminaRipetuti Nu
         ImpostaGiocata 2,Nu,Ruote,Importi,Colpi,I2
         Gioca Es,True
      End If
   Next
   ScriviResoconto
End Sub

 

[kubes]

Ciao joe , grazie per il lavoro svolto, perche poi lo hai fatto solo per gennaio?
' ************ dati da cambiare **************************** mesedaconsiderare="gennaio" ' inserire il mese da analizzare '********************************************************** non si poteva mettere qualcosa che facesse cambiare i mesi???

 

[joe]

Ciao kubes.

Si non è un problema, oggi, qui, cambiare il mese, le ruote ed anche molti altri parametri.

Tuttavia penso che ci sia stata dell' esperienza, dello studio

ed anni di osservazione... prima che questo metodo fosse codificato.

Chi l'ha scritto penso lo abbia fatto per poter controllare,

con precisione esattamente quanto qui contenuto.

Quindi a parer mio c'è una discreta probabilità, che le modifiche da te richieste,

peggiorino molto la qualità dei risultati.

Tuttavia considerando che si è a "fine mese", appena sarà calcolabile,

fornirò il pronostico per il prossimo mese di aprile.

 

[joe]

Come da promessa,

Per tutto il mese d'aprile abbiamo:
06.15.24.33.42.51.60.78.81.87 su NAPOLI per Ambo,Terno,Quaterna

 

[kubes]

--------------------------------------------
Ambata da giocare su Napoli : 77
Abbinamenti : 86 59 50 41 32 23 14 5
--------------------------------------------