Richiesta script Metodo Somme di Donatella - ulteriore aggiornamento

[skygirl]

Ho una richiesta per gli scripters è possibile avere lo script del Metodo delle Somme di Donatella
A questo link ho trovato lo script del Metodo delle Differenze ma non di quello delle Somme che si distingue dal primo solo per il fatto che invece di fare la differenza si fa appunto la Somma
http://forum.lottoced.com/forum/lott...bo-terno-secco

Il prossimo pronostico elaborato con il Metodo delle Somme é

Estrazione di riferimento prima del mese (02/01/2016)
Ambata : 40 - ambo secco 40 - 44 - ambo terno : 04 .44 . 49 ( 40)( somme

Questo invece era lo script del Metodo delle Differenze

 Sub Main() Scrivi "Ambata, ambo secco, ambo terno secco , di Donatella " Dim n1(1),nn1(2),nn2(3),ruota(2) Dim posta(1),poste(3),postee(3) posta(1) = 1 poste(2) = 1 postee(2) = 1 postee(3) = 0.5 ruota(1) = 1 ruota(2) = 2 k = 13 qe = InputBox("Quante estrazioni di controllo","estrazioni controllo",100) Ini = EstrazioneFin - qe fin = EstrazioneFin For es = ini To Fin Messaggio es AvanzamentoElab Ini,fin,es If IndiceMensile(es) = 1 Then a = Estratto(es,1,1) b = Estratto(es,1,2) c = Estratto(es,1,3) d = Estratto(es,2,1) e = Estratto(es,2,2) f = Estratto(es,2,3) g = Differenza(a,b) h = Differenza(d,e) i = Differenza(a,c) l = Differenza(d,f) casi = casi + 1 Scrivi String(100,"-") Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(1) & " " & StringaEstratti(es,1) & " " Scrivi DataEstrazione(es,2) & " < " & SiglaRuota(2) & " " & StringaEstratti(es,2) & " " Scrivi Format2(g) & " + " & Format2(h) & " = " & Format2(Fuori90(g + h)) Scrivi Format2(i) & " + " & Format2(l) & " = " & Format2(Fuori90(i + l)) n1(1) = Fuori90(g + h) ImpostaGiocata 1,n1,ruota,posta,k,1 nn1(1) = Fuori90(g + h) nn1(2) = Fuori90(i + l) ImpostaGiocata 2,nn1,ruota,poste,k,2 nn2(1) = Vert(n1(1)) nn2(2) = Fuori90(i + l) nn2(3) = Vert(nn1(2)) ImpostaGiocata 3,nn2,ruota,postee,k,2 Scrivi String(100,"-") & " caso n° " &(casi) Gioca es,True,,1 End If Next Scrivi String(100,"-") Scrivi " Ambata, ambo secco, ambo terno secco , di Donatella " Scrivi String(100,"-") ScriviResoconto End Sub

Scusatemi se lo script appare così ma non riesco ad inserirlo con spazi maggiori anche usando l'invio per fare più spazio all'interno di CODE

 

[skygirl]

Grazie disaronno per lo script, l'ho appena verificato in Spaziometria ultima versione funziona alla perfezione

Ho appena letto l'ultimo post di Donatella che dice che utilizzando le ambate dei due metodi si ottiene un ambo che esce di frequente sulle ruote di BA-CA e Tutte, da ciò nasce la mia ulteriore richiesta di aggiornamento script che evidenzi anche questo ambo, sempre se possibile

Estrazione generatrice del pronostico 09103 [ 1 - 02/01/2016]

Metodo Differenze ambata 56
Metodo Somme ambata 40
Ambo 56-40 uscito il 09/01/2016 su Tutte ruota di Milano
Grazie

 

[skygirl]

Ho verificato lo script in Spaziometria funziona perfettamente.

Grazie disaronno per la velocità con cui hai fatto aggiornamento

saluti