metodo_generatore
Junior Member
Ciao a tutti,
partendo dal seguente metodo trovato in rete , come mio solito, l'ho modifcato e quindi analizzato partendo dal 2006 ad oggi.
'Quarta estrazione del mese
'---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63
'---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44
'---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89
'---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85
'---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59
'---------------> 9 colpi
'---------------> Ruote di Gioco BA/CA
Le personalizzazioni che ho fatto sono:
- colpi=1
- giocate per 2 estrazioni al mese consucutive
- riduzione di pronostici giocatai nel caso di numeri consecutivi e numeri ripetuti nelle 5 giocate
Quasi mai un metodo nel lungo periodo risulta in positivo. Questo, sulle ruote di BA/CA, ha un utile corrente di +1022 euro considerando anche il fatto che nella simulazione non sono state definite le progressioni.
Allego lo script nel quale si ci sono i seguenti parametri su cui si può agire:
es_mod = es - 3 ( determina l'estrazione di partenza)
ruote(1) = 1 1° Ruota di gioco
ruote(2) = 2 2° Ruota di gioco
oltre che al numero di colpi
Allego il codice dove ci sono delle parti che potrebbero essere tolte. Sono partito da un altro mio script.
Allego l' immagine della performance.
Il buco di vincita dal caso 38 al caso 105 (1020 giocate) porta ad una esposizione molto alta.
Per provare a ridurre il buco e rendere la resa più costante sto modificando lo script parametrizzando il pronostico in base alla ruota di gioco e non su ruote fisse come ora.
partendo dal seguente metodo trovato in rete , come mio solito, l'ho modifcato e quindi analizzato partendo dal 2006 ad oggi.
'Quarta estrazione del mese
'---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63
'---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44
'---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89
'---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85
'---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59
'---------------> 9 colpi
'---------------> Ruote di Gioco BA/CA
Le personalizzazioni che ho fatto sono:
- colpi=1
- giocate per 2 estrazioni al mese consucutive
- riduzione di pronostici giocatai nel caso di numeri consecutivi e numeri ripetuti nelle 5 giocate
Quasi mai un metodo nel lungo periodo risulta in positivo. Questo, sulle ruote di BA/CA, ha un utile corrente di +1022 euro considerando anche il fatto che nella simulazione non sono state definite le progressioni.
Allego lo script nel quale si ci sono i seguenti parametri su cui si può agire:
es_mod = es - 3 ( determina l'estrazione di partenza)
ruote(1) = 1 1° Ruota di gioco
ruote(2) = 2 2° Ruota di gioco
oltre che al numero di colpi
Allego il codice dove ci sono delle parti che potrebbero essere tolte. Sono partito da un altro mio script.
Allego l' immagine della performance.
Il buco di vincita dal caso 38 al caso 105 (1020 giocate) porta ad una esposizione molto alta.
Per provare a ridurre il buco e rendere la resa più costante sto modificando lo script parametrizzando il pronostico in base alla ruota di gioco e non su ruote fisse come ora.
| Sub Main() Dim ruote(3) Dim posta(3) Dim poste(2) Dim n(1) Dim am1(2) Dim am2(2) Dim am3(2) Dim am4(2) Dim am5(2) Dim u1(4),u2(4),u3(4),u4(4),u5(5) Dim min(5) u1(1) = 2 u1(2) = 3 u1(3) = 4 u1(4) = 5 u2(1) = 1 u2(2) = 3 u2(3) = 4 u2(4) = 5 u3(1) = 2 u3(2) = 1 u3(3) = 4 u3(4) = 5 u4(1) = 2 u4(2) = 3 u4(3) = 1 u4(4) = 5 u5(1) = 2 u5(2) = 3 u5(3) = 4 u5(4) = 1 poste(2) = 1 posta(3) = 1 clp = InputBox("Quanti colpi di gioco?","METODO In Gioco ",1) ini = InputBox("Inizio Ricerca :",,7550) fin = EstrazioneFin 'Ini= 7694 'fin= 8554 co = 0 giocate_effettive = 0 giocata1 = 0 giocata2 = 0 giocata3 = 0 giocata4 = 0 giocata5 = 0 Mese_estr = Mese(Ini) spesa_corrente = 0 'puntata_corrente = Importi(2,1) conta_giocate_perdenti = 0 giocate_perdenti_max = 0 giocate_perdenti_max_temp = 0 giocate_effettive_max = 0 numero_ambi = 0 numero_ambetti = 0 numero_ambetti1 = 0 am1_stat = 0 am2_stat = 0 am3_stat = 0 spospendi_dopo = 100 gioco_sospeso = False utile_totale = 0 For es = ini To fin es_mod = es - 3 If Mese(es_mod) <> Mese_estr And Mese(es_mod) <> 0 Then Mese_estr = Mese(es_mod) AvanzamentoElab ini,fin,es For i = 0 To 1 giocatab1 = True giocatab2 = True giocatab3 = True giocatab4 = True giocatab5 = True cambio = 0 am1(1) = Fuori90(Estratto(es + i,1,1) + 71) '---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63 am1(2) = Fuori90(Estratto(es + i,4,4) + 63) '---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63 If am1(1) = am1(2)Or am1(1) = am1(2) + 1 Or am1(1) = am1(2) - 1 Then am1(1) = Fuori90(Estratto(es + i,1,1) + 71) '---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63 am1(2) = Fuori90(Estratto(es + i,4,4) + 44) '---------------> 1° Ambo: 1° di Ba + 71 ** 4° di Ge + 63 End If am2(1) = Fuori90(Estratto(es + i,1,1) + 20) '---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44 am2(2) = Fuori90(Estratto(es + i,7,3) + 44) '---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44 If am2(1) = am2(2) Or am2(1) = am2(2) + 1 Or am2(1) = am2(2) - 1 Then am2(1) = Fuori90(Estratto(es + i,1,1) + 20) '---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44 am2(2) = Fuori90(Estratto(es + i,7,3) + 63) '---------------> 2° Ambo: 1° di Ba + 20 ** 3° di Pa + 44 End If am3(1) = Fuori90(Estratto(es + i,1,1)*38) '---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89 am3(2) = Fuori90(Estratto(es + i,7,2)*89) '---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89 If am3(1) = am3(2) Or am3(1) = am3(2) + 1 Or am3(1) = am3(2) - 1 Then am3(1) = Fuori90(Estratto(es + i,1,1)*38) '---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89 am3(2) = Fuori90(Estratto(es + i,7,2)*87) '---------------> 3° Ambo: 1° di Ba x 38 ** 2° di Pa x 89 End If am4(1) = Fuori90(Estratto(es + i,1,1) + 8) '---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85 am4(2) = Fuori90(Estratto(es + i,8,3)*85) '---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85 If am4(1) = am4(2)Or am4(1) = am4(2) + 1 Or am4(1) = am4(2) - 1 Then am4(1) = Fuori90(Estratto(es + i,1,1) + 10) '---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85 am4(2) = Fuori90(Estratto(es + i,8,3)*85) '---------------> 4° Ambo: 1° di Ba + 8 ** 3° di Ro x 85 End If am5(1) = Fuori90(Estratto(es + i,1,1) + 3) '---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59 If am3(1) =am3(2) Then am5(2) = Fuori90(Estratto(es + i,1,1) + 59) '---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59 If am5(1) = am5(2) Or am5(1) = am5(2) + 1 Or am5(1) = am5(2) - 1 Then am5(1) = Fuori90(Estratto(es + i,1,1) + 5) '---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59 If am3(1) =am3(2) Then am5(2) = Fuori90(Estratto(es + i,1,1) + 59) '---------------> 5° Ambo: 1° di Ba + 3 ** 1° di Ba + 59 End If Do break = False cambio = 0 If am1(2) = am2(1) And break = False And giocatab2 = True Then cambio = 1 giocatab2 = False break = True End If If am1(2) = am3(1) And break = False And giocatab3 = True Then cambio = 2 giocatab3 = False break = True End If If am1(2) = am4(1) And break = False And giocatab4 = True Then cambio = 3 giocatab4 = False break = True End If If am1(2) = am5(1) And break = False And giocatab5 = True Then cambio = 4 giocatab5 = False break = True End If If am2(2) = am1(1) And break = False And giocatab1 = True Then cambio = 5 giocatab1 = False break = True End If If am2(2) = am3(1) And break = False And giocatab3 = True Then cambio = 6 giocatab3 = False break = True End If If am2(2) = am4(1) And break = False And giocatab4 = True Then cambio = 7 giocatab4 = False break = True End If If am2(2) = am5(1) And break = False And giocatab5 = True Then cambio = 8 giocatab5 = False break = True End If If am3(2) = am1(1) And break = False And giocatab1 = True Then cambio = 9 giocatab1 = False break = True End If If am3(2) = am2(1) And break = False And giocatab2 = True Then cambio = 10 giocatab2 = False break = True End If If am3(2) = am4(1) And break = False And giocatab4 = True Then cambio = 11 giocatab4 = False break = True End If If am3(2) = am5(1) And break = False And giocatab5 = True Then cambio = 12 giocatab5 = False break = True End If If am4(2) = am1(1) And break = False And giocatab1 = True Then cambio = 13 giocatab1 = False break = True End If If am4(2) = am3(1) And break = False And giocatab3 = True Then cambio = 14 giocatab3 = False break = True End If If am4(2) = am2(1) And break = False And giocatab2 = True Then cambio = 15 giocatab2 = False break = True End If If am4(2) = am5(1) And break = False And giocatab5 = True Then cambio = 16 giocatab5 = False break = True End If If am5(2) = am1(1) And break = False And giocatab1 = True Then cambio = 17 giocatab1 = False break = True End If If am5(2) = am3(1) And break = False And giocatab3 = True Then cambio = 18 giocatab3 = False break = True End If If am5(2) = am4(1) And break = False And giocatab4 = True Then cambio = 19 giocatab4 = False break = True End If If am5(2) = am2(1) And break = False And giocatab2 = True Then cambio = 20 giocatab2 = False break = True End If 'Scrivi " cambio " & cambio,1 Select Case cambio Case 1 am1(2) = am2(2) Case 2 am1(2) = am3(2) Case 3 am1(2) = am4(2) Case 4 am1(2) = am5(2) Case 5 am2(2) = am1(2) Case 6 am2(2) = am3(2) Case 7 am2(2) = am4(2) Case 8 am2(2) = am5(2) Case 9 am3(2) = am1(2) Case 10 am3(2) = am3(2) Case 11 am3(2) = am4(2) Case 12 am3(2) = am5(2) Case 13 am4(2) = am1(2) Case 14 am4(2) = am3(2) Case 15 am4(2) = am2(2) Case 16 am4(2) = am5(2) Case 17 am5(2) = am1(2) Case 18 am5(2) = am3(2) Case 19 am5(2) = am4(2) Case 20 am5(2) = am2(2) Case Else cambio = 0 End Select Loop While cambio <> 0 co = co + 1 If ScriptInterrotto Then Exit For Scrivi String(70,"°") & DataEstrazione(es + i) & " Caso n°" & co & " Ruota: " & NomeRuota(opz_ruota + 1),1 Scrivi String(70,"°"),1 ruote(1) = 1 ruote(2) = 2 rt_tmp= ruote(1) If Not(ruote(1) = rt_tmp) Then gioco_sospeso = True ImpostaGiocataVirtuale 1,am1,ruote,poste,clp,2'-------->Il risultato è una terzina da giocare per ambo sulla ruota specificata 'ImpostaProgressione 1,Importi ImpostaGiocataVirtuale 2,am2,ruote,poste,clp,2 'ImpostaProgressione 2,Importi ImpostaGiocataVirtuale 3,am3,ruote,poste,clp,2 ImpostaGiocataVirtuale 4,am4,ruote,poste,clp,2 ImpostaGiocataVirtuale 5,am5,ruote,poste,clp,2 GiocaVirtuale es + i'------------>Che sta per "Gioca" la previsione dopo l'estrazione con la condizione ricercata 'Scrivi " estrazione giocata perdente virtuale : " &es If GetVincita(True,True) = 0 Then conta_giocate_perdenti = conta_giocate_perdenti + 1 conta_giocate_perdenti_max_temp = conta_giocate_perdenti_max_temp + 1 'Scrivi "ramo3" If conta_giocate_perdenti_max_temp > giocate_perdenti_max Then giocate_perdenti_max = conta_giocate_perdenti_max_temp giocate_perdenti_max_str = conta_giocate_perdenti_max_temp & " (" & es + i & ")" 'Scrivi "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB "&giocate_perdenti_max_str End If 'Scrivi " estrazione giocata perdente virtuale : " &es&" max_temp1 : "&conta_giocate_perdenti_max_temp Scrivi " conta_giocate_perdenti temp....." & conta_giocate_perdenti_max_temp Scrivi " conta_giocate_perdenti....." & conta_giocate_perdenti Else conta_giocate_perdenti_max_temp = conta_giocate_perdenti_max_temp + 1 If conta_giocate_perdenti_max_temp > giocate_perdenti_max Then giocate_perdenti_max = conta_giocate_perdenti_max_temp giocate_perdenti_max_str = conta_giocate_perdenti_max_temp & " (" & es + i & ")" End If conta_giocate_perdenti = 0 'Scrivi " conta_giocate_perdenti temp....." & conta_giocate_perdenti_max_temp Scrivi " conta_giocate_perdenti....." & conta_giocate_perdenti End If Else gioco_sospeso = False 'If conta_giocate_perdenti<=3 Or (conta_giocate_perdenti>= 11 And conta_giocate_perdenti<=14) Then If ruote(1) = rt_tmp Then giocate_effettive_temp = 0 If giocatab1 = True Then ImpostaGiocata 1,am1,ruote,poste,clp,2,,u1'-------->Il risultato è una terzina da giocare per ambo sulla ruota specificata 'ImpostaProgressione 1,Importi giocate_effettive_temp = giocate_effettive_temp + 1 End If If giocatab2 = True Then ImpostaGiocata 2,am2,ruote,poste,clp,2,,u2 giocate_effettive_temp = giocate_effettive_temp + 1 End If If giocatab3 = True Then 'ImpostaProgressione 2,Importi ImpostaGiocata 3,am3,ruote,poste,clp,2,,u3 giocate_effettive_temp = giocate_effettive_temp + 1 End If If giocatab4 = True Then ImpostaGiocata 4,am4,ruote,poste,clp,2,,u4 giocate_effettive_temp = giocate_effettive_temp + 1 End If If giocatab5 = True Then ImpostaGiocata 5,am5,ruote,poste,clp,2,,u5 giocate_effettive_temp = giocate_effettive_temp + 1 End If 'ImpostaProgressione 3,Importi 'ImpostaGiocata 4,am4,ruote,posta,clp,2 'Gioca es,True,,2,,True'------------>Che sta per "Gioca" la previsione dopo l'estrazione con la condizione ricercata Gioca es + i,True,,1,,True'------------>Che sta per "Gioca" la previsione dopo l'estrazione con la condizione ricercata If GetVincita(True,False) = 0 Then 'spesa_corrente = spesa_corrente + GetSpesa(True) conta_giocate_perdenti = conta_giocate_perdenti + 1 conta_giocate_perdenti_max_temp = conta_giocate_perdenti_max_temp + 1 'Scrivi "ramo3" If conta_giocate_perdenti_max_temp > giocate_perdenti_max Then giocate_perdenti_max = conta_giocate_perdenti_max_temp giocate_perdenti_max_str = conta_giocate_perdenti_max_temp & " (" & es + i & ")" 'Scrivi "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC "&giocate_perdenti_max_str End If 'Scrivi " estrazione giocata perdente : " &es&" max_temp3 : "&conta_giocate_perdenti_max_temp 'Scrivi "ramo1" ' Scrivi " conta_giocate_perdenti temp....." & conta_giocate_perdenti_max_temp If giocatab1 = True Then VerificaEsitoTurbo am1,ruote,es + i,2,clp + 1,,,retcolpi,retestr,retidestr End If If giocatab2 = True Then VerificaEsitoTurbo am2,ruote,es + i,2,clp + 1,,,retcolpi1,retestr1,retidestr1 End If If giocatab3 = True Then VerificaEsitoTurbo am3,ruote,es + i,2,clp + 1,,,retcolpi2,retestr2,retidestr2 End If If giocatab4 = True Then VerificaEsitoTurbo am4,ruote,es + i,2,clp + 1,,,retcolpi3,retestr3,retidestr3 End If If giocatab5 = True Then VerificaEsitoTurbo am5,ruote,es + i,2,clp + 1,,,retcolpi4,retestr4,retidestr4 End If If retcolpi < 7 And giocatab1 = True Then Giocata1 = Giocata1 + 1 End If If retcolpi1 < 7 And giocatab2 = True Then Giocata2 = Giocata2 + 1 End If If retcolpi2 < 7 And giocatab3 = True Then Giocata3 = Giocata3 + 1 End If If retcolpi3 < 7 And giocatab4 = True Then Giocata4 = Giocata4 + 1 End If If retcolpi4 < 7 And giocatab5 = True Then Giocata5 = Giocata5 + 1 End If min(1) = retcolpi min(2) = retcolpi1 min(3) = retcolpi2 min(4) = retcolpi3 min(5) = retcolpi4 giocate_effettive = giocate_effettive + giocate_effettive_temp*2 Scrivi"giocate effettive parziali: " & giocate_effettive,1 'giocate_effettive = giocate_effettive + 60 'Scrivi"MMMMMMMMMMMMMMMMMMMMMMMMM Giocate Effetive Correnti 1 MMMMMMMMMMMMMMMMMMMMMMMM " & giocate_effettive If Giocate_effettive > Giocate_effettive_max Then Giocate_effettive_max = Giocate_effettive End If Else intervallo_estr = Intervallo_estr & "[" & es + i & "-" & es + i + clp numero_ambi = numero_ambi + 1 'spesa_corrente = 0 VerificaEsitoTurbo am1,ruote,es + i,2,clp + 1,,,retcolpi,retestr,retidestr VerificaEsitoTurbo am2,ruote,es + i,2,clp + 1,,,retcolpi1,retestr1,retidestr1 VerificaEsitoTurbo am3,ruote,es + i,2,clp + 1,,,retcolpi2,retestr2,retidestr2 VerificaEsitoTurbo am4,ruote,es + i,2,clp + 1,,,retcolpi3,retestr3,retidestr3 VerificaEsitoTurbo am5,ruote,es + i,2,clp + 1,,,retcolpi4,retestr4,retidestr4 If retcolpi < 7 Then Giocata1 = Giocata1 + 1 End If If retcolpi1 < 7 Then Giocata2 = Giocata2 + 1 End If If retcolpi2 < 7 Then Giocata3 = Giocata3 + 1 End If If retcolpi3 < 7 Then Giocata4 = Giocata4 + 1 End If If retcolpi4 < 7 Then Giocata5 = Giocata5 + 1 End If min(1) = retcolpi min(2) = retcolpi1 min(3) = retcolpi2 min(4) = retcolpi3 min(5) = retcolpi4 'Scrivi"minimo vettore1: "&MinimoV(min,1) giocate_effettive = giocate_effettive +(MinimoV(min,1) - 1)*2*5 'Scrivi"MMMMMMMMMMMMMMMMMMMMMMMMM Giocate Effetive Corenti 2 MMMMMMMMMMMMMMMMMMMMMMMM " & giocate_effettive If Giocate_effettive > Giocate_effettive_max Then Giocate_effettive_max = Giocate_effettive End If If retestr <> "" Then am1_stat = am1_stat + 1 ElseIf retestr1 <> "" Then am2_stat = am2_stat + 1 ElseIf retestr2 <> "" Then am3_stat = am3_stat + 1 End If If(retestr <> "" And(retestr1 = "" And retestr2 = ""))Or((retestr <> "" And retestr1 <> "" And retidestr <= retidestr1)Or(retestr <> "" And retestr2 <> "" And retidestr <= retidestr2)Or(retestr <> "" And retestr1 <> "" And retestr2 <> "" And retidestr <= retidestr1 And retidestr <= retidestr2)) Then attesa_temp = attesa_temp & conta_giocate_perdenti_max_temp & "; " riga_temp = riga_temp & "(" & retidestr & "- " & retcolpi & "-gp " & giocate_effettive & "); " intervallo_estr = Intervallo_estr & "(" & conta_giocate_perdenti_max_temp & ")]" ElseIf(retestr1 <> "" And retestr2 = "") Or(retestr1 <> "" And retestr2 <> "" And retidestr1 <= retidestr2) Then attesa_temp = attesa_temp & conta_giocate_perdenti_max_temp & "; " riga_temp = riga_temp & "(" & retidestr1 & "-c " & retcolpi1 & "-gp " & giocate_effettive & "); " intervallo_estr = Intervallo_estr & "(" & conta_giocate_perdenti_max_temp & ")]" ElseIf retestr2 <> "" Then attesa_temp = attesa_temp & conta_giocate_perdenti_max_temp & "; " riga_temp = riga_temp & "(" & retidestr2 & "- " & retcolpi2 & "-gp " & giocate_effettive & "); " intervallo_estr = Intervallo_estr & "(" & conta_giocate_perdenti_max_temp & ")]" End If conta_giocate_perdenti = 0 conta_giocate_perdenti_max_temp = 0 giocate_effettive = 0 End If 'Scrivi " Spesa Corrente.... " & spesa_corrente Scrivi " conta_giocate_perdenti....." & conta_giocate_perdenti 'Scrivi " conta_giocate_perdenti....." & giocate_perdenti_max End If End If Next End If 'Next Next attesa_temp = "" riga_temp = "" ambetto_temp = "" ambetto_temp2 = "" ambetto_temp3 = "" ambetto_temp4 = "" intervallo_estr = "" numero_ambi = 0 numero_ambetti = 0 numero_ambetti1 = 0 numero_ambetti3 = 0 numero_ambetti4 = 0 am1_stat = 0 am2_stat = 0 am3_stat = 0 conta_giocate_perdenti = 0 'giocate_effettive=0 giocate_perdenti_max = 0 giocate_perdenti_max_temp = 0 'Next Scrivi" ",1 Scrivi "<><><><><><><><><><><><><><><><> giocate_effetive_max: " & giocate_effettive_max & " <><><><><><><><><><><><><><><><>" Scrivi "<><><><><><><><><><><><><><><><> giocate_perdenti_correnti: " & conta_giocate_perdenti_max_temp & " <><><><><><><><><><><><><><><><>" Scrivi" ",1 Scrivi "Ambi giocata1: " & giocata1,1 Scrivi "Ambi giocata2: " & giocata2,1 Scrivi "Ambi giocata3: " & giocata3,1 Scrivi "Ambi giocata4: " & giocata4,1 Scrivi "Ambi giocata5: " & giocata5,1 'CreaTabella ScriviResoconto'-------------->stampa a video tutto quello richiesto allo script restituendoci i risultati delle previsioni e il '------------------------------------- loro andamento durante il periodo analizzato End Sub'------------->Chisura dello script |
