Richiesta script sommativo

[Fortuna_68]

Ciao Forum , chiedo ai prof se possono fare uno script di ricerca algoritmi sommativi scegliendo con inputbox tra :

-indice mese

-numero mesi

-numero colpi gioco , con la possibilità di posticipare l'inizio del gioco , cioè non solo dalla successiva estrazione a quella di calcolo ma ad esempio se calcolo alla 1a mese decido se iniziare il gioco dopo due colpi , quindi dalla 4a estrazione
( se non si può come non detto )

-una ruota o due ruote

-ricerca per presenze o frequenze

-1 estratto + fisso o 2 estratti + fisso

Accanto al numero previsto vorrei che ci fosse il suo ritardo attuale , nel gioco a singola ruota sarà solo uno , nel caso di due ruote metteremo solo quello col ritardo minore , poi il numero di presenze dell'algoritmo nella ricerca per presenze e della frequenza x il parametro frequenze

Esempio

1BA + 66 = 36 -- rit 21 -- pres 10

5RO + 20 = 22 -- rit 16 -- freq 12

Per ridurre il numero di algoritmi dovrebbe mostrare quelli che in primis hanno coperto più casi, tra questi , quelli
con più presenze ed infine quelli convergenti

Grazie

[DjNomade]

In archivio ho trovato una cosa del genere
se ti puo essere utile.......

Ciauz

Codice: Seleziona tutto

'Ultima estrazione numeri estratti Bari - 12.72.35.01.45

 'ATTENZIONE ANALISI DELLA POSIZIONE. 1
' Colpo n°. 12

'1°Ba + 08 su Bari è uscito 11  su 12  casi -  Num. [48] Ultimo Calcolato Rit.Att. 04 ... SFALDATO ... freq...14 - Esito al colpo... 8
'1°Ba + 06 su Bari è uscito 10  su 12  casi -  Num. [46] Ultimo Calcolato Rit.Att. 88 ... in corso ... freq...6

' ATTENZIONE ANALISI DELLA POSIZIONE. 2
' Colpo n°. 12

'2°Ba + 22 su Bari è uscito 13  su 12  casi -  Num. [84] Ultimo Calcolato Rit.Att. 11 ... SFALDATO ... freq...08 - Esito al colpo... 10
'2°Ba + 11 su Bari è uscito 11  su 12  casi -  Num. [73] Ultimo Calcolato; Rit.Att. 20 ... in corso ... freq...10

Sub Main()
ColoreTesto 1: Scrivi
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",158)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",9))
nStart = Timer ' partenza tempo di elaborazione
For nru1 = 1 To 12
If nru1 = 11 Then nru1 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 10231 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
'If IndiceMensile(es) = ind Then



'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensile(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensile(es + 1) = 1)And(eval(ind) = 0)))) Then
If IndiceMensile(es) = ind Or (((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1
a = Estratto(es,nru1,p)
aa = Estratto(es,nru1,p2)
a3 = Estratto(es,nru1,p3)
b = Fuori90(a + nu)
bb = Fuori90(aa + nu)
b3 = Fuori90(a3 + nu)
a4 = Estratto(es,nru1,p4)
a5 = Estratto(es,nru1,p5)
b4 = Fuori90(a4 + nu)
b5 = Fuori90(a5 + nu)
nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru1
nt(co,2) = nru1
n3(co,2) = nru1
n4(co,2) = nru1
n5(co,2) = nru1
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b
nt(co,6) = bb
n3(co,6) = b3
n4(co,6) = b4
n5(co,6) = b5
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru1,pp)
If e = b Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = bb Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b3 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b4 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b5 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
'End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi

If ind =0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind >0 Then Scrivi "ALLA "&(ind)&"° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 25
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo= colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 25
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1= Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 25
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2= Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 25
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3= Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 25
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4= Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Codice: Seleziona tutto

'IMPOSTAZIONI:
'(All'ultima estrazione del mese per (1) colpo:
'Quantità mesi Impostati: (3)
'Statistica dal: 27.02.2016 al: 21.05.2016
'Percentuale Impostata: 95%
'1 di Bari     + 17 su Bari     è uscito 2/3 : 56 ----> sfaldato
'1 di Bari     + 49 su Bari     è uscito 2/3 : 88  in corso
'2 di Bari     + 08 su Bari     è uscito 2/3 : 16 ----> sfaldato
'2 di Bari     + 48 su Bari     è uscito 2/3 : 56 ----> sfaldato
'4 di Bari     + 07 su Bari     è uscito 2/3 : 44 ----> sfaldato
'5 di Bari     + 89 su Bari     è uscito 2/3 : 16 ----> sfaldato

Sub Main()
Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1
Dim som(5,90)
Dim estr(5)
Dim Val(5,90)
Dim amb(90)
perc=InputBox("Imposta la percentuale esiti (10% - 100%)",,95)
es=InputBox("Inserisci 0 ultima, 1 prima, ....:",,12)
nmc=InputBox("Quanti mesi da analizzare ?",,3)
ncg=InputBox("Quanti colpi di gioco ?",,1)
ultest=9310
n=EstrazioneFin
z=0
trovato=False
While z<eval(nmc)

If (((eval(es)=0)And(n=ultest))Or((IndiceMensile(n)=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then

z=z+1
End If
n=n-1
Wend
nn=n+1
For r2=1 To 10
For i=1 To 90
amb(i)=0
Next
ColoreTesto 0 : Scrivi : Scrivi "*****************************************************************",1
ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1
If eval(es)=0 Then
s="(All'ultima"
Else
s="Alla ("+es
End If
s=s+" estrazione del mese per ("
If eval(ncg)=0 Then
s=s+"un mese:"
Else
If eval(ncg)=1 Then
s=s+ncg+") colpo:"
Else
s=s+ncg+") colpi:"
End If
End If
ColoreTesto 0 : Scrivi s
ColoreTesto 1 : Scrivi "Quantità mesi Impostati: ("& nmc &")",1
ColoreTesto 0 : Scrivi "Statistica dal: "+DataEstrazione(nn)+" al: "+DataEstrazione(EstrazioneFin),1
ColoreTesto 2 : Scrivi "Percentuale Impostata: "& perc &"%",1
Scrivi
For r=1 To 10
z=0
For i=1 To 5
For j=1 To 90
som(i,j)=0
Val(i,j)=True
Next
Next
For i=1 To 5
estr(i)=0
Next
valido=False
For n=nn To EstrazioneFin
If eval(es)=0 Then m=n+1 Else m=n End If
If (((eval(es)=0)And(n=ultest))Or((IndiceMensile(n)=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then
z=z+1
For i=1 To 5
estr(i)=Estratto(n,r,i)
Next
For i=1 To 5
For j=1 To 90
Val(i,j)=True
Next
Next
k2=eval(ncg)
k3=n+k2
If k3 > EstrazioneFin Then k3 = EstrazioneFin End If
For nv=n+1 To k3
For i=1 To 5
For j=1 To 5
k=Estratto(nv,r2,j)-estr(i)
While k<=0
k=k+90
Wend
If Val(i,k)=True Then
som(i,k)=som(i,k)+1
Val(i,k)=False
End If
Next
Next
Next
End If
Next
For i=1 To 5
For j=1 To 90
zz=Int((z/100)*perc)
s=CStr(eval(i))+" di "+FormatSpace(NomeRuota(r),8)+" + "+Format2(CStr(eval(j)))+" su "
ColoreTesto 1
s=s+FormatSpace(NomeRuota(r2),8)+" è uscito "+CStr(som(i,j))+"/"+CStr(eval(z))
s=s+" : "+FormatSpace(CStr(Fuori90(eval(estr(i)+j))),3)
If (Val(i,j)=True) Then s=s+" in corso" Else s=s+"----> sfaldato" End If
If som(i,j)>=zz Then
Scrivi s
amb(Fuori90(eval(estr(i)+j)))=amb(Fuori90(eval(estr(i)+j)))+1
End If
Next
Next
Next
ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1
For i=1 To 90
If (amb(i)>1) Then ColoreTesto 1 : Scrivi CStr(eval(i))+": Convergente in ("+CStr(eval(amb(i)))+" sistemi)",1
Next
Next
End Sub


[Fortuna_68]

Grazie mille DjNomade , sempre generoso ; il primo si avvicina parecchio alla richiesta , se si potessero fare due aggiunte con la frequenza dell'algoritmo e dei colpi di uscita sarebbe + che ottimo

Esempio

1NA + 20 --> freq 10 ( colpi nei casi : 1°// 2°- 3°// 6°// 3°// 5°- 6°// 1°- 3°// 6°) --> Riepilogo

Febbraio

1NA + 20 = 30 (1° colpo )

Marxo

1NA + 20 = 81 (2°-3° colpo)

Aprile

1NA + 20 = 66 (6° colpo)

Maggio

1NA + 20 = 90 (3° colpo)

Giugno

1NA + 20 = 18 (5°- 6°)

Luglio

1NA + 20 = 66 (1°-3°)

Agosto

1NA + 20 = 18 (6°)

Chiaro , sempre che sia fattibile , da aggiungere c'è solo il riepilogo e non la descrizione completa con i mesi

Ciao e grazie

[DjNomade]

Sicuramente si potra' fare ,purtroppo non sarei capace
Ciauz

[Fortuna_68]

Grazie ugualmente Dj , buona serata